module_netcdf_nf_interfaces.F90
Go to the documentation of this file.
Module netcdf_nf_interfaces
! Explicit interfaces for Netcdf FORTRAN 2003 nf FORTRAN interface routines
! Generic interfaces are provided for routines that process text data to
! handle the case where you are using this interface module and are passing
! an array of single characters (ala C) instead of a character string.
! We choose not to provide explicit interfaces for the V2 routines and
! newer functions for netCDF4 that pass data of any type to/from void
! pointers in C using a C_CHAR string array. We do provide external
! statements for the V2 functions as done in netcdf2.inc
! Written by: Richard Weed, Ph.D.
! Center for Advanced Vehicular Systems
! Mississippi State University
! rweed@cavs.msstate.edu
! License (and other Lawyer Language)
! This software is released under the Apache 2.0 Open Source License. The
! full text of the License can be viewed at :
!
! http:www.apache.org/licenses/LICENSE-2.0.html
!
! The author grants to the University Corporation for Atmospheric Research
! (UCAR), Boulder, CO, USA the right to revise and extend the software
! without restriction. However, the author retains all copyrights and
! intellectual property rights explicitly stated in or implied by the
! Apache license
! Version 1. Sept. 2005 - Initial Cray X1 version
! Version 2. May, 2006 - Updated to support g95
! Version 3. April 2009 - Updated for netCDF 4.0.1
! Version 4. April 2010 - Updated for netCDF 4.1.1
! Version 5. Feb. 2013 - Added nf_inq_path support for fortran 4.4
! Version 6. Jan. 2016 - General code cleanup, added interface for
! nf_open_mem function
! Most legacy programs don't need to use this module. However, I've created
! it to support FORTRAN programmers who like to provide explicit interfaces
! for all subroutines and functions in their codes. Therefore, this module is
! is primarily for people writting new programs.
Implicit NONE
#include "nfconfig.inc"
!-------------------- Explicit Interfaces for nf routines ------------------
! Misc functions first
!-------------------------------- nf_inq_libvers -------------------------------
Interface
Function nf_inq_libvers() RESULT(vermsg)
Character(LEN=80) :: vermsg
End Function nf_inq_libvers
End Interface
!-------------------------------- nf_strerror ---------------------------------
Interface
Function nf_strerror(nerr) RESULT(errmsg)
Integer, Intent(IN) :: nerr
Character(LEN=80) :: errmsg
End Function nf_strerror
End Interface
!-------------------------------- nf_issyserr ---------------------------------
Interface
Function nf_issyserr(nerr) RESULT(status)
Integer, Intent(IN) :: nerr
Logical :: status
End Function nf_issyserr
End Interface
! Control routines
!-------------------------------- nf_create -----------------------------------
Interface
Function nf_create(path, cmode, ncid) RESULT (status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: cmode
Integer, Intent(OUT) :: ncid
Integer :: status
End Function nf_create
End Interface
!-------------------------------- nf__create ----------------------------------
Interface
Function nf__create(path, cmode, initialsz, chunksizehintp, ncid) &
result(status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: cmode, initialsz, chunksizehintp
Integer, Intent(OUT) :: ncid
Integer :: status
End Function nf__create
End Interface
!-------------------------------- nf__create_mp -------------------------------
Interface
Function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid) &
result(status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: cmode, initialsz, chunksizehintp, basepe
Integer, Intent(OUT) :: ncid
Integer :: status
End Function nf__create_mp
End Interface
!-------------------------------- nf_open -------------------------------------
Interface
Function nf_open(path, mode, ncid) RESULT (status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: mode
Integer, Intent(INOUT) :: ncid
Integer :: status
End Function nf_open
End Interface
!-------------------------------- nf__open ------------------------------------
Interface
Function nf__open(path, mode, chunksizehintp, ncid) RESULT (status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: mode, chunksizehintp
Integer, Intent(INOUT) :: ncid
Integer :: status
End Function nf__open
End Interface
!-------------------------------- nf__open_mp ---------------------------------
Interface
Function nf__open_mp(path, mode, basepe, chunksizehintp, ncid) RESULT (status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: mode, chunksizehintp, basepe
Integer, Intent(INOUT) :: ncid
Integer :: status
End Function nf__open_mp
End Interface
!-------------------------------- nf_open_mem ---------------------------------
Interface nf90_open_mem
Function nf_open_mem(path, mode, size, memory, ncid) RESULT (status)
USE iso_c_binding, ONLY : c_char
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: mode
Integer, Intent(IN) :: size
Character(KIND=C_CHAR), Intent(IN), TARGET :: memory(*)
Integer, Intent(INOUT) :: ncid
Integer :: status
End Function nf_open_mem
End Interface
!-------------------------------- nf_inq_path ---------------------------------
Interface
Function nf_inq_path(ncid, pathlen, path) RESULT (status)
Integer, Intent(IN) :: ncid
Integer, Intent(INOUT) :: pathlen
Character(LEN=*), Intent(INOUT) :: path
Integer :: status
End Function nf_inq_path
End Interface
!-------------------------------- nf_set_fill ---------------------------------
Interface
Function nf_set_fill(ncid, fillmode, old_mode) RESULT(status)
Integer, Intent(IN) :: ncid, fillmode
Integer, Intent(OUT) :: old_mode
Integer :: status
End Function nf_set_fill
End Interface
!-------------------------------- nf_set_default_format -----------------------
Interface
Function nf_set_default_format(newform, old_format) RESULT(status)
Integer, Intent(IN) :: newform
Integer, Intent(OUT) :: old_format
Integer :: status
End Function nf_set_default_format
End Interface
!-------------------------------- nf_redef -----------------------------------
Interface
Function nf_redef(ncid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer :: status
End Function nf_redef
End Interface
!-------------------------------- nf_enddef -----------------------------------
Interface
Function nf_enddef(ncid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer :: status
End Function nf_enddef
End Interface
!-------------------------------- nf__enddef ---------------------------------
Interface
Function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align) &
result(status)
Integer, Intent(IN) :: ncid, h_minfree, v_align, v_minfree, r_align
Integer :: status
End Function nf__enddef
End Interface
!-------------------------------- nf_sync -------------------------------------
Interface
Function nf_sync(ncid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer :: status
End Function nf_sync
End Interface
!-------------------------------- nf_abort -----------------------------------
Interface
Function nf_abort(ncid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer :: status
End Function nf_abort
End Interface
!-------------------------------- nf_close -------------------------------------
Interface
Function nf_close(ncid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer :: status
End Function nf_close
End Interface
!-------------------------------- nf_delete -----------------------------------
Interface
Function nf_delete(path) RESULT(status)
Character(LEN=*), Intent(IN) :: path
Integer :: status
End Function nf_delete
End Interface
!-------------------------------- nf_delete_mp ---------------------------------
Interface
Function nf_delete_mp(path, pe) RESULT(status)
Character(LEN=*), Intent(IN) :: path
Integer, Intent(IN) :: pe
Integer :: status
End Function nf_delete_mp
End Interface
!-------------------------------- nf_set_base_pe ------------------------------
Interface
Function nf_set_base_pe(ncid, pe) RESULT(status)
Integer, Intent(IN) :: ncid, pe
Integer :: status
End Function nf_set_base_pe
End Interface
!-------------------------------- nf_inq_base_pe ------------------------------
Interface
Function nf_inq_base_pe(ncid, pe) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: pe
Integer :: status
End Function nf_inq_base_pe
End Interface
! Dimension definition and inquiry functions
!-------------------------------- nf_def_dim ----------------------------------
Interface
Function nf_def_dim(ncid, name, dlen, dimid) RESULT (status)
Integer, Intent(IN) :: ncid, dlen
Integer, Intent(OUT) :: dimid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_def_dim
End Interface
!-------------------------------- nf_inq_dim ----------------------------------
Interface
Function nf_inq_dim(ncid, dimid, name, dlen) RESULT (status)
Integer, Intent(IN) :: ncid, dimid
Integer, Intent(OUT) :: dlen
Character(LEN=*), Intent(OUT) :: name
Integer :: status
End Function nf_inq_dim
End Interface
!-------------------------------- nf_inq_dimid --------------------------------
Interface
Function nf_inq_dimid(ncid, name, dimid) RESULT (status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: dimid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_dimid
End Interface
!-------------------------------- nf_inq_dimlen -------------------------------
Interface
Function nf_inq_dimlen(ncid, dimid, dlen) RESULT (status)
Integer, Intent(IN) :: ncid, dimid
Integer, Intent(OUT) :: dlen
Integer :: status
End Function nf_inq_dimlen
End Interface
!-------------------------------- nf_inq_dimname ------------------------------
Interface
Function nf_inq_dimname (ncid, dimid, name) RESULT (status)
Integer, Intent(IN) :: ncid, dimid
Character(LEN=*), Intent(OUT) :: name
Integer :: status
End Function nf_inq_dimname
End Interface
!-------------------------------- nf_rename_dim --------------------------------
Interface
Function nf_rename_dim(ncid, dimid, name) RESULT (status)
Integer, Intent(IN) :: ncid, dimid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_rename_dim
End Interface
! General inquiry functions
!-------------------------------- nf_inq --------------------------------------
Interface
Function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: ndims, nvars, ngatts, unlimdimid
Integer :: status
End Function nf_inq
End Interface
!-------------------------------- nf_inq_ndims --------------------------------
Interface
Function nf_inq_ndims(ncid, ndims) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: ndims
Integer :: status
End Function nf_inq_ndims
End Interface
!-------------------------------- nf_inq_nvars --------------------------------
Interface
Function nf_inq_nvars(ncid, nvars) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: nvars
Integer :: status
End Function nf_inq_nvars
End Interface
!-------------------------------- nf_inq_natts --------------------------------
Interface
Function nf_inq_natts(ncid, ngatts) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: ngatts
Integer :: status
End Function nf_inq_natts
End Interface
!-------------------------------- nf_inq_unlimdim -----------------------------
Interface
Function nf_inq_unlimdim(ncid, unlimdimid) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: unlimdimid
Integer :: status
End Function nf_inq_unlimdim
End Interface
!-------------------------------- nf_inq_format -------------------------------
Interface
Function nf_inq_format(ncid, format_type) RESULT(status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: format_type
Integer :: status
End Function nf_inq_format
End Interface
! General variable functions
!-------------------------------- nf_def_var -----------------------------------
Interface
Function nf_def_var(ncid, name, xtype, nvdims, vdims, varid) RESULT (status)
Integer, Intent(IN) :: ncid, xtype, nvdims
Integer, Intent(IN) :: vdims(*)
Integer, Intent(OUT) :: varid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_def_var
End Interface
!-------------------------------- nf_inq_varndims -----------------------------
Interface
Function nf_inq_varndims(ncid, varid, vndims) RESULT (status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: vndims
Integer :: status
End Function nf_inq_varndims
End Interface
!-------------------------------- nf_inq_var ----------------------------------
Interface
Function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts) &
result(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(OUT) :: name
Integer, Intent(OUT) :: dimids(*)
Integer, Intent(OUT) :: ndims, xtype, natts
Integer :: status
End Function nf_inq_var
End Interface
!-------------------------------- nf_inq_vardimid -----------------------------
Interface
Function nf_inq_vardimid(ncid, varid, dimids) RESULT (status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: dimids(*)
Integer :: status
End Function nf_inq_vardimid
End Interface
!-------------------------------- nf_inq_varid --------------------------------
Interface
Function nf_inq_varid(ncid, name, varid) RESULT (status)
Integer, Intent(IN) :: ncid
Integer, Intent(OUT) :: varid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_varid
End Interface
!-------------------------------- nf_inq_varname ------------------------------
Interface
Function nf_inq_varname (ncid, varid, name) RESULT (status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(OUT) :: name
Integer :: status
End Function nf_inq_varname
End Interface
!-------------------------------- nf_inq_vartype ------------------------------
Interface
Function nf_inq_vartype(ncid, varid, xtype) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: xtype
Integer :: status
End Function nf_inq_vartype
End Interface
!-------------------------------- nf_inq_varnatts -----------------------------
Interface
Function nf_inq_varnatts(ncid, varid, nvatts) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: nvatts
Integer :: status
End Function nf_inq_varnatts
End Interface
!-------------------------------- nf_rename_var -------------------------------
Interface
Function nf_rename_var(ncid, varid, name) RESULT (status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_rename_var
End Interface
!-------------------------------- nf_copy_var ---------------------------------
Interface
Function nf_copy_var(ncid_in, varid, ncid_out) RESULT(status)
Integer, Intent(IN) :: ncid_in, varid, ncid_out
Integer :: status
End Function nf_copy_var
End Interface
! General attribute functions
!-------------------------------- nf_inq_att ----------------------------------
Interface
Function nf_inq_att(ncid, varid, name, xtype, nlen) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: nlen, xtype
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_att
End Interface
!-------------------------------- nf_inq_atttype ---------------------------
Interface
Function nf_inq_atttype(ncid, varid, name, xtype) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: xtype
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_atttype
End Interface
!-------------------------------- nf_inq_attlen -------------------------------
Interface
Function nf_inq_attlen(ncid, varid, name, nlen) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: nlen
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_attlen
End Interface
!-------------------------------- nf_inq_attid --------------------------------
Interface
Function nf_inq_attid(ncid, varid, name, attnum) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: attnum
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_inq_attid
End Interface
!-------------------------------- nf_inq_attname ------------------------------
Interface
Function nf_inq_attname(ncid, varid, attnum, name) RESULT(status)
Integer, Intent(IN) :: ncid, varid, attnum
Character(LEN=*), Intent(OUT) :: name
Integer :: status
End Function nf_inq_attname
End Interface
!-------------------------------- nf_copy_att ---------------------------------
Interface
Function nf_copy_att(ncid_in, varid_in, name, ncid_out, varid_out) &
result(status)
Integer, Intent(IN) :: ncid_in, varid_in, ncid_out, varid_out
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_copy_att
End Interface
!-------------------------------- nf_rename_att -------------------------------
Interface
Function nf_rename_att(ncid, varid, name, newname) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name, newname
Integer :: status
End Function nf_rename_att
End Interface
!-------------------------------- nf_del_att ----------------------------------
Interface
Function nf_del_att(ncid, varid, name) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Integer :: status
End Function nf_del_att
End Interface
! var1 put and get functions
!--------------------------------- nf_put_var1_text ---------------------------
Interface
Function nf_put_var1_text(ncid, varid, ndex, chval) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Character(LEN=1), Intent(IN) :: chval
Integer :: status
End Function nf_put_var1_text
End Interface
!--------------------------------- nf_put_var1_int1 ------------------------
Interface
Function nf_put_var1_int1(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT1), Intent(IN) :: ival
Integer :: status
End Function nf_put_var1_int1
End Interface
!--------------------------------- nf_put_var1_int2 ------------------------
Interface
Function nf_put_var1_int2(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT2), Intent(IN) :: ival
Integer :: status
End Function nf_put_var1_int2
End Interface
!--------------------------------- nf_put_var1_int -------------------------
Interface
Function nf_put_var1_int(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT), Intent(IN) :: ival
Integer :: status
End Function nf_put_var1_int
End Interface
!--------------------------------- nf_put_var1_real ------------------------
Interface
Function nf_put_var1_real(ncid, varid, ndex, rval) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Real(NFREAL), Intent(IN) :: rval
Integer :: status
End Function nf_put_var1_real
End Interface
!--------------------------------- nf_put_var1_double ----------------------
Interface
Function nf_put_var1_double(ncid, varid, ndex, dval) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Real(RK8), Intent(IN) :: dval
Integer :: status
End Function nf_put_var1_double
End Interface
!--------------------------------- nf_get_var1_text ------------------------
Interface
Function nf_get_var1_text(ncid, varid, ndex, chval) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Character(LEN=1), Intent(OUT) :: chval
Integer :: status
End Function nf_get_var1_text
End Interface
!--------------------------------- nf_get_var1_int1 ------------------------
Interface
Function nf_get_var1_int1(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT1), Intent(OUT) :: ival
Integer :: status
End Function nf_get_var1_int1
End Interface
!--------------------------------- nf_get_var1_int2 ------------------------
Interface
Function nf_get_var1_int2(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT2), Intent(OUT) :: ival
Integer :: status
End Function nf_get_var1_int2
End Interface
!--------------------------------- nf_get_var1_int -------------------------
Interface
Function nf_get_var1_int(ncid, varid, ndex, ival) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Integer(NFINT), Intent(OUT) :: ival
Integer :: status
End Function nf_get_var1_int
End Interface
!--------------------------------- nf_get_var1_real ------------------------
Interface
Function nf_get_var1_real(ncid, varid, ndex, rval) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Real(NFREAL), Intent(OUT) :: rval
Integer :: status
End Function nf_get_var1_real
End Interface
!--------------------------------- nf_get_var1_double ----------------------
Interface
Function nf_get_var1_double(ncid, varid, ndex, rval) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: ndex(*)
Real(RK8), Intent(OUT) :: rval
Integer :: status
End Function nf_get_var1_double
End Interface
! var put and get functions
!--------------------------------- nf_put_var_text -------------------------
Interface nf_put_var_text
Function nf_put_var_text(ncid, varid, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: text
Integer :: status
End Function nf_put_var_text
! Array of characters
Function nf_put_var_text_a(ncid, varid, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=1), Intent(IN) :: text(*)
Integer :: status
End Function nf_put_var_text_a
End Interface
!--------------------------------- nf_put_var_int1 -------------------------
Interface
Function nf_put_var_int1(ncid, varid, i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer(NFINT1), Intent(IN) :: i1vals(*)
Integer :: status
End Function nf_put_var_int1
End Interface
!--------------------------------- nf_put_var_int2 -------------------------
Interface
Function nf_put_var_int2(ncid, varid, i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer(NFINT2), Intent(IN) :: i2vals(*)
Integer :: status
End Function nf_put_var_int2
End Interface
!--------------------------------- nf_put_var_int --------------------------
Interface
Function nf_put_var_int(ncid, varid, ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer(NFINT), Intent(IN) :: ivals(*)
Integer :: status
End Function nf_put_var_int
End Interface
!--------------------------------- nf_put_var_real -------------------------
Interface
Function nf_put_var_real(ncid, varid, rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Real(NFREAL), Intent(IN) :: rvals(*)
Integer :: status
End Function nf_put_var_real
End Interface
!--------------------------------- nf_put_var_double -----------------------
Interface
Function nf_put_var_double(ncid, varid, dvals) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Real(RK8), Intent(IN) :: dvals(*)
Integer :: status
End Function nf_put_var_double
End Interface
!--------------------------------- nf_get_var_text ------------------------
Interface nf_get_var_text
Function nf_get_var_text(ncid, varid, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(OUT) :: text
Integer :: status
End Function nf_get_var_text
! array of characters
Function nf_get_var_text_a(ncid, varid, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=1), Intent(OUT) :: text(*)
Integer :: status
End Function nf_get_var_text_a
End Interface
!--------------------------------- nf_get_var_int1 -------------------------
Interface
Function nf_get_var_int1(ncid, varid, i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer(NFINT1), Intent(OUT) :: i1vals(*)
Integer :: status
End Function nf_get_var_int1
End Interface
!--------------------------------- nf_get_var_int2 -------------------------
Interface
Function nf_get_var_int2(ncid, varid, i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer(NFINT2), Intent(OUT) :: i2vals(*)
Integer :: status
End Function nf_get_var_int2
End Interface
!--------------------------------- nf_get_var_int --------------------------
Interface
Function nf_get_var_int(ncid, varid, ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer(NFINT), Intent(OUT) :: ivals(*)
Integer :: status
End Function nf_get_var_int
End Interface
!--------------------------------- nf_get_var_real -------------------------
Interface
Function nf_get_var_real(ncid, varid, rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Real(NFREAL), Intent(OUT) :: rvals(*)
Integer :: status
End Function nf_get_var_real
End Interface
!--------------------------------- nf_get_var_double -----------------------
Interface
Function nf_get_var_double(ncid, varid, dvals) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Real(RK8), Intent(OUT) :: dvals(*)
Integer :: status
End Function nf_get_var_double
End Interface
! vars put and get functions
!--------------------------------- nf_put_vars_text ------------------------
Interface nf_put_vars_text
Function nf_put_vars_text(ncid, varid, start, counts, strides, text) &
result(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Character(LEN=*), Intent(IN) :: text
Integer :: status
End Function nf_put_vars_text
! array of characters
Function nf_put_vars_text_a(ncid, varid, start, counts, strides, text) &
result(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Character(LEN=1), Intent(IN) :: text(*)
Integer :: status
End Function nf_put_vars_text_a
End Interface
!--------------------------------- nf_put_vars_int1 ------------------------
Interface
Function nf_put_vars_int1(ncid, varid, start, counts, strides, i1vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT1), Intent(IN) :: i1vals(*)
Integer :: status
End Function nf_put_vars_int1
End Interface
!--------------------------------- nf_put_vars_int2 ------------------------
Interface
Function nf_put_vars_int2(ncid, varid, start, counts, strides, i2vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT2), Intent(IN) :: i2vals(*)
Integer :: status
End Function nf_put_vars_int2
End Interface
!--------------------------------- nf_put_vars_int -------------------------
Interface
Function nf_put_vars_int(ncid, varid, start, counts, strides, ivals) &
result(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT), Intent(IN) :: ivals(*)
Integer :: status
End Function nf_put_vars_int
End Interface
!--------------------------------- nf_put_vars_real ------------------------
Interface
Function nf_put_vars_real(ncid, varid, start, counts, strides, rvals) &
result(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Real(NFREAL), Intent(IN) :: rvals(*)
Integer :: status
End Function nf_put_vars_real
End Interface
!--------------------------------- nf_put_vars_double ----------------------
Interface
Function nf_put_vars_double(ncid, varid, start, counts, strides, dvals) &
result(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Real(RK8), Intent(IN) :: dvals(*)
Integer :: status
End Function nf_put_vars_double
End Interface
!--------------------------------- nf_get_vars_text ------------------------
Interface nf_get_vars_text
Function nf_get_vars_text(ncid, varid, start, counts, strides, text) &
result(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Character(LEN=*), Intent(OUT) :: text
Integer :: status
End Function nf_get_vars_text
! array of characters
Function nf_get_vars_text_a(ncid, varid, start, counts, strides, text) &
result(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Character(LEN=1), Intent(OUT) :: text(*)
Integer :: status
End Function nf_get_vars_text_a
End Interface
!--------------------------------- nf_get_vars_int1 ------------------------
Interface
Function nf_get_vars_int1(ncid, varid, start, counts, strides, i1vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT1), Intent(OUT) :: i1vals(*)
Integer :: status
End Function nf_get_vars_int1
End Interface
!--------------------------------- nf_get_vars_int2 ------------------------
Interface
Function nf_get_vars_int2(ncid, varid, start, counts, strides, i2vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT2), Intent(OUT) :: i2vals(*)
Integer :: status
End Function nf_get_vars_int2
End Interface
!--------------------------------- nf_get_vars_int -------------------------
Interface
Function nf_get_vars_int(ncid, varid, start, counts, strides, ivals) &
result(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Integer(NFINT), Intent(OUT) :: ivals(*)
Integer :: status
End Function nf_get_vars_int
End Interface
!--------------------------------- nf_get_vars_real ------------------------
Interface
Function nf_get_vars_real(ncid, varid, start, counts, strides, rvals) &
result(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Real(NFREAL), Intent(OUT) :: rvals(*)
Integer :: status
End Function nf_get_vars_real
End Interface
!--------------------------------- nf_get_vars_double ----------------------
Interface
Function nf_get_vars_double(ncid, varid, start, counts, strides, dvals) &
result(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*)
Real(RK8), Intent(OUT) :: dvals(*)
Integer :: status
End Function nf_get_vars_double
End Interface
! varm put and get functions
!--------------------------------- nf_put_varm_text ------------------------
Interface nf_put_varm_text
Function nf_put_varm_text(ncid, varid, start, counts, strides, maps, &
text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Character(LEN=*), Intent(IN) :: text
Integer :: status
End Function nf_put_varm_text
! array of characters
Function nf_put_varm_text_a(ncid, varid, start, counts, strides, maps, &
text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Character(LEN=1), Intent(IN) :: text(*)
Integer :: status
End Function nf_put_varm_text_a
End Interface
!--------------------------------- nf_put_varm_int1 ------------------------
Interface
Function nf_put_varm_int1(ncid, varid, start, counts, strides, maps, &
i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT1), Intent(IN) :: i1vals(*)
Integer :: status
End Function nf_put_varm_int1
End Interface
!--------------------------------- nf_put_varm_int2 ------------------------
Interface
Function nf_put_varm_int2(ncid, varid, start, counts, strides, maps, &
i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT2), Intent(IN) :: i2vals(*)
Integer :: status
End Function nf_put_varm_int2
End Interface
!--------------------------------- nf_put_varm_int -------------------------
Interface
Function nf_put_varm_int(ncid, varid, start, counts, strides, maps, &
ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT), Intent(IN) :: ivals(*)
Integer :: status
End Function nf_put_varm_int
End Interface
!--------------------------------- nf_put_varm_real ------------------------
Interface
Function nf_put_varm_real(ncid, varid, start, counts, strides, maps, &
rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Real(NFREAL), Intent(IN) :: rvals(*)
Integer :: status
End Function nf_put_varm_real
End Interface
!--------------------------------- nf_put_varm_double ----------------------
Interface
Function nf_put_varm_double(ncid, varid, start, counts, strides, maps, &
dvals) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Real(RK8), Intent(IN) :: dvals(*)
Integer :: status
End Function nf_put_varm_double
End Interface
!--------------------------------- nf_get_varm_text ------------------------
Interface nf_get_varm_text
Function nf_get_varm_text(ncid, varid, start, counts, strides, maps, &
text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Character(LEN=*), Intent(OUT) :: text
Integer :: status
End Function nf_get_varm_text
! array of characters
Function nf_get_varm_text_a(ncid, varid, start, counts, strides, maps, &
text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Character(LEN=1), Intent(OUT) :: text(*)
Integer :: status
End Function nf_get_varm_text_a
End Interface
!--------------------------------- nf_get_varm_int1 ------------------------
Interface
Function nf_get_varm_int1(ncid, varid, start, counts, strides, maps, &
i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT1), Intent(OUT) :: i1vals(*)
Integer :: status
End Function nf_get_varm_int1
End Interface
!--------------------------------- nf_get_varm_int2 ------------------------
Interface
Function nf_get_varm_int2(ncid, varid, start, counts, strides, maps, &
i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT2), Intent(OUT) :: i2vals(*)
Integer :: status
End Function nf_get_varm_int2
End Interface
!--------------------------------- nf_get_varm_int -------------------------
Interface
Function nf_get_varm_int(ncid, varid, start, counts, strides, maps, &
ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Integer(NFINT), Intent(OUT) :: ivals(*)
Integer :: status
End Function nf_get_varm_int
End Interface
!--------------------------------- nf_get_varm_real ------------------------
Interface
Function nf_get_varm_real(ncid, varid, start, counts, strides, maps, &
rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Real(NFREAL), Intent(OUT) :: rvals(*)
Integer :: status
End Function nf_get_varm_real
End Interface
!--------------------------------- nf_get_varm_double ----------------------
Interface
Function nf_get_varm_double(ncid, varid, start, counts, strides, maps, &
dvals) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*), strides(*), maps(*)
Real(RK8), Intent(OUT) :: dvals(*)
Integer :: status
End Function nf_get_varm_double
End Interface
! vara put and get routines
!--------------------------------- nf_put_vara_text ------------------------
Interface nf_put_vara_text
Function nf_put_vara_text(ncid, varid, start, counts, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Character(LEN=*), Intent(IN) :: text
Integer :: status
End Function nf_put_vara_text
! array of characters
Function nf_put_vara_text_a(ncid, varid, start, counts, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Character(LEN=1), Intent(IN) :: text(*)
Integer :: status
End Function nf_put_vara_text_a
End Interface
!--------------------------------- nf_put_vara_int1 ------------------------
Interface
Function nf_put_vara_int1(ncid, varid, start, counts, i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT1), Intent(IN) :: i1vals(*)
Integer :: status
End Function nf_put_vara_int1
End Interface
!--------------------------------- nf_put_vara_int2 ------------------------
Interface
Function nf_put_vara_int2(ncid, varid, start, counts, i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT2), Intent(IN) :: i2vals(*)
Integer :: status
End Function nf_put_vara_int2
End Interface
!--------------------------------- nf_put_vara_int -------------------------
Interface
Function nf_put_vara_int(ncid, varid, start, counts, ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT), Intent(IN) :: ivals(*)
Integer :: status
End Function nf_put_vara_int
End Interface
!--------------------------------- nf_put_vara_real ------------------------
Interface
Function nf_put_vara_real(ncid, varid, start, counts, rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Real(NFREAL), Intent(IN) :: rvals(*)
Integer :: status
End Function nf_put_vara_real
End Interface
!--------------------------------- nf_put_vara_double ----------------------
Interface
Function nf_put_vara_double(ncid, varid, start, counts, dvals) &
result(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Real(RK8), Intent(IN) :: dvals(*)
Integer :: status
End Function nf_put_vara_double
End Interface
!--------------------------------- nf_get_vara_text ------------------------
Interface nf_get_vara_text
Function nf_get_vara_text(ncid, varid, start, counts, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Character(LEN=*), Intent(OUT) :: text
Integer :: status
End Function nf_get_vara_text
! array of characters
Function nf_get_vara_text_a(ncid, varid, start, counts, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Character(LEN=1), Intent(OUT) :: text(*)
Integer :: status
End Function nf_get_vara_text_a
End Interface
!--------------------------------- nf_get_vara_int1 ------------------------
Interface
Function nf_get_vara_int1(ncid, varid, start, counts, i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT1), Intent(OUT) :: i1vals(*)
Integer :: status
End Function nf_get_vara_int1
End Interface
!--------------------------------- nf_get_vara_int2 ------------------------
Interface
Function nf_get_vara_int2(ncid, varid, start, counts, i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT2), Intent(OUT) :: i2vals(*)
Integer :: status
End Function nf_get_vara_int2
End Interface
!--------------------------------- nf_get_vara_int -------------------------
Interface
Function nf_get_vara_int(ncid, varid, start, counts, ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Integer(NFINT), Intent(OUT) :: ivals(*)
Integer :: status
End Function nf_get_vara_int
End Interface
!--------------------------------- nf_get_vara_real ------------------------
Interface
Function nf_get_vara_real(ncid, varid, start, counts, rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Real(NFREAL), Intent(OUT) :: rvals(*)
Integer :: status
End Function nf_get_vara_real
End Interface
!--------------------------------- nf_get_vara_double ----------------------
Interface
Function nf_get_vara_double(ncid, varid, start, counts, dvals) &
result(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Integer, Intent(IN) :: start(*), counts(*)
Real(RK8), Intent(OUT) :: dvals(*)
Integer :: status
End Function nf_get_vara_double
End Interface
!--------------------------------- nf_put_att_text -------------------------
Interface nf_put_att_text
Function nf_put_att_text(ncid, varid, name, nlen, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid, nlen
Character(LEN=*), Intent(IN) :: name, text
Integer :: status
End Function nf_put_att_text
! array of characters
Function nf_put_att_text_a(ncid, varid, name, nlen, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid, nlen
Character(LEN=*), Intent(IN) :: name
Character(LEN=1), Intent(IN) :: text(*)
Integer :: status
End Function nf_put_att_text_a
End Interface
!--------------------------------- nf_put_att_int1 -------------------------
Interface
Function nf_put_att_int1(ncid, varid, name, xtype, nlen, i1vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid, nlen, xtype
Character(LEN=*), Intent(IN) :: name
Integer(NFINT1), Intent(IN) :: i1vals(*)
Integer :: status
End Function nf_put_att_int1
End Interface
!--------------------------------- nf_put_att_int2 -------------------------
Interface
Function nf_put_att_int2(ncid, varid, name, xtype, nlen, i2vals) &
result(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid, nlen, xtype
Character(LEN=*), Intent(IN) :: name
Integer(NFINT2), Intent(IN) :: i2vals(*)
Integer :: status
End Function nf_put_att_int2
End Interface
!--------------------------------- nf_put_att_int --------------------------
Interface
Function nf_put_att_int(ncid, varid, name, xtype, nlen, ivals) &
result(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid, nlen, xtype
Character(LEN=*), Intent(IN) :: name
Integer(NFINT), Intent(IN) :: ivals(*)
Integer :: status
End Function nf_put_att_int
End Interface
!--------------------------------- nf_put_att_real -------------------------
Interface
Function nf_put_att_real(ncid, varid, name, xtype, nlen, rvals) &
result(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid, nlen, xtype
Character(LEN=*), Intent(IN) :: name
Real(NFREAL), Intent(IN) :: rvals(*)
Integer :: status
End Function nf_put_att_real
End Interface
!--------------------------------- nf_put_att_double -----------------------
Interface
Function nf_put_att_double(ncid, varid, name, xtype, nlen, dvals) &
result(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid, nlen, xtype
Character(LEN=*), Intent(IN) :: name
Real(RK8), Intent(IN) :: dvals(*)
Integer :: status
End Function nf_put_att_double
End Interface
!--------------------------------- nf_get_att_text -------------------------
Interface nf_get_att_text
Function nf_get_att_text(ncid, varid, name, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Character(LEN=*), Intent(OUT) :: text
Integer :: status
End Function nf_get_att_text
! Array of characters
Function nf_get_att_text_a(ncid, varid, name, text) RESULT(status)
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Character(LEN=1), Intent(OUT) :: text(*)
Integer :: status
End Function nf_get_att_text_a
End Interface
!--------------------------------- nf_get_att_int1 -------------------------
Interface
Function nf_get_att_int1(ncid, varid, name, i1vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint1
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Integer(NFINT1), Intent(OUT) :: i1vals(*)
Integer :: status
End Function nf_get_att_int1
End Interface
!--------------------------------- nf_get_att_int2 -------------------------
Interface
Function nf_get_att_int2(ncid, varid, name, i2vals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint2
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Integer(NFINT2), Intent(OUT) :: i2vals(*)
Integer :: status
End Function nf_get_att_int2
End Interface
!--------------------------------- nf_get_att_int --------------------------
Interface
Function nf_get_att_int(ncid, varid, name, ivals) RESULT(status)
USE netcdf_nf_data, ONLY: nfint
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Integer(NFINT), Intent(OUT) :: ivals(*)
Integer :: status
End Function nf_get_att_int
End Interface
!--------------------------------- nf_get_att_real -------------------------
Interface
Function nf_get_att_real(ncid, varid, name, rvals) RESULT(status)
USE netcdf_nf_data, ONLY: nfreal
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Real(NFREAL), Intent(OUT) :: rvals(*)
Integer :: status
End Function nf_get_att_real
End Interface
!--------------------------------- nf_get_att_double -----------------------
Interface
Function nf_get_att_double(ncid, varid, name, dvals) RESULT(status)
USE netcdf_nf_data, ONLY: rk8
Integer, Intent(IN) :: ncid, varid
Character(LEN=*), Intent(IN) :: name
Real(RK8), Intent(OUT) :: dvals(*)
Integer :: status
End Function nf_get_att_double
End Interface
! Externals for functions that use C_CHAR arrays to pass data to void
! pointers
Integer, External :: nf_put_var1
Integer, External :: nf_get_var1
Integer, External :: nf_put_vars
Integer, External :: nf_get_vars
Integer, External :: nf_put_vara
Integer, External :: nf_get_vara
! Integer, External :: nf_open_mem
#ifndef NO_NETCDF_2
! External definitons for Netcdf2 functions
Integer, External :: nccre
Integer, External :: ncopn
Integer, External :: ncddef
Integer, External :: ncdid
Integer, External :: ncvdef
Integer, External :: ncvid
Integer, External :: nctlen
Integer, External :: ncsfil
#endif
!--------------------------- End Module netcdf_nf_interfaces - ----------------
End Module netcdf_nf_interfaces
netcdf_nc_data::nfint2
integer, parameter nfint2
Definition: module_netcdf_nc_data.F90:129
netcdf_nf_interfaces::nf_put_vars_text
Definition: module_netcdf_nf_interfaces.F90:931
netcdf_nc_data::nfint
integer, parameter nfint
Definition: module_netcdf_nc_data.F90:148
netcdf_nf_interfaces::nf_get_var1_double
Definition: module_netcdf_nf_interfaces.F90:757
netcdf_nf_interfaces::nf_get_var_text
Definition: module_netcdf_nf_interfaces.F90:850
netcdf_nf_interfaces::nf_get_vars
integer, external nf_get_vars
Definition: module_netcdf_nf_interfaces.F90:1661
netcdf_nf_interfaces::nf_inq_attid
Definition: module_netcdf_nf_interfaces.F90:565
netcdf_nf_interfaces::nf_put_vara_int1
Definition: module_netcdf_nf_interfaces.F90:1329
netcdf_nf_interfaces::nf_get_varm_int2
Definition: module_netcdf_nf_interfaces.F90:1250
netcdf_nf_interfaces::nf_inq_format
Definition: module_netcdf_nf_interfaces.F90:411
netcdf_nf_interfaces::nf_delete_mp
Definition: module_netcdf_nf_interfaces.F90:263
netcdf_nf_interfaces::nf_put_var_int2
Definition: module_netcdf_nf_interfaces.F90:803
netcdf_nf_interfaces::nf_put_vars_int
Definition: module_netcdf_nf_interfaces.F90:982
netcdf_nf_interfaces::nf_inq
Definition: module_netcdf_nf_interfaces.F90:361
netcdf_nf_interfaces::nf__open_mp
Definition: module_netcdf_nf_interfaces.F90:140
netcdf_nf_interfaces::nf_put_vars_int1
Definition: module_netcdf_nf_interfaces.F90:954
netcdf_nf_interfaces::nctlen
integer, external nctlen
Definition: module_netcdf_nf_interfaces.F90:1674
netcdf_nf_interfaces::nf_put_att_int1
Definition: module_netcdf_nf_interfaces.F90:1500
netcdf_nf_interfaces::nf_get_var_double
Definition: module_netcdf_nf_interfaces.F90:917
netcdf_nf_interfaces::nf_put_var1_int2
Definition: module_netcdf_nf_interfaces.F90:644
netcdf_nf_interfaces::nf__open
Definition: module_netcdf_nf_interfaces.F90:129
netcdf_nf_interfaces::nf_get_vars_text
Definition: module_netcdf_nf_interfaces.F90:1023
netcdf_nf_interfaces::nf_inq_attlen
Definition: module_netcdf_nf_interfaces.F90:554
nf_get_varm_text_a
integer function nf_get_varm_text_a(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:624
netcdf_nf_interfaces::ncddef
integer, external ncddef
Definition: module_netcdf_nf_interfaces.F90:1670
netcdf_nf_interfaces::nf_put_vara_text
Definition: module_netcdf_nf_interfaces.F90:1308
nf_put_varm_text_a
integer function nf_put_varm_text_a(ncid, varid, start, counts, strides, maps, text)
Definition: nf_varmio.F90:108
netcdf_nf_interfaces::nf_put_varm_int2
Definition: module_netcdf_nf_interfaces.F90:1157
netcdf_nf_interfaces::nf_put_var1_text
Definition: module_netcdf_nf_interfaces.F90:620
netcdf_nf_interfaces::nf_put_att_text
Definition: module_netcdf_nf_interfaces.F90:1480
netcdf_nf_interfaces::nf_inq_attname
Definition: module_netcdf_nf_interfaces.F90:576
netcdf_nf_interfaces::nf__create
Definition: module_netcdf_nf_interfaces.F90:94
netcdf_nf_interfaces::nf_rename_var
Definition: module_netcdf_nf_interfaces.F90:510
netcdf_nf_interfaces::nf_def_dim
Definition: module_netcdf_nf_interfaces.F90:295
netcdf_nf_interfaces::nf_get_var1_int1
Definition: module_netcdf_nf_interfaces.F90:706
netcdf_nf_interfaces::nf_get_vara_text
Definition: module_netcdf_nf_interfaces.F90:1394
netcdf_nf_interfaces::nf_get_var1_text
Definition: module_netcdf_nf_interfaces.F90:695
netcdf_nf_interfaces::nf_get_vars_real
Definition: module_netcdf_nf_interfaces.F90:1088
netcdf_nf_interfaces::nf_get_var_int
Definition: module_netcdf_nf_interfaces.F90:893
netcdf_nf_interfaces::nf_put_vars_real
Definition: module_netcdf_nf_interfaces.F90:996
netcdf_nf_data
Definition: module_netcdf_nf_data.F90:1
netcdf_nf_interfaces::nf_get_varm_int1
Definition: module_netcdf_nf_interfaces.F90:1236
netcdf_nf_interfaces::nf_put_var_int1
Definition: module_netcdf_nf_interfaces.F90:791
netcdf_nf_interfaces::nf_inq_ndims
Definition: module_netcdf_nf_interfaces.F90:371
nf_get_vara_text_a
integer function nf_get_vara_text_a(ncid, varid, start, counts, text)
Definition: nf_varaio.F90:552
netcdf_nf_interfaces::nf_redef
Definition: module_netcdf_nf_interfaces.F90:198
netcdf_nf_interfaces::nf_put_var1_int
Definition: module_netcdf_nf_interfaces.F90:657
netcdf_nf_interfaces::nf_put_var1_int1
Definition: module_netcdf_nf_interfaces.F90:631
netcdf_nf_interfaces::nf_get_var1
integer, external nf_get_var1
Definition: module_netcdf_nf_interfaces.F90:1659
netcdf_nf_interfaces::nf_get_vars_double
Definition: module_netcdf_nf_interfaces.F90:1102
netcdf_nf_interfaces::nf_inq_dimname
Definition: module_netcdf_nf_interfaces.F90:338
netcdf_nf_interfaces::nf_get_varm_double
Definition: module_netcdf_nf_interfaces.F90:1292
netcdf_nf_interfaces::nf_inq_att
Definition: module_netcdf_nf_interfaces.F90:532
netcdf_nf_interfaces::nf_put_varm_int1
Definition: module_netcdf_nf_interfaces.F90:1143
netcdf_nf_interfaces::nf_get_vara_double
Definition: module_netcdf_nf_interfaces.F90:1467
netcdf_nf_interfaces::nf_inq_base_pe
Definition: module_netcdf_nf_interfaces.F90:282
netcdf_nf_interfaces::nf_get_vara_real
Definition: module_netcdf_nf_interfaces.F90:1454
netcdf_nf_interfaces::nf_set_fill
Definition: module_netcdf_nf_interfaces.F90:178
netcdf_nf_interfaces::nf_issyserr
Definition: module_netcdf_nf_interfaces.F90:72
netcdf_nf_interfaces::nf_put_vara_real
Definition: module_netcdf_nf_interfaces.F90:1368
netcdf_nf_interfaces::nf_put_var1_double
Definition: module_netcdf_nf_interfaces.F90:682
netcdf_nf_interfaces::nf_inq_libvers
Definition: module_netcdf_nf_interfaces.F90:54
nf_get_var_text_a
integer function nf_get_var_text_a(ncid, varid, text)
Definition: nf_vario.F90:259
netcdf_nf_interfaces::ncvdef
integer, external ncvdef
Definition: module_netcdf_nf_interfaces.F90:1672
netcdf_nf_interfaces::nf_put_vara
integer, external nf_put_vara
Definition: module_netcdf_nf_interfaces.F90:1662
netcdf_nf_interfaces::nf_inq_atttype
Definition: module_netcdf_nf_interfaces.F90:543
netcdf_nf_interfaces::nf_put_var_real
Definition: module_netcdf_nf_interfaces.F90:827
netcdf_nf_interfaces::nf_enddef
Definition: module_netcdf_nf_interfaces.F90:207
netcdf_nf_interfaces::nf_get_vara
integer, external nf_get_vara
Definition: module_netcdf_nf_interfaces.F90:1663
netcdf_nf_interfaces::nf_get_att_real
Definition: module_netcdf_nf_interfaces.F90:1629
netcdf_nf_interfaces::nf_create
Definition: module_netcdf_nf_interfaces.F90:83
netcdf_nf_interfaces::nf_inq_nvars
Definition: module_netcdf_nf_interfaces.F90:381
nf_put_vara_text_a
integer function nf_put_vara_text_a(ncid, varid, start, counts, text)
Definition: nf_varaio.F90:90
netcdf_nf_interfaces::ncsfil
integer, external ncsfil
Definition: module_netcdf_nf_interfaces.F90:1675
netcdf_nf_interfaces::nf_copy_var
Definition: module_netcdf_nf_interfaces.F90:520
nf_get_att_text_a
integer function nf_get_att_text_a(ncid, varid, name, text)
Definition: nf_attio.F90:344
netcdf_nf_interfaces::nf_inq_var
Definition: module_netcdf_nf_interfaces.F90:446
netcdf_nf_interfaces::nf_put_att_int
Definition: module_netcdf_nf_interfaces.F90:1528
nf_put_vars_text_a
function nf_put_vars_text_a(ncid, varid, start, counts, strides, text)
Definition: nf_varsio.F90:98
nf_get_vars_text_a
function nf_get_vars_text_a(ncid, varid, start, counts, strides, text)
Definition: nf_varsio.F90:627
netcdf_nf_interfaces::nf_abort
Definition: module_netcdf_nf_interfaces.F90:236
netcdf_nf_interfaces::nf90_open_mem
Definition: module_netcdf_nf_interfaces.F90:150
netcdf_nf_interfaces::nf_get_var_int2
Definition: module_netcdf_nf_interfaces.F90:881
netcdf_nf_interfaces::nf_put_vars
integer, external nf_put_vars
Definition: module_netcdf_nf_interfaces.F90:1660
netcdf_nf_interfaces::nf_get_att_int2
Definition: module_netcdf_nf_interfaces.F90:1603
netcdf_nf_interfaces::nf_sync
Definition: module_netcdf_nf_interfaces.F90:227
netcdf_nf_interfaces::nf_def_var
Definition: module_netcdf_nf_interfaces.F90:424
netcdf_nf_interfaces::nf_inq_dim
Definition: module_netcdf_nf_interfaces.F90:306
netcdf_nf_interfaces::nf_open
Definition: module_netcdf_nf_interfaces.F90:118
netcdf_nf_interfaces::nf_inq_path
Definition: module_netcdf_nf_interfaces.F90:167
netcdf_nf_interfaces::nf_inq_vardimid
Definition: module_netcdf_nf_interfaces.F90:459
netcdf_nf_interfaces::nf__create_mp
Definition: module_netcdf_nf_interfaces.F90:106
netcdf_nf_interfaces::nf_get_var1_real
Definition: module_netcdf_nf_interfaces.F90:744
netcdf_nf_interfaces::nf_put_var1_real
Definition: module_netcdf_nf_interfaces.F90:669
netcdf_nf_interfaces::nf_get_att_text
Definition: module_netcdf_nf_interfaces.F90:1569
netcdf_nf_interfaces::nf_get_vara_int
Definition: module_netcdf_nf_interfaces.F90:1441
netcdf_nf_interfaces::nf_get_varm_int
Definition: module_netcdf_nf_interfaces.F90:1264
netcdf_nf_interfaces::nf_put_vars_double
Definition: module_netcdf_nf_interfaces.F90:1010
netcdf_nf_interfaces::nf_put_varm_double
Definition: module_netcdf_nf_interfaces.F90:1200
netcdf_nf_interfaces::nf_put_varm_text
Definition: module_netcdf_nf_interfaces.F90:1118
netcdf_nf_interfaces::nf_put_vara_double
Definition: module_netcdf_nf_interfaces.F90:1381
netcdf_nf_interfaces::nf_close
Definition: module_netcdf_nf_interfaces.F90:245
netcdf_nf_interfaces::nf_delete
Definition: module_netcdf_nf_interfaces.F90:254
netcdf_nf_interfaces::nf_get_vara_int2
Definition: module_netcdf_nf_interfaces.F90:1428
netcdf_nf_interfaces::nf_put_var_text
Definition: module_netcdf_nf_interfaces.F90:772
netcdf_nf_interfaces::nf_get_vars_int2
Definition: module_netcdf_nf_interfaces.F90:1060
netcdf_nf_interfaces::nf_put_att_real
Definition: module_netcdf_nf_interfaces.F90:1542
netcdf_nf_interfaces::nf_get_vars_int
Definition: module_netcdf_nf_interfaces.F90:1074
netcdf_nf_interfaces::nf_get_att_int
Definition: module_netcdf_nf_interfaces.F90:1616
netcdf_nf_interfaces::nf_inq_varid
Definition: module_netcdf_nf_interfaces.F90:469
netcdf_nf_interfaces::nf_copy_att
Definition: module_netcdf_nf_interfaces.F90:586
nf_put_var_text_a
integer function nf_put_var_text_a(ncid, varid, text)
Definition: nf_vario.F90:58
netcdf_nf_interfaces::nf_get_var_int1
Definition: module_netcdf_nf_interfaces.F90:869
netcdf_nf_interfaces::nf_get_att_int1
Definition: module_netcdf_nf_interfaces.F90:1590
netcdf_nf_interfaces::nf_inq_varname
Definition: module_netcdf_nf_interfaces.F90:480
netcdf_nf_interfaces::nf_put_att_double
Definition: module_netcdf_nf_interfaces.F90:1556
netcdf_nf_interfaces
Definition: module_netcdf_nf_interfaces.F90:1
netcdf_nf_interfaces::nf_rename_dim
Definition: module_netcdf_nf_interfaces.F90:348
netcdf_nf_interfaces::ncdid
integer, external ncdid
Definition: module_netcdf_nf_interfaces.F90:1671
netcdf_nf_interfaces::nf_get_varm_text
Definition: module_netcdf_nf_interfaces.F90:1213
netcdf_nf_interfaces::nf_rename_att
Definition: module_netcdf_nf_interfaces.F90:597
netcdf_nc_data::rk8
integer, parameter rk8
Definition: module_netcdf_nc_data.F90:74
netcdf_nf_interfaces::nf_set_default_format
Definition: module_netcdf_nf_interfaces.F90:188
netcdf_nc_data::nfint1
integer, parameter nfint1
Definition: module_netcdf_nc_data.F90:110
netcdf_nf_interfaces::nf_del_att
Definition: module_netcdf_nf_interfaces.F90:607
netcdf_nf_interfaces::nf_inq_unlimdim
Definition: module_netcdf_nf_interfaces.F90:401
netcdf_nf_interfaces::nf_put_vara_int2
Definition: module_netcdf_nf_interfaces.F90:1342
netcdf_nf_interfaces::nf_put_var_double
Definition: module_netcdf_nf_interfaces.F90:839
netcdf_nf_interfaces::nf_inq_dimlen
Definition: module_netcdf_nf_interfaces.F90:328
netcdf_nf_interfaces::nf_put_vars_int2
Definition: module_netcdf_nf_interfaces.F90:968
netcdf_nf_interfaces::nf_put_var_int
Definition: module_netcdf_nf_interfaces.F90:815
netcdf_nf_interfaces::nf_put_att_int2
Definition: module_netcdf_nf_interfaces.F90:1514
netcdf_nf_interfaces::nf_inq_varndims
Definition: module_netcdf_nf_interfaces.F90:436
netcdf_nf_interfaces::nf_inq_natts
Definition: module_netcdf_nf_interfaces.F90:391
netcdf_nc_data::nfreal
integer, parameter nfreal
Definition: module_netcdf_nc_data.F90:159
netcdf_nf_interfaces::nf_inq_dimid
Definition: module_netcdf_nf_interfaces.F90:317
netcdf_nf_interfaces::nf_set_base_pe
Definition: module_netcdf_nf_interfaces.F90:273
nf_put_att_text_a
integer function nf_put_att_text_a(ncid, varid, name, nlen, text)
Definition: nf_attio.F90:66
netcdf_nf_interfaces::nccre
integer, external nccre
Definition: module_netcdf_nf_interfaces.F90:1668
netcdf_nf_interfaces::nf__enddef
Definition: module_netcdf_nf_interfaces.F90:216
netcdf_nf_interfaces::nf_strerror
Definition: module_netcdf_nf_interfaces.F90:62
netcdf_nf_interfaces::nf_put_vara_int
Definition: module_netcdf_nf_interfaces.F90:1355
netcdf_nf_interfaces::nf_get_att_double
Definition: module_netcdf_nf_interfaces.F90:1642
netcdf_nf_interfaces::nf_get_vara_int1
Definition: module_netcdf_nf_interfaces.F90:1415
netcdf_nf_interfaces::nf_inq_vartype
Definition: module_netcdf_nf_interfaces.F90:490
netcdf_nf_interfaces::nf_get_varm_real
Definition: module_netcdf_nf_interfaces.F90:1278
netcdf_nf_interfaces::nf_put_varm_int
Definition: module_netcdf_nf_interfaces.F90:1171
netcdf_nf_interfaces::nf_put_varm_real
Definition: module_netcdf_nf_interfaces.F90:1186
netcdf_nf_interfaces::ncvid
integer, external ncvid
Definition: module_netcdf_nf_interfaces.F90:1673
netcdf_nf_interfaces::nf_get_vars_int1
Definition: module_netcdf_nf_interfaces.F90:1046
netcdf_nf_interfaces::nf_inq_varnatts
Definition: module_netcdf_nf_interfaces.F90:500
netcdf_nf_interfaces::ncopn
integer, external ncopn
Definition: module_netcdf_nf_interfaces.F90:1669
netcdf_nf_interfaces::nf_get_var_real
Definition: module_netcdf_nf_interfaces.F90:905
netcdf_nf_interfaces::nf_put_var1
integer, external nf_put_var1
Definition: module_netcdf_nf_interfaces.F90:1658
nf_open_mem
integer function nf_open_mem(path, mode, size, memory, ncid)
Definition: nf_control.F90:283
netcdf_nf_interfaces::nf_get_var1_int2
Definition: module_netcdf_nf_interfaces.F90:719
netcdf_nf_interfaces::nf_get_var1_int
Definition: module_netcdf_nf_interfaces.F90:732

Return to the Main Unidata NetCDF page.