8 function nf90_open(path, mode, ncid, chunksize, cache_size, cache_nelems, &
9 cache_preemption, comm, info)
11 character (len = *),
intent(in) :: path
12 integer,
intent(in) :: mode
13 integer,
intent(out) :: ncid
14 integer,
optional,
intent(inout) :: chunksize
15 integer,
optional,
intent(in) :: cache_size, cache_nelems
16 real,
optional,
intent(in) :: cache_preemption
17 integer,
optional,
intent(in) :: comm, info
18 integer :: size_in, nelems_in, preemption_in
19 integer :: size_out, nelems_out, preemption_out, ret
23 if (present(comm) .and. .not. present(info))
then
31 if (present(cache_size) .or. present(cache_nelems) .or. &
32 present(cache_preemption))
then
34 if (ret .ne. nf90_noerr)
then
38 if (present(cache_size))
then
43 if (present(cache_nelems))
then
44 nelems_out = cache_nelems
46 nelems_out = nelems_in
48 if (present(cache_preemption))
then
49 preemption_out = cache_preemption
51 preemption_out = preemption_in
58 if(present(chunksize))
then
61 if (present(comm))
then
70 if (present(cache_size) .or. present(cache_nelems) .or. &
71 present(cache_preemption))
then
77 function nf90_create(path, cmode, ncid, initialsize, chunksize, cache_size, &
78 cache_nelems, cache_preemption, comm, info)
80 character (len = *),
intent(in) :: path
81 integer,
intent(in) :: cmode
82 integer,
intent(out) :: ncid
83 integer,
optional,
intent(in) :: initialsize
84 integer,
optional,
intent(inout) :: chunksize
85 integer,
optional,
intent(in) :: cache_size, cache_nelems
86 integer,
optional,
intent(in) :: cache_preemption
87 integer,
optional,
intent(in) :: comm, info
88 integer :: size_in, nelems_in, preemption_in
89 integer :: size_out, nelems_out, preemption_out, ret
91 integer :: filesize, chunk
99 if (present(comm) .and. .not. present(info))
then
107 if (present(cache_size) .or. present(cache_nelems) .or. &
108 present(cache_preemption))
then
111 if (present(cache_size))
then
112 size_out = cache_size
116 if (present(cache_nelems))
then
117 nelems_out = cache_nelems
119 nelems_out = nelems_in
121 if (present(cache_preemption))
then
122 preemption_out = cache_preemption
124 preemption_out = preemption_in
131 if(.not. (present(initialsize) .or. present(chunksize)) )
then
132 if (present(comm))
then
139 filesize = 0; chunk = nf90_sizehint_default
140 if(present(initialsize)) filesize = initialsize
141 if(present(chunksize )) chunk = chunksize
144 if(present(chunksize )) chunksize = chunk
149 if (present(cache_size) .or. present(cache_nelems) .or. &
150 present(cache_preemption))
then
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_set_chunk_cache(chunk_size, nelems, preemption)
integer function nf_create(path, cmode, ncid)
integer function nf_create_par(path, cmode, comm, info, ncid)
integer function nf90_open(path, mode, ncid, chunksize)
integer function nf_get_chunk_cache(chunk_size, nelems, preemption)
integer function nf_open_par(path, mode, comm, info, ncid)