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
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
30 integer :: filesize, chunk
32 if(.not. (present(initialsize) .or. present(chunksize)) )
then
36 filesize = 0; chunk = nf90_sizehint_default
37 if(present(initialsize)) filesize = initialsize
38 if(present(chunksize )) chunk = chunksize
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)