NetCDF-Fortran  4.4.4
netcdf3_file.f90
Go to the documentation of this file.
1 ! This is part of the netCDF F90 API, or. Copyright 2006 UCAR. See COPYRIGHT file
2 ! for details.
3 
4 ! This file contains the netcdf-3 file open and create functions.
5 
6 ! $Id: netcdf4_constants.f90,v 1.14 2010/05/25 13:53:00 ed Exp $
7 ! -------
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
13  integer :: nf90_open
14 
15  if(present(chunksize)) then
16  nf90_open = nf__open(path, mode, chunksize, ncid)
17  else
18  nf90_open = nf_open(path, mode, ncid)
19  end if
20 end function nf90_open
21 ! -------
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
29 
30  integer :: fileSize, chunk
31 
32  if(.not. (present(initialsize) .or. present(chunksize)) ) then
33  nf90_create = nf_create(path, cmode, ncid)
34  else
35  ! Default values per man page
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)
40  ! Pass back the value actually used
41  if(present(chunksize )) chunksize = chunk
42  end if
43 end function nf90_create
function nf__create(path, cmode, initialsz, chunksizehintp, ncid)
Definition: nf_control.F90:81
integer function nf__open(path, mode, chunksizehintp, ncid)
Definition: nf_control.F90:199
integer function nf90_create(path, cmode, ncid, initialsize, chunksize)
integer function nf_open(path, mode, ncid)
Definition: nf_control.F90:163
integer function nf_create(path, cmode, ncid)
Definition: nf_control.F90:37
integer function nf90_open(path, mode, ncid, chunksize)
Definition: netcdf3_file.f90:9

Return to the Main Unidata NetCDF page.
Generated on Fri Aug 4 2017 17:20:58 for NetCDF-Fortran. NetCDF is a Unidata library.