62 USE iso_c_binding
, ONLY: c_int, c_char
64 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
65 Integer(C_INT), value :: cmode, comm, info
66 Integer(C_INT),
Intent(OUT) :: ncidp
76 USE iso_c_binding
, ONLY: c_int, c_char
78 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
79 Integer(C_INT), value :: mode, comm, info
80 Integer(C_INT),
Intent(OUT) :: ncidp
90 USE iso_c_binding
, ONLY: c_int
92 Integer(C_INT), value :: ncid, varid, par_access
102 USE iso_c_binding
, ONLY: c_int, c_char
104 Integer(C_INT), value :: ncid
105 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
106 Integer(C_INT),
Intent(INOUT) :: grp_ncid
117 USE iso_c_binding
, ONLY: c_int
119 Integer(C_INT), value :: ncid
120 Integer(C_INT),
Intent(INOUT) :: numgrps
130 USE iso_c_binding
, ONLY: c_int
132 Integer(C_INT), value :: ncid
133 Integer(C_INT),
Intent(INOUT) :: numtypes
142 USE iso_c_binding
, ONLY: c_int
144 Integer(C_INT), value :: ncid
145 Integer(C_INT),
Intent(INOUT) :: numgrps
146 Integer(C_INT),
Intent(INOUT) :: ncids(*)
156 USE iso_c_binding
, ONLY: c_int, c_char
158 Integer(C_INT), value :: ncid
159 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
169 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
171 Integer(C_INT), value :: ncid
172 Integer(C_SIZE_T),
Intent(INOUT) :: nlen
173 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
183 USE iso_c_binding
, ONLY: c_int, c_size_t
185 Integer(C_INT), value :: ncid
186 Integer(C_SIZE_T),
Intent(INOUT) :: nlen
196 USE iso_c_binding
, ONLY: c_int, c_char
198 Integer(C_INT), value :: ncid
199 Integer(C_INT),
Intent(INOUT) :: grp_ncid
200 Character(KIND=C_CHAR),
Intent(INOUT) :: full_name(*)
210 USE iso_c_binding
, ONLY: c_int
212 Integer(C_INT), value :: ncid
213 Integer(C_INT),
Intent(INOUT) :: parent_ncid
223 USE iso_c_binding
, ONLY: c_int, c_char
225 Integer(C_INT), value :: ncid
226 Character(KIND=C_CHAR),
Intent(IN) :: grp_name(*)
227 Integer(C_INT),
Intent(INOUT) :: grp_ncid
237 USE iso_c_binding
, ONLY: c_int
239 Integer(C_INT), value :: ncid
240 Integer(C_INT),
Intent(INOUT) :: nvars
241 Integer(C_INT),
Intent(INOUT) :: varids(*)
251 USE iso_c_binding
, ONLY: c_int
253 Integer(C_INT), value :: ncid, parent
254 Integer(C_INT),
Intent(INOUT) :: ndims
255 Integer(C_INT),
Intent(INOUT) :: dimids(*)
265 USE iso_c_binding
, ONLY: c_int
267 Integer(C_INT), value :: ncid
268 Integer(C_INT),
Intent(INOUT) :: ntypes
269 Integer(C_INT),
Intent(INOUT) :: typeids(*)
279 USE iso_c_binding
, ONLY: c_int, c_char
281 Integer(C_INT), value :: ncid
282 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
283 Integer(C_INT),
Intent(INOUT) :: typeid
293 USE iso_c_binding
, ONLY: c_int, c_char
295 Integer(C_INT), value :: parent_ncid
296 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
297 Integer(C_INT),
Intent(INOUT) :: new_ncid
307 USE iso_c_binding
, ONLY: c_int, c_char
309 Integer(C_INT), value :: grpid
310 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
320 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
322 Integer(C_INT), value :: ncid
323 Integer(C_SIZE_T), value :: isize
324 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
325 Integer(C_INT),
Intent(INOUT) :: typeidp
335 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
337 Integer(C_INT), value :: ncid
338 Integer(C_INT), value :: xtype, field_typeid
339 Integer(C_SIZE_T), value :: offset
340 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
349 ndims, dim_sizes) bind(c)
351 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
353 Integer(C_INT), value :: ncid, ndims
354 Integer(C_INT), value :: xtype, field_typeid
355 Integer(C_SIZE_T), value :: offset
356 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
357 Integer(C_INT),
Intent(INOUT) :: dim_sizes(*)
367 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
369 Integer(C_INT), value :: ncid
370 Integer(C_INT), value :: xtype
371 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
372 Integer(C_SIZE_T),
Intent(INOUT) :: isize
382 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
384 Integer(C_INT), value :: ncid
385 Integer(C_INT), value :: xtype
386 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
387 Integer(C_SIZE_T),
Intent(INOUT) :: isize, nfieldsp
397 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
399 Integer(C_INT), value :: ncid
400 Integer(C_INT), value :: xtype
401 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
411 USE iso_c_binding
, ONLY: c_int, c_size_t
413 Integer(C_INT), value :: ncid
414 Integer(C_INT), value :: xtype
415 Integer(C_SIZE_T),
Intent(INOUT) :: isize
425 USE iso_c_binding
, ONLY: c_int, c_size_t
427 Integer(C_INT), value :: ncid
428 Integer(C_INT), value :: xtype
429 Integer(C_SIZE_T),
Intent(INOUT) :: nfieldsp
440 USE iso_c_binding
, ONLY: c_int
442 Integer(C_INT), value :: ncid, fieldid
443 Integer(C_INT), value :: xtype
444 Integer(C_INT),
Intent(INOUT) :: ndims
455 field_typeidp, ndimsp, dim_sizesp) bind(c)
458 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
460 Integer(C_INT), value :: ncid, fieldid
461 Integer(C_INT), value :: xtype
462 Integer(C_INT),
Intent(INOUT) :: field_typeidp
463 Integer(C_SIZE_T),
Intent(INOUT) :: offsetp
464 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
465 Integer(C_INT),
Intent(INOUT) :: ndimsp
466 Integer(C_INT),
Intent(INOUT) :: dim_sizesp(*)
476 USE iso_c_binding
, ONLY: c_int, c_size_t
478 Integer(C_INT), value :: ncid, fieldid
479 Integer(C_INT), value :: xtype
480 Integer(C_SIZE_T),
Intent(INOUT) :: offsetp
490 USE iso_c_binding
, ONLY: c_int, c_char
492 Integer(C_INT), value :: ncid, fieldid
493 Integer(C_INT), value :: xtype
494 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
504 USE iso_c_binding
, ONLY: c_int, c_char
506 Integer(C_INT), value :: ncid
507 Integer(C_INT), value :: xtype
508 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
509 Integer(C_INT),
Intent(INOUT) :: fieldidp
519 USE iso_c_binding
, ONLY: c_int
521 Integer(C_INT), value :: ncid, fieldid
522 Integer(C_INT), value :: xtype
523 Integer(C_INT),
Intent(INOUT) :: field_typeidp
533 USE iso_c_binding
, ONLY: c_int
535 Integer(C_INT), value :: ncid, fieldid
536 Integer(C_INT), value :: xtype
537 Integer(C_INT),
Intent(INOUT) :: ndimsp
547 USE iso_c_binding
, ONLY: c_int
549 Integer(C_INT), value :: ncid, fieldid
550 Integer(C_INT), value :: xtype
551 Integer(C_INT),
Intent(INOUT) :: dim_sizes(*)
561 USE iso_c_binding
, ONLY: c_int, c_char
563 Integer(C_INT), value :: ncid
564 Integer(C_INT), value :: base_typeid
565 Integer(C_INT),
Intent(INOUT) :: xtypep
566 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
574 Function nc_inq_vlen(ncid, xtype, name, datum_sizep, base_nc_typep) BIND(C)
576 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
578 Integer(C_INT), value :: ncid
579 Integer(C_INT), value :: xtype
580 Integer(C_SIZE_T),
Intent(INOUT) :: datum_sizep
581 Integer(C_INT),
Intent(INOUT) :: base_nc_typep
582 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
591 nfieldsp, classp) bind(c)
593 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
595 Integer(C_INT), value :: ncid
596 Integer(C_INT), value :: xtype
597 Integer(C_SIZE_T),
Intent(INOUT) :: isize , nfieldsp
598 Integer(C_INT),
Intent(INOUT) :: base_nc_typep
599 Integer(C_INT),
Intent(INOUT) :: classp
600 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
610 USE iso_c_binding
, ONLY: c_int, c_char
612 Integer(C_INT), value :: ncid
613 Integer(C_INT), value :: base_typeid
614 Integer(C_INT),
Intent(OUT) :: typeidp
615 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
625 USE iso_c_binding
, ONLY: c_int, c_char, c_ptr
627 Integer(C_INT), value :: ncid
628 Integer(C_INT), value :: xtype
629 Type(c_ptr
), value :: values
630 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
638 Function nc_inq_enum(ncid, xtype, name, base_nc_typep, base_sizep, &
639 num_membersp) bind(c)
641 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
643 Integer(C_INT), value :: ncid
644 Integer(C_INT), value :: xtype
645 Integer(C_INT),
Intent(INOUT) :: base_nc_typep
646 Integer(C_SIZE_T),
Intent(INOUT) :: base_sizep, num_membersp
647 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
657 USE iso_c_binding
, ONLY: c_int, c_char
659 Integer(C_INT), value :: ncid, idx
660 Integer(C_INT), value :: xtype
661 Character(KIND=C_CHAR),
Intent(OUT) :: value(*)
662 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
672 USE iso_c_binding
, ONLY: c_int, c_long_long, c_char
674 Integer(C_INT), value :: ncid
675 Integer(C_INT), value :: xtype
676 Integer(C_LONG_LONG), value :: val
677 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
687 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
689 Integer(C_INT), value :: ncid
690 Integer(C_SIZE_T), value :: isize
691 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
692 Integer(C_INT),
Intent(OUT) :: xtypep
702 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
704 Integer(C_INT), value :: ncid
705 Integer(C_INT), value :: xtype
706 Integer(C_SIZE_T),
Intent(OUT) :: sizep
707 Character(KIND=C_CHAR),
Intent(OUT) :: name(*)
717 USE iso_c_binding
, ONLY: c_int, c_ptr
719 Integer(C_INT), value :: ncid, varid, no_fill
720 Type(c_ptr
), value :: cfill_value_p
730 USE iso_c_binding
, ONLY: c_int, c_char
732 Integer(C_INT), value :: ncid, varid
733 Integer(C_INT),
Intent(INOUT) :: no_fill
734 Character(KIND=C_CHAR),
Intent(INOUT) :: fill_value(*)
744 USE iso_c_binding
, ONLY: c_int
746 Integer(C_INT), value :: ncid, varid
747 Integer(C_INT),
Intent(INOUT) :: options_mask, pixels_per_block
757 USE iso_c_binding
, ONLY: c_int
759 Integer(C_INT), value :: ncid, varid, fletcher32
769 USE iso_c_binding
, ONLY: c_int
771 Integer(C_INT), value :: ncid, varid
772 Integer(C_INT),
Intent(INOUT) :: fletcher32
782 USE iso_c_binding
, ONLY: c_int
784 Integer(C_INT), value :: ncid, varid, shuffle, deflate, deflate_level
794 USE iso_c_binding
, ONLY: c_int
796 Integer(C_INT), value :: ncid, varid
797 Integer(C_INT),
Intent(INOUT) :: shuffle, deflate, deflate_level
807 USE iso_c_binding
, ONLY: c_int, c_size_t
809 Integer(C_INT), value :: ncid, varid, contiguousp
810 Integer(C_SIZE_T),
Intent(INOUT) :: chunksizesp
820 USE iso_c_binding
, ONLY: c_int, c_size_t
822 Integer(C_INT), value :: ncid, varid
823 Integer(C_INT),
Intent(INOUT) :: contiguousp
824 Integer(C_SIZE_T),
Intent(INOUT) :: chunksizesp(*)
834 USE iso_c_binding
, ONLY: c_int, c_ptr
836 Integer(C_INT), value :: ncid, varid, contiguousp
837 Type(c_ptr
), value :: chunksizesp
847 USE iso_c_binding
, ONLY: c_int
849 Integer(C_INT), value :: ncid, varid
850 Integer(C_INT),
Intent(INOUT) :: contiguousp
851 Integer(C_INT),
Intent(INOUT) :: chunksizesp(*)
861 USE iso_c_binding
, ONLY: c_int
863 Integer(C_INT), value :: ncid, varid, endiann
873 USE iso_c_binding
, ONLY: c_int
875 Integer(C_INT), value :: ncid, varid
876 Integer(C_INT),
Intent(INOUT) :: endiann
884 Function nc_put_att(ncid, varid, name, xtype, nlen, op) BIND(C)
886 USE iso_c_binding
, ONLY: c_int, c_char, c_size_t, c_ptr
888 Integer(C_INT), value :: ncid, varid, xtype
889 Integer(C_SIZE_T), value :: nlen
890 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
891 Type(c_ptr
), value :: op
901 USE iso_c_binding
, ONLY: c_int, c_char
903 Integer(C_INT), value :: ncid, varid
904 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
905 Character(KIND=C_CHAR),
Intent(OUT) :: op(*)
915 USE iso_c_binding
, ONLY: c_int, c_size_t, c_ptr, c_char
917 Integer(C_INT), value :: ncid, xtype
918 Integer(C_SIZE_T), value :: nlen
919 Character(KIND=C_CHAR),
Intent(INOUT) :: vlen_element(*)
920 Type(c_ptr
), value :: op
930 USE iso_c_binding
, ONLY: c_int, c_char, c_size_t, c_ptr
932 Integer(C_INT), value :: ncid, xtype
933 Integer(C_SIZE_T),
Intent(INOUT) :: nlen
934 Character(KIND=C_CHAR),
Intent(INOUT) :: vlen_element(*)
935 Character(KIND=C_CHAR),
Intent(INOUT) :: op(*)
945 USE iso_c_binding
, ONLY: c_ptr, c_int
947 Type(c_ptr
), value :: vl
957 USE iso_c_binding
, ONLY: c_ptr, c_int, c_size_t
959 Integer(C_SIZE_T),
Intent(IN) :: len
960 Type(c_ptr
), value :: vl
970 USE iso_c_binding
, ONLY: c_ptr, c_int, c_size_t
972 Integer(C_SIZE_T),
Intent(IN) :: len
973 Type(c_ptr
), value :: vl
983 USE iso_c_binding
, ONLY: c_int, c_long_long, c_ptr
985 Integer(C_INT), value :: ncid, varid
986 Type(c_ptr
), value :: indexp
987 Integer(C_LONG_LONG),
Intent(IN) :: op
997 USE iso_c_binding
, ONLY: c_int, c_long_long, c_ptr
999 Integer(C_INT), value :: ncid, varid
1000 Type(c_ptr
), value :: indexp
1001 Integer(C_LONG_LONG),
Intent(OUT) :: ip
1011 USE iso_c_binding
, ONLY: c_int, c_long_long, c_ptr
1013 Integer(C_INT), value :: ncid, varid
1014 Type(c_ptr
), value :: startp, countp
1015 Integer(C_LONG_LONG),
Intent(IN) :: op(*)
1025 USE iso_c_binding
, ONLY: c_int, c_long_long, c_ptr
1027 Integer(C_INT), value :: ncid, varid
1028 Type(c_ptr
), value :: startp, countp
1029 Integer(C_LONG_LONG),
Intent(OUT) :: ip(*)
1040 USE iso_c_binding
, ONLY: c_int, c_ptr, c_long_long
1042 Integer(C_INT), value :: ncid, varid
1043 Type(c_ptr
), value :: startp, countp, stridep, imapp
1044 Integer(C_LONG_LONG),
Intent(IN) :: op(*)
1055 USE iso_c_binding
, ONLY: c_int, c_ptr, c_long_long
1057 Integer(C_INT), value :: ncid, varid
1058 Type(c_ptr
), value :: startp, countp, stridep, imapp
1059 Integer(C_LONG_LONG),
Intent(OUT) :: ip(*)
1069 USE iso_c_binding
, ONLY: c_int, c_ptr, c_long_long
1071 Integer(C_INT), value :: ncid, varid
1072 Type(c_ptr
), value :: startp, countp, stridep
1073 Integer(C_LONG_LONG),
Intent(IN) :: op(*)
1083 USE iso_c_binding
, ONLY: c_int, c_ptr, c_long_long
1085 Integer(C_INT), value :: ncid, varid
1086 Type(c_ptr
), value :: startp, countp, stridep
1087 Integer(C_LONG_LONG),
Intent(OUT) :: ip(*)
1097 USE iso_c_binding
, ONLY: c_int, c_long_long
1099 Integer(C_INT), value :: ncid, varid
1100 Integer(C_LONG_LONG),
Intent(IN) :: op(*)
1110 USE iso_c_binding
, ONLY: c_int, c_long_long
1112 Integer(C_INT), value :: ncid, varid
1113 Integer(C_LONG_LONG),
Intent(OUT) :: ip(*)
1123 USE iso_c_binding
, ONLY: c_int
1125 Integer(C_INT), value :: size, nelems, preemption
1135 USE iso_c_binding
, ONLY: c_int
1137 Integer(C_INT),
Intent(INOUT) :: size, nelems, preemption
1148 USE iso_c_binding
, ONLY: c_int
1150 Integer(C_INT), value :: ncid, varid, size, nelems, preemption
1161 USE iso_c_binding
, ONLY: c_int
1163 Integer(C_INT), value :: ncid, varid
1164 Integer(C_INT),
Intent(INOUT) :: size, nelems, preemption
1174 USE iso_c_binding
, ONLY: c_size_t, c_float, c_int
1176 Integer(C_SIZE_T), value :: size, nelems
1177 Real(C_FLOAT), value :: preemption
1187 USE iso_c_binding
, ONLY: c_size_t, c_float, c_int
1189 Integer(C_SIZE_T),
Intent(INOUT) :: size, nelems
1190 Real(C_FLOAT),
Intent(INOUT) :: preemption
1200 USE iso_c_binding
, ONLY: c_int, c_ptr
1202 Integer(C_INT), value :: ncid, varid
1203 Type(c_ptr
), value :: op
1213 USE iso_c_binding
, ONLY: c_int, c_char
1215 Integer(C_INT), value :: ncid, varid
1216 Character(KIND=C_CHAR),
Intent(INOUT) :: ip(*)