2 integer,
intent( in) :: ncid, varid
3 integer (kind = EightByteInt),
dimension(:),
intent( in) :: values
4 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
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(:)
23 if (format_num .eq. nf90_format_netcdf4)
then
25 localmap(:
size(map)) = map(:)
27 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
28 else if(present(stride))
then
37 localmap(:
size(map)) = map(:)
39 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
40 else if(present(stride))
then
42 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
52 integer,
intent( in) :: ncid, varid
53 integer (kind = EightByteInt),
dimension(:, :), &
55 integer,
dimension(:),
optional,
intent( in) :: start, count, stride, map
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(:)
74 if (format_num .eq. nf90_format_netcdf4)
then
76 localmap(:
size(map)) = map(:)
78 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
79 else if(present(stride))
then
88 localmap(:
size(map)) = map(:)
90 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
91 else if(present(stride))
then
93 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
127 if (format_num .eq. nf90_format_netcdf4)
then
128 if(present(map))
then
129 localmap(:
size(map)) = map(:)
131 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
132 else if(present(stride))
then
140 if(present(map))
then
141 localmap(:
size(map)) = map(:)
143 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
144 else if(present(stride))
then
146 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
179 if (format_num .eq. nf90_format_netcdf4)
then
180 if(present(map))
then
181 localmap(:
size(map)) = map(:)
183 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
184 else if(present(stride))
then
192 if(present(map))
then
193 localmap(:
size(map)) = map(:)
195 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
196 else if(present(stride))
then
198 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
231 if (format_num .eq. nf90_format_netcdf4)
then
232 if(present(map))
then
233 localmap(:
size(map)) = map(:)
235 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
236 else if(present(stride))
then
244 if(present(map))
then
245 localmap(:
size(map)) = map(:)
247 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
248 else if(present(stride))
then
250 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
283 if (format_num .eq. nf90_format_netcdf4)
then
284 if(present(map))
then
285 localmap(:
size(map)) = map(:)
287 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
288 else if(present(stride))
then
296 if(present(map))
then
297 localmap(:
size(map)) = map(:)
299 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
300 else if(present(stride))
then
302 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
335 if (format_num .eq. nf90_format_netcdf4)
then
336 if(present(map))
then
337 localmap(:
size(map)) = map(:)
339 nf_put_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, values)
340 else if(present(stride))
then
348 if(present(map))
then
349 localmap(:
size(map)) = map(:)
351 nf_put_varm_int(ncid, varid, localstart, localcount, localstride, localmap, int(values))
352 else if(present(stride))
then
354 nf_put_vars_int(ncid, varid, localstart, localcount, localstride, int(values))
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
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(:)
389 if (format_num .eq. nf90_format_netcdf4)
then
390 if(present(map))
then
391 localmap(:
size(map)) = map(:)
393 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
394 else if(present(stride))
then
396 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
401 values(:) = reshape(defaultint8array(:), shape(values))
403 if(present(map))
then
404 localmap(:
size(map)) = map(:)
406 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
407 else if(present(stride))
then
409 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
414 values(:) = reshape(defaultintarray(:), shape(values))
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
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(:)
445 if (format_num .eq. nf90_format_netcdf4)
then
446 if(present(map))
then
447 localmap(:
size(map)) = map(:)
449 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
450 else if(present(stride))
then
452 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
457 values(:, :) = reshape(defaultint8array(:), shape(values))
459 if(present(map))
then
460 localmap(:
size(map)) = map(:)
462 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
463 else if(present(stride))
then
465 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
470 values(:, :) = reshape(defaultintarray(:), shape(values))
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
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(:)
501 if (format_num .eq. nf90_format_netcdf4)
then
502 if(present(map))
then
503 localmap(:
size(map)) = map(:)
505 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
506 else if(present(stride))
then
508 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
513 values(:, :, :) = reshape(defaultint8array(:), shape(values))
515 if(present(map))
then
516 localmap(:
size(map)) = map(:)
518 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
519 else if(present(stride))
then
521 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
526 values(:, :, :) = reshape(defaultintarray(:), shape(values))
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
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(:)
557 if (format_num .eq. nf90_format_netcdf4)
then
558 if(present(map))
then
559 localmap(:
size(map)) = map(:)
561 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
562 else if(present(stride))
then
564 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
569 values(:, :, :, :) = reshape(defaultint8array(:), shape(values))
571 if(present(map))
then
572 localmap(:
size(map)) = map(:)
574 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
575 else if(present(stride))
then
577 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
582 values(:, :, :, :) = reshape(defaultintarray(:), shape(values))
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
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(:)
613 if (format_num .eq. nf90_format_netcdf4)
then
614 if(present(map))
then
615 localmap(:
size(map)) = map(:)
617 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
618 else if(present(stride))
then
620 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
625 values(:, :, :, :, :) = reshape(defaultint8array(:), shape(values))
627 if(present(map))
then
628 localmap(:
size(map)) = map(:)
630 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
631 else if(present(stride))
then
633 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
638 values(:, :, :, :, :) = reshape(defaultintarray(:), shape(values))
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
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(:)
669 if (format_num .eq. nf90_format_netcdf4)
then
670 if(present(map))
then
671 localmap(:
size(map)) = map(:)
673 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
674 else if(present(stride))
then
676 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
681 values(:, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
683 if(present(map))
then
684 localmap(:
size(map)) = map(:)
686 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
687 else if(present(stride))
then
689 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
694 values(:, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
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
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(:)
725 if (format_num .eq. nf90_format_netcdf4)
then
726 if(present(map))
then
727 localmap(:
size(map)) = map(:)
729 nf_get_varm_int64(ncid, varid, localstart, localcount, localstride, localmap, defaultint8array)
730 else if(present(stride))
then
732 nf_get_vars_int64(ncid, varid, localstart, localcount, localstride, defaultint8array)
737 values(:, :, :, :, :, :, :) = reshape(defaultint8array(:), shape(values))
739 if(present(map))
then
740 localmap(:
size(map)) = map(:)
742 nf_get_varm_int(ncid, varid, localstart, localcount, localstride, localmap, defaultintarray)
743 else if(present(stride))
then
745 nf_get_vars_int(ncid, varid, localstart, localcount, localstride, defaultintarray)
750 values(:, :, :, :, :, :, :) = reshape(defaultintarray(:), shape(values))
758 integer,
intent( in) :: ncid, varid
759 integer (kind = EightByteInt),
intent( in) :: values
760 integer,
dimension(:),
optional,
intent( in) :: start
763 integer,
dimension(nf90_max_var_dims) :: localindex
764 integer :: counter, format_num
768 if(present(start)) localindex(:
size(start)) = start(:)
772 if (format_num .eq. nf90_format_netcdf4)
then
782 integer,
intent( in) :: ncid, varid
783 integer (kind = EightByteInt),
intent(out) :: values
784 integer,
dimension(:),
optional,
intent( in) :: start
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(:)
798 if (format_num .eq. nf90_format_netcdf4)
then
800 values = defaultinteger8
803 values = defaultinteger
integer function nf_put_var1_int64(ncid, varid, ndex, ival)
integer function nf90_get_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
integer function nf90_put_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_var1_int64(ncid, varid, ndex, ival)
integer function nf90_get_var_2d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_4d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_put_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf90_get_var_3d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int(ncid, varid, start, counts, ivals)
integer function nf90_get_var_5d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_put_vara_int64(ncid, varid, start, counts, ivals)
integer function nf_get_var1_int(ncid, varid, ndex, ival)
integer function nf_put_var1_int(ncid, varid, ndex, ival)
integer function nf_put_vars_int64(ncid, varid, start, counts, strides, ivals)
integer function nf_get_vars_int64(ncid, varid, start, counts, strides, ivals)
integer function nf_put_varm_int64(ncid, varid, start, counts, strides, maps, ivals)
integer function nf_get_vara_int64(ncid, varid, start, counts, ivals)
integer function nf_get_varm_int(ncid, varid, start, counts, strides, maps, ivals)
integer function nf_inq_format(ncid, format_type)
integer function nf90_put_var_7d_eightbyteint(ncid, varid, values, start, count, stride, map)
function nf_get_vars_int(ncid, varid, start, counts, strides, ivals)
integer function nf90_put_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_get_var_eightbyteint(ncid, varid, values, start)
integer function nf90_get_var_1d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf_get_vara_int(ncid, varid, start, counts, ivals)
integer function nf_put_varm_int(ncid, varid, start, counts, strides, maps, ivals)
integer function nf90_get_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)
integer function nf90_put_var_6d_eightbyteint(ncid, varid, values, start, count, stride, map)