2 integer,
intent( in) :: ncid, varid
3 character (len = *),
intent( in) :: values
4 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
7 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride
11 localcount(1) = len(values); localcount(2:) = 1
14 if(present(start)) localstart(:
size(start) ) = start(:)
15 if(present(count)) localcount(:
size(count) ) = count(:)
16 if(present(stride)) localstride(:
size(stride)) = stride(:)
22 integer,
intent( in) :: ncid, varid
23 character (len = *),
intent(out) :: values
24 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
27 integer,
dimension(nf90_max_var_dims) :: localindex, textdimids
28 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride
29 integer :: counter, stringlength
33 localcount(1) = len(values); localcount(2:) = 1
36 if(present(start)) localstart(:
size(start) ) = start(:)
37 if(present(count)) localcount(:
size(count) ) = count(:)
38 if(present(stride)) localstride(:
size(stride)) = stride(:)
45 integer,
intent( in) :: ncid, varid
46 character (len = *),
dimension(:), &
48 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
51 integer,
parameter :: numdims = 1
52 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
57 localcount( :numdims+1) = (/ len(values(1)), shape(values) /)
58 localcount(numdims+2:) = 0
60 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
62 if(present(start)) localstart(:
size(start)) = start(:)
63 if(present(count)) localcount(:
size(count)) = count(:)
64 if(present(stride)) localstride(:
size(stride)) = stride(:)
66 localmap(:
size(map)) = map(:)
68 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1))
71 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1))
77 integer,
intent( in) :: ncid, varid
78 character (len = *),
dimension(:, :), &
80 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
83 integer,
parameter :: numdims = 2
84 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
89 localcount( :numdims+1) = (/ len(values(1, 1)), shape(values) /)
90 localcount(numdims+2:) = 0
92 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
94 if(present(start)) localstart(:
size(start)) = start(:)
95 if(present(count)) localcount(:
size(count)) = count(:)
96 if(present(stride)) localstride(:
size(stride)) = stride(:)
98 localmap(:
size(map)) = map(:)
100 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1))
103 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1))
109 integer,
intent( in) :: ncid, varid
110 character (len = *),
dimension(:, :, :), &
111 intent( in) :: values
112 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
115 integer,
parameter :: numdims = 3
116 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
121 localcount( :numdims+1) = (/ len(values(1, 1, 1)), shape(values) /)
122 localcount(numdims+2:) = 0
124 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
126 if(present(start)) localstart(:
size(start)) = start(:)
127 if(present(count)) localcount(:
size(count)) = count(:)
128 if(present(stride)) localstride(:
size(stride)) = stride(:)
129 if(present(map))
then
130 localmap(:
size(map)) = map(:)
132 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1))
135 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1))
141 integer,
intent( in) :: ncid, varid
142 character (len = *),
dimension(:, :, :, :), &
143 intent( in) :: values
144 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
147 integer,
parameter :: numdims = 4
148 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
153 localcount( :numdims+1) = (/ len(values(1, 1, 1, 1)), shape(values) /)
154 localcount(numdims+2:) = 0
156 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
158 if(present(start)) localstart(:
size(start)) = start(:)
159 if(present(count)) localcount(:
size(count)) = count(:)
160 if(present(stride)) localstride(:
size(stride)) = stride(:)
161 if(present(map))
then
162 localmap(:
size(map)) = map(:)
164 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1))
167 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1))
173 integer,
intent( in) :: ncid, varid
174 character (len = *),
dimension(:, :, :, :, :), &
175 intent( in) :: values
176 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
179 integer,
parameter :: numdims = 5
180 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
185 localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1)), shape(values) /)
186 localcount(numdims+2:) = 0
188 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
190 if(present(start)) localstart(:
size(start)) = start(:)
191 if(present(count)) localcount(:
size(count)) = count(:)
192 if(present(stride)) localstride(:
size(stride)) = stride(:)
193 if(present(map))
then
194 localmap(:
size(map)) = map(:)
196 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1))
199 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1))
205 integer,
intent( in) :: ncid, varid
206 character (len = *),
dimension(:, :, :, :, :, :), &
207 intent( in) :: values
208 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
211 integer,
parameter :: numdims = 6
212 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
217 localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1)), shape(values) /)
218 localcount(numdims+2:) = 0
220 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
222 if(present(start)) localstart(:
size(start)) = start(:)
223 if(present(count)) localcount(:
size(count)) = count(:)
224 if(present(stride)) localstride(:
size(stride)) = stride(:)
225 if(present(map))
then
226 localmap(:
size(map)) = map(:)
228 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1))
231 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1))
237 integer,
intent( in) :: ncid, varid
238 character (len = *),
dimension(:, :, :, :, :, :, :), &
239 intent( in) :: values
240 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
243 integer,
parameter :: numdims = 7
244 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
249 localcount( :numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1, 1)), shape(values) /)
250 localcount(numdims+2:) = 0
252 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
254 if(present(start)) localstart(:
size(start)) = start(:)
255 if(present(count)) localcount(:
size(count)) = count(:)
256 if(present(stride)) localstride(:
size(stride)) = stride(:)
257 if(present(map))
then
258 localmap(:
size(map)) = map(:)
260 nf_put_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1,1))
263 nf_put_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1,1))
269 integer,
intent( in) :: ncid, varid
270 character (len = *),
dimension(:), &
271 intent(out) :: values
272 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
275 integer,
parameter :: numdims = 1
276 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
281 localcount(:numdims+1) = (/ len(values(1)), shape(values) /)
282 localcount(numdims+2:) = 0
284 localmap(:numdims ) = (/ 1/)
286 if(present(start)) localstart(:
size(start)) = start(:)
287 if(present(count)) localcount(:
size(count)) = count(:)
288 if(present(stride)) localstride(:
size(stride)) = stride(:)
289 if(present(map))
then
290 localmap(:
size(map)) = map(:)
292 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1))
295 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1))
301 integer,
intent( in) :: ncid, varid
302 character (len = *),
dimension(:, :), &
303 intent(out) :: values
304 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
307 integer,
parameter :: numdims = 2
308 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
313 localcount(:numdims+1) = (/ len(values(1, 1)), shape(values) /)
314 localcount(numdims+2:) = 0
316 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
318 if(present(start)) localstart(:
size(start)) = start(:)
319 if(present(count)) localcount(:
size(count)) = count(:)
320 if(present(stride)) localstride(:
size(stride)) = stride(:)
321 if(present(map))
then
322 localmap(:
size(map)) = map(:)
324 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1))
327 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1))
333 integer,
intent( in) :: ncid, varid
334 character (len = *),
dimension(:, :, :), &
335 intent(out) :: values
336 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
339 integer,
parameter :: numdims = 3
340 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
345 localcount(:numdims+1) = (/ len(values(1, 1, 1)), shape(values) /)
346 localcount(numdims+2:) = 0
348 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
350 if(present(start)) localstart(:
size(start)) = start(:)
351 if(present(count)) localcount(:
size(count)) = count(:)
352 if(present(stride)) localstride(:
size(stride)) = stride(:)
353 if(present(map))
then
354 localmap(:
size(map)) = map(:)
356 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1))
359 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1))
365 integer,
intent( in) :: ncid, varid
366 character (len = *),
dimension(:, :, :, :), &
367 intent(out) :: values
368 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
371 integer,
parameter :: numdims = 4
372 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
377 localcount(:numdims+1) = (/ len(values(1, 1, 1, 1)), shape(values) /)
378 localcount(numdims+2:) = 0
380 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
382 if(present(start)) localstart(:
size(start)) = start(:)
383 if(present(count)) localcount(:
size(count)) = count(:)
384 if(present(stride)) localstride(:
size(stride)) = stride(:)
385 if(present(map))
then
386 localmap(:
size(map)) = map(:)
388 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1))
391 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1))
397 integer,
intent( in) :: ncid, varid
398 character (len = *),
dimension(:, :, :, :, :), &
399 intent(out) :: values
400 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
403 integer,
parameter :: numdims = 5
404 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
409 localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1)), shape(values) /)
410 localcount(numdims+2:) = 0
412 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
414 if(present(start)) localstart(:
size(start)) = start(:)
415 if(present(count)) localcount(:
size(count)) = count(:)
416 if(present(stride)) localstride(:
size(stride)) = stride(:)
417 if(present(map))
then
418 localmap(:
size(map)) = map(:)
420 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1))
423 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1))
429 integer,
intent( in) :: ncid, varid
430 character (len = *),
dimension(:, :, :, :, :, :), &
431 intent(out) :: values
432 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
435 integer,
parameter :: numdims = 6
436 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
441 localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1)), shape(values) /)
442 localcount(numdims+2:) = 0
444 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
446 if(present(start)) localstart(:
size(start)) = start(:)
447 if(present(count)) localcount(:
size(count)) = count(:)
448 if(present(stride)) localstride(:
size(stride)) = stride(:)
449 if(present(map))
then
450 localmap(:
size(map)) = map(:)
452 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1))
455 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1))
461 integer,
intent( in) :: ncid, varid
462 character (len = *),
dimension(:, :, :, :, :, :, :), &
463 intent(out) :: values
464 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
467 integer,
parameter :: numdims = 7
468 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
473 localcount(:numdims+1) = (/ len(values(1, 1, 1, 1, 1, 1, 1)), shape(values) /)
474 localcount(numdims+2:) = 0
476 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
478 if(present(start)) localstart(:
size(start)) = start(:)
479 if(present(count)) localcount(:
size(count)) = count(:)
480 if(present(stride)) localstride(:
size(stride)) = stride(:)
481 if(present(map))
then
482 localmap(:
size(map)) = map(:)
484 nf_get_varm_text(ncid, varid, localstart, localcount, localstride, localmap, values(1,1,1,1,1,1,1))
487 nf_get_vars_text(ncid, varid, localstart, localcount, localstride, values(1,1,1,1,1,1,1))
integer function nf90_get_var_4d_text(ncid, varid, values, start, count, stride, map)
function nf_put_vars_text(ncid, varid, start, counts, strides, text)
integer function nf_put_varm_text(ncid, varid, start, counts, strides, maps, text)
integer function nf90_get_var_6d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_7d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_text(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_text(ncid, varid, start, counts, strides, maps, text)
integer function nf90_put_var_text(ncid, varid, values, start, count, stride, map)
function nf_get_vars_text(ncid, varid, start, counts, strides, text)
integer function nf90_put_var_4d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_1d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_1d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_5d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_3d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_7d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_2d_text(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_2d_text(ncid, varid, values, start, count, stride, map)