47 #include "nfconfig.inc" 56 Character(LEN=80) :: vermsg
64 Integer,
Intent(IN) :: nerr
66 Character(LEN=80) :: errmsg
74 Integer,
Intent(IN) :: nerr
83 Function nf_create(path, cmode, ncid) RESULT (status)
85 Character(LEN=*),
Intent(IN) :: path
86 Integer,
Intent(IN) :: cmode
87 Integer,
Intent(OUT) :: ncid
94 Function nf__create(path, cmode, initialsz, chunksizehintp, ncid) &
97 Character(LEN=*),
Intent(IN) :: path
98 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp
99 Integer,
Intent(OUT) :: ncid
106 Function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid) &
109 Character(LEN=*),
Intent(IN) :: path
110 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp, basepe
111 Integer,
Intent(OUT) :: ncid
118 Function nf_open(path, mode, ncid) RESULT (status)
120 Character(LEN=*),
Intent(IN) :: path
121 Integer,
Intent(IN) :: mode
122 Integer,
Intent(INOUT) :: ncid
129 Function nf__open(path, mode, chunksizehintp, ncid) RESULT (status)
131 Character(LEN=*),
Intent(IN) :: path
132 Integer,
Intent(IN) :: mode, chunksizehintp
133 Integer,
Intent(INOUT) :: ncid
140 Function nf__open_mp(path, mode, basepe, chunksizehintp, ncid) RESULT (status)
142 Character(LEN=*),
Intent(IN) :: path
143 Integer,
Intent(IN) :: mode, chunksizehintp, basepe
144 Integer,
Intent(INOUT) :: ncid
151 Function nf_open_mem(path, mode, size, memory, ncid) RESULT (status)
153 USE iso_c_binding
, ONLY : c_char
155 Character(LEN=*),
Intent(IN) :: path
156 Integer,
Intent(IN) :: mode
157 Integer,
Intent(IN) :: size
158 Character(KIND=C_CHAR),
Intent(IN),
TARGET :: memory(*)
159 Integer,
Intent(INOUT) :: ncid
169 Integer,
Intent(IN) :: ncid
170 Integer,
Intent(INOUT) :: pathlen
171 Character(LEN=*),
Intent(INOUT) :: path
180 Integer,
Intent(IN) :: ncid, fillmode
181 Integer,
Intent(OUT) :: old_mode
190 Integer,
Intent(IN) :: newform
191 Integer,
Intent(OUT) :: old_format
200 Integer,
Intent(IN) :: ncid
209 Integer,
Intent(IN) :: ncid
216 Function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align) &
219 Integer,
Intent(IN) :: ncid, h_minfree, v_align, v_minfree, r_align
229 Integer,
Intent(IN) :: ncid
238 Integer,
Intent(IN) :: ncid
247 Integer,
Intent(IN) :: ncid
256 Character(LEN=*),
Intent(IN) :: path
265 Character(LEN=*),
Intent(IN) :: path
266 Integer,
Intent(IN) :: pe
275 Integer,
Intent(IN) :: ncid, pe
284 Integer,
Intent(IN) :: ncid
285 Integer,
Intent(OUT) :: pe
297 Integer,
Intent(IN) :: ncid, dlen
298 Integer,
Intent(OUT) :: dimid
299 Character(LEN=*),
Intent(IN) :: name
308 Integer,
Intent(IN) :: ncid, dimid
309 Integer,
Intent(OUT) :: dlen
310 Character(LEN=*),
Intent(OUT) :: name
319 Integer,
Intent(IN) :: ncid
320 Integer,
Intent(OUT) :: dimid
321 Character(LEN=*),
Intent(IN) :: name
330 Integer,
Intent(IN) :: ncid, dimid
331 Integer,
Intent(OUT) :: dlen
340 Integer,
Intent(IN) :: ncid, dimid
341 Character(LEN=*),
Intent(OUT) :: name
350 Integer,
Intent(IN) :: ncid, dimid
351 Character(LEN=*),
Intent(IN) :: name
361 Function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid) RESULT(status)
363 Integer,
Intent(IN) :: ncid
364 Integer,
Intent(OUT) :: ndims, nvars, ngatts, unlimdimid
373 Integer,
Intent(IN) :: ncid
374 Integer,
Intent(OUT) :: ndims
383 Integer,
Intent(IN) :: ncid
384 Integer,
Intent(OUT) :: nvars
393 Integer,
Intent(IN) :: ncid
394 Integer,
Intent(OUT) :: ngatts
403 Integer,
Intent(IN) :: ncid
404 Integer,
Intent(OUT) :: unlimdimid
413 Integer,
Intent(IN) :: ncid
414 Integer,
Intent(OUT) :: format_type
424 Function nf_def_var(ncid, name, xtype, nvdims, vdims, varid) RESULT (status)
426 Integer,
Intent(IN) :: ncid, xtype, nvdims
427 Integer,
Intent(IN) :: vdims(*)
428 Integer,
Intent(OUT) :: varid
429 Character(LEN=*),
Intent(IN) :: name
438 Integer,
Intent(IN) :: ncid, varid
439 Integer,
Intent(OUT) :: vndims
446 Function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts) &
449 Integer,
Intent(IN) :: ncid, varid
450 Character(LEN=*),
Intent(OUT) :: name
451 Integer,
Intent(OUT) :: dimids(*)
452 Integer,
Intent(OUT) :: ndims, xtype, natts
461 Integer,
Intent(IN) :: ncid, varid
462 Integer,
Intent(OUT) :: dimids(*)
471 Integer,
Intent(IN) :: ncid
472 Integer,
Intent(OUT) :: varid
473 Character(LEN=*),
Intent(IN) :: name
482 Integer,
Intent(IN) :: ncid, varid
483 Character(LEN=*),
Intent(OUT) :: name
492 Integer,
Intent(IN) :: ncid, varid
493 Integer,
Intent(OUT) :: xtype
502 Integer,
Intent(IN) :: ncid, varid
503 Integer,
Intent(OUT) :: nvatts
512 Integer,
Intent(IN) :: ncid, varid
513 Character(LEN=*),
Intent(IN) :: name
522 Integer,
Intent(IN) :: ncid_in, varid, ncid_out
532 Function nf_inq_att(ncid, varid, name, xtype, nlen) RESULT(status)
534 Integer,
Intent(IN) :: ncid, varid
535 Integer,
Intent(OUT) :: nlen, xtype
536 Character(LEN=*),
Intent(IN) :: name
545 Integer,
Intent(IN) :: ncid, varid
546 Integer,
Intent(OUT) :: xtype
547 Character(LEN=*),
Intent(IN) :: name
556 Integer,
Intent(IN) :: ncid, varid
557 Integer,
Intent(OUT) :: nlen
558 Character(LEN=*),
Intent(IN) :: name
567 Integer,
Intent(IN) :: ncid, varid
568 Integer,
Intent(OUT) :: attnum
569 Character(LEN=*),
Intent(IN) :: name
578 Integer,
Intent(IN) :: ncid, varid, attnum
579 Character(LEN=*),
Intent(OUT) :: name
586 Function nf_copy_att(ncid_in, varid_in, name, ncid_out, varid_out) &
589 Integer,
Intent(IN) :: ncid_in, varid_in, ncid_out, varid_out
590 Character(LEN=*),
Intent(IN) :: name
599 Integer,
Intent(IN) :: ncid, varid
600 Character(LEN=*),
Intent(IN) :: name, newname
609 Integer,
Intent(IN) :: ncid, varid
610 Character(LEN=*),
Intent(IN) :: name
622 Integer,
Intent(IN) :: ncid, varid
623 Integer,
Intent(IN) :: ndex(*)
624 Character(LEN=1),
Intent(IN) :: chval
635 Integer,
Intent(IN) :: ncid, varid
636 Integer,
Intent(IN) :: ndex(*)
637 Integer(NFINT1),
Intent(IN) :: ival
648 Integer,
Intent(IN) :: ncid, varid
649 Integer,
Intent(IN) :: ndex(*)
650 Integer(NFINT2),
Intent(IN) :: ival
660 Integer,
Intent(IN) :: ncid, varid
661 Integer,
Intent(IN) :: ndex(*)
662 Integer(NFINT),
Intent(IN) :: ival
673 Integer,
Intent(IN) :: ncid, varid
674 Integer,
Intent(IN) :: ndex(*)
675 Real(NFREAL),
Intent(IN) :: rval
686 Integer,
Intent(IN) :: ncid, varid
687 Integer,
Intent(IN) :: ndex(*)
688 Real(RK8),
Intent(IN) :: dval
697 Integer,
Intent(IN) :: ncid, varid
698 Integer,
Intent(IN) :: ndex(*)
699 Character(LEN=1),
Intent(OUT) :: chval
710 Integer,
Intent(IN) :: ncid, varid
711 Integer,
Intent(IN) :: ndex(*)
712 Integer(NFINT1),
Intent(OUT) :: ival
723 Integer,
Intent(IN) :: ncid, varid
724 Integer,
Intent(IN) :: ndex(*)
725 Integer(NFINT2),
Intent(OUT) :: ival
735 Integer,
Intent(IN) :: ncid, varid
736 Integer,
Intent(IN) :: ndex(*)
737 Integer(NFINT),
Intent(OUT) :: ival
748 Integer,
Intent(IN) :: ncid, varid
749 Integer,
Intent(IN) :: ndex(*)
750 Real(NFREAL),
Intent(OUT) :: rval
761 Integer,
Intent(IN) :: ncid, varid
762 Integer,
Intent(IN) :: ndex(*)
763 Real(RK8),
Intent(OUT) :: rval
775 Integer,
Intent(IN) :: ncid, varid
776 Character(LEN=*),
Intent(IN) :: text
783 Integer,
Intent(IN) :: ncid, varid
784 Character(LEN=1),
Intent(IN) :: text(*)
795 Integer,
Intent(IN) :: ncid, varid
796 Integer(NFINT1),
Intent(IN) :: i1vals(*)
807 Integer,
Intent(IN) :: ncid, varid
808 Integer(NFINT2),
Intent(IN) :: i2vals(*)
819 Integer,
Intent(IN) :: ncid, varid
820 Integer(NFINT),
Intent(IN) :: ivals(*)
831 Integer,
Intent(IN) :: ncid, varid
832 Real(NFREAL),
Intent(IN) :: rvals(*)
843 Integer,
Intent(IN) :: ncid, varid
844 Real(RK8),
Intent(IN) :: dvals(*)
853 Integer,
Intent(IN) :: ncid, varid
854 Character(LEN=*),
Intent(OUT) :: text
861 Integer,
Intent(IN) :: ncid, varid
862 Character(LEN=1),
Intent(OUT) :: text(*)
873 Integer,
Intent(IN) :: ncid, varid
874 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
885 Integer,
Intent(IN) :: ncid, varid
886 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
897 Integer,
Intent(IN) :: ncid, varid
898 Integer(NFINT),
Intent(OUT) :: ivals(*)
909 Integer,
Intent(IN) :: ncid, varid
910 Real(NFREAL),
Intent(OUT) :: rvals(*)
921 Integer,
Intent(IN) :: ncid, varid
922 Real(RK8),
Intent(OUT) :: dvals(*)
935 Integer,
Intent(IN) :: ncid, varid
936 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
937 Character(LEN=*),
Intent(IN) :: text
945 Integer,
Intent(IN) :: ncid, varid
946 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
947 Character(LEN=1),
Intent(IN) :: text(*)
959 Integer,
Intent(IN) :: ncid, varid
960 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
961 Integer(NFINT1),
Intent(IN) :: i1vals(*)
973 Integer,
Intent(IN) :: ncid, varid
974 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
975 Integer(NFINT2),
Intent(IN) :: i2vals(*)
987 Integer,
Intent(IN) :: ncid, varid
988 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
989 Integer(NFINT),
Intent(IN) :: ivals(*)
1001 Integer,
Intent(IN) :: ncid, varid
1002 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1003 Real(NFREAL),
Intent(IN) :: rvals(*)
1015 Integer,
Intent(IN) :: ncid, varid
1016 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1017 Real(RK8),
Intent(IN) :: dvals(*)
1027 Integer,
Intent(IN) :: ncid, varid
1028 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1029 Character(LEN=*),
Intent(OUT) :: text
1037 Integer,
Intent(IN) :: ncid, varid
1038 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1039 Character(LEN=1),
Intent(OUT) :: text(*)
1051 Integer,
Intent(IN) :: ncid, varid
1052 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1053 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1065 Integer,
Intent(IN) :: ncid, varid
1066 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1067 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1079 Integer,
Intent(IN) :: ncid, varid
1080 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1081 Integer(NFINT),
Intent(OUT) :: ivals(*)
1093 Integer,
Intent(IN) :: ncid, varid
1094 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1095 Real(NFREAL),
Intent(OUT) :: rvals(*)
1107 Integer,
Intent(IN) :: ncid, varid
1108 Integer,
Intent(IN) :: start(*), counts(*), strides(*)
1109 Real(RK8),
Intent(OUT) :: dvals(*)
1120 text) result(status)
1124 Integer,
Intent(IN) :: ncid, varid
1125 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1126 Character(LEN=*),
Intent(IN) :: text
1132 text) result(status)
1134 Integer,
Intent(IN) :: ncid, varid
1135 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1136 Character(LEN=1),
Intent(IN) :: text(*)
1144 i1vals) result(status)
1148 Integer,
Intent(IN) :: ncid, varid
1149 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1150 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1158 i2vals) result(status)
1162 Integer,
Intent(IN) :: ncid, varid
1163 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1164 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1172 ivals) result(status)
1176 Integer,
Intent(IN) :: ncid, varid
1177 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1178 Integer(NFINT),
Intent(IN) :: ivals(*)
1187 rvals) result(status)
1191 Integer,
Intent(IN) :: ncid, varid
1192 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1193 Real(NFREAL),
Intent(IN) :: rvals(*)
1201 dvals) result(status)
1205 Integer,
Intent(IN) :: ncid, varid
1206 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1207 Real(RK8),
Intent(IN) :: dvals(*)
1215 text) result(status)
1217 Integer,
Intent(IN) :: ncid, varid
1218 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1219 Character(LEN=*),
Intent(OUT) :: text
1225 text) result(status)
1227 Integer,
Intent(IN) :: ncid, varid
1228 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1229 Character(LEN=1),
Intent(OUT) :: text(*)
1237 i1vals) result(status)
1241 Integer,
Intent(IN) :: ncid, varid
1242 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1243 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1251 i2vals) result(status)
1255 Integer,
Intent(IN) :: ncid, varid
1256 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1257 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1265 ivals) result(status)
1269 Integer,
Intent(IN) :: ncid, varid
1270 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1271 Integer(NFINT),
Intent(OUT) :: ivals(*)
1279 rvals) result(status)
1283 Integer,
Intent(IN) :: ncid, varid
1284 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1285 Real(NFREAL),
Intent(OUT) :: rvals(*)
1293 dvals) result(status)
1297 Integer,
Intent(IN) :: ncid, varid
1298 Integer,
Intent(IN) :: start(*), counts(*), strides(*), maps(*)
1299 Real(RK8),
Intent(OUT) :: dvals(*)
1311 Integer,
Intent(IN) :: ncid, varid
1312 Integer,
Intent(IN) :: start(*), counts(*)
1313 Character(LEN=*),
Intent(IN) :: text
1320 Integer,
Intent(IN) :: ncid, varid
1321 Integer,
Intent(IN) :: start(*), counts(*)
1322 Character(LEN=1),
Intent(IN) :: text(*)
1333 Integer,
Intent(IN) :: ncid, varid
1334 Integer,
Intent(IN) :: start(*), counts(*)
1335 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1346 Integer,
Intent(IN) :: ncid, varid
1347 Integer,
Intent(IN) :: start(*), counts(*)
1348 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1359 Integer,
Intent(IN) :: ncid, varid
1360 Integer,
Intent(IN) :: start(*), counts(*)
1361 Integer(NFINT),
Intent(IN) :: ivals(*)
1372 Integer,
Intent(IN) :: ncid, varid
1373 Integer,
Intent(IN) :: start(*), counts(*)
1374 Real(NFREAL),
Intent(IN) :: rvals(*)
1386 Integer,
Intent(IN) :: ncid, varid
1387 Integer,
Intent(IN) :: start(*), counts(*)
1388 Real(RK8),
Intent(IN) :: dvals(*)
1397 Integer,
Intent(IN) :: ncid, varid
1398 Integer,
Intent(IN) :: start(*), counts(*)
1399 Character(LEN=*),
Intent(OUT) :: text
1406 Integer,
Intent(IN) :: ncid, varid
1407 Integer,
Intent(IN) :: start(*), counts(*)
1408 Character(LEN=1),
Intent(OUT) :: text(*)
1419 Integer,
Intent(IN) :: ncid, varid
1420 Integer,
Intent(IN) :: start(*), counts(*)
1421 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1432 Integer,
Intent(IN) :: ncid, varid
1433 Integer,
Intent(IN) :: start(*), counts(*)
1434 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1445 Integer,
Intent(IN) :: ncid, varid
1446 Integer,
Intent(IN) :: start(*), counts(*)
1447 Integer(NFINT),
Intent(OUT) :: ivals(*)
1458 Integer,
Intent(IN) :: ncid, varid
1459 Integer,
Intent(IN) :: start(*), counts(*)
1460 Real(NFREAL),
Intent(OUT) :: rvals(*)
1472 Integer,
Intent(IN) :: ncid, varid
1473 Integer,
Intent(IN) :: start(*), counts(*)
1474 Real(RK8),
Intent(OUT) :: dvals(*)
1481 Function nf_put_att_text(ncid, varid, name, nlen, text) RESULT(status)
1483 Integer,
Intent(IN) :: ncid, varid, nlen
1484 Character(LEN=*),
Intent(IN) :: name, text
1491 Integer,
Intent(IN) :: ncid, varid, nlen
1492 Character(LEN=*),
Intent(IN) :: name
1493 Character(LEN=1),
Intent(IN) :: text(*)
1505 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1506 Character(LEN=*),
Intent(IN) :: name
1507 Integer(NFINT1),
Intent(IN) :: i1vals(*)
1519 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1520 Character(LEN=*),
Intent(IN) :: name
1521 Integer(NFINT2),
Intent(IN) :: i2vals(*)
1533 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1534 Character(LEN=*),
Intent(IN) :: name
1535 Integer(NFINT),
Intent(IN) :: ivals(*)
1547 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1548 Character(LEN=*),
Intent(IN) :: name
1549 Real(NFREAL),
Intent(IN) :: rvals(*)
1561 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
1562 Character(LEN=*),
Intent(IN) :: name
1563 Real(RK8),
Intent(IN) :: dvals(*)
1572 Integer,
Intent(IN) :: ncid, varid
1573 Character(LEN=*),
Intent(IN) :: name
1574 Character(LEN=*),
Intent(OUT) :: text
1581 Integer,
Intent(IN) :: ncid, varid
1582 Character(LEN=*),
Intent(IN) :: name
1583 Character(LEN=1),
Intent(OUT) :: text(*)
1594 Integer,
Intent(IN) :: ncid, varid
1595 Character(LEN=*),
Intent(IN) :: name
1596 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
1607 Integer,
Intent(IN) :: ncid, varid
1608 Character(LEN=*),
Intent(IN) :: name
1609 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
1620 Integer,
Intent(IN) :: ncid, varid
1621 Character(LEN=*),
Intent(IN) :: name
1622 Integer(NFINT),
Intent(OUT) :: ivals(*)
1633 Integer,
Intent(IN) :: ncid, varid
1634 Character(LEN=*),
Intent(IN) :: name
1635 Real(NFREAL),
Intent(OUT) :: rvals(*)
1647 Integer,
Intent(IN) :: ncid, varid
1648 Character(LEN=*),
Intent(IN) :: name
1649 Real(RK8),
Intent(OUT) :: dvals(*)
integer, external nf_get_vars
integer function nf_get_varm_text_a(ncid, varid, start, counts, strides, maps, text)
integer function nf_put_varm_text_a(ncid, varid, start, counts, strides, maps, text)
integer function nf_get_vara_text_a(ncid, varid, start, counts, text)
integer, external nf_get_var1
integer function nf_get_var_text_a(ncid, varid, text)
integer, external nf_put_vara
integer, external nf_get_vara
integer function nf_put_vara_text_a(ncid, varid, start, counts, text)
integer function nf_get_att_text_a(ncid, varid, name, text)
function nf_put_vars_text_a(ncid, varid, start, counts, strides, text)
function nf_get_vars_text_a(ncid, varid, start, counts, strides, text)
integer, external nf_put_vars
integer function nf_put_var_text_a(ncid, varid, text)
integer function nf_put_att_text_a(ncid, varid, name, nlen, text)
integer, external nf_put_var1
integer function nf_open_mem(path, mode, size, memory, ncid)