69 USE iso_c_binding
, ONLY: c_int, c_ptr
71 Integer(C_INT),
VALUE :: ncerr
73 Type(c_ptr) :: nc_strerror
81 USE iso_c_binding
, ONLY: c_ptr
83 Type(c_ptr) :: nc_inq_libvers
91 USE iso_c_binding
, ONLY: c_char, c_int
93 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
94 Integer(C_INT),
VALUE :: cmode
95 Integer(C_INT),
Intent(OUT) :: ncidp
97 Integer(C_INT) :: nc_create
103 Function nc__create(path, cmode, initialsz, chunksizehintp, ncidp) bind(C)
105 USE iso_c_binding
, ONLY: c_char, c_int, c_size_t
107 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
108 Integer(C_INT),
VALUE :: cmode
109 Integer(C_SIZE_T),
VALUE :: initialsz
110 Integer(C_SIZE_T),
Intent(IN) :: chunksizehintp
111 Integer(C_INT),
Intent(OUT) :: ncidp
113 Integer(C_INT) :: nc__create
119 Function nc__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncidp) &
122 USE iso_c_binding
, ONLY: c_char, c_int, c_size_t, c_ptr
124 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
125 Integer(C_INT),
VALUE :: cmode
126 Integer(C_SIZE_T),
VALUE :: initialsz
127 Integer(C_SIZE_T),
Intent(IN) :: chunksizehintp
128 Type(c_ptr),
VALUE :: basepe
129 Integer(C_INT),
Intent(OUT) :: ncidp
131 Integer(C_INT) :: nc__create_mp
139 USE iso_c_binding
, ONLY: c_char, c_int
141 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
142 Integer(C_INT),
VALUE :: mode
143 Integer(C_INT),
Intent(OUT) :: ncidp
145 Integer(C_INT) :: nc_open
151 Function nc__open(path, mode, chunksizehintp, ncidp) bind(C)
153 USE iso_c_binding
, ONLY: c_char, c_int, c_size_t
155 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
156 Integer(C_INT),
VALUE :: mode
157 Integer(C_SIZE_T),
Intent(IN) :: chunksizehintp
158 Integer(C_INT),
Intent(OUT) :: ncidp
160 Integer(C_INT) :: nc__open
166 Function nc__open_mp(path, mode, basepe, chunksizehintp, ncidp) bind(C)
168 USE iso_c_binding
, ONLY: c_char, c_int, c_size_t, c_ptr
170 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
171 Integer(C_INT),
VALUE :: mode
172 Integer(C_SIZE_T),
Intent(IN) :: chunksizehintp
173 Integer(C_INT),
Intent(OUT) :: ncidp
174 Type(c_ptr),
VALUE :: basepe
176 Integer(C_INT) :: nc__open_mp
184 USE iso_c_binding
, ONLY: c_char, c_int, c_size_t, c_ptr
186 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
187 Integer(C_INT),
VALUE :: mode
188 Integer(C_SIZE_T),
VALUE :: size
189 Type(c_ptr),
VALUE :: memory
190 Integer(C_INT),
Intent(OUT) :: ncid
192 Integer(C_INT) :: nc_open_mem
200 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
202 Integer(C_INT),
VALUE :: ncid
203 Integer(C_SIZE_T),
Intent(INOUT) :: pathlen
204 Character(KIND=C_CHAR),
Intent(INOUT) :: path(*)
206 Integer(C_INT) :: nc_inq_path
214 USE iso_c_binding
, ONLY: c_int
216 Integer(C_INT),
VALUE :: ncid
217 Integer(C_INT),
VALUE :: fillmode
218 Integer(C_INT),
Intent(OUT) :: old_modep
220 Integer(C_INT) :: nc_set_fill
228 USE iso_c_binding
, ONLY: c_int
230 Integer(C_INT),
VALUE :: ncid
232 Integer(C_INT) :: nc_redef
240 USE iso_c_binding
, ONLY: c_int
242 Integer(C_INT),
VALUE :: ncid
244 Integer(C_INT) :: nc_enddef
250 Function nc__enddef(ncid, h_minfree, v_align, v_minfree, r_align) bind(C)
252 USE iso_c_binding
, ONLY: c_int, c_size_t
254 Integer(C_INT),
VALUE :: ncid
255 Integer(C_SIZE_T),
VALUE :: h_minfree, v_align, v_minfree, r_align
257 Integer(C_INT) :: nc__enddef
265 USE iso_c_binding
, ONLY: c_int
267 Integer(C_INT),
VALUE :: ncid
269 Integer(C_INT) :: nc_sync
277 USE iso_c_binding
, ONLY: c_int
279 Integer(C_INT),
VALUE :: ncid
281 Integer(C_INT) :: nc_abort
289 USE iso_c_binding
, ONLY: c_int
291 Integer(C_INT),
VALUE :: ncid
293 Integer(C_INT) :: nc_close
301 USE iso_c_binding
, ONLY: c_int, c_char
303 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
305 Integer(C_INT) :: nc_delete
313 USE iso_c_binding
, ONLY: c_int, c_char
315 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
316 Integer(C_INT),
VALUE :: pe
318 Integer(C_INT) :: nc_delete_mp
326 USE iso_c_binding
, ONLY: c_int
328 Integer(C_INT),
VALUE :: ncid, pe
330 Integer(C_INT) :: nc_set_base_pe
338 USE iso_c_binding
, ONLY: c_int
340 Integer(C_INT),
VALUE :: ncid
341 Integer(C_INT),
Intent(OUT) :: pe
343 Integer(C_INT) :: nc_inq_base_pe
349 Function nc_inq(ncid, ndimsp, nvarsp, ngattsp, unlimdimidp) bind(C)
351 USE iso_c_binding
, ONLY: c_int
353 Integer(C_INT),
VALUE :: ncid
354 Integer(C_INT),
Intent(OUT) :: ndimsp, nvarsp, ngattsp, unlimdimidp
356 Integer(C_INT) :: nc_inq
364 USE iso_c_binding
, ONLY: c_int
366 Integer(C_INT),
VALUE :: ncid
367 Integer(C_INT),
Intent(OUT) :: ndimsp
369 Integer(C_INT) :: nc_inq_ndims
377 USE iso_c_binding
, ONLY: c_int
379 Integer(C_INT),
VALUE :: ncid
380 Integer(C_INT),
Intent(OUT) :: nvarsp
382 Integer(C_INT) :: nc_inq_nvars
390 USE iso_c_binding
, ONLY: c_int
392 Integer(C_INT),
VALUE :: ncid
393 Integer(C_INT),
Intent(OUT) :: ngattsp
395 Integer(C_INT) :: nc_inq_natts
403 USE iso_c_binding
, ONLY: c_int
405 Integer(C_INT),
VALUE :: ncid
406 Integer(C_INT),
Intent(OUT) :: unlimdimidp
408 Integer(C_INT) :: nc_inq_unlimdim
416 USE iso_c_binding
, ONLY: c_int
418 Integer(C_INT),
VALUE :: ncid
419 Integer(C_INT),
Intent(OUT) :: formatp
421 Integer(C_INT) :: nc_inq_format
429 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
431 Integer(C_INT),
VALUE :: ncid
432 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
433 Integer(C_SIZE_T),
VALUE :: nlen
434 Integer(C_INT),
Intent(INOUT) :: idp
436 Integer(C_INT) :: nc_def_dim
444 USE iso_c_binding
, ONLY: c_int, c_char
446 Integer(C_INT),
VALUE :: ncid
447 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
448 Integer(C_INT),
Intent(INOUT) :: idp
450 Integer(C_INT) :: nc_inq_dimid
458 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
460 Integer(C_INT),
VALUE :: ncid
461 Integer(C_INT),
VALUE :: dimid
462 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
463 Integer(C_SIZE_T),
Intent(OUT) :: lenp
465 Integer(C_INT) :: nc_inq_dim
473 USE iso_c_binding
, ONLY: c_int, c_char
475 Integer(C_INT),
VALUE :: ncid
476 Integer(C_INT),
VALUE :: dimid
477 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
479 Integer(C_INT) :: nc_inq_dimname
487 USE iso_c_binding
, ONLY: c_int, c_size_t
489 Integer(C_INT),
VALUE :: ncid
490 Integer(C_INT),
VALUE :: dimid
491 Integer(C_SIZE_T),
Intent(OUT) :: lenp
493 Integer(C_INT) :: nc_inq_dimlen
501 USE iso_c_binding
, ONLY: c_int, c_char
503 Integer(C_INT),
VALUE :: ncid
504 Integer(C_INT),
VALUE :: dimid
505 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
507 Integer(C_INT) :: nc_rename_dim
513 Function nc_def_var(ncid, name, xtype, ndims, dimidsp, varidp) bind(C)
515 USE iso_c_binding
, ONLY: c_int, c_char
517 Integer(C_INT),
VALUE :: ncid
518 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
519 Integer(C_INT),
VALUE :: xtype
520 Integer(C_INT),
VALUE :: ndims
521 Integer(C_INT),
Intent(IN) :: dimidsp(*)
522 Integer(C_INT),
Intent(OUT) :: varidp
524 Integer(C_INT) :: nc_def_var
530 Function nc_inq_var(ncid, varid, name, xtypep, ndimsp, dimidsp, nattsp) &
533 USE iso_c_binding
, ONLY: c_int, c_char
535 Integer(C_INT),
VALUE :: ncid, varid
536 Character(KIND=C_CHAR),
Intent(OUT) :: name(*)
537 Integer(C_INT),
Intent(OUT) :: xtypep
538 Integer(C_INT),
Intent(OUT) :: ndimsp
539 Integer(C_INT),
Intent(OUT) :: dimidsp(*)
540 Integer(C_INT),
Intent(OUT) :: nattsp
542 Integer(C_INT) :: nc_inq_var
550 USE iso_c_binding
, ONLY: c_int, c_char
552 Integer(C_INT),
VALUE :: ncid
553 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
554 Integer(C_INT),
Intent(OUT) :: varidp
556 Integer(C_INT) :: nc_inq_varid
564 USE iso_c_binding
, ONLY: c_int, c_char
566 Integer(C_INT),
VALUE :: ncid, varid
567 Character(KIND=C_CHAR),
Intent(OUT) :: name(*)
569 Integer(C_INT) :: nc_inq_varname
577 USE iso_c_binding
, ONLY: c_int
579 Integer(C_INT),
VALUE :: ncid, varid
580 Integer(C_INT),
Intent(OUT) :: xtypep
582 Integer(C_INT) :: nc_inq_vartype
590 USE iso_c_binding
, ONLY: c_int
592 Integer(C_INT),
VALUE :: ncid, varid
593 Integer(C_INT),
Intent(OUT) :: ndimsp
595 Integer(C_INT) :: nc_inq_varndims
603 USE iso_c_binding
, ONLY: c_int
605 Integer(C_INT),
VALUE :: ncid, varid
606 Integer(C_INT),
Intent(OUT) :: dimidsp(*)
608 Integer(C_INT) :: nc_inq_vardimid
616 USE iso_c_binding
, ONLY: c_int
618 Integer(C_INT),
VALUE :: ncid, varid
619 Integer(C_INT),
Intent(OUT) :: nattsp
621 Integer(C_INT) :: nc_inq_varnatts
629 USE iso_c_binding
, ONLY: c_int, c_char
631 Integer(C_INT),
VALUE :: ncid, varid
632 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
634 Integer(C_INT) :: nc_rename_var
642 USE iso_c_binding
, ONLY: c_int, c_char
644 Integer(C_INT),
VALUE :: ncid, varid
645 Character(KIND=C_CHAR),
Intent(IN) :: op(*)
647 Integer(C_INT) :: nc_put_var_text
655 USE iso_c_binding
, ONLY: c_int, c_char
657 Integer(C_INT),
VALUE :: ncid, varid
658 Character(KIND=C_CHAR),
Intent(INOUT) :: ip(*)
660 Integer(C_INT) :: nc_get_var_text
668 USE iso_c_binding
, ONLY: c_int
671 Integer(C_INT),
VALUE :: ncid, varid
672 Integer(CINT1),
Intent(IN) :: op(*)
674 Integer(C_INT) :: nc_put_var_uchar
682 USE iso_c_binding
, ONLY: c_int
685 Integer(C_INT),
VALUE :: ncid, varid
686 Integer(CINT1),
Intent(OUT) :: ip(*)
688 Integer(C_INT) :: nc_get_var_uchar
696 USE iso_c_binding
, ONLY: c_int
699 Integer(C_INT),
VALUE :: ncid, varid
700 Integer(CINT1),
Intent(IN) :: op(*)
702 Integer(C_INT) :: nc_put_var_schar
710 USE iso_c_binding
, ONLY: c_int
713 Integer(C_INT),
VALUE :: ncid, varid
714 Integer(CINT1),
Intent(OUT) :: ip(*)
716 Integer(C_INT) :: nc_get_var_schar
724 USE iso_c_binding
, ONLY: c_int
727 Integer(C_INT),
VALUE :: ncid, varid
728 Integer(CINT2),
Intent(IN) :: op(*)
730 Integer(C_INT) :: nc_put_var_short
738 USE iso_c_binding
, ONLY: c_int
741 Integer(C_INT),
VALUE :: ncid, varid
742 Integer(CINT2),
Intent(OUT) :: ip(*)
744 Integer(C_INT) :: nc_get_var_short
752 USE iso_c_binding
, ONLY: c_int
755 Integer(C_INT),
VALUE :: ncid, varid
756 Integer(CINT),
Intent(IN) :: op(*)
758 Integer(C_INT) :: nc_put_var_int
766 USE iso_c_binding
, ONLY: c_int
769 Integer(C_INT),
VALUE :: ncid, varid
770 Integer(CINT),
Intent(OUT) :: ip(*)
772 Integer(C_INT) :: nc_get_var_int
780 USE iso_c_binding
, ONLY: c_int, c_long
782 Integer(C_INT),
VALUE :: ncid, varid
783 Integer(C_LONG),
Intent(IN) :: op(*)
785 Integer(C_INT) :: nc_put_var_long
793 USE iso_c_binding
, ONLY: c_int, c_long
795 Integer(C_INT),
VALUE :: ncid, varid
796 Integer(C_LONG),
Intent(OUT) :: ip(*)
798 Integer(C_INT) :: nc_get_var_long
806 USE iso_c_binding
, ONLY: c_int, c_float
808 Integer(C_INT),
VALUE :: ncid, varid
809 Real(C_FLOAT),
Intent(IN) :: op(*)
811 Integer(C_INT) :: nc_put_var_float
819 USE iso_c_binding
, ONLY: c_int, c_float
823 Integer(C_INT),
VALUE :: ncid, varid
824 Real(C_FLOAT),
Intent(OUT) :: ip(*)
826 Integer(C_INT) :: nc_get_var_float
834 USE iso_c_binding
, ONLY: c_int, c_double
836 Integer(C_INT),
VALUE :: ncid, varid
837 Real(C_DOUBLE),
Intent(IN) :: op(*)
839 Integer(C_INT) :: nc_put_var_double
847 USE iso_c_binding
, ONLY: c_int, c_double
849 Integer(C_INT),
VALUE :: ncid, varid
850 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
852 Integer(C_INT) :: nc_get_var_double
860 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
862 Integer(C_INT),
VALUE :: ncid, varid
863 Type(c_ptr),
VALUE :: indexp
864 Character(LEN=C_CHAR),
Intent(IN) :: op
866 Integer(C_INT) :: nc_put_var1_text
874 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
876 Integer(C_INT),
VALUE :: ncid, varid
877 Type(c_ptr),
VALUE :: indexp
878 Character(KIND=C_CHAR),
Intent(OUT) :: ip
880 Integer(C_INT) :: nc_get_var1_text
888 USE iso_c_binding
, ONLY: c_int, c_ptr
891 Integer(C_INT),
VALUE :: ncid, varid
892 Type(c_ptr),
VALUE :: indexp
893 Integer(CINT1),
Intent(IN) :: op
895 Integer(C_INT) :: nc_put_var1_uchar
903 USE iso_c_binding
, ONLY: c_int, c_ptr
906 Integer(C_INT),
VALUE :: ncid, varid
907 Type(c_ptr),
VALUE :: indexp
908 Integer(CINT1),
Intent(OUT) :: ip
910 Integer(C_INT) :: nc_get_var1_uchar
918 USE iso_c_binding
, ONLY: c_int, c_ptr
921 Integer(C_INT),
VALUE :: ncid, varid
922 Type(c_ptr),
VALUE :: indexp
923 Integer(CINT1),
Intent(IN) :: op
925 Integer(C_INT) :: nc_put_var1_schar
933 USE iso_c_binding
, ONLY: c_int, c_ptr
936 Integer(C_INT),
VALUE :: ncid, varid
937 Type(c_ptr),
VALUE :: indexp
938 Integer(CINT1),
Intent(OUT) :: ip
940 Integer(C_INT) :: nc_get_var1_schar
948 USE iso_c_binding
, ONLY: c_int, c_ptr
951 Integer(C_INT),
VALUE :: ncid, varid
952 Type(c_ptr),
VALUE :: indexp
953 Integer(CINT2),
Intent(IN) :: op
955 Integer(C_INT) :: nc_put_var1_short
963 USE iso_c_binding
, ONLY: c_int, c_ptr
966 Integer(C_INT),
VALUE :: ncid, varid
967 Type(c_ptr),
VALUE :: indexp
968 Integer(CINT2),
Intent(OUT) :: ip
970 Integer(C_INT) :: nc_get_var1_short
978 USE iso_c_binding
, ONLY: c_int, c_ptr
980 Integer(C_INT),
VALUE :: ncid, varid
981 Type(c_ptr),
VALUE :: indexp
982 Integer(C_INT),
Intent(IN) :: op
984 Integer(C_INT) :: nc_put_var1_int
992 USE iso_c_binding
, ONLY: c_int, c_ptr
994 Integer(C_INT),
VALUE :: ncid, varid
995 Type(c_ptr),
VALUE :: indexp
996 Integer(C_INT),
Intent(OUT) :: ip
998 Integer(C_INT) :: nc_get_var1_int
1006 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1008 Integer(C_INT),
VALUE :: ncid, varid
1009 Type(c_ptr),
VALUE :: indexp
1010 Integer(C_LONG),
Intent(IN) :: op
1012 Integer(C_INT) :: nc_put_var1_long
1020 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1022 Integer(C_INT),
VALUE :: ncid, varid
1023 Type(c_ptr),
VALUE :: indexp
1024 Integer(C_LONG),
Intent(OUT) :: ip
1026 Integer(C_INT) :: nc_get_var1_long
1034 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1036 Integer(C_INT),
VALUE :: ncid, varid
1037 Type(c_ptr),
VALUE :: indexp
1038 Real(C_FLOAT),
Intent(IN) :: op
1040 Integer(C_INT) :: nc_put_var1_float
1048 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1050 Integer(C_INT),
VALUE :: ncid, varid
1051 Type(c_ptr),
VALUE :: indexp
1052 Real(C_FLOAT),
Intent(OUT) :: ip
1054 Integer(C_INT) :: nc_get_var1_float
1062 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1064 Integer(C_INT),
VALUE :: ncid, varid
1065 Type(c_ptr),
VALUE :: indexp
1066 Real(C_DOUBLE),
Intent(IN) :: op
1068 Integer(C_INT) :: nc_put_var1_double
1076 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1078 Integer(C_INT),
VALUE :: ncid, varid
1079 Type(c_ptr),
VALUE :: indexp
1080 Real(C_DOUBLE),
Intent(OUT) :: ip
1082 Integer(C_INT) :: nc_get_var1_double
1090 USE iso_c_binding
, ONLY: c_int, c_ptr
1092 Integer(C_INT),
VALUE :: ncid, varid
1094 Type(c_ptr),
VALUE :: indexp
1095 Type(c_ptr),
VALUE :: op
1097 Integer(C_INT) :: nc_put_var1
1105 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1107 Integer(C_INT),
VALUE :: ncid, varid
1108 Type(c_ptr),
VALUE :: indexp
1109 Character(KIND=C_CHAR),
Intent(INOUT) :: op(*)
1111 Integer(C_INT) :: nc_get_var1
1119 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1121 Integer(C_INT),
VALUE :: ncid, varid
1122 Type(c_ptr),
VALUE :: startp, countp
1123 Character(KIND=C_CHAR),
Intent(IN) :: op(*)
1125 Integer(C_INT) :: nc_put_vara_text
1133 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1135 Integer(C_INT),
VALUE :: ncid, varid
1136 Type(c_ptr),
VALUE :: startp, countp
1137 Character(KIND=C_CHAR),
Intent(OUT) :: ip(*)
1139 Integer(C_INT) :: nc_get_vara_text
1147 USE iso_c_binding
, ONLY: c_int, c_ptr
1150 Integer(C_INT),
VALUE :: ncid, varid
1151 Type(c_ptr),
VALUE :: startp, countp
1152 Integer(CINT1),
Intent(IN) :: op(*)
1154 Integer(C_INT) :: nc_put_vara_uchar
1162 USE iso_c_binding
, ONLY: c_int, c_ptr
1165 Integer(C_INT),
VALUE :: ncid, varid
1166 Type(c_ptr),
VALUE :: startp, countp
1167 Integer(CINT1),
Intent(OUT) :: ip(*)
1169 Integer(C_INT) :: nc_get_vara_uchar
1177 USE iso_c_binding
, ONLY: c_int, c_ptr
1180 Integer(C_INT),
VALUE :: ncid, varid
1181 Type(c_ptr),
VALUE :: startp, countp
1182 Integer(CINT1),
Intent(IN) :: op(*)
1184 Integer(C_INT) :: nc_put_vara_schar
1192 USE iso_c_binding
, ONLY: c_int, c_ptr
1195 Integer(C_INT),
VALUE :: ncid, varid
1196 Type(c_ptr),
VALUE :: startp, countp
1197 Integer(CINT1),
Intent(OUT) :: ip(*)
1199 Integer(C_INT) :: nc_get_vara_schar
1207 USE iso_c_binding
, ONLY: c_int, c_ptr
1210 Integer(C_INT),
VALUE :: ncid, varid
1211 Type(c_ptr),
VALUE :: startp, countp
1212 Integer(CINT2),
Intent(IN) :: op(*)
1214 Integer(C_INT) :: nc_put_vara_short
1222 USE iso_c_binding
, ONLY: c_int, c_ptr
1225 Integer(C_INT),
VALUE :: ncid, varid
1226 Type(c_ptr),
VALUE :: startp, countp
1227 Integer(CINT2),
Intent(OUT) :: ip(*)
1229 Integer(C_INT) :: nc_get_vara_short
1237 USE iso_c_binding
, ONLY: c_int, c_ptr
1240 Integer(C_INT),
VALUE :: ncid, varid
1241 Type(c_ptr),
VALUE :: startp, countp
1242 Integer(CINT),
Intent(IN) :: op(*)
1244 Integer(C_INT) :: nc_put_vara_int
1252 USE iso_c_binding
, ONLY: c_int, c_ptr
1255 Integer(C_INT),
VALUE :: ncid, varid
1256 Type(c_ptr),
VALUE :: startp, countp
1257 Integer(CINT),
Intent(OUT) :: ip(*)
1259 Integer(C_INT) :: nc_get_vara_int
1267 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1269 Integer(C_INT),
VALUE :: ncid, varid
1270 Type(c_ptr),
VALUE :: startp, countp
1271 Integer(C_LONG),
Intent(IN) :: op(*)
1273 Integer(C_INT) :: nc_put_vara_long
1281 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1283 Integer(C_INT),
VALUE :: ncid, varid
1284 Type(c_ptr),
VALUE :: startp, countp
1285 Integer(C_LONG),
Intent(OUT) :: ip(*)
1287 Integer(C_INT) :: nc_get_vara_long
1295 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1297 Integer(C_INT),
VALUE :: ncid, varid
1298 Type(c_ptr),
VALUE :: startp, countp
1299 Real(C_FLOAT),
Intent(IN) :: op(*)
1301 Integer(C_INT) :: nc_put_vara_float
1309 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1311 Integer(C_INT),
VALUE :: ncid, varid
1312 Type(c_ptr),
VALUE :: startp, countp
1313 Real(C_FLOAT),
Intent(OUT) :: ip(*)
1315 Integer(C_INT) :: nc_get_vara_float
1323 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1325 Integer(C_INT),
VALUE :: ncid, varid
1326 Type(c_ptr),
VALUE :: startp, countp
1327 Real(C_DOUBLE),
Intent(IN) :: op(*)
1329 Integer(C_INT) :: nc_put_vara_double
1337 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1339 Integer(C_INT),
VALUE :: ncid, varid
1340 Type(c_ptr),
VALUE :: startp, countp
1341 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
1343 Integer(C_INT) :: nc_get_vara_double
1351 USE iso_c_binding
, ONLY: c_int, c_ptr
1353 Integer(C_INT),
VALUE :: ncid, varid
1354 Type(c_ptr),
VALUE :: startp, countp
1355 Type(c_ptr),
VALUE :: op
1357 Integer(C_INT) :: nc_put_vara
1365 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1367 Integer(C_INT),
VALUE :: ncid, varid
1368 Type(c_ptr),
VALUE :: startp, countp
1369 Character(KIND=C_CHAR),
Intent(INOUT) :: ip(*)
1371 Integer(C_INT) :: nc_get_vara
1379 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1381 Integer(C_INT),
VALUE :: ncid, varid
1382 Type(c_ptr),
VALUE :: startp, countp, stridep
1383 Character(KIND=C_CHAR),
Intent(IN) :: op(*)
1385 Integer(C_INT) :: nc_put_vars_text
1393 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1395 Integer(C_INT),
VALUE :: ncid, varid
1396 Type(c_ptr),
VALUE :: startp, countp, stridep
1397 Character(KIND=C_CHAR),
Intent(OUT) :: ip(*)
1399 Integer(C_INT) :: nc_get_vars_text
1407 USE iso_c_binding
, ONLY: c_int, c_ptr
1410 Integer(C_INT),
VALUE :: ncid, varid
1411 Type(c_ptr),
VALUE :: startp, countp, stridep
1412 Integer(CINT1),
Intent(IN) :: op(*)
1414 Integer(C_INT) :: nc_put_vars_uchar
1422 USE iso_c_binding
, ONLY: c_int, c_ptr
1425 Integer(C_INT),
VALUE :: ncid, varid
1426 Type(c_ptr),
VALUE :: startp, countp, stridep
1427 Integer(CINT1),
Intent(OUT) :: ip(*)
1429 Integer(C_INT) :: nc_get_vars_uchar
1437 USE iso_c_binding
, ONLY: c_int, c_ptr
1440 Integer(C_INT),
VALUE :: ncid, varid
1441 Type(c_ptr),
VALUE :: startp, countp, stridep
1442 Integer(CINT1),
Intent(IN) :: op(*)
1444 Integer(C_INT) :: nc_put_vars_schar
1452 USE iso_c_binding
, ONLY: c_int, c_ptr
1455 Integer(C_INT),
VALUE :: ncid, varid
1456 Type(c_ptr),
VALUE :: startp, countp, stridep
1457 Integer(CINT1),
Intent(OUT) :: ip(*)
1459 Integer(C_INT) :: nc_get_vars_schar
1467 USE iso_c_binding
, ONLY: c_int, c_ptr
1470 Integer(C_INT),
VALUE :: ncid, varid
1471 Type(c_ptr),
VALUE :: startp, countp, stridep
1472 Integer(CINT2),
Intent(IN) :: op(*)
1474 Integer(C_INT) :: nc_put_vars_short
1482 USE iso_c_binding
, ONLY: c_int, c_ptr
1485 Integer(C_INT),
VALUE :: ncid, varid
1486 Type(c_ptr),
VALUE :: startp, countp, stridep
1487 Integer(CINT2),
Intent(OUT) :: ip(*)
1489 Integer(C_INT) :: nc_get_vars_short
1497 USE iso_c_binding
, ONLY: c_int, c_ptr
1500 Integer(C_INT),
VALUE :: ncid, varid
1501 Type(c_ptr),
VALUE :: startp, countp, stridep
1502 Integer(CINT),
Intent(IN) :: op(*)
1504 Integer(C_INT) :: nc_put_vars_int
1512 USE iso_c_binding
, ONLY: c_int, c_ptr
1515 Integer(C_INT),
VALUE :: ncid, varid
1516 Type(c_ptr),
VALUE :: startp, countp, stridep
1517 Integer(CINT),
Intent(OUT) :: ip(*)
1519 Integer(C_INT) :: nc_get_vars_int
1527 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1529 Integer(C_INT),
VALUE :: ncid, varid
1530 Type(c_ptr),
VALUE :: startp, countp, stridep
1531 Integer(C_LONG),
Intent(IN) :: op(*)
1533 Integer(C_INT) :: nc_put_vars_long
1541 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1543 Integer(C_INT),
VALUE :: ncid, varid
1544 Type(c_ptr),
VALUE :: startp, countp, stridep
1545 Integer(C_LONG),
Intent(OUT) :: ip(*)
1547 Integer(C_INT) :: nc_get_vars_long
1555 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1557 Integer(C_INT),
VALUE :: ncid, varid
1558 Type(c_ptr),
VALUE :: startp, countp, stridep
1559 Real(C_FLOAT),
Intent(IN) :: op(*)
1561 Integer(C_INT) :: nc_put_vars_float
1569 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1571 Integer(C_INT),
VALUE :: ncid, varid
1572 Type(c_ptr),
VALUE :: startp, countp, stridep
1573 Real(C_FLOAT),
Intent(OUT) :: ip(*)
1575 Integer(C_INT) :: nc_get_vars_float
1583 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1585 Integer(C_INT),
VALUE :: ncid, varid
1586 Type(c_ptr),
VALUE :: startp, countp, stridep
1587 Real(C_DOUBLE),
Intent(IN) :: op(*)
1589 Integer(C_INT) :: nc_put_vars_double
1597 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1599 Integer(C_INT),
VALUE :: ncid, varid
1600 Type(c_ptr),
VALUE :: startp, countp, stridep
1601 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
1603 Integer(C_INT) :: nc_get_vars_double
1609 Function nc_put_vars(ncid, varid, startp, countp, stridep, op) bind(C)
1611 USE iso_c_binding
, ONLY: c_int, c_ptr
1613 Integer(C_INT),
VALUE :: ncid, varid
1614 Type(c_ptr),
VALUE :: startp, countp, stridep
1615 Type(c_ptr),
VALUE :: op
1617 Integer(C_INT) :: nc_put_vars
1623 Function nc_get_vars(ncid, varid, startp, countp, stridep, ip) bind(C)
1625 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1627 Integer(C_INT),
VALUE :: ncid, varid
1628 Type(c_ptr),
VALUE :: startp, countp, stridep
1629 Character(KIND=C_CHAR),
Intent(INOUT) :: ip(*)
1631 Integer(C_INT) :: nc_get_vars
1641 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1643 Integer(C_INT),
VALUE :: ncid, varid
1644 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1645 Character(KIND=C_CHAR),
Intent(IN) :: op(*)
1647 Integer(C_INT) :: nc_put_varm_text
1656 USE iso_c_binding
, ONLY: c_int, c_ptr, c_char
1658 Integer(C_INT),
VALUE :: ncid, varid
1659 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1660 Character(KIND=C_CHAR),
Intent(OUT) :: ip(*)
1662 Integer(C_INT) :: nc_get_varm_text
1671 USE iso_c_binding
, ONLY: c_int, c_ptr
1674 Integer(C_INT),
VALUE :: ncid, varid
1675 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1676 Integer(CINT1),
Intent(IN) :: op(*)
1678 Integer(C_INT) :: nc_put_varm_uchar
1687 USE iso_c_binding
, ONLY: c_int, c_ptr
1690 Integer(C_INT),
VALUE :: ncid, varid
1691 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1692 Integer(CINT1),
Intent(OUT) :: ip(*)
1694 Integer(C_INT) :: nc_get_varm_uchar
1703 USE iso_c_binding
, ONLY: c_int, c_ptr
1706 Integer(C_INT),
VALUE :: ncid, varid
1707 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1708 Integer(CINT1),
Intent(IN) :: op(*)
1710 Integer(C_INT) :: nc_put_varm_schar
1719 USE iso_c_binding
, ONLY: c_int, c_ptr
1722 Integer(C_INT),
VALUE :: ncid, varid
1723 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1724 Integer(CINT1),
Intent(OUT) :: ip(*)
1726 Integer(C_INT) :: nc_get_varm_schar
1735 USE iso_c_binding
, ONLY: c_int, c_ptr
1738 Integer(C_INT),
VALUE :: ncid, varid
1739 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1740 Integer(CINT2),
Intent(IN) :: op(*)
1742 Integer(C_INT) :: nc_put_varm_short
1751 USE iso_c_binding
, ONLY: c_int, c_ptr
1754 Integer(C_INT),
VALUE :: ncid, varid
1755 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1756 Integer(CINT2),
Intent(OUT) :: ip(*)
1758 Integer(C_INT) :: nc_get_varm_short
1767 USE iso_c_binding
, ONLY: c_int, c_ptr
1770 Integer(C_INT),
VALUE :: ncid, varid
1771 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1772 Integer(CINT),
Intent(IN) :: op(*)
1774 Integer(C_INT) :: nc_put_varm_int
1783 USE iso_c_binding
, ONLY: c_int, c_ptr
1786 Integer(C_INT),
VALUE :: ncid, varid
1787 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1788 Integer(CINT),
Intent(OUT) :: ip(*)
1790 Integer(C_INT) :: nc_get_varm_int
1799 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1801 Integer(C_INT),
VALUE :: ncid, varid
1802 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1803 Integer(C_LONG),
Intent(IN) :: op(*)
1805 Integer(C_INT) :: nc_put_varm_long
1814 USE iso_c_binding
, ONLY: c_int, c_long, c_ptr
1816 Integer(C_INT),
VALUE :: ncid, varid
1817 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1818 Integer(C_LONG),
Intent(OUT) :: ip(*)
1820 Integer(C_INT) :: nc_get_varm_long
1829 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1831 Integer(C_INT),
VALUE :: ncid, varid
1832 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1833 Real(C_FLOAT),
Intent(IN) :: op(*)
1835 Integer(C_INT) :: nc_put_varm_float
1844 USE iso_c_binding
, ONLY: c_int, c_float, c_ptr
1846 Integer(C_INT),
VALUE :: ncid, varid
1847 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1848 Real(C_FLOAT),
Intent(OUT) :: ip(*)
1850 Integer(C_INT) :: nc_get_varm_float
1859 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1861 Integer(C_INT),
VALUE :: ncid, varid
1862 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1863 Real(C_DOUBLE),
Intent(IN) :: op(*)
1865 Integer(C_INT) :: nc_put_varm_double
1874 USE iso_c_binding
, ONLY: c_int, c_double, c_ptr
1876 Integer(C_INT),
VALUE :: ncid, varid
1877 Type(c_ptr),
VALUE :: startp, countp, stridep, imapp
1878 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
1880 Integer(C_INT) :: nc_get_varm_double
1888 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
1890 Integer(C_INT),
VALUE :: ncid, varid
1891 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1892 Integer(C_INT),
Intent(OUT) :: xtypep
1893 Integer(C_SIZE_T),
Intent(OUT) :: lenp
1895 Integer(C_INT) :: nc_inq_att
1903 USE iso_c_binding
, ONLY: c_int, c_char
1905 Integer(C_INT),
VALUE :: ncid, varid
1906 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1907 Integer(C_INT),
Intent(OUT) :: attnump
1909 Integer(C_INT) :: nc_inq_attid
1917 USE iso_c_binding
, ONLY: c_int, c_char
1919 Integer(C_INT),
VALUE :: ncid, varid
1920 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1921 Integer(C_INT),
Intent(OUT) :: xtypep
1923 Integer(C_INT) :: nc_inq_atttype
1931 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
1933 Integer(C_INT),
VALUE :: ncid, varid
1934 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1935 Integer(C_SIZE_T),
Intent(OUT) :: lenp
1937 Integer(C_INT) :: nc_inq_attlen
1945 USE iso_c_binding
, ONLY: c_int, c_char
1947 Integer(C_INT),
VALUE :: ncid, varid, attnum
1948 Character(KIND=C_CHAR),
Intent(INOUT) :: name(*)
1950 Integer(C_INT) :: nc_inq_attname
1956 Function nc_copy_att(ncid_in, varid_in, name, ncid_out, varid_out ) bind(C)
1958 USE iso_c_binding
, ONLY: c_int, c_char
1960 Integer(C_INT),
VALUE :: ncid_in, varid_in, varid_out, &
1962 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1964 Integer(C_INT) :: nc_copy_att
1972 USE iso_c_binding
, ONLY: c_int, c_char
1974 Integer(C_INT),
VALUE :: ncid, varid
1975 Character(KIND=C_CHAR),
Intent(IN) :: name(*), newname(*)
1977 Integer(C_INT) :: nc_rename_att
1985 USE iso_c_binding
, ONLY: c_int, c_char
1987 Integer(C_INT),
VALUE :: ncid, varid
1988 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
1990 Integer(C_INT) :: nc_del_att
1998 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
2000 Integer(C_INT),
VALUE :: ncid, varid
2001 Integer(C_SIZE_T),
VALUE :: nlen
2002 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2003 Character(KIND=C_CHAR),
Intent(IN) :: op(*)
2005 Integer(C_INT) :: nc_put_att_text
2013 USE iso_c_binding
, ONLY: c_int, c_char
2015 Integer(C_INT),
VALUE :: ncid, varid
2016 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2017 Character(KIND=C_CHAR),
Intent(OUT) :: ip(*)
2019 Integer(C_INT ) :: nc_get_att_text
2027 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
2030 Integer(C_INT),
VALUE :: ncid, varid
2031 Integer(C_SIZE_T),
VALUE :: nlen
2032 Integer(C_INT),
VALUE :: xtype
2033 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2034 Integer(CINT1),
Intent(IN) :: op(*)
2036 Integer(C_INT) :: nc_put_att_uchar
2044 USE iso_c_binding
, ONLY: c_int, c_char
2047 Integer(C_INT),
VALUE :: ncid, varid
2048 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2049 Integer(CINT1),
Intent(OUT) :: ip(*)
2051 Integer(C_INT) :: nc_get_att_uchar
2059 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
2062 Integer(C_INT),
VALUE :: ncid, varid
2063 Integer(C_SIZE_T),
VALUE :: nlen
2064 Integer(C_INT),
VALUE :: xtype
2065 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2066 Integer(CINT1),
Intent(IN) :: op(*)
2068 Integer(C_INT) :: nc_put_att_schar
2076 USE iso_c_binding
, ONLY: c_int, c_char
2079 Integer(C_INT),
VALUE :: ncid, varid
2080 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2081 Integer(CINT1),
Intent(OUT) :: ip(*)
2083 Integer(C_INT) :: nc_get_att_schar
2091 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
2094 Integer(C_INT),
VALUE :: ncid, varid
2095 Integer(C_SIZE_T),
VALUE :: nlen
2096 Integer(C_INT),
VALUE :: xtype
2097 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2098 Integer(CINT2),
Intent(IN) :: op(*)
2100 Integer(C_INT) :: nc_put_att_short
2108 USE iso_c_binding
, ONLY: c_int, c_char
2111 Integer(C_INT),
VALUE :: ncid, varid
2112 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2113 Integer(CINT2),
Intent(OUT) :: ip(*)
2115 Integer(C_INT) :: nc_get_att_short
2123 USE iso_c_binding
, ONLY: c_int, c_size_t, c_char
2125 Integer(C_INT),
VALUE :: ncid, varid
2126 Integer(C_SIZE_T),
VALUE :: nlen
2127 Integer(C_INT),
VALUE :: xtype
2128 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2129 Integer(C_INT),
Intent(IN) :: op(*)
2131 Integer(C_INT) :: nc_put_att_int
2139 USE iso_c_binding
, ONLY: c_int, c_char
2141 Integer(C_INT),
VALUE :: ncid, varid
2142 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2143 Integer(C_INT),
Intent(OUT) :: ip(*)
2145 Integer(C_INT) :: nc_get_att_int
2153 USE iso_c_binding
, ONLY: c_int, c_size_t, c_long, c_char
2155 Integer(C_INT),
VALUE :: ncid, varid
2156 Integer(C_SIZE_T),
VALUE :: nlen
2157 Integer(C_INT),
VALUE :: xtype
2158 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2159 Integer(C_LONG),
Intent(IN) :: op(*)
2161 Integer(C_INT) :: nc_put_att_long
2169 USE iso_c_binding
, ONLY: c_int, c_long, c_char
2171 Integer(C_INT),
VALUE :: ncid, varid
2172 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2173 Integer(C_LONG),
Intent(OUT) :: ip(*)
2175 Integer(C_INT) :: nc_get_att_long
2183 USE iso_c_binding
, ONLY: c_int, c_size_t, c_float, c_char
2185 Integer(C_INT),
VALUE :: ncid, varid
2186 Integer(C_SIZE_T),
VALUE :: nlen
2187 Integer(C_INT),
VALUE :: xtype
2188 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2189 Real(C_FLOAT),
Intent(IN) :: op(*)
2191 Integer(C_INT) :: nc_put_att_float
2199 USE iso_c_binding
, ONLY: c_int, c_float, c_char
2201 Integer(C_INT),
VALUE :: ncid, varid
2202 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2203 Real(C_FLOAT),
Intent(OUT) :: ip(*)
2205 Integer(C_INT) :: nc_get_att_float
2213 USE iso_c_binding
, ONLY: c_int, c_size_t, c_double, c_char
2215 Integer(C_INT),
VALUE :: ncid, varid
2216 Integer(C_SIZE_T),
VALUE :: nlen
2217 Integer(C_INT),
VALUE :: xtype
2218 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2219 Real(C_DOUBLE),
Intent(IN) :: op(*)
2221 Integer(C_INT) :: nc_put_att_double
2229 USE iso_c_binding
, ONLY: c_int, c_double, c_char
2231 Integer(C_INT),
VALUE :: ncid, varid
2232 Character(KIND=C_CHAR),
Intent(IN) :: name(*)
2233 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
2235 Integer(C_INT) :: nc_get_att_double
2243 USE iso_c_binding
, ONLY: c_int
2245 Integer(C_INT),
VALUE :: ncid_in, varid, ncid_out
2247 Integer(C_INT) :: nc_copy_var
2255 USE iso_c_binding
, ONLY: c_int
2257 Integer(C_INT),
VALUE :: newform
2258 Integer(C_INT),
Intent(OUT) :: old_format
2260 Integer(C_INT) :: nc_set_default_format
2282 Character(LEN=*),
Intent(IN) :: string
2283 Integer,
Intent(INOUT) :: nlen
2285 Character(LEN=(LEN(string)+1)) :: cstring
2295 nlen = len_trim(string)
2296 inull = scan(string, c_null_char)
2298 cstring = repeat(
" ", len(cstring))
2302 cstring = string(1:nlen)
2306 cstring = string(1:nlen)//c_null_char
2322 Character(LEN=*),
Intent(IN) :: cstring
2323 Integer,
Intent(IN) :: nlen
2325 Character(LEN=nlen) :: string
2327 Integer :: ie, inull
2329 ie = len_trim(cstring)
2330 inull = scan(cstring, c_null_char)
2332 If (inull > 1) ie=inull-1
2333 ie = max(1, min(ie,nlen))
2335 string = repeat(
" ", nlen)
2336 string(1:ie) = cstring(1:ie)
module procedure interfaces for utility routines
Begin explicit interfaces for base nc_ functions.