69 USE iso_c_binding
, ONLY: c_int, c_ptr
71 Integer(C_INT), value :: ncerr
81 USE iso_c_binding
, ONLY: c_ptr
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
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
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
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
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
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
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
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(*)
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
228 USE iso_c_binding
, ONLY: c_int
230 Integer(C_INT), value :: ncid
240 USE iso_c_binding
, ONLY: c_int
242 Integer(C_INT), value :: ncid
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
265 USE iso_c_binding
, ONLY: c_int
267 Integer(C_INT), value :: ncid
277 USE iso_c_binding
, ONLY: c_int
279 Integer(C_INT), value :: ncid
289 USE iso_c_binding
, ONLY: c_int
291 Integer(C_INT), value :: ncid
301 USE iso_c_binding
, ONLY: c_int, c_char
303 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
313 USE iso_c_binding
, ONLY: c_int, c_char
315 Character(KIND=C_CHAR),
Intent(IN) :: path(*)
316 Integer(C_INT), value :: pe
326 USE iso_c_binding
, ONLY: c_int
328 Integer(C_INT), value :: ncid, pe
338 USE iso_c_binding
, ONLY: c_int
340 Integer(C_INT), value :: ncid
341 Integer(C_INT),
Intent(OUT) :: 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
364 USE iso_c_binding
, ONLY: c_int
366 Integer(C_INT), value :: ncid
367 Integer(C_INT),
Intent(OUT) :: ndimsp
377 USE iso_c_binding
, ONLY: c_int
379 Integer(C_INT), value :: ncid
380 Integer(C_INT),
Intent(OUT) :: nvarsp
390 USE iso_c_binding
, ONLY: c_int
392 Integer(C_INT), value :: ncid
393 Integer(C_INT),
Intent(OUT) :: ngattsp
403 USE iso_c_binding
, ONLY: c_int
405 Integer(C_INT), value :: ncid
406 Integer(C_INT),
Intent(OUT) :: unlimdimidp
416 USE iso_c_binding
, ONLY: c_int
418 Integer(C_INT), value :: ncid
419 Integer(C_INT),
Intent(OUT) :: formatp
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
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
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
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(*)
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
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(*)
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
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
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
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(*)
577 USE iso_c_binding
, ONLY: c_int
579 Integer(C_INT), value :: ncid, varid
580 Integer(C_INT),
Intent(OUT) :: xtypep
590 USE iso_c_binding
, ONLY: c_int
592 Integer(C_INT), value :: ncid, varid
593 Integer(C_INT),
Intent(OUT) :: ndimsp
603 USE iso_c_binding
, ONLY: c_int
605 Integer(C_INT), value :: ncid, varid
606 Integer(C_INT),
Intent(OUT) :: dimidsp(*)
616 USE iso_c_binding
, ONLY: c_int
618 Integer(C_INT), value :: ncid, varid
619 Integer(C_INT),
Intent(OUT) :: nattsp
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(*)
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(*)
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(*)
668 USE iso_c_binding
, ONLY: c_int
671 Integer(C_INT), value :: ncid, varid
672 Integer(CINT1),
Intent(IN) :: op(*)
682 USE iso_c_binding
, ONLY: c_int
685 Integer(C_INT), value :: ncid, varid
686 Integer(CINT1),
Intent(OUT) :: ip(*)
696 USE iso_c_binding
, ONLY: c_int
699 Integer(C_INT), value :: ncid, varid
700 Integer(CINT1),
Intent(IN) :: op(*)
710 USE iso_c_binding
, ONLY: c_int
713 Integer(C_INT), value :: ncid, varid
714 Integer(CINT1),
Intent(OUT) :: ip(*)
724 USE iso_c_binding
, ONLY: c_int
727 Integer(C_INT), value :: ncid, varid
728 Integer(CINT2),
Intent(IN) :: op(*)
738 USE iso_c_binding
, ONLY: c_int
741 Integer(C_INT), value :: ncid, varid
742 Integer(CINT2),
Intent(OUT) :: ip(*)
752 USE iso_c_binding
, ONLY: c_int
755 Integer(C_INT), value :: ncid, varid
756 Integer(CINT),
Intent(IN) :: op(*)
766 USE iso_c_binding
, ONLY: c_int
769 Integer(C_INT), value :: ncid, varid
770 Integer(CINT),
Intent(OUT) :: ip(*)
780 USE iso_c_binding
, ONLY: c_int, c_long
782 Integer(C_INT), value :: ncid, varid
783 Integer(C_LONG),
Intent(IN) :: op(*)
793 USE iso_c_binding
, ONLY: c_int, c_long
795 Integer(C_INT), value :: ncid, varid
796 Integer(C_LONG),
Intent(OUT) :: ip(*)
806 USE iso_c_binding
, ONLY: c_int, c_float
808 Integer(C_INT), value :: ncid, varid
809 Real(C_FLOAT),
Intent(IN) :: op(*)
819 USE iso_c_binding
, ONLY: c_int, c_float
823 Integer(C_INT), value :: ncid, varid
824 Real(C_FLOAT),
Intent(OUT) :: ip(*)
834 USE iso_c_binding
, ONLY: c_int, c_double
836 Integer(C_INT), value :: ncid, varid
837 Real(C_DOUBLE),
Intent(IN) :: op(*)
847 USE iso_c_binding
, ONLY: c_int, c_double
849 Integer(C_INT), value :: ncid, varid
850 Real(C_DOUBLE),
Intent(OUT) :: ip(*)
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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
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
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
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
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
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(*)
2243 USE iso_c_binding
, ONLY: c_int
2245 Integer(C_INT), value :: ncid_in, varid, ncid_out
2255 USE iso_c_binding
, ONLY: c_int
2257 Integer(C_INT), value :: newform
2258 Integer(C_INT),
Intent(OUT) :: old_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.