36 Function nf_create(path, cmode, ncid) RESULT (status)
45 Character(LEN=*),
Intent(IN) :: path
46 Integer,
Intent(IN) :: cmode
47 Integer,
Intent(OUT) :: ncid
51 Integer(C_INT) :: ccmode, cncid, cstatus
52 Character(LEN=(LEN(path)+1)) :: cpath
64 cstatus =
nc_create(cpath(1:ie), ccmode, cncid)
66 If (cstatus == nc_noerr)
Then
73 Function nf__create(path, cmode, initialsz, chunksizehintp, ncid) &
84 Character(LEN=*),
Intent(IN) :: path
85 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp
86 Integer,
Intent(OUT) :: ncid
90 Integer(C_INT) :: ccmode, cncid, cstatus
91 Integer(C_SIZE_T) :: cinit, cchunk
92 Character(LEN=(LEN(path)+1)) :: cpath
96 cchunk = chunksizehintp
106 cstatus =
nc__create(cpath(1:ie), ccmode, cinit, cchunk, cncid)
108 If (cstatus == nc_noerr)
Then
115 Function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid) &
126 Character(LEN=*),
Intent(IN) :: path
127 Integer,
Intent(IN) :: cmode, initialsz, chunksizehintp, basepe
128 Integer,
Intent(OUT) :: ncid
132 Integer(C_INT) :: ccmode, cncid, cstatus
133 Integer(C_INT),
TARGET :: cbasepe
134 Integer(C_SIZE_T) :: cinit, cchunk
135 Type(c_ptr
) :: cbasepeptr
136 Character(LEN=(LEN(path)+1)) :: cpath
140 cchunk = chunksizehintp
144 cbasepeptr = c_loc(cbasepe)
152 cstatus =
nc__create_mp(cpath(1:ie), ccmode, cinit, cbasepeptr, &
155 If (cstatus == nc_noerr)
Then
162 Function nf_open(path, mode, ncid) RESULT (status)
170 Character(LEN=*),
Intent(IN) :: path
171 Integer,
Intent(IN) :: mode
172 Integer,
Intent(INOUT) :: ncid
176 Integer(C_INT) :: cmode, cncid, cstatus
177 Character(LEN=(LEN(path)+1)) :: cpath
189 cstatus =
nc_open(cpath(1:ie), cmode, cncid)
191 If (cstatus == nc_noerr)
Then
198 Function nf__open(path, mode, chunksizehintp, ncid) RESULT (status)
207 Character(LEN=*),
Intent(IN) :: path
208 Integer,
Intent(IN) :: mode, chunksizehintp
209 Integer,
Intent(INOUT) :: ncid
213 Integer(C_INT) :: cmode, cncid, cstatus
214 Integer(C_SIZE_T) :: cchunk
215 Character(LEN=(LEN(path)+1)) :: cpath
219 cchunk = chunksizehintp
228 cstatus =
nc__open(cpath(1:ie), cmode, cchunk, cncid)
230 If (cstatus == nc_noerr)
Then
237 Function nf__open_mp(path, mode, basepe, chunksizehintp, ncid) RESULT (status)
247 Character(LEN=*),
Intent(IN) :: path
248 Integer,
Intent(IN) :: mode, chunksizehintp, basepe
249 Integer,
Intent(INOUT) :: ncid
253 Integer(C_INT) :: cmode, cncid, cstatus
254 Integer(C_INT),
TARGET :: cbasepe
255 Integer(C_SIZE_T) :: cchunk
256 Type(c_ptr
) :: cbasepeptr
257 Character(LEN=(LEN(path)+1)) :: cpath
261 cchunk = chunksizehintp
264 cbasepeptr = c_loc(cbasepe)
272 cstatus =
nc__open_mp(cpath(1:ie), cmode, cbasepeptr, cchunk, &
275 If (cstatus == nc_noerr)
Then
282 Function nf_open_mem(path, mode, size, memory, ncid) RESULT(status)
291 Character(LEN=*),
Intent(IN) :: path
292 Integer,
Intent(IN) :: mode
293 Integer,
Intent(IN) :: size
294 Character(KIND=C_CHAR),
Intent(IN),
TARGET :: memory(*)
295 Integer,
Intent(INOUT) :: ncid
299 Integer(C_INT) :: cstatus, cmode, cncid
300 Character(LEN=LEN(path)+1) :: cpath
301 Integer(C_SIZE_T) :: csize
302 Type(c_ptr
) :: cmemoryptr
310 cmemoryptr = c_loc(memory)
312 cstatus =
nc_open_mem(cpath(1:ie), cmode, csize, cmemoryptr, cncid)
328 Integer,
Intent(IN) :: ncid
329 Integer,
Intent(INOUT) :: pathlen
330 Character(LEN=*),
Intent(INOUT) :: path
334 Integer(C_INT) :: cncid, cstatus
335 Integer(C_SIZE_T) :: cpathlen
336 Character(LEN=LEN(path)+1) :: tmppath
339 path = repeat(
" ", len(path))
340 tmppath = repeat(
" ", len(tmppath))
344 If (cstatus == nc_noerr)
Then
346 If (pathlen > len(path)) pathlen = len(path)
361 Integer,
Intent(IN) :: ncid, fillmode
362 Integer,
Intent(OUT) :: old_mode
366 Integer(C_INT) :: cncid, cfill, coldmode, cstatus
374 If (cstatus == nc_noerr)
Then
390 Integer,
Intent(IN) :: newform
391 Integer,
Intent(OUT) :: old_format
395 Integer(C_INT) :: cnew, cold, cstatus
401 If (cstatus == nc_noerr)
Then
416 Integer,
Intent(IN) :: ncid
420 Integer(C_INT) :: cncid, cstatus
438 Integer,
Intent(IN) :: ncid
442 Integer(C_INT) :: cncid, cstatus
452 Function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align) &
462 Integer,
Intent(IN) :: ncid, h_minfree, v_align, v_minfree, r_align
466 Integer(C_INT) :: cncid, cstatus
467 Integer(C_SIZE_T) :: chminfree, cvalign, cvminfree, cralign
470 chminfree = h_minfree
472 cvminfree = v_minfree
475 cstatus =
nc__enddef(cncid, chminfree, cvalign, cvminfree, cralign)
489 Integer,
Intent(IN) :: ncid
493 Integer(C_INT) :: cncid, cstatus
511 Integer,
Intent(IN) :: ncid
515 Integer(C_INT) :: cncid, cstatus
533 Integer,
Intent(IN) :: ncid
537 Integer(C_INT) :: cncid, cstatus
555 Character(LEN=*),
Intent(IN) :: path
559 Integer(C_INT) :: cstatus
560 Character(LEN=(LEN(path)+1)) :: cpath
582 Character(LEN=*),
Intent(IN) :: path
583 Integer,
Intent(IN) :: pe
587 Integer(C_INT) :: cstatus, cpe
588 Character(LEN=(LEN(path)+1)) :: cpath
611 Integer,
Intent(IN) :: ncid, pe
615 Integer(C_INT) :: cncid, cpe, cstatus
634 Integer,
Intent(IN) :: ncid
635 Integer,
Intent(OUT) :: pe
639 Integer(C_INT) :: cncid, cpe, cstatus
645 If (cstatus == nc_noerr)
Then
integer function nf_inq_base_pe(ncid, pe)
integer function nf_abort(ncid)
function nf__create(path, cmode, initialsz, chunksizehintp, ncid)
integer function nf__open(path, mode, chunksizehintp, ncid)
function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align)
module procedure interfaces for utility routines
integer function nf_close(ncid)
integer function nf_sync(ncid)
integer function nf_open(path, mode, ncid)
integer function nf_inq_path(ncid, pathlen, path)
integer function nf_create(path, cmode, ncid)
integer function nf_set_fill(ncid, fillmode, old_mode)
integer function nf_redef(ncid)
integer function nf__open_mp(path, mode, basepe, chunksizehintp, ncid)
integer function nf_set_default_format(newform, old_format)
integer function nf_enddef(ncid)
integer function nf_set_base_pe(ncid, pe)
integer function nf_delete_mp(path, pe)
function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid)
integer function nf_delete(path)
integer function nf_open_mem(path, mode, size, memory, ncid)