module_netcdf_nf_interfaces.F90
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
! 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_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 strings 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
#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_nf_interfaces::nf_put_vars_text
Definition: module_netcdf_nf_interfaces.F90:913
netcdf_nf_interfaces::nf_get_var1_double
Definition: module_netcdf_nf_interfaces.F90:739
netcdf_nf_interfaces::nf_get_var_text
Definition: module_netcdf_nf_interfaces.F90:832
netcdf_nf_interfaces::nf_inq_attid
Definition: module_netcdf_nf_interfaces.F90:547
netcdf_nf_interfaces::nf_put_vara_int1
Definition: module_netcdf_nf_interfaces.F90:1311
netcdf_nf_interfaces::nf_get_varm_int2
Definition: module_netcdf_nf_interfaces.F90:1232
netcdf_nf_interfaces::nf_inq_format
Definition: module_netcdf_nf_interfaces.F90:393
netcdf_nf_interfaces::nf_delete_mp
Definition: module_netcdf_nf_interfaces.F90:245
netcdf_nf_interfaces::nf_put_var_int2
Definition: module_netcdf_nf_interfaces.F90:785
netcdf_nf_interfaces::nf_put_vars_int
Definition: module_netcdf_nf_interfaces.F90:964
netcdf_nf_interfaces::nf_inq
Definition: module_netcdf_nf_interfaces.F90:343
netcdf_nf_interfaces::nf__open_mp
Definition: module_netcdf_nf_interfaces.F90:138
netcdf_nf_interfaces::nf_put_vars_int1
Definition: module_netcdf_nf_interfaces.F90:936
netcdf_nf_interfaces::nf_put_att_int1
Definition: module_netcdf_nf_interfaces.F90:1482
netcdf_nf_interfaces::nf_get_var_double
Definition: module_netcdf_nf_interfaces.F90:899
netcdf_nf_interfaces::nf_put_var1_int2
Definition: module_netcdf_nf_interfaces.F90:626
netcdf_nf_interfaces::nf__open
Definition: module_netcdf_nf_interfaces.F90:127
netcdf_nf_interfaces::nf_get_vars_text
Definition: module_netcdf_nf_interfaces.F90:1005
netcdf_nf_interfaces::nf_inq_attlen
Definition: module_netcdf_nf_interfaces.F90:536
netcdf_nf_interfaces::nf_put_vara_text
Definition: module_netcdf_nf_interfaces.F90:1290
netcdf_nf_interfaces::nf_put_varm_int2
Definition: module_netcdf_nf_interfaces.F90:1139
netcdf_nf_interfaces::nf_put_var1_text
Definition: module_netcdf_nf_interfaces.F90:602
netcdf_nf_interfaces::nf_put_att_text
Definition: module_netcdf_nf_interfaces.F90:1462
netcdf_nf_interfaces::nf_inq_attname
Definition: module_netcdf_nf_interfaces.F90:558
netcdf_nf_interfaces::nf__create
Definition: module_netcdf_nf_interfaces.F90:92
netcdf_nf_interfaces::nf_rename_var
Definition: module_netcdf_nf_interfaces.F90:492
netcdf_nf_interfaces::nf_def_dim
Definition: module_netcdf_nf_interfaces.F90:277
netcdf_nf_interfaces::nf_get_var1_int1
Definition: module_netcdf_nf_interfaces.F90:688
netcdf_nf_interfaces::nf_get_vara_text
Definition: module_netcdf_nf_interfaces.F90:1376
netcdf_nf_interfaces::nf_get_var1_text
Definition: module_netcdf_nf_interfaces.F90:677
netcdf_nf_interfaces::nf_get_vars_real
Definition: module_netcdf_nf_interfaces.F90:1070
netcdf_nf_interfaces::nf_get_var_int
Definition: module_netcdf_nf_interfaces.F90:875
netcdf_nf_interfaces::nf_put_vars_real
Definition: module_netcdf_nf_interfaces.F90:978
netcdf_nf_interfaces::nf_get_varm_int1
Definition: module_netcdf_nf_interfaces.F90:1218
netcdf_nf_interfaces::nf_put_var_int1
Definition: module_netcdf_nf_interfaces.F90:773
netcdf_nf_interfaces::nf_inq_ndims
Definition: module_netcdf_nf_interfaces.F90:353
netcdf_nf_interfaces::nf_redef
Definition: module_netcdf_nf_interfaces.F90:180
netcdf_nf_interfaces::nf_put_var1_int
Definition: module_netcdf_nf_interfaces.F90:639
netcdf_nf_interfaces::nf_put_var1_int1
Definition: module_netcdf_nf_interfaces.F90:613
netcdf_nf_interfaces::nf_get_vars_double
Definition: module_netcdf_nf_interfaces.F90:1084
netcdf_nf_interfaces::nf_inq_dimname
Definition: module_netcdf_nf_interfaces.F90:320
netcdf_nf_interfaces::nf_get_varm_double
Definition: module_netcdf_nf_interfaces.F90:1274
netcdf_nf_interfaces::nf_inq_att
Definition: module_netcdf_nf_interfaces.F90:514
netcdf_nf_interfaces::nf_put_varm_int1
Definition: module_netcdf_nf_interfaces.F90:1125
netcdf_nf_interfaces::nf_get_vara_double
Definition: module_netcdf_nf_interfaces.F90:1449
netcdf_nf_interfaces::nf_inq_base_pe
Definition: module_netcdf_nf_interfaces.F90:264
netcdf_nf_interfaces::nf_get_vara_real
Definition: module_netcdf_nf_interfaces.F90:1436
netcdf_nf_interfaces::nf_set_fill
Definition: module_netcdf_nf_interfaces.F90:160
netcdf_nf_interfaces::nf_issyserr
Definition: module_netcdf_nf_interfaces.F90:70
netcdf_nf_interfaces::nf_put_vara_real
Definition: module_netcdf_nf_interfaces.F90:1350
netcdf_nf_interfaces::nf_put_var1_double
Definition: module_netcdf_nf_interfaces.F90:664
netcdf_nf_interfaces::nf_inq_libvers
Definition: module_netcdf_nf_interfaces.F90:52
netcdf_nf_interfaces::nf_inq_atttype
Definition: module_netcdf_nf_interfaces.F90:525
netcdf_nf_interfaces::nf_put_var_real
Definition: module_netcdf_nf_interfaces.F90:809
netcdf_nf_interfaces::nf_enddef
Definition: module_netcdf_nf_interfaces.F90:189
netcdf_nf_interfaces::nf_get_att_real
Definition: module_netcdf_nf_interfaces.F90:1611
netcdf_nf_interfaces::nf_create
Definition: module_netcdf_nf_interfaces.F90:81
netcdf_nf_interfaces::nf_inq_nvars
Definition: module_netcdf_nf_interfaces.F90:363
netcdf_nf_interfaces::nf_copy_var
Definition: module_netcdf_nf_interfaces.F90:502
netcdf_nf_interfaces::nf_inq_var
Definition: module_netcdf_nf_interfaces.F90:428
netcdf_nf_interfaces::nf_put_att_int
Definition: module_netcdf_nf_interfaces.F90:1510
netcdf_nf_interfaces::nf_abort
Definition: module_netcdf_nf_interfaces.F90:218
netcdf_nf_interfaces::nf_get_var_int2
Definition: module_netcdf_nf_interfaces.F90:863
netcdf_nf_interfaces::nf_get_att_int2
Definition: module_netcdf_nf_interfaces.F90:1585
netcdf_nf_interfaces::nf_sync
Definition: module_netcdf_nf_interfaces.F90:209
netcdf_nf_interfaces::nf_def_var
Definition: module_netcdf_nf_interfaces.F90:406
netcdf_nf_interfaces::nf_inq_dim
Definition: module_netcdf_nf_interfaces.F90:288
netcdf_nf_interfaces::nf_open
Definition: module_netcdf_nf_interfaces.F90:116
netcdf_nf_interfaces::nf_inq_path
Definition: module_netcdf_nf_interfaces.F90:149
netcdf_nf_interfaces::nf_inq_vardimid
Definition: module_netcdf_nf_interfaces.F90:441
netcdf_nf_interfaces::nf__create_mp
Definition: module_netcdf_nf_interfaces.F90:104
netcdf_nf_interfaces::nf_get_var1_real
Definition: module_netcdf_nf_interfaces.F90:726
netcdf_nf_interfaces::nf_put_var1_real
Definition: module_netcdf_nf_interfaces.F90:651
netcdf_nf_interfaces::nf_get_att_text
Definition: module_netcdf_nf_interfaces.F90:1551
netcdf_nf_interfaces::nf_get_vara_int
Definition: module_netcdf_nf_interfaces.F90:1423
netcdf_nf_interfaces::nf_get_varm_int
Definition: module_netcdf_nf_interfaces.F90:1246
netcdf_nf_interfaces::nf_put_vars_double
Definition: module_netcdf_nf_interfaces.F90:992
netcdf_nf_interfaces::nf_put_varm_double
Definition: module_netcdf_nf_interfaces.F90:1182
netcdf_nf_interfaces::nf_put_varm_text
Definition: module_netcdf_nf_interfaces.F90:1100
netcdf_nf_interfaces::nf_put_vara_double
Definition: module_netcdf_nf_interfaces.F90:1363
netcdf_nf_interfaces::nf_close
Definition: module_netcdf_nf_interfaces.F90:227
netcdf_nf_interfaces::nf_delete
Definition: module_netcdf_nf_interfaces.F90:236
netcdf_nf_interfaces::nf_get_vara_int2
Definition: module_netcdf_nf_interfaces.F90:1410
netcdf_nf_interfaces::nf_put_var_text
Definition: module_netcdf_nf_interfaces.F90:754
netcdf_nf_interfaces::nf_get_vars_int2
Definition: module_netcdf_nf_interfaces.F90:1042
netcdf_nf_interfaces::nf_put_att_real
Definition: module_netcdf_nf_interfaces.F90:1524
netcdf_nf_interfaces::nf_get_vars_int
Definition: module_netcdf_nf_interfaces.F90:1056
netcdf_nf_interfaces::nf_get_att_int
Definition: module_netcdf_nf_interfaces.F90:1598
netcdf_nf_interfaces::nf_inq_varid
Definition: module_netcdf_nf_interfaces.F90:451
netcdf_nf_interfaces::nf_copy_att
Definition: module_netcdf_nf_interfaces.F90:568
netcdf_nf_interfaces::nf_get_var_int1
Definition: module_netcdf_nf_interfaces.F90:851
netcdf_nf_interfaces::nf_get_att_int1
Definition: module_netcdf_nf_interfaces.F90:1572
netcdf_nf_interfaces::nf_inq_varname
Definition: module_netcdf_nf_interfaces.F90:462
netcdf_nf_interfaces::nf_put_att_double
Definition: module_netcdf_nf_interfaces.F90:1538
netcdf_nf_interfaces::nf_rename_dim
Definition: module_netcdf_nf_interfaces.F90:330
netcdf_nf_interfaces::nf_get_varm_text
Definition: module_netcdf_nf_interfaces.F90:1195
netcdf_nf_interfaces::nf_rename_att
Definition: module_netcdf_nf_interfaces.F90:579
netcdf_nf_interfaces::nf_set_default_format
Definition: module_netcdf_nf_interfaces.F90:170
netcdf_nf_interfaces::nf_del_att
Definition: module_netcdf_nf_interfaces.F90:589
netcdf_nf_interfaces::nf_inq_unlimdim
Definition: module_netcdf_nf_interfaces.F90:383
netcdf_nf_interfaces::nf_put_vara_int2
Definition: module_netcdf_nf_interfaces.F90:1324
netcdf_nf_interfaces::nf_put_var_double
Definition: module_netcdf_nf_interfaces.F90:821
netcdf_nf_interfaces::nf_inq_dimlen
Definition: module_netcdf_nf_interfaces.F90:310
netcdf_nf_interfaces::nf_put_vars_int2
Definition: module_netcdf_nf_interfaces.F90:950
netcdf_nf_interfaces::nf_put_var_int
Definition: module_netcdf_nf_interfaces.F90:797
netcdf_nf_interfaces::nf_put_att_int2
Definition: module_netcdf_nf_interfaces.F90:1496
netcdf_nf_interfaces::nf_inq_varndims
Definition: module_netcdf_nf_interfaces.F90:418
netcdf_nf_interfaces::nf_inq_natts
Definition: module_netcdf_nf_interfaces.F90:373
netcdf_nf_interfaces::nf_inq_dimid
Definition: module_netcdf_nf_interfaces.F90:299
netcdf_nf_interfaces::nf_set_base_pe
Definition: module_netcdf_nf_interfaces.F90:255
netcdf_nf_interfaces::nf__enddef
Definition: module_netcdf_nf_interfaces.F90:198
netcdf_nf_interfaces::nf_strerror
Definition: module_netcdf_nf_interfaces.F90:60
netcdf_nf_interfaces::nf_put_vara_int
Definition: module_netcdf_nf_interfaces.F90:1337
netcdf_nf_interfaces::nf_get_att_double
Definition: module_netcdf_nf_interfaces.F90:1624
netcdf_nf_interfaces::nf_get_vara_int1
Definition: module_netcdf_nf_interfaces.F90:1397
netcdf_nf_interfaces::nf_inq_vartype
Definition: module_netcdf_nf_interfaces.F90:472
netcdf_nf_interfaces::nf_get_varm_real
Definition: module_netcdf_nf_interfaces.F90:1260
netcdf_nf_interfaces::nf_put_varm_int
Definition: module_netcdf_nf_interfaces.F90:1153
netcdf_nf_interfaces::nf_put_varm_real
Definition: module_netcdf_nf_interfaces.F90:1168
netcdf_nf_interfaces::nf_get_vars_int1
Definition: module_netcdf_nf_interfaces.F90:1028
netcdf_nf_interfaces::nf_inq_varnatts
Definition: module_netcdf_nf_interfaces.F90:482
netcdf_nf_interfaces::nf_get_var_real
Definition: module_netcdf_nf_interfaces.F90:887
netcdf_nf_interfaces::nf_get_var1_int2
Definition: module_netcdf_nf_interfaces.F90:701
netcdf_nf_interfaces::nf_get_var1_int
Definition: module_netcdf_nf_interfaces.F90:714

Return to the Main Unidata NetCDF page.