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(:),
intent( in) :: values
4 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
5 integer :: nf90_put_var_1d_eightbyteint
7 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
8 integer :: numdims, counter, format_num
11 numdims =
size(shape(values))
13 localcount(:numdims ) = shape(values)
14 localcount(numdims+1:) = 1
16 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
18 if(
present(start)) localstart(:
size(start) ) = start(:)
19 if(
present(count)) localcount(:
size(count) ) = count(:)
20 if(
present(stride)) localstride(:
size(stride)) = stride(:)
21 nf90_put_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
22 if (nf90_put_var_1d_eightbyteint .eq. nf90_noerr)
then
23 if (format_num .eq. nf90_format_netcdf4)
then
25 localmap(:
size(map)) = map(:)
26 nf90_put_var_1d_eightbyteint = &
27 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
28 else if(
present(stride))
then
29 nf90_put_var_1d_eightbyteint = &
30 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
32 nf90_put_var_1d_eightbyteint = &
33 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
37 localmap(:
size(map)) = map(:)
38 nf90_put_var_1d_eightbyteint = &
39 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
40 else if(
present(stride))
then
41 nf90_put_var_1d_eightbyteint = &
42 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
44 nf90_put_var_1d_eightbyteint = &
45 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
49 end function nf90_put_var_1d_eightbyteint
51 function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
52 integer,
intent( in) :: ncid, varid
53 integer (kind = EightByteInt),
dimension(:, :), &
55 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
56 integer :: nf90_put_var_2d_eightbyteint
58 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
59 integer :: numdims, counter, format_num
62 numdims =
size(shape(values))
64 localcount(:numdims ) = shape(values)
65 localcount(numdims+1:) = 1
67 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
69 if(
present(start)) localstart(:
size(start) ) = start(:)
70 if(
present(count)) localcount(:
size(count) ) = count(:)
71 if(
present(stride)) localstride(:
size(stride)) = stride(:)
72 nf90_put_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
73 if (nf90_put_var_2d_eightbyteint .eq. nf90_noerr)
then
74 if (format_num .eq. nf90_format_netcdf4)
then
76 localmap(:
size(map)) = map(:)
77 nf90_put_var_2d_eightbyteint = &
78 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
79 else if(
present(stride))
then
80 nf90_put_var_2d_eightbyteint = &
81 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
83 nf90_put_var_2d_eightbyteint = &
84 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
88 localmap(:
size(map)) = map(:)
89 nf90_put_var_2d_eightbyteint = &
90 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
91 else if(
present(stride))
then
92 nf90_put_var_2d_eightbyteint = &
93 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
95 nf90_put_var_2d_eightbyteint = &
96 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
101 end function nf90_put_var_2d_eightbyteint
104 function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
105 integer,
intent( in) :: ncid, varid
106 integer (kind = EightByteInt),
dimension(:, :, :), &
107 intent( in) :: values
108 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
109 integer :: nf90_put_var_3d_eightbyteint
111 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
112 integer :: numdims, counter, format_num
115 numdims =
size(shape(values))
117 localcount(:numdims ) = shape(values)
118 localcount(numdims+1:) = 1
120 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
122 if(
present(start)) localstart(:
size(start) ) = start(:)
123 if(
present(count)) localcount(:
size(count) ) = count(:)
124 if(
present(stride)) localstride(:
size(stride)) = stride(:)
125 nf90_put_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
126 if (nf90_put_var_3d_eightbyteint .eq. nf90_noerr)
then
127 if (format_num .eq. nf90_format_netcdf4)
then
128 if(
present(map))
then
129 localmap(:
size(map)) = map(:)
130 nf90_put_var_3d_eightbyteint = &
131 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
132 else if(
present(stride))
then
133 nf90_put_var_3d_eightbyteint = &
134 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
136 nf90_put_var_3d_eightbyteint = &
137 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
140 if(
present(map))
then
141 localmap(:
size(map)) = map(:)
142 nf90_put_var_3d_eightbyteint = &
143 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
144 else if(
present(stride))
then
145 nf90_put_var_3d_eightbyteint = &
146 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
148 nf90_put_var_3d_eightbyteint = &
149 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
153 end function nf90_put_var_3d_eightbyteint
156 function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
157 integer,
intent( in) :: ncid, varid
158 integer (kind = EightByteInt),
dimension(:, :, :, :), &
159 intent( in) :: values
160 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
161 integer :: nf90_put_var_4d_eightbyteint
163 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
164 integer :: numdims, counter, format_num
167 numdims =
size(shape(values))
169 localcount(:numdims ) = shape(values)
170 localcount(numdims+1:) = 1
172 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
174 if(
present(start)) localstart(:
size(start) ) = start(:)
175 if(
present(count)) localcount(:
size(count) ) = count(:)
176 if(
present(stride)) localstride(:
size(stride)) = stride(:)
177 nf90_put_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
178 if (nf90_put_var_4d_eightbyteint .eq. nf90_noerr)
then
179 if (format_num .eq. nf90_format_netcdf4)
then
180 if(
present(map))
then
181 localmap(:
size(map)) = map(:)
182 nf90_put_var_4d_eightbyteint = &
183 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
184 else if(
present(stride))
then
185 nf90_put_var_4d_eightbyteint = &
186 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
188 nf90_put_var_4d_eightbyteint = &
189 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
192 if(
present(map))
then
193 localmap(:
size(map)) = map(:)
194 nf90_put_var_4d_eightbyteint = &
195 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
196 else if(
present(stride))
then
197 nf90_put_var_4d_eightbyteint = &
198 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
200 nf90_put_var_4d_eightbyteint = &
201 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
205 end function nf90_put_var_4d_eightbyteint
208 function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
209 integer,
intent( in) :: ncid, varid
210 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
211 intent( in) :: values
212 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
213 integer :: nf90_put_var_5d_eightbyteint
215 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
216 integer :: numdims, counter, format_num
219 numdims =
size(shape(values))
221 localcount(:numdims ) = shape(values)
222 localcount(numdims+1:) = 1
224 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
226 if(
present(start)) localstart(:
size(start) ) = start(:)
227 if(
present(count)) localcount(:
size(count) ) = count(:)
228 if(
present(stride)) localstride(:
size(stride)) = stride(:)
229 nf90_put_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
230 if (nf90_put_var_5d_eightbyteint .eq. nf90_noerr)
then
231 if (format_num .eq. nf90_format_netcdf4)
then
232 if(
present(map))
then
233 localmap(:
size(map)) = map(:)
234 nf90_put_var_5d_eightbyteint = &
235 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
236 else if(
present(stride))
then
237 nf90_put_var_5d_eightbyteint = &
238 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
240 nf90_put_var_5d_eightbyteint = &
241 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
244 if(
present(map))
then
245 localmap(:
size(map)) = map(:)
246 nf90_put_var_5d_eightbyteint = &
247 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
248 else if(
present(stride))
then
249 nf90_put_var_5d_eightbyteint = &
250 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
252 nf90_put_var_5d_eightbyteint = &
253 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
257 end function nf90_put_var_5d_eightbyteint
260 function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
261 integer,
intent( in) :: ncid, varid
262 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
263 intent( in) :: values
264 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
265 integer :: nf90_put_var_6d_eightbyteint
267 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
268 integer :: numdims, counter, format_num
271 numdims =
size(shape(values))
273 localcount(:numdims ) = shape(values)
274 localcount(numdims+1:) = 1
276 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
278 if(
present(start)) localstart(:
size(start) ) = start(:)
279 if(
present(count)) localcount(:
size(count) ) = count(:)
280 if(
present(stride)) localstride(:
size(stride)) = stride(:)
281 nf90_put_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
282 if (nf90_put_var_6d_eightbyteint .eq. nf90_noerr)
then
283 if (format_num .eq. nf90_format_netcdf4)
then
284 if(
present(map))
then
285 localmap(:
size(map)) = map(:)
286 nf90_put_var_6d_eightbyteint = &
287 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
288 else if(
present(stride))
then
289 nf90_put_var_6d_eightbyteint = &
290 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
292 nf90_put_var_6d_eightbyteint = &
293 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
296 if(
present(map))
then
297 localmap(:
size(map)) = map(:)
298 nf90_put_var_6d_eightbyteint = &
299 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
300 else if(
present(stride))
then
301 nf90_put_var_6d_eightbyteint = &
302 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
304 nf90_put_var_6d_eightbyteint = &
305 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
309 end function nf90_put_var_6d_eightbyteint
312 function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
313 integer,
intent( in) :: ncid, varid
314 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
315 intent( in) :: values
316 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
317 integer :: nf90_put_var_7d_eightbyteint
319 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
320 integer :: numdims, counter, format_num
323 numdims =
size(shape(values))
325 localcount(:numdims ) = shape(values)
326 localcount(numdims+1:) = 1
328 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
330 if(
present(start)) localstart(:
size(start) ) = start(:)
331 if(
present(count)) localcount(:
size(count) ) = count(:)
332 if(
present(stride)) localstride(:
size(stride)) = stride(:)
333 nf90_put_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
334 if (nf90_put_var_7d_eightbyteint .eq. nf90_noerr)
then
335 if (format_num .eq. nf90_format_netcdf4)
then
336 if(
present(map))
then
337 localmap(:
size(map)) = map(:)
338 nf90_put_var_7d_eightbyteint = &
339 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
340 else if(
present(stride))
then
341 nf90_put_var_7d_eightbyteint = &
342 nf_put_vars_int64(ncid, varid, localstart, localcount, localstride, values)
344 nf90_put_var_7d_eightbyteint = &
345 nf_put_vara_int64(ncid, varid, localstart, localcount, values)
348 if(
present(map))
then
349 localmap(:
size(map)) = map(:)
350 nf90_put_var_7d_eightbyteint = &
351 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
352 else if(
present(stride))
then
353 nf90_put_var_7d_eightbyteint = &
354 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
356 nf90_put_var_7d_eightbyteint = &
357 nf_put_vara_int(ncid, varid, localstart, localcount, int(values))
361 end function nf90_put_var_7d_eightbyteint
364 function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
365 integer,
intent( in) :: ncid, varid
366 integer (kind = EightByteInt),
dimension(:), &
367 intent(out) :: values
368 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
369 integer :: nf90_get_var_1d_eightbyteint
371 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
372 integer :: numdims, counter, format_num
373 integer,
dimension(size(values)) :: defaultintarray
374 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
377 numdims =
size(shape(values))
379 localcount(:numdims ) = shape(values)
380 localcount(numdims+1:) = 1
382 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
384 if(
present(start)) localstart(:
size(start) ) = start(:)
385 if(
present(count)) localcount(:
size(count) ) = count(:)
386 if(
present(stride)) localstride(:
size(stride)) = stride(:)
387 nf90_get_var_1d_eightbyteint = nf_inq_format(ncid, format_num)
388 if (nf90_get_var_1d_eightbyteint .eq. nf90_noerr)
then
389 if (format_num .eq. nf90_format_netcdf4)
then
390 if(
present(map))
then
391 localmap(:
size(map)) = map(:)
392 nf90_get_var_1d_eightbyteint = &
393 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
394 else if(
present(stride))
then
395 nf90_get_var_1d_eightbyteint = &
396 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
398 nf90_get_var_1d_eightbyteint = &
399 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
401 values(:) = reshape(defaultint8array(:), shape(values))
403 if(
present(map))
then
404 localmap(:
size(map)) = map(:)
405 nf90_get_var_1d_eightbyteint = &
406 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
407 else if(
present(stride))
then
408 nf90_get_var_1d_eightbyteint = &
409 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
411 nf90_get_var_1d_eightbyteint = &
412 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
414 values(:) = reshape(defaultintarray(:), shape(values))
417 end function nf90_get_var_1d_eightbyteint
420 function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
421 integer,
intent( in) :: ncid, varid
422 integer (kind = EightByteInt),
dimension(:, :), &
423 intent(out) :: values
424 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
425 integer :: nf90_get_var_2d_eightbyteint
427 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
428 integer :: numdims, counter, format_num
429 integer,
dimension(size(values)) :: defaultintarray
430 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
433 numdims =
size(shape(values))
435 localcount(:numdims ) = shape(values)
436 localcount(numdims+1:) = 1
438 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
440 if(
present(start)) localstart(:
size(start) ) = start(:)
441 if(
present(count)) localcount(:
size(count) ) = count(:)
442 if(
present(stride)) localstride(:
size(stride)) = stride(:)
443 nf90_get_var_2d_eightbyteint = nf_inq_format(ncid, format_num)
444 if (nf90_get_var_2d_eightbyteint .eq. nf90_noerr)
then
445 if (format_num .eq. nf90_format_netcdf4)
then
446 if(
present(map))
then
447 localmap(:
size(map)) = map(:)
448 nf90_get_var_2d_eightbyteint = &
449 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
450 else if(
present(stride))
then
451 nf90_get_var_2d_eightbyteint = &
452 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
454 nf90_get_var_2d_eightbyteint = &
455 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
457 values(:, :) = reshape(defaultint8array(:), shape(values))
459 if(
present(map))
then
460 localmap(:
size(map)) = map(:)
461 nf90_get_var_2d_eightbyteint = &
462 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
463 else if(
present(stride))
then
464 nf90_get_var_2d_eightbyteint = &
465 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
467 nf90_get_var_2d_eightbyteint = &
468 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
470 values(:, :) = reshape(defaultintarray(:), shape(values))
473 end function nf90_get_var_2d_eightbyteint
476 function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
477 integer,
intent( in) :: ncid, varid
478 integer (kind = EightByteInt),
dimension(:, :, :), &
479 intent(out) :: values
480 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
481 integer :: nf90_get_var_3d_eightbyteint
483 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
484 integer :: numdims, counter, format_num
485 integer,
dimension(size(values)) :: defaultintarray
486 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
489 numdims =
size(shape(values))
491 localcount(:numdims ) = shape(values)
492 localcount(numdims+1:) = 1
494 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
496 if(
present(start)) localstart(:
size(start) ) = start(:)
497 if(
present(count)) localcount(:
size(count) ) = count(:)
498 if(
present(stride)) localstride(:
size(stride)) = stride(:)
499 nf90_get_var_3d_eightbyteint = nf_inq_format(ncid, format_num)
500 if (nf90_get_var_3d_eightbyteint .eq. nf90_noerr)
then
501 if (format_num .eq. nf90_format_netcdf4)
then
502 if(
present(map))
then
503 localmap(:
size(map)) = map(:)
504 nf90_get_var_3d_eightbyteint = &
505 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
506 else if(
present(stride))
then
507 nf90_get_var_3d_eightbyteint = &
508 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
510 nf90_get_var_3d_eightbyteint = &
511 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
513 values(:, :, :) = reshape(defaultint8array(:), shape(values))
515 if(
present(map))
then
516 localmap(:
size(map)) = map(:)
517 nf90_get_var_3d_eightbyteint = &
518 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
519 else if(
present(stride))
then
520 nf90_get_var_3d_eightbyteint = &
521 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
523 nf90_get_var_3d_eightbyteint = &
524 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
526 values(:, :, :) = reshape(defaultintarray(:), shape(values))
529 end function nf90_get_var_3d_eightbyteint
532 function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
533 integer,
intent( in) :: ncid, varid
534 integer (kind = EightByteInt),
dimension(:, :, :, :), &
535 intent(out) :: values
536 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
537 integer :: nf90_get_var_4d_eightbyteint
539 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
540 integer :: numdims, counter, format_num
541 integer,
dimension(size(values)) :: defaultintarray
542 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
545 numdims =
size(shape(values))
547 localcount(:numdims ) = shape(values)
548 localcount(numdims+1:) = 1
550 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
552 if(
present(start)) localstart(:
size(start) ) = start(:)
553 if(
present(count)) localcount(:
size(count) ) = count(:)
554 if(
present(stride)) localstride(:
size(stride)) = stride(:)
555 nf90_get_var_4d_eightbyteint = nf_inq_format(ncid, format_num)
556 if (nf90_get_var_4d_eightbyteint .eq. nf90_noerr)
then
557 if (format_num .eq. nf90_format_netcdf4)
then
558 if(
present(map))
then
559 localmap(:
size(map)) = map(:)
560 nf90_get_var_4d_eightbyteint = &
561 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
562 else if(
present(stride))
then
563 nf90_get_var_4d_eightbyteint = &
564 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
566 nf90_get_var_4d_eightbyteint = &
567 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
569 values(:, :, :, :) = reshape(defaultint8array(:), shape(values))
571 if(
present(map))
then
572 localmap(:
size(map)) = map(:)
573 nf90_get_var_4d_eightbyteint = &
574 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
575 else if(
present(stride))
then
576 nf90_get_var_4d_eightbyteint = &
577 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
579 nf90_get_var_4d_eightbyteint = &
580 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
582 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
585 end function nf90_get_var_4d_eightbyteint
588 function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
589 integer,
intent( in) :: ncid, varid
590 integer (kind = EightByteInt),
dimension(:, :, :, :, :), &
591 intent(out) :: values
592 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
593 integer :: nf90_get_var_5d_eightbyteint
595 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
596 integer :: numdims, counter, format_num
597 integer,
dimension(size(values)) :: defaultintarray
598 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
601 numdims =
size(shape(values))
603 localcount(:numdims ) = shape(values)
604 localcount(numdims+1:) = 1
606 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
608 if(
present(start)) localstart(:
size(start) ) = start(:)
609 if(
present(count)) localcount(:
size(count) ) = count(:)
610 if(
present(stride)) localstride(:
size(stride)) = stride(:)
611 nf90_get_var_5d_eightbyteint = nf_inq_format(ncid, format_num)
612 if (nf90_get_var_5d_eightbyteint .eq. nf90_noerr)
then
613 if (format_num .eq. nf90_format_netcdf4)
then
614 if(
present(map))
then
615 localmap(:
size(map)) = map(:)
616 nf90_get_var_5d_eightbyteint = &
617 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
618 else if(
present(stride))
then
619 nf90_get_var_5d_eightbyteint = &
620 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
622 nf90_get_var_5d_eightbyteint = &
623 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
625 values(:, :, :, :, :) = reshape(defaultint8array(:), shape(values))
627 if(
present(map))
then
628 localmap(:
size(map)) = map(:)
629 nf90_get_var_5d_eightbyteint = &
630 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
631 else if(
present(stride))
then
632 nf90_get_var_5d_eightbyteint = &
633 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
635 nf90_get_var_5d_eightbyteint = &
636 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
638 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
641 end function nf90_get_var_5d_eightbyteint
644 function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
645 integer,
intent( in) :: ncid, varid
646 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :), &
647 intent(out) :: values
648 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
649 integer :: nf90_get_var_6d_eightbyteint
651 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
652 integer :: numdims, counter, format_num
653 integer,
dimension(size(values)) :: defaultintarray
654 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
657 numdims =
size(shape(values))
659 localcount(:numdims ) = shape(values)
660 localcount(numdims+1:) = 1
662 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
664 if(
present(start)) localstart(:
size(start) ) = start(:)
665 if(
present(count)) localcount(:
size(count) ) = count(:)
666 if(
present(stride)) localstride(:
size(stride)) = stride(:)
667 nf90_get_var_6d_eightbyteint = nf_inq_format(ncid, format_num)
668 if (nf90_get_var_6d_eightbyteint .eq. nf90_noerr)
then
669 if (format_num .eq. nf90_format_netcdf4)
then
670 if(
present(map))
then
671 localmap(:
size(map)) = map(:)
672 nf90_get_var_6d_eightbyteint = &
673 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
674 else if(
present(stride))
then
675 nf90_get_var_6d_eightbyteint = &
676 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
678 nf90_get_var_6d_eightbyteint = &
679 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
681 values(:, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
683 if(
present(map))
then
684 localmap(:
size(map)) = map(:)
685 nf90_get_var_6d_eightbyteint = &
686 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
687 else if(
present(stride))
then
688 nf90_get_var_6d_eightbyteint = &
689 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
691 nf90_get_var_6d_eightbyteint = &
692 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
694 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
697 end function nf90_get_var_6d_eightbyteint
700 function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
701 integer,
intent( in) :: ncid, varid
702 integer (kind = EightByteInt),
dimension(:, :, :, :, :, :, :), &
703 intent(out) :: values
704 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
705 integer :: nf90_get_var_7d_eightbyteint
707 integer,
dimension(nf90_max_var_dims) :: localstart, localcount, localstride, localmap
708 integer :: numdims, counter, format_num
709 integer,
dimension(size(values)) :: defaultintarray
710 integer (kind = EightByteInt),
dimension(size(values)) :: defaultint8array
713 numdims =
size(shape(values))
715 localcount(:numdims ) = shape(values)
716 localcount(numdims+1:) = 1
718 localmap(:numdims ) = (/ 1, (product(localcount(:counter)), counter = 1, numdims - 1) /)
720 if(
present(start)) localstart(:
size(start) ) = start(:)
721 if(
present(count)) localcount(:
size(count) ) = count(:)
722 if(
present(stride)) localstride(:
size(stride)) = stride(:)
723 nf90_get_var_7d_eightbyteint = nf_inq_format(ncid, format_num)
724 if (nf90_get_var_7d_eightbyteint .eq. nf90_noerr)
then
725 if (format_num .eq. nf90_format_netcdf4)
then
726 if(
present(map))
then
727 localmap(:
size(map)) = map(:)
728 nf90_get_var_7d_eightbyteint = &
729 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
730 else if(
present(stride))
then
731 nf90_get_var_7d_eightbyteint = &
732 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
734 nf90_get_var_7d_eightbyteint = &
735 nf_get_vara_int64(ncid, varid, localstart, localcount, defaultint8array)
737 values(:, :, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
739 if(
present(map))
then
740 localmap(:
size(map)) = map(:)
741 nf90_get_var_7d_eightbyteint = &
742 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
743 else if(
present(stride))
then
744 nf90_get_var_7d_eightbyteint = &
745 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
747 nf90_get_var_7d_eightbyteint = &
748 nf_get_vara_int(ncid, varid, localstart, localcount, defaultintarray)
750 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
754 end function nf90_get_var_7d_eightbyteint
757 function nf90_put_var_eightbyteint(ncid, varid, values, start)
758 integer,
intent( in) :: ncid, varid
759 integer (kind = EightByteInt),
intent( in) :: values
760 integer,
dimension(:),
optional,
intent( in) :: start
761 integer :: nf90_put_var_eightbyteint
763 integer,
dimension(nf90_max_var_dims) :: localindex
764 integer :: counter, format_num
768 if(
present(start)) localindex(:
size(start)) = start(:)
770 nf90_put_var_eightbyteint = nf_inq_format(ncid, format_num)
771 if (nf90_put_var_eightbyteint .eq. nf90_noerr)
then
772 if (format_num .eq. nf90_format_netcdf4)
then
773 nf90_put_var_eightbyteint = nf_put_var1_int64(ncid, varid, localindex, values)
775 nf90_put_var_eightbyteint = nf_put_var1_int(ncid, varid, localindex, int(values))
778 end function nf90_put_var_eightbyteint
781 function nf90_get_var_eightbyteint(ncid, varid, values, start)
782 integer,
intent( in) :: ncid, varid
783 integer (kind = EightByteInt),
intent(out) :: values
784 integer,
dimension(:),
optional,
intent( in) :: start
785 integer :: nf90_get_var_eightbyteint
787 integer,
dimension(nf90_max_var_dims) :: localindex
788 integer :: counter, format_num
789 integer :: defaultinteger
790 integer (kind = EightByteInt) :: defaultinteger8
794 if(
present(start)) localindex(:
size(start)) = start(:)
796 nf90_get_var_eightbyteint = nf_inq_format(ncid, format_num)
797 if (nf90_get_var_eightbyteint .eq. nf90_noerr)
then
798 if (format_num .eq. nf90_format_netcdf4)
then
799 nf90_get_var_eightbyteint = nf_get_var1_int64(ncid, varid, localindex, defaultinteger8)
800 values = defaultinteger8
802 nf90_get_var_eightbyteint = nf_get_var1_int(ncid, varid, localindex, defaultinteger)
803 values = defaultinteger
806 end function nf90_get_var_eightbyteint