1 function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
2 integer,
intent( in) :: ncid, varid
3 integer (kind = EightByteInt),
dimension(:), &
5 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
6 integer :: nf90_put_var_1d_eightbyteint
8 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
9 integer :: numdims, counter
12 numdims =
size(shape(values))
14 localcount(:numdims ) = shape(values)
15 localcount(numdims+1:) = 1
17 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
19 if(
present(start)) localstart(:
size(start) ) = start(:)
20 if(
present(count)) localcount(:
size(count) ) = count(:)
21 if(
present(stride)) localstride(:
size(stride)) = stride(:)
23 localmap(:
size(map)) = map(:)
24 nf90_put_var_1d_eightbyteint = &
25 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
26 else if(
present(stride))
then
27 nf90_put_var_1d_eightbyteint = &
28 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
30 nf90_put_var_1d_eightbyteint = &
31 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
33 end function nf90_put_var_1d_eightbyteint
36 function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
37 integer,
intent( in) :: ncid, varid
38 integer (kind = EightByteInt),
dimension(:, :), &
40 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
41 integer :: nf90_put_var_2d_eightbyteint
43 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
44 integer :: numdims, counter
47 numdims =
size(shape(values))
49 localcount(:numdims ) = shape(values)
50 localcount(numdims+1:) = 1
52 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
54 if(
present(start)) localstart(:
size(start) ) = start(:)
55 if(
present(count)) localcount(:
size(count) ) = count(:)
56 if(
present(stride)) localstride(:
size(stride)) = stride(:)
58 localmap(:
size(map)) = map(:)
59 nf90_put_var_2d_eightbyteint = &
60 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
61 else if(
present(stride))
then
62 nf90_put_var_2d_eightbyteint = &
63 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
65 nf90_put_var_2d_eightbyteint = &
66 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
68 end function nf90_put_var_2d_eightbyteint
71 function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
72 integer,
intent( in) :: ncid, varid
73 integer (kind = EightByteInt),
dimension(:, :, :), &
75 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
76 integer :: nf90_put_var_3d_eightbyteint
78 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
79 integer :: numdims, counter
82 numdims =
size(shape(values))
84 localcount(:numdims ) = shape(values)
85 localcount(numdims+1:) = 1
87 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
89 if(
present(start)) localstart(:
size(start) ) = start(:)
90 if(
present(count)) localcount(:
size(count) ) = count(:)
91 if(
present(stride)) localstride(:
size(stride)) = stride(:)
93 localmap(:
size(map)) = map(:)
94 nf90_put_var_3d_eightbyteint = &
95 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
96 else if(
present(stride))
then
97 nf90_put_var_3d_eightbyteint = &
98 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
100 nf90_put_var_3d_eightbyteint = &
101 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
103 end function nf90_put_var_3d_eightbyteint
106 function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
107 integer,
intent( in) :: ncid, varid
108 integer (kind = EightByteInt),
dimension(:, :, :, :), &
109 intent( in) :: values
110 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
111 integer :: nf90_put_var_4d_eightbyteint
113 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
114 integer :: numdims, counter
117 numdims =
size(shape(values))
119 localcount(:numdims ) = shape(values)
120 localcount(numdims+1:) = 1
122 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
124 if(
present(start)) localstart(:
size(start) ) = start(:)
125 if(
present(count)) localcount(:
size(count) ) = count(:)
126 if(
present(stride)) localstride(:
size(stride)) = stride(:)
127 if(
present(map))
then
128 localmap(:
size(map)) = map(:)
129 nf90_put_var_4d_eightbyteint = &
130 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
131 else if(
present(stride))
then
132 nf90_put_var_4d_eightbyteint = &
133 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
135 nf90_put_var_4d_eightbyteint = &
136 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
138 end function nf90_put_var_4d_eightbyteint
141 function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
142 integer,
intent( in) :: ncid, varid
143 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
144 intent( in) :: values
145 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
146 integer :: nf90_put_var_5d_eightbyteint
148 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
149 integer :: numdims, counter
152 numdims =
size(shape(values))
154 localcount(:numdims ) = shape(values)
155 localcount(numdims+1:) = 1
157 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
159 if(
present(start)) localstart(:
size(start) ) = start(:)
160 if(
present(count)) localcount(:
size(count) ) = count(:)
161 if(
present(stride)) localstride(:
size(stride)) = stride(:)
162 if(
present(map))
then
163 localmap(:
size(map)) = map(:)
164 nf90_put_var_5d_eightbyteint = &
165 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
166 else if(
present(stride))
then
167 nf90_put_var_5d_eightbyteint = &
168 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
170 nf90_put_var_5d_eightbyteint = &
171 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
173 end function nf90_put_var_5d_eightbyteint
176 function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
177 integer,
intent( in) :: ncid, varid
178 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
179 intent( in) :: values
180 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
181 integer :: nf90_put_var_6d_eightbyteint
183 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
184 integer :: numdims, counter
187 numdims =
size(shape(values))
189 localcount(:numdims ) = shape(values)
190 localcount(numdims+1:) = 1
192 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
194 if(
present(start)) localstart(:
size(start) ) = start(:)
195 if(
present(count)) localcount(:
size(count) ) = count(:)
196 if(
present(stride)) localstride(:
size(stride)) = stride(:)
197 if(
present(map))
then
198 localmap(:
size(map)) = map(:)
199 nf90_put_var_6d_eightbyteint = &
200 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
201 else if(
present(stride))
then
202 nf90_put_var_6d_eightbyteint = &
203 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
205 nf90_put_var_6d_eightbyteint = &
206 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
208 end function nf90_put_var_6d_eightbyteint
211 function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
212 integer,
intent( in) :: ncid, varid
213 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
214 intent( in) :: values
215 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
216 integer :: nf90_put_var_7d_eightbyteint
218 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
219 integer :: numdims, counter
222 numdims =
size(shape(values))
224 localcount(:numdims ) = shape(values)
225 localcount(numdims+1:) = 1
227 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
229 if(
present(start)) localstart(:
size(start) ) = start(:)
230 if(
present(count)) localcount(:
size(count) ) = count(:)
231 if(
present(stride)) localstride(:
size(stride)) = stride(:)
232 if(
present(map))
then
233 localmap(:
size(map)) = map(:)
234 nf90_put_var_7d_eightbyteint = &
235 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
236 else if(
present(stride))
then
237 nf90_put_var_7d_eightbyteint = &
238 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
240 nf90_put_var_7d_eightbyteint = &
241 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
243 end function nf90_put_var_7d_eightbyteint
246 function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
247 integer,
intent( in) :: ncid, varid
248 integer (kind = EightByteInt),
dimension(:), &
249 intent(out) :: values
250 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
251 integer :: nf90_get_var_1d_eightbyteint
253 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
254 integer :: numdims, counter
255 integer,
dimension(size(values)) :: defaultintarray
258 numdims =
size(shape(values))
260 localcount(:numdims ) = shape(values)
261 localcount(numdims+1:) = 1
263 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
265 if(
present(start)) localstart(:
size(start) ) = start(:)
266 if(
present(count)) localcount(:
size(count) ) = count(:)
267 if(
present(stride)) localstride(:
size(stride)) = stride(:)
268 if(
present(map))
then
269 localmap(:
size(map)) = map(:)
270 nf90_get_var_1d_eightbyteint = &
271 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
272 else if(
present(stride))
then
273 nf90_get_var_1d_eightbyteint = &
274 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
276 nf90_get_var_1d_eightbyteint = &
277 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
279 values(:) = reshape(defaultintarray(:), shape(values))
280 end function nf90_get_var_1d_eightbyteint
283 function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
284 integer,
intent( in) :: ncid, varid
285 integer (kind = EightByteInt),
dimension(:, :), &
286 intent(out) :: values
287 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
288 integer :: nf90_get_var_2d_eightbyteint
290 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
291 integer :: numdims, counter
292 integer,
dimension(size(values)) :: defaultintarray
295 numdims =
size(shape(values))
297 localcount(:numdims ) = shape(values)
298 localcount(numdims+1:) = 1
300 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
302 if(
present(start)) localstart(:
size(start) ) = start(:)
303 if(
present(count)) localcount(:
size(count) ) = count(:)
304 if(
present(stride)) localstride(:
size(stride)) = stride(:)
305 if(
present(map))
then
306 localmap(:
size(map)) = map(:)
307 nf90_get_var_2d_eightbyteint = &
308 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
309 else if(
present(stride))
then
310 nf90_get_var_2d_eightbyteint = &
311 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
313 nf90_get_var_2d_eightbyteint = &
314 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
316 values(:, :) = reshape(defaultintarray(:), shape(values))
317 end function nf90_get_var_2d_eightbyteint
320 function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
321 integer,
intent( in) :: ncid, varid
322 integer (kind = EightByteInt),
dimension(:, :, :), &
323 intent(out) :: values
324 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
325 integer :: nf90_get_var_3d_eightbyteint
327 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
328 integer :: numdims, counter
329 integer,
dimension(size(values)) :: defaultintarray
332 numdims =
size(shape(values))
334 localcount(:numdims ) = shape(values)
335 localcount(numdims+1:) = 1
337 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
339 if(
present(start)) localstart(:
size(start) ) = start(:)
340 if(
present(count)) localcount(:
size(count) ) = count(:)
341 if(
present(stride)) localstride(:
size(stride)) = stride(:)
342 if(
present(map))
then
343 localmap(:
size(map)) = map(:)
344 nf90_get_var_3d_eightbyteint = &
345 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
346 else if(
present(stride))
then
347 nf90_get_var_3d_eightbyteint = &
348 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
350 nf90_get_var_3d_eightbyteint = &
351 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
353 values(:, :, :) = reshape(defaultintarray(:), shape(values))
354 end function nf90_get_var_3d_eightbyteint
357 function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
358 integer,
intent( in) :: ncid, varid
359 integer (kind = EightByteInt),
dimension(:, :, :, :), &
360 intent(out) :: values
361 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
362 integer :: nf90_get_var_4d_eightbyteint
364 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
365 integer :: numdims, counter
366 integer,
dimension(size(values)) :: defaultintarray
369 numdims =
size(shape(values))
371 localcount(:numdims ) = shape(values)
372 localcount(numdims+1:) = 1
374 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
376 if(
present(start)) localstart(:
size(start) ) = start(:)
377 if(
present(count)) localcount(:
size(count) ) = count(:)
378 if(
present(stride)) localstride(:
size(stride)) = stride(:)
379 if(
present(map))
then
380 localmap(:
size(map)) = map(:)
381 nf90_get_var_4d_eightbyteint = &
382 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
383 else if(
present(stride))
then
384 nf90_get_var_4d_eightbyteint = &
385 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
387 nf90_get_var_4d_eightbyteint = &
388 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
390 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
391 end function nf90_get_var_4d_eightbyteint
394 function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
395 integer,
intent( in) :: ncid, varid
396 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
397 intent(out) :: values
398 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
399 integer :: nf90_get_var_5d_eightbyteint
401 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
402 integer :: numdims, counter
403 integer,
dimension(size(values)) :: defaultintarray
406 numdims =
size(shape(values))
408 localcount(:numdims ) = shape(values)
409 localcount(numdims+1:) = 1
411 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
413 if(
present(start)) localstart(:
size(start) ) = start(:)
414 if(
present(count)) localcount(:
size(count) ) = count(:)
415 if(
present(stride)) localstride(:
size(stride)) = stride(:)
416 if(
present(map))
then
417 localmap(:
size(map)) = map(:)
418 nf90_get_var_5d_eightbyteint = &
419 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
420 else if(
present(stride))
then
421 nf90_get_var_5d_eightbyteint = &
422 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
424 nf90_get_var_5d_eightbyteint = &
425 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
427 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
428 end function nf90_get_var_5d_eightbyteint
431 function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
432 integer,
intent( in) :: ncid, varid
433 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
434 intent(out) :: values
435 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
436 integer :: nf90_get_var_6d_eightbyteint
438 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
439 integer :: numdims, counter
440 integer,
dimension(size(values)) :: defaultintarray
443 numdims =
size(shape(values))
445 localcount(:numdims ) = shape(values)
446 localcount(numdims+1:) = 1
448 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
450 if(
present(start)) localstart(:
size(start) ) = start(:)
451 if(
present(count)) localcount(:
size(count) ) = count(:)
452 if(
present(stride)) localstride(:
size(stride)) = stride(:)
453 if(
present(map))
then
454 localmap(:
size(map)) = map(:)
455 nf90_get_var_6d_eightbyteint = &
456 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
457 else if(
present(stride))
then
458 nf90_get_var_6d_eightbyteint = &
459 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
461 nf90_get_var_6d_eightbyteint = &
462 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
464 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
465 end function nf90_get_var_6d_eightbyteint
468 function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
469 integer,
intent( in) :: ncid, varid
470 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
471 intent(out) :: values
472 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
473 integer :: nf90_get_var_7d_eightbyteint
475 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
476 integer :: numdims, counter
477 integer,
dimension(size(values)) :: defaultintarray
480 numdims =
size(shape(values))
482 localcount(:numdims ) = shape(values)
483 localcount(numdims+1:) = 1
485 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
487 if(
present(start)) localstart(:
size(start) ) = start(:)
488 if(
present(count)) localcount(:
size(count) ) = count(:)
489 if(
present(stride)) localstride(:
size(stride)) = stride(:)
490 if(
present(map))
then
491 localmap(:
size(map)) = map(:)
492 nf90_get_var_7d_eightbyteint = &
493 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
494 else if(
present(stride))
then
495 nf90_get_var_7d_eightbyteint = &
496 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
498 nf90_get_var_7d_eightbyteint = &
499 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
501 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
502 end function nf90_get_var_7d_eightbyteint
505 function nf90_put_var_eightbyteint(ncid, varid, values, start)
506 integer,
intent( in) :: ncid, varid
507 integer (kind = EightByteInt),
intent( in) :: values
508 integer,
dimension(:),
optional,
intent( in) :: start
509 integer :: nf90_put_var_eightbyteint
511 integer,
dimension(nf90_max_var_dims) :: localindex
516 if(
present(start)) localindex(:
size(start)) = start(:)
518 nf90_put_var_eightbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
519 end function nf90_put_var_eightbyteint
522 function nf90_get_var_eightbyteint(ncid, varid, values, start)
523 integer,
intent( in) :: ncid, varid
524 integer (kind = EightByteInt),
intent(out) :: values
525 integer,
dimension(:),
optional,
intent( in) :: start
526 integer :: nf90_get_var_eightbyteint
528 integer,
dimension(nf90_max_var_dims) :: localindex
530 integer :: defaultinteger
534 if(
present(start)) localindex(:
size(start)) = start(:)
536 nf90_get_var_eightbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
537 values = defaultinteger
538 end function nf90_get_var_eightbyteint