1 Module netcdf_nf_interfaces
45 #include "nfconfig.inc" 54 Character(LEN=80) :: vermsg
62 Integer,
Intent(IN) :: nerr
64 Character(LEN=80) :: errmsg
72 Integer,
Intent(IN) :: nerr
81 Function nf_create(path, cmode, ncid) RESULT (status)
83 Character(LEN=*),
Intent(IN) :: path
84 Integer,
Intent(IN) :: cmode
85 Integer,
Intent(OUT) :: ncid
92 Function nf__create(path, cmode, initialsz, chunksizehintp, ncid) &
95 Character(LEN=*),
Intent(IN) :: path
96 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp
97 Integer,
Intent(OUT) :: ncid
104 Function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid) &
107 Character(LEN=*),
Intent(IN) :: path
108 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp, basepe
109 Integer,
Intent(OUT) :: ncid
116 Function nf_open(path, mode, ncid) RESULT (status)
118 Character(LEN=*),
Intent(IN) :: path
119 Integer,
Intent(IN) :: mode
120 Integer,
Intent(INOUT) :: ncid
127 Function nf__open(path, mode, chunksizehintp, ncid) RESULT (status)
129 Character(LEN=*),
Intent(IN) :: path
130 Integer,
Intent(IN) :: mode, chunksizehintp
131 Integer,
Intent(INOUT) :: ncid
138 Function nf__open_mp(path, mode, basepe, chunksizehintp, ncid) RESULT (status)
140 Character(LEN=*),
Intent(IN) :: path
141 Integer,
Intent(IN) :: mode, chunksizehintp, basepe
142 Integer,
Intent(INOUT) :: ncid
151 Integer,
Intent(IN) :: ncid
152 Integer,
Intent(INOUT) :: pathlen
153 Character(LEN=*),
Intent(INOUT) :: path
162 Integer,
Intent(IN) :: ncid, fillmode
163 Integer,
Intent(OUT) :: old_mode
172 Integer,
Intent(IN) :: newform
173 Integer,
Intent(OUT) :: old_format
182 Integer,
Intent(IN) :: ncid
191 Integer,
Intent(IN) :: ncid
198 Function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align) &
201 Integer,
Intent(IN) :: ncid, h_minfree, v_align, v_minfree, r_align
211 Integer,
Intent(IN) :: ncid
220 Integer,
Intent(IN) :: ncid
229 Integer,
Intent(IN) :: ncid
238 Character(LEN=*),
Intent(IN) :: path
247 Character(LEN=*),
Intent(IN) :: path
248 Integer,
Intent(IN) :: pe
257 Integer,
Intent(IN) :: ncid, pe
266 Integer,
Intent(IN) :: ncid
267 Integer,
Intent(OUT) :: pe
279 Integer,
Intent(IN) :: ncid, dlen
280 Integer,
Intent(OUT) :: dimid
281 Character(LEN=*),
Intent(IN) :: name
290 Integer,
Intent(IN) :: ncid, dimid
291 Integer,
Intent(OUT) :: dlen
292 Character(LEN=*),
Intent(OUT) :: name
301 Integer,
Intent(IN) :: ncid
302 Integer,
Intent(OUT) :: dimid
303 Character(LEN=*),
Intent(IN) :: name
312 Integer,
Intent(IN) :: ncid, dimid
313 Integer,
Intent(OUT) :: dlen
322 Integer,
Intent(IN) :: ncid, dimid
323 Character(LEN=*),
Intent(OUT) :: name
332 Integer,
Intent(IN) :: ncid, dimid
333 Character(LEN=*),
Intent(IN) :: name
343 Function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid) RESULT(status)
345 Integer,
Intent(IN) :: ncid
346 Integer,
Intent(OUT) :: ndims, nvars, ngatts, unlimdimid
355 Integer,
Intent(IN) :: ncid
356 Integer,
Intent(OUT) :: ndims
365 Integer,
Intent(IN) :: ncid
366 Integer,
Intent(OUT) :: nvars
375 Integer,
Intent(IN) :: ncid
376 Integer,
Intent(OUT) :: ngatts
385 Integer,
Intent(IN) :: ncid
386 Integer,
Intent(OUT) :: unlimdimid
395 Integer,
Intent(IN) :: ncid
396 Integer,
Intent(OUT) :: format_type
406 Function nf_def_var(ncid, name, xtype, nvdims, vdims, varid) RESULT (status)
408 Integer,
Intent(IN) :: ncid, xtype, nvdims
409 Integer,
Intent(IN) :: vdims(*)
410 Integer,
Intent(OUT) :: varid
411 Character(LEN=*),
Intent(IN) :: name
420 Integer,
Intent(IN) :: ncid, varid
421 Integer,
Intent(OUT) :: vndims
428 Function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts) &
431 Integer,
Intent(IN) :: ncid, varid
432 Character(LEN=*),
Intent(OUT) :: name
433 Integer,
Intent(OUT) :: dimids(*)
434 Integer,
Intent(OUT) :: ndims, xtype, natts
443 Integer,
Intent(IN) :: ncid, varid
444 Integer,
Intent(OUT) :: dimids(*)
453 Integer,
Intent(IN) :: ncid
454 Integer,
Intent(OUT) :: varid
455 Character(LEN=*),
Intent(IN) :: name
464 Integer,
Intent(IN) :: ncid, varid
465 Character(LEN=*),
Intent(OUT) :: name
474 Integer,
Intent(IN) :: ncid, varid
475 Integer,
Intent(OUT) :: xtype
484 Integer,
Intent(IN) :: ncid, varid
485 Integer,
Intent(OUT) :: nvatts
494 Integer,
Intent(IN) :: ncid, varid
495 Character(LEN=*),
Intent(IN) :: name
504 Integer,
Intent(IN) :: ncid_in, varid, ncid_out
514 Function nf_inq_att(ncid, varid, name, xtype, nlen) RESULT(status)
516 Integer,
Intent(IN) :: ncid, varid
517 Integer,
Intent(OUT) :: nlen, xtype
518 Character(LEN=*),
Intent(IN) :: name
527 Integer,
Intent(IN) :: ncid, varid
528 Integer,
Intent(OUT) :: xtype
529 Character(LEN=*),
Intent(IN) :: name
538 Integer,
Intent(IN) :: ncid, varid
539 Integer,
Intent(OUT) :: nlen
540 Character(LEN=*),
Intent(IN) :: name
549 Integer,
Intent(IN) :: ncid, varid
550 Integer,
Intent(OUT) :: attnum
551 Character(LEN=*),
Intent(IN) :: name
560 Integer,
Intent(IN) :: ncid, varid, attnum
561 Character(LEN=*),
Intent(OUT) :: name
568 Function nf_copy_att(ncid_in, varid_in, name, ncid_out, varid_out) &
571 Integer,
Intent(IN) :: ncid_in, varid_in, ncid_out, varid_out
572 Character(LEN=*),
Intent(IN) :: name
581 Integer,
Intent(IN) :: ncid, varid
582 Character(LEN=*),
Intent(IN) :: name, newname
591 Integer,
Intent(IN) :: ncid, varid
592 Character(LEN=*),
Intent(IN) :: name
604 Integer,
Intent(IN) :: ncid, varid
605 Integer,
Intent(IN) :: ndex(*)
606 Character(LEN=1),
Intent(IN) :: chval
615 USE netcdf_nf_data
, ONLY: nfint1
617 Integer,
Intent(IN) :: ncid, varid
618 Integer,
Intent(IN) :: ndex(*)
619 Integer(NFINT1),
Intent(IN) :: ival
628 USE netcdf_nf_data
, ONLY: nfint2
630 Integer,
Intent(IN) :: ncid, varid
631 Integer,
Intent(IN) :: ndex(*)
632 Integer(NFINT2),
Intent(IN) :: ival
641 USE netcdf_nf_data
, ONLY: nfint
642 Integer,
Intent(IN) :: ncid, varid
643 Integer,
Intent(IN) :: ndex(*)
644 Integer(NFINT),
Intent(IN) :: ival
653 USE netcdf_nf_data
, ONLY: nfreal
655 Integer,
Intent(IN) :: ncid, varid
656 Integer,
Intent(IN) :: ndex(*)
657 Real(NFREAL),
Intent(IN) :: rval
666 USE netcdf_nf_data
, ONLY: rk8
668 Integer,
Intent(IN) :: ncid, varid
669 Integer,
Intent(IN) :: ndex(*)
670 Real(RK8),
Intent(IN) :: dval
679 Integer,
Intent(IN) :: ncid, varid
680 Integer,
Intent(IN) :: ndex(*)
681 Character(LEN=1),
Intent(OUT) :: chval
690 USE netcdf_nf_data
, ONLY: nfint1
692 Integer,
Intent(IN) :: ncid, varid
693 Integer,
Intent(IN) :: ndex(*)
694 Integer(NFINT1),
Intent(OUT) :: ival
703 USE netcdf_nf_data
, ONLY: nfint2
705 Integer,
Intent(IN) :: ncid, varid
706 Integer,
Intent(IN) :: ndex(*)
707 Integer(NFINT2),
Intent(OUT) :: ival
716 USE netcdf_nf_data
, ONLY: nfint
717 Integer,
Intent(IN) :: ncid, varid
718 Integer,
Intent(IN) :: ndex(*)
719 Integer(NFINT),
Intent(OUT) :: ival
728 USE netcdf_nf_data
, ONLY: nfreal
730 Integer,
Intent(IN) :: ncid, varid
731 Integer,
Intent(IN) :: ndex(*)
732 Real(NFREAL),
Intent(OUT) :: rval
741 USE netcdf_nf_data
, ONLY: rk8
743 Integer,
Intent(IN) :: ncid, varid
744 Integer,
Intent(IN) :: ndex(*)
745 Real(RK8),
Intent(OUT) :: rval
757 Integer,
Intent(IN) :: ncid, varid
758 Character(LEN=*),
Intent(IN) :: text
763 Function nf_put_var_text_a(ncid, varid, text) RESULT(status)
765 Integer,
Intent(IN) :: ncid, varid
766 Character(LEN=1),
Intent(IN) :: text(*)
769 End Function nf_put_var_text_a
775 USE netcdf_nf_data
, ONLY: nfint1
777 Integer,
Intent(IN) :: ncid, varid
778 Integer(NFINT1),
Intent(IN) :: i1vals(*)
787 USE netcdf_nf_data
, ONLY: nfint2
789 Integer,
Intent(IN) :: ncid, varid
790 Integer(NFINT2),
Intent(IN) :: i2vals(*)
799 USE netcdf_nf_data
, ONLY: nfint
801 Integer,
Intent(IN) :: ncid, varid
802 Integer(NFINT),
Intent(IN) :: ivals(*)
811 USE netcdf_nf_data
, ONLY: nfreal
813 Integer,
Intent(IN) :: ncid, varid
814 Real(NFREAL),
Intent(IN) :: rvals(*)
823 USE netcdf_nf_data
, ONLY: rk8
825 Integer,
Intent(IN) :: ncid, varid
826 Real(RK8),
Intent(IN) :: dvals(*)
835 Integer,
Intent(IN) :: ncid, varid
836 Character(LEN=*),
Intent(OUT) :: text
841 Function nf_get_var_text_a(ncid, varid, text) RESULT(status)
843 Integer,
Intent(IN) :: ncid, varid
844 Character(LEN=1),
Intent(OUT) :: text(*)
847 End Function nf_get_var_text_a
853 USE netcdf_nf_data
, ONLY: nfint1
855 Integer,
Intent(IN) :: ncid, varid
856 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
865 USE netcdf_nf_data
, ONLY: nfint2
867 Integer,
Intent(IN) :: ncid, varid
868 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
877 USE netcdf_nf_data
, ONLY: nfint
879 Integer,
Intent(IN) :: ncid, varid
880 Integer(NFINT),
Intent(OUT) :: ivals(*)
889 USE netcdf_nf_data
, ONLY: nfreal
891 Integer,
Intent(IN) :: ncid, varid
892 Real(NFREAL),
Intent(OUT) :: rvals(*)
901 USE netcdf_nf_data
, ONLY: rk8
903 Integer,
Intent(IN) :: ncid, varid
904 Real(RK8),
Intent(OUT) :: dvals(*)
917 Integer,
Intent(IN) :: ncid, varid
918 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
919 Character(LEN=*),
Intent(IN) :: text
924 Function nf_put_vars_text_a(ncid, varid, start, counts, strides, text) &
927 Integer,
Intent(IN) :: ncid, varid
928 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
929 Character(LEN=1),
Intent(IN) :: text(*)
932 End Function nf_put_vars_text_a
939 USE netcdf_nf_data
, ONLY: nfint1
941 Integer,
Intent(IN) :: ncid, varid
942 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
943 Integer(NFINT1),
Intent(IN) :: i1vals(*)
953 USE netcdf_nf_data
, ONLY: nfint2
955 Integer,
Intent(IN) :: ncid, varid
956 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
957 Integer(NFINT2),
Intent(IN) :: i2vals(*)
967 USE netcdf_nf_data
, ONLY: nfint
969 Integer,
Intent(IN) :: ncid, varid
970 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
971 Integer(NFINT),
Intent(IN) :: ivals(*)
981 USE netcdf_nf_data
, ONLY: nfreal
983 Integer,
Intent(IN) :: ncid, varid
984 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
985 Real(NFREAL),
Intent(IN) :: rvals(*)
995 USE netcdf_nf_data
, ONLY: rk8
997 Integer,
Intent(IN) :: ncid, varid
998 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
999 Real(RK8),
Intent(IN) :: dvals(*)
1009 Integer,
Intent(IN) :: ncid, varid
1010 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1011 Character(LEN=*),
Intent(OUT) :: text
1016 Function nf_get_vars_text_a(ncid, varid, start, counts, strides, text) &
1019 Integer,
Intent(IN) :: ncid, varid
1020 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1021 Character(LEN=1),
Intent(OUT) :: text(*)
1024 End Function nf_get_vars_text_a
1031 USE netcdf_nf_data
, ONLY: nfint1
1033 Integer,
Intent(IN) :: ncid, varid
1034 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1035 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1045 USE netcdf_nf_data
, ONLY: nfint2
1047 Integer,
Intent(IN) :: ncid, varid
1048 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1049 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1059 USE netcdf_nf_data
, ONLY: nfint
1061 Integer,
Intent(IN) :: ncid, varid
1062 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1063 Integer(NFINT),
Intent(OUT) :: ivals(*)
1073 USE netcdf_nf_data
, ONLY: nfreal
1075 Integer,
Intent(IN) :: ncid, varid
1076 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1077 Real(NFREAL),
Intent(OUT) :: rvals(*)
1087 USE netcdf_nf_data
, ONLY: rk8
1089 Integer,
Intent(IN) :: ncid, varid
1090 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1091 Real(RK8),
Intent(OUT) :: dvals(*)
1102 text) result(status)
1106 Integer,
Intent(IN) :: ncid, varid
1107 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1108 Character(LEN=*),
Intent(IN) :: text
1113 Function nf_put_varm_text_a(ncid, varid, start, counts, strides, maps, &
1114 text) result(status)
1116 Integer,
Intent(IN) :: ncid, varid
1117 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1118 Character(LEN=1),
Intent(IN) :: text(*)
1121 End Function nf_put_varm_text_a
1126 i1vals) result(status)
1128 USE netcdf_nf_data
, ONLY: nfint1
1130 Integer,
Intent(IN) :: ncid, varid
1131 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1132 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1140 i2vals) result(status)
1142 USE netcdf_nf_data
, ONLY: nfint2
1144 Integer,
Intent(IN) :: ncid, varid
1145 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1146 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1154 ivals) result(status)
1156 USE netcdf_nf_data
, ONLY: nfint
1158 Integer,
Intent(IN) :: ncid, varid
1159 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1160 Integer(NFINT),
Intent(IN) :: ivals(*)
1169 rvals) result(status)
1171 USE netcdf_nf_data
, ONLY: nfreal
1173 Integer,
Intent(IN) :: ncid, varid
1174 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1175 Real(NFREAL),
Intent(IN) :: rvals(*)
1183 dvals) result(status)
1185 USE netcdf_nf_data
, ONLY: rk8
1187 Integer,
Intent(IN) :: ncid, varid
1188 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1189 Real(RK8),
Intent(IN) :: dvals(*)
1197 text) result(status)
1199 Integer,
Intent(IN) :: ncid, varid
1200 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1201 Character(LEN=*),
Intent(OUT) :: text
1206 Function nf_get_varm_text_a(ncid, varid, start, counts, strides, maps, &
1207 text) result(status)
1209 Integer,
Intent(IN) :: ncid, varid
1210 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1211 Character(LEN=1),
Intent(OUT) :: text(*)
1214 End Function nf_get_varm_text_a
1219 i1vals) result(status)
1221 USE netcdf_nf_data
, ONLY: nfint1
1223 Integer,
Intent(IN) :: ncid, varid
1224 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1225 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1233 i2vals) result(status)
1235 USE netcdf_nf_data
, ONLY: nfint2
1237 Integer,
Intent(IN) :: ncid, varid
1238 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1239 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1247 ivals) result(status)
1249 USE netcdf_nf_data
, ONLY: nfint
1251 Integer,
Intent(IN) :: ncid, varid
1252 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1253 Integer(NFINT),
Intent(OUT) :: ivals(*)
1261 rvals) result(status)
1263 USE netcdf_nf_data
, ONLY: nfreal
1265 Integer,
Intent(IN) :: ncid, varid
1266 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1267 Real(NFREAL),
Intent(OUT) :: rvals(*)
1275 dvals) result(status)
1277 USE netcdf_nf_data
, ONLY: rk8
1279 Integer,
Intent(IN) :: ncid, varid
1280 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1281 Real(RK8),
Intent(OUT) :: dvals(*)
1293 Integer,
Intent(IN) :: ncid, varid
1294 Integer,
Intent(IN) :: start(*), counts(*)
1295 Character(LEN=*),
Intent(IN) :: text
1300 Function nf_put_vara_text_a(ncid, varid, start, counts, text) RESULT(status)
1302 Integer,
Intent(IN) :: ncid, varid
1303 Integer,
Intent(IN) :: start(*), counts(*)
1304 Character(LEN=1),
Intent(IN) :: text(*)
1307 End Function nf_put_vara_text_a
1313 USE netcdf_nf_data
, ONLY: nfint1
1315 Integer,
Intent(IN) :: ncid, varid
1316 Integer,
Intent(IN) :: start(*), counts(*)
1317 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1326 USE netcdf_nf_data
, ONLY: nfint2
1328 Integer,
Intent(IN) :: ncid, varid
1329 Integer,
Intent(IN) :: start(*), counts(*)
1330 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1339 USE netcdf_nf_data
, ONLY: nfint
1341 Integer,
Intent(IN) :: ncid, varid
1342 Integer,
Intent(IN) :: start(*), counts(*)
1343 Integer(NFINT),
Intent(IN) :: ivals(*)
1352 USE netcdf_nf_data
, ONLY: nfreal
1354 Integer,
Intent(IN) :: ncid, varid
1355 Integer,
Intent(IN) :: start(*), counts(*)
1356 Real(NFREAL),
Intent(IN) :: rvals(*)
1366 USE netcdf_nf_data
, ONLY: rk8
1368 Integer,
Intent(IN) :: ncid, varid
1369 Integer,
Intent(IN) :: start(*), counts(*)
1370 Real(RK8),
Intent(IN) :: dvals(*)
1379 Integer,
Intent(IN) :: ncid, varid
1380 Integer,
Intent(IN) :: start(*), counts(*)
1381 Character(LEN=*),
Intent(OUT) :: text
1386 Function nf_get_vara_text_a(ncid, varid, start, counts, text) RESULT(status)
1388 Integer,
Intent(IN) :: ncid, varid
1389 Integer,
Intent(IN) :: start(*), counts(*)
1390 Character(LEN=1),
Intent(OUT) :: text(*)
1393 End Function nf_get_vara_text_a
1399 USE netcdf_nf_data
, ONLY: nfint1
1401 Integer,
Intent(IN) :: ncid, varid
1402 Integer,
Intent(IN) :: start(*), counts(*)
1403 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1412 USE netcdf_nf_data
, ONLY: nfint2
1414 Integer,
Intent(IN) :: ncid, varid
1415 Integer,
Intent(IN) :: start(*), counts(*)
1416 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1425 USE netcdf_nf_data
, ONLY: nfint
1427 Integer,
Intent(IN) :: ncid, varid
1428 Integer,
Intent(IN) :: start(*), counts(*)
1429 Integer(NFINT),
Intent(OUT) :: ivals(*)
1438 USE netcdf_nf_data
, ONLY: nfreal
1440 Integer,
Intent(IN) :: ncid, varid
1441 Integer,
Intent(IN) :: start(*), counts(*)
1442 Real(NFREAL),
Intent(OUT) :: rvals(*)
1452 USE netcdf_nf_data
, ONLY: rk8
1454 Integer,
Intent(IN) :: ncid, varid
1455 Integer,
Intent(IN) :: start(*), counts(*)
1456 Real(RK8),
Intent(OUT) :: dvals(*)
1463 Function nf_put_att_text(ncid, varid, name, nlen, text) RESULT(status)
1465 Integer,
Intent(IN) :: ncid, varid, nlen
1466 Character(LEN=*),
Intent(IN) :: name, text
1471 Function nf_put_att_text_a(ncid, varid, name, nlen, text) RESULT(status)
1473 Integer,
Intent(IN) :: ncid, varid, nlen
1474 Character(LEN=*),
Intent(IN) :: name
1475 Character(LEN=1),
Intent(IN) :: text(*)
1478 End Function nf_put_att_text_a
1485 USE netcdf_nf_data
, ONLY: nfint1
1487 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1488 Character(LEN=*),
Intent(IN) :: name
1489 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1499 USE netcdf_nf_data
, ONLY: nfint2
1501 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1502 Character(LEN=*),
Intent(IN) :: name
1503 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1513 USE netcdf_nf_data
, ONLY: nfint
1515 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1516 Character(LEN=*),
Intent(IN) :: name
1517 Integer(NFINT),
Intent(IN) :: ivals(*)
1527 USE netcdf_nf_data
, ONLY: nfreal
1529 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1530 Character(LEN=*),
Intent(IN) :: name
1531 Real(NFREAL),
Intent(IN) :: rvals(*)
1541 USE netcdf_nf_data
, ONLY: rk8
1543 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1544 Character(LEN=*),
Intent(IN) :: name
1545 Real(RK8),
Intent(IN) :: dvals(*)
1554 Integer,
Intent(IN) :: ncid, varid
1555 Character(LEN=*),
Intent(IN) :: name
1556 Character(LEN=*),
Intent(OUT) :: text
1561 Function nf_get_att_text_a(ncid, varid, name, text) RESULT(status)
1563 Integer,
Intent(IN) :: ncid, varid
1564 Character(LEN=*),
Intent(IN) :: name
1565 Character(LEN=1),
Intent(OUT) :: text(*)
1568 End Function nf_get_att_text_a
1574 USE netcdf_nf_data
, ONLY: nfint1
1576 Integer,
Intent(IN) :: ncid, varid
1577 Character(LEN=*),
Intent(IN) :: name
1578 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1587 USE netcdf_nf_data
, ONLY: nfint2
1589 Integer,
Intent(IN) :: ncid, varid
1590 Character(LEN=*),
Intent(IN) :: name
1591 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1600 USE netcdf_nf_data
, ONLY: nfint
1602 Integer,
Intent(IN) :: ncid, varid
1603 Character(LEN=*),
Intent(IN) :: name
1604 Integer(NFINT),
Intent(OUT) :: ivals(*)
1613 USE netcdf_nf_data
, ONLY: nfreal
1615 Integer,
Intent(IN) :: ncid, varid
1616 Character(LEN=*),
Intent(IN) :: name
1617 Real(NFREAL),
Intent(OUT) :: rvals(*)
1626 USE netcdf_nf_data
, ONLY: rk8
1629 Integer,
Intent(IN) :: ncid, varid
1630 Character(LEN=*),
Intent(IN) :: name
1631 Real(RK8),
Intent(OUT) :: dvals(*)
1640 Integer,
External :: nf_put_var1
1641 Integer,
External :: nf_get_var1
1642 Integer,
External :: nf_put_vars
1643 Integer,
External :: nf_get_vars
1644 Integer,
External :: nf_put_vara
1645 Integer,
External :: nf_get_vara
1649 Integer,
External :: nccre
1650 Integer,
External :: ncopn
1651 Integer,
External :: ncddef
1652 Integer,
External :: ncdid
1653 Integer,
External :: ncvdef
1654 Integer,
External :: ncvid
1655 Integer,
External :: nctlen
1656 Integer,
External :: ncsfil
1660 End Module netcdf_nf_interfaces