Home
last modified time | relevance | path

Searched refs:recdim1 (Results 1 – 4 of 4) sorted by relevance

/dports/science/netcdf-fortran/netcdf-fortran-4.5.3/nf_test/
H A Dtest_read.F245 integer recdim1 !/* id of unlimited dimension */ local
259 err = nf_inq(BAD_ID, ndims1, nvars1, ngatts1, recdim1)
263 err = nf_inq(ncid, ndims1, nvars1, ngatts1, recdim1)
276 else if (recdim1 .ne. RECDIM) then
278 + recdim1)
292 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
304 else if (recdim1 .ne. recdim0) then
306 + recdim1)
323 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
341 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
H A Dtest03_read.F245 integer recdim1 !/* id of unlimited dimension */ local
259 err = nf_inq(BAD_ID, ndims1, nvars1, ngatts1, recdim1)
263 err = nf_inq(ncid, ndims1, nvars1, ngatts1, recdim1)
276 else if (recdim1 .ne. RECDIM) then
278 + recdim1)
292 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
304 else if (recdim1 .ne. recdim0) then
306 + recdim1)
323 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
341 err = nf_inq(ncid2, ndims1, nvars1, ngatts1, recdim1)
H A Dtest03_write.F22 integer recdim1 !/* id of unlimited dimension */ local
39 err = nf_inq(ncid, ndims1, nvars1, ngatts1, recdim1)
54 else if (recdim1 .ge. 1) then
57 + recdim1)
299 integer recdim1 local
352 err = nf_inq (ncid, ndims1, nvars1, ngatts1, recdim1)
H A Dtest_write.F22 integer recdim1 !/* id of unlimited dimension */ local
39 err = nf_inq(ncid, ndims1, nvars1, ngatts1, recdim1)
54 else if (recdim1 .ge. 1) then
57 + recdim1)
299 integer recdim1 local
352 err = nf_inq (ncid, ndims1, nvars1, ngatts1, recdim1)