8 function nf90_open(path, mode, ncid, chunksize)
9 character (len = *),
intent(in ) :: path
10 integer,
intent(in ) :: mode
11 integer,
intent( out) :: ncid
12 integer,
optional,
intent(inout) :: chunksize
15 if(
present(chunksize))
then 16 nf90_open =
nf__open(path, mode, chunksize, ncid)
18 nf90_open =
nf_open(path, mode, ncid)
22 function nf90_create(path, cmode, ncid, initialsize, chunksize)
23 character (len = *),
intent(in ) :: path
24 integer,
intent(in ) :: cmode
25 integer,
intent( out) :: ncid
26 integer,
optional,
intent(in ) :: initialsize
27 integer,
optional,
intent(inout) :: chunksize
28 integer :: nf90_create
30 integer :: fileSize, chunk
32 if(.not. (
present(initialsize) .or.
present(chunksize)) )
then 33 nf90_create =
nf_create(path, cmode, ncid)
36 filesize = 0; chunk = nf90_sizehint_default
37 if(
present(initialsize)) filesize = initialsize
38 if(
present(chunksize )) chunk = chunksize
39 nf90_create =
nf__create(path, cmode, filesize, chunk, ncid)
41 if(
present(chunksize )) chunksize = chunk
function nf__create(path, cmode, initialsz, chunksizehintp, ncid)
integer function nf__open(path, mode, chunksizehintp, ncid)
integer function nf90_create(path, cmode, ncid, initialsize, chunksize)
integer function nf_open(path, mode, ncid)
integer function nf_create(path, cmode, ncid)
integer function nf90_open(path, mode, ncid, chunksize)