!
! miscellaneous routines:
!
      character*80   nfmpi_inq_libvers
      external       nfmpi_inq_libvers

      character*80   nfmpi_strerror
!                         (integer             ncerr)
      external       nfmpi_strerror

      logical        nfmpi_issyserr
!                         (integer             ncerr)
      external       nfmpi_issyserr

!
! control routines:
!
      integer         nfmpi_create
!                         (integer             mpi_comm,
!                          character*(*)       path,
!                          integer             cmode,
!                          integer             mpi_info,
!                          integer             ncid)
      external        nfmpi_create

      integer         nfmpi_open
!                         (integer             mpi_comm,
!                          character*(*)       path,
!                          integer             mode,
!                          integer             mpi_info,
!                          integer             ncid)
      external        nfmpi_open

      integer         nfmpi_inq_format
!                         (integer             ncid,
!                          integer             format)
      external        nfmpi_inq_format

      integer         nfmpi_inq_file_format
!                         (character*(*)       path,
!                          integer             format)
      external        nfmpi_inq_file_format

      integer         nfmpi_get_file_info
!                          (integer             ncid,
!                          integer             mpi_info)
      external        nfmpi_get_file_info

      integer         nfmpi_delete
!                          (character*(*)       path,
!                          integer             mpi_info)
      external        nfmpi_delete

      integer         nfmpi_enddef
!                         (integer             ncid)
      external        nfmpi_enddef

      integer         nfmpi_redef
!                         (integer             ncid)
      external        nfmpi_redef

      integer         nfmpi_set_default_format
!                          (integer            fillmode,
!                           integer            old_mode)
      external        nfmpi_set_default_format

      integer         nfmpi_sync
!                         (integer             ncid)
      external        nfmpi_sync

      integer         nfmpi_abort
!                         (integer             ncid)
      external        nfmpi_abort

      integer         nfmpi_close
!                         (integer             ncid)
      external        nfmpi_close

      integer         nfmpi_set_fill
!                         (integer             ncid,
!                          integer             fillmode,
!                          integer             old_mode)
      external        nfmpi_set_fill

!
! general inquiry routines:
!

      integer         nfmpi_inq
!                         (integer             ncid,
!                          integer             ndims,
!                          integer             nvars,
!                          integer             ngatts,
!                          integer             unlimdimid)
      external        nfmpi_inq

      integer         nfmpi_inq_ndims
!                         (integer             ncid,
!                          integer             ndims)
      external        nfmpi_inq_ndims

      integer         nfmpi_inq_nvars
!                         (integer             ncid,
!                          integer             nvars)
      external        nfmpi_inq_nvars

      integer         nfmpi_inq_natts
!                         (integer             ncid,
!                          integer             ngatts)
      external        nfmpi_inq_natts

      integer         nfmpi_inq_unlimdim
!                         (integer             ncid,
!                          integer             unlimdimid)
      external        nfmpi_inq_unlimdim

!
! dimension routines:
!

      integer         nfmpi_def_dim
!                         (integer             ncid,
!                          character(*)        name,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          integer             dimid)
      external        nfmpi_def_dim

      integer         nfmpi_inq_dimid
!                         (integer             ncid,
!                          character(*)        name,
!                          integer             dimid)
      external        nfmpi_inq_dimid

      integer         nfmpi_inq_dim
!                         (integer             ncid,
!                          integer             dimid,
!                          character(*)        name,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len)
      external        nfmpi_inq_dim

      integer         nfmpi_inq_dimname
!                         (integer             ncid,
!                          integer             dimid,
!                          character(*)        name)
      external        nfmpi_inq_dimname

      integer         nfmpi_inq_dimlen
!                         (integer             ncid,
!                          integer             dimid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len)
      external        nfmpi_inq_dimlen

      integer         nfmpi_rename_dim
!                         (integer             ncid,
!                          integer             dimid,
!                          character(*)        name)
      external        nfmpi_rename_dim

!
! general attribute routines:
!

      integer         nfmpi_inq_att
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len)
      external        nfmpi_inq_att

      integer         nfmpi_inq_attid
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             attnum)
      external        nfmpi_inq_attid

      integer         nfmpi_inq_atttype
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype)
      external        nfmpi_inq_atttype

      integer         nfmpi_inq_attlen
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len)
      external        nfmpi_inq_attlen

      integer         nfmpi_inq_attname
!                         (integer             ncid,
!                          integer             varid,
!                          integer             attnum,
!                          character(*)        name)
      external        nfmpi_inq_attname

      integer         nfmpi_copy_att
!                         (integer             ncid_in,
!                          integer             varid_in,
!                          character(*)        name,
!                          integer             ncid_out,
!                          integer             varid_out)
      external        nfmpi_copy_att

      integer         nfmpi_rename_att
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        curname,
!                          character(*)        newname)
      external        nfmpi_rename_att

      integer         nfmpi_del_att
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name)
      external        nfmpi_del_att

!
! attribute put/get routines:
!

      integer         nfmpi_put_att_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          character(*)        text)
      external        nfmpi_put_att_text

      integer         nfmpi_get_att_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          character(*)        text)
      external        nfmpi_get_att_text

      integer         nfmpi_put_att_int1
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_att_int1

      integer         nfmpi_get_att_int1
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_att_int1

      integer         nfmpi_put_att_int2
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_att_int2

      integer         nfmpi_get_att_int2
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_att_int2

      integer         nfmpi_put_att_int
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          integer             ivals(1))
      external        nfmpi_put_att_int

      integer         nfmpi_get_att_int
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             ivals(1))
      external        nfmpi_get_att_int

      integer         nfmpi_put_att_real
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          real                rvals(1))
      external        nfmpi_put_att_real

      integer         nfmpi_get_att_real
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          real                rvals(1))
      external        nfmpi_get_att_real

      integer         nfmpi_put_att_double
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             xtype,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             len,
!                          double              dvals(1))
      external        nfmpi_put_att_double

      integer         nfmpi_get_att_double
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          double              dvals(1))
      external        nfmpi_get_att_double

!
! independent data mode routines:
!
      integer        nfmpi_begin_indep_data
!                          (integer          ncid)
      external       nfmpi_begin_indep_data

      integer        nfmpi_end_indep_data
!                          (integer          ncid)
      external       nfmpi_end_indep_data
!
! general variable routines:
!

      integer         nfmpi_def_var
!                         (integer             ncid,
!                          character(*)        name,
!                          integer             datatype,
!                          integer             ndims,
!                          integer             dimids(1),
!                          integer             varid)
      external        nfmpi_def_var

      integer         nfmpi_inq_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name,
!                          integer             datatype,
!                          integer             ndims,
!                          integer             dimids(1),
!                          integer             natts)
      external        nfmpi_inq_var

      integer         nfmpi_inq_varid
!                         (integer             ncid,
!                          character(*)        name,
!                          integer             varid)
      external        nfmpi_inq_varid

      integer         nfmpi_inq_varname
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name)
      external        nfmpi_inq_varname

      integer         nfmpi_inq_vartype
!                         (integer             ncid,
!                          integer             varid,
!                          integer             xtype)
      external        nfmpi_inq_vartype

      integer         nfmpi_inq_varndims
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ndims)
      external        nfmpi_inq_varndims

      integer         nfmpi_inq_vardimid
!                         (integer             ncid,
!                          integer             varid,
!                          integer             dimids(1))
      external        nfmpi_inq_vardimid

      integer         nfmpi_inq_varnatts
!                         (integer             ncid,
!                          integer             varid,
!                          integer             natts)
      external        nfmpi_inq_varnatts

      integer         nfmpi_rename_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        name)
      external        nfmpi_rename_var

!
! entire variable put/get routines:
!

      integer         nfmpi_put_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_put_var

      integer         nfmpi_get_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_get_var

      integer         nfmpi_get_var_all
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_get_var_all

      integer         nfmpi_put_var_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_put_var_text

      integer         nfmpi_get_var_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_get_var_text

      integer         nfmpi_get_var_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text)
      external        nfmpi_get_var_text_all

      integer         nfmpi_put_var_int1
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_var_int1

      integer         nfmpi_get_var_int1
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_var_int1

      integer         nfmpi_get_var_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_var_int1_all

      integer         nfmpi_put_var_int2
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_var_int2

      integer         nfmpi_get_var_int2
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_var_int2

      integer         nfmpi_get_var_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_var_int2_all

      integer         nfmpi_put_var_int
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ivals(1))
      external        nfmpi_put_var_int

      integer         nfmpi_get_var_int
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ivals(1))
      external        nfmpi_get_var_int

      integer         nfmpi_get_var_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ivals(1))
      external        nfmpi_get_var_int_all

      integer         nfmpi_put_var_real
!                         (integer             ncid,
!                          integer             varid,
!                          real                rvals(1))
      external        nfmpi_put_var_real

      integer         nfmpi_get_var_real
!                         (integer             ncid,
!                          integer             varid,
!                          real                rvals(1))
      external        nfmpi_get_var_real

      integer         nfmpi_get_var_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          real                rvals(1))
      external        nfmpi_get_var_real_all

      integer         nfmpi_put_var_double
!                         (integer             ncid,
!                          integer             varid,
!                          doubleprecision     dvals(1))
      external        nfmpi_put_var_double

      integer         nfmpi_get_var_double
!                         (integer             ncid,
!                          integer             varid,
!                          doubleprecision     dvals(1))
      external        nfmpi_get_var_double

      integer         nfmpi_get_var_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          doubleprecision     dvals(1))
      external        nfmpi_get_var_double_all

!
! single variable put/get routines:
!

      integer         nfmpi_put_var1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text)
      external        nfmpi_put_var1

      integer         nfmpi_get_var1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text)
      external        nfmpi_get_var1

      integer         nfmpi_put_var1_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text)
      external        nfmpi_put_var1_text

      integer         nfmpi_get_var1_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text)
      external        nfmpi_get_var1_text

      integer         nfmpi_put_var1_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int1_t           i1val)
      external        nfmpi_put_var1_int1

      integer         nfmpi_get_var1_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int1_t           i1val)
      external        nfmpi_get_var1_int1

      integer         nfmpi_put_var1_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int2_t           i2val)
      external        nfmpi_put_var1_int2

      integer         nfmpi_get_var1_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int2_t           i2val)
      external        nfmpi_get_var1_int2

      integer         nfmpi_put_var1_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          integer             ival)
      external        nfmpi_put_var1_int

      integer         nfmpi_get_var1_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          integer             ival)
      external        nfmpi_get_var1_int

      integer         nfmpi_put_var1_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          real                rval)
      external        nfmpi_put_var1_real

      integer         nfmpi_get_var1_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          real                rval)
      external        nfmpi_get_var1_real

      integer         nfmpi_put_var1_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          doubleprecision     dval)
      external        nfmpi_put_var1_double

      integer         nfmpi_get_var1_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          doubleprecision     dval)
      external        nfmpi_get_var1_double

!
! variable array put/get routines:
!

      integer         nfmpi_put_vara
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_put_vara

      integer         nfmpi_put_vara_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_put_vara_all

      integer         nfmpi_get_vara
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_get_vara

      integer         nfmpi_get_vara_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_get_vara_all

      integer         nfmpi_put_vara_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_put_vara_text

      integer         nfmpi_put_vara_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_put_vara_text_all

      integer         nfmpi_get_vara_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_get_vara_text

      integer         nfmpi_get_vara_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text)
      external        nfmpi_get_vara_text_all

      integer         nfmpi_put_vara_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_vara_int1

      integer         nfmpi_put_vara_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_vara_int1_all

      integer         nfmpi_get_vara_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_vara_int1

      integer         nfmpi_get_vara_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_vara_int1_all

      integer         nfmpi_put_vara_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_vara_int2

      integer         nfmpi_put_vara_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_vara_int2_all

      integer         nfmpi_get_vara_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_vara_int2

      integer         nfmpi_get_vara_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_vara_int2_all

      integer         nfmpi_put_vara_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1))
      external        nfmpi_put_vara_int

      integer         nfmpi_put_vara_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1))
      external        nfmpi_put_vara_int_all

      integer         nfmpi_get_vara_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1))
      external        nfmpi_get_vara_int

      integer         nfmpi_get_vara_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1))
      external        nfmpi_get_vara_int_all

      integer         nfmpi_put_vara_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          real                rvals(1))
      external        nfmpi_put_vara_real

      integer         nfmpi_put_vara_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          real                rvals(1))
      external        nfmpi_put_vara_real_all

      integer         nfmpi_get_vara_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          real                rvals(1))
      external        nfmpi_get_vara_real

      integer         nfmpi_get_vara_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          real                rvals(1))
      external        nfmpi_get_vara_real_all

      integer         nfmpi_put_vara_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_vara_double

      integer         nfmpi_put_vara_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_vara_double_all

      integer         nfmpi_get_vara_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_vara_double

      integer         nfmpi_get_vara_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_vara_double_all

!
! strided variable put/get routines:
!

      integer         nfmpi_put_vars
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_put_vars

      integer         nfmpi_put_vars_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_put_vars_all

      integer         nfmpi_get_vars
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_get_vars

      integer         nfmpi_get_vars_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_get_vars_all

      integer         nfmpi_put_vars_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_put_vars_text

      integer         nfmpi_put_vars_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_put_vars_text_all

      integer         nfmpi_get_vars_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_get_vars_text

      integer         nfmpi_get_vars_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text)
      external        nfmpi_get_vars_text_all

      integer         nfmpi_put_vars_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_vars_int1

      integer         nfmpi_put_vars_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_vars_int1_all

      integer         nfmpi_get_vars_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_vars_int1

      integer         nfmpi_get_vars_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_vars_int1_all

      integer         nfmpi_put_vars_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_vars_int2

      integer         nfmpi_put_vars_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_vars_int2_all

      integer         nfmpi_get_vars_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_vars_int2

      integer         nfmpi_get_vars_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_vars_int2_all

      integer         nfmpi_put_vars_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1))
      external        nfmpi_put_vars_int

      integer         nfmpi_put_vars_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1))
      external        nfmpi_put_vars_int_all

      integer         nfmpi_get_vars_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1))
      external        nfmpi_get_vars_int

      integer         nfmpi_get_vars_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1))
      external        nfmpi_get_vars_int_all

      integer         nfmpi_put_vars_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1))
      external        nfmpi_put_vars_real

      integer         nfmpi_put_vars_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1))
      external        nfmpi_put_vars_real_all

      integer         nfmpi_get_vars_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1))
      external        nfmpi_get_vars_real

      integer         nfmpi_get_vars_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1))
      external        nfmpi_get_vars_real_all

      integer         nfmpi_put_vars_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_vars_double

      integer         nfmpi_put_vars_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_vars_double_all

      integer         nfmpi_get_vars_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_vars_double

      integer         nfmpi_get_vars_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_vars_double_all

!
! mapped variable put/get routines:
!

      integer         nfmpi_put_varm
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_put_varm

      integer         nfmpi_put_varm_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_put_varm_all

      integer         nfmpi_get_varm
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_get_varm

      integer         nfmpi_get_varm_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)            imap(1),
!                          character(*)        text)
      external        nfmpi_get_varm_all

      integer         nfmpi_put_varm_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_put_varm_text

      integer         nfmpi_put_varm_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_put_varm_text_all

      integer         nfmpi_get_varm_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_get_varm_text

      integer         nfmpi_get_varm_text_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text)
      external        nfmpi_get_varm_text_all

      integer         nfmpi_put_varm_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_varm_int1

      integer         nfmpi_put_varm_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_put_varm_int1_all

      integer         nfmpi_get_varm_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_varm_int1

      integer         nfmpi_get_varm_int1_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1))
      external        nfmpi_get_varm_int1_all

      integer         nfmpi_put_varm_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_varm_int2

      integer         nfmpi_put_varm_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_put_varm_int2_all

      integer         nfmpi_get_varm_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_varm_int2

      integer         nfmpi_get_varm_int2_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1))
      external        nfmpi_get_varm_int2_all

      integer         nfmpi_put_varm_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          integer             ivals(1))
      external        nfmpi_put_varm_int

      integer         nfmpi_put_varm_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          integer             ivals(1))
      external        nfmpi_put_varm_int_all

      integer         nfmpi_get_varm_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          integer             ivals(1))
      external        nfmpi_get_varm_int

      integer         nfmpi_get_varm_int_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          integer             ivals(1))
      external        nfmpi_get_varm_int_all

      integer         nfmpi_put_varm_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          real                rvals(1))
      external        nfmpi_put_varm_real

      integer         nfmpi_put_varm_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          real                rvals(1))
      external        nfmpi_put_varm_real_all

      integer         nfmpi_get_varm_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          real                rvals(1))
      external        nfmpi_get_varm_real

      integer         nfmpi_get_varm_real_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          real                rvals(1))
      external        nfmpi_get_varm_real_all

      integer         nfmpi_put_varm_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_varm_double

      integer         nfmpi_put_varm_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_put_varm_double_all

      integer         nfmpi_get_varm_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_varm_double

      integer         nfmpi_get_varm_double_all
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          doubleprecision     dvals(1))
      external        nfmpi_get_varm_double_all

!
! entire variable put/get routines:
!

      integer         nfmpi_iput_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_var

      integer         nfmpi_iget_var
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_var

      integer         nfmpi_iput_var_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_var_text

      integer         nfmpi_iget_var_text
!                         (integer             ncid,
!                          integer             varid,
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_var_text

      integer         nfmpi_iput_var_int1
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int1_t        i1vals(1),
!                          integer             req)
      external        nfmpi_iput_var_int1

      integer         nfmpi_iget_var_int1
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int1_t        i1vals(1),
!                          integer             req)
      external        nfmpi_iget_var_int1

      integer         nfmpi_iput_var_int2
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int2_t        i2vals(1),
!                          integer             req)
      external        nfmpi_iput_var_int2

      integer         nfmpi_iget_var_int2
!                         (integer             ncid,
!                          integer             varid,
!                          nfmpi_int2_t        i2vals(1),
!                          integer             req)
      external        nfmpi_iget_var_int2

      integer         nfmpi_iput_var_int
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_var_int

      integer         nfmpi_iget_var_int
!                         (integer             ncid,
!                          integer             varid,
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_var_int

      integer         nfmpi_iput_var_real
!                         (integer             ncid,
!                          integer             varid,
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iput_var_real

      integer         nfmpi_iget_var_real
!                         (integer             ncid,
!                          integer             varid,
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iget_var_real

      integer         nfmpi_iput_var_double
!                         (integer             ncid,
!                          integer             varid,
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iput_var_double

      integer         nfmpi_iget_var_double
!                         (integer             ncid,
!                          integer             varid,
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iget_var_double

! single variable iput/iget routines:
!

      integer         nfmpi_iput_var1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text,
!                          integer             req)
      external        nfmpi_iput_var1

      integer         nfmpi_iget_var1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text,
!                          integer             req)
      external        nfmpi_iget_var1

      integer         nfmpi_iput_var1_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text,
!                          integer             req)
      external        nfmpi_iput_var1_text

      integer         nfmpi_iget_var1_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          character*1         text,
!                          integer             req)
      external        nfmpi_iget_var1_text

      integer         nfmpi_iput_var1_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int1_t        i1val,
!                          integer             req)
      external        nfmpi_iput_var1_int1

      integer         nfmpi_iget_var1_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int1_t        i1val,
!                          integer             req)
      external        nfmpi_iget_var1_int1

      integer         nfmpi_iput_var1_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int2_t        i2val,
!                          integer             req)
      external        nfmpi_iput_var1_int2

      integer         nfmpi_iget_var1_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          nfmpi_int2_t        i2val,
!                          integer             req)
      external        nfmpi_iget_var1_int2

      integer         nfmpi_iput_var1_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          integer             ival,
!                          integer             req)
      external        nfmpi_iput_var1_int

      integer         nfmpi_iget_var1_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          integer             ival,
!                          integer             req)
      external        nfmpi_iget_var1_int

      integer         nfmpi_iput_var1_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          real                rval,
!                          integer             req)
      external        nfmpi_iput_var1_real

      integer         nfmpi_iget_var1_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          real                rval,
!                          integer             req)
      external        nfmpi_iget_var1_real

      integer         nfmpi_iput_var1_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          doubleprecision     dval,
!                          integer             req)
      external        nfmpi_iput_var1_double

      integer         nfmpi_iget_var1_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             index(1),
!                          doubleprecision     dval,
!                          integer             req)
      external        nfmpi_iget_var1_double

      integer         nfmpi_iput_vara
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_vara

      integer         nfmpi_iget_vara
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_vara

      integer         nfmpi_iput_vara_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vara_text

      integer         nfmpi_iget_vara_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_text

      integer         nfmpi_iput_vara_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vara_int1

      integer         nfmpi_iget_vara_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_int1

      integer         nfmpi_iput_vara_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vara_int2

      integer         nfmpi_iget_vara_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_int2

      integer         nfmpi_iput_vara_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vara_int

      integer         nfmpi_iget_vara_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_int

      integer         nfmpi_iput_vara_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vara_real

      integer         nfmpi_iget_vara_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_real

      integer         nfmpi_iput_vara_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer            req)
      external        nfmpi_iput_vara_double

      integer         nfmpi_iget_vara_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vara_double

!
! strided variable iput/iget routines:
!

      integer         nfmpi_iput_vars
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_vars

      integer         nfmpi_iget_vars
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_vars

      integer         nfmpi_iput_vars_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_vars_text

      integer         nfmpi_iget_vars_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_vars_text

      integer         nfmpi_iput_vars_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1),
!                          integer             req)
      external        nfmpi_iput_vars_int1

      integer         nfmpi_iget_vars_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int1_t           i1vals(1),
!                          integer             req)
      external        nfmpi_iget_vars_int1

      integer         nfmpi_iput_vars_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1),
!                          integer             req)
      external        nfmpi_iput_vars_int2

      integer         nfmpi_iget_vars_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          nfmpi_int2_t           i2vals(1),
!                          integer             req)
      external        nfmpi_iget_vars_int2

      integer         nfmpi_iput_vars_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_vars_int

      integer         nfmpi_iget_vars_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_vars_int

      integer         nfmpi_iput_vars_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iput_vars_real

      integer         nfmpi_iget_vars_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iget_vars_real

      integer         nfmpi_iput_vars_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iput_vars_double

      integer         nfmpi_iget_vars_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iget_vars_double

!
! mapped variable iput/iget routines:
!

      integer         nfmpi_iput_varm
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_varm

      integer         nfmpi_iget_varm
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_varm

      integer         nfmpi_iput_varm_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iput_varm_text

      integer         nfmpi_iget_varm_text
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          character(*)        text,
!                          integer             req)
      external        nfmpi_iget_varm_text

      integer         nfmpi_iput_varm_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1),
!                          integer             req)
      external        nfmpi_iput_varm_int1

      integer         nfmpi_iget_varm_int1
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int1_t           i1vals(1),
!                          integer             req)
      external        nfmpi_iget_varm_int1

      integer         nfmpi_iput_varm_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1),
!                          integer             req)
      external        nfmpi_iput_varm_int2

      integer         nfmpi_iget_varm_int2
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             imap(1),
!                          nfmpi_int2_t           i2vals(1),
!                          integer             req)
      external        nfmpi_iget_varm_int2

      integer         nfmpi_iput_varm_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iput_varm_int

      integer         nfmpi_iget_varm_int
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          integer             ivals(1),
!                          integer             req)
      external        nfmpi_iget_varm_int

      integer         nfmpi_iput_varm_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iput_varm_real

      integer         nfmpi_iget_varm_real
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          real                rvals(1),
!                          integer             req)
      external        nfmpi_iget_varm_real

      integer         nfmpi_iput_varm_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iput_varm_double

      integer         nfmpi_iget_varm_double
!                         (integer             ncid,
!                          integer             varid,
!                          INTEGER(KIND=MPI_OFFSET_KIND)             start(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             count(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          INTEGER(KIND=MPI_OFFSET_KIND)             stride(1),
!                          doubleprecision     dvals(1),
!                          integer             req)
      external        nfmpi_iget_varm_double

      integer         nfmpi_wait
!                         (integer            ncid,
!                          integer            count,
!                          integer            req(1),
!                          integer            status(l))
      external        nfmpi_wait

      integer         nfmpi_wait_all
!                         (integer            ncid,
!                          integer            count,
!                          integer            req(1),
!                          integer            status(l))
      external        nfmpi_wait_all

      integer         nfmpi_cancel
!                         (integer            ncid,
!                          integer            count,
!                          integer            req(1),
!                          integer            status(l))
      external        nfmpi_cancel


!
! buffered put non-blocking subroutines:
!
    INTEGER         nfmpi_bput_var_text
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            CHARACTER(len=*),              INTENT(IN)  :: text
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_text

    INTEGER         nfmpi_bput_var_int1
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER*1,                     INTENT(IN)  :: i1vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_int1

    INTEGER         nfmpi_bput_var_int2
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER*2,                     INTENT(IN)  :: i2vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_int2

    INTEGER         nfmpi_bput_var_int
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER,                       INTENT(IN)  :: ivals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_int

    INTEGER         nfmpi_bput_var_real
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            REAL,                          INTENT(IN)  :: rvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_real

    INTEGER         nfmpi_bput_var_double
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            DOUBLE PRECISION,              INTENT(IN)  :: dvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_double

    INTEGER         nfmpi_bput_var_int8
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER*8,                     INTENT(IN)  :: i8vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var_int8

    INTEGER         nfmpi_bput_var1_text
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            CHARACTER,                     INTENT(IN)  :: text
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_text

    INTEGER         nfmpi_bput_var1_int1
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            INTEGER*1,                     INTENT(IN)  :: i1val
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_int1

    INTEGER         nfmpi_bput_var1_int2
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            INTEGER*2,                     INTENT(IN)  :: i2val
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_int2

    INTEGER         nfmpi_bput_var1_int
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            INTEGER,                       INTENT(IN)  :: ival
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_int

    INTEGER         nfmpi_bput_var1_real
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            REAL,                          INTENT(IN)  :: rval
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_real

    INTEGER         nfmpi_bput_var1_double
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            DOUBLE PRECISION,              INTENT(IN)  :: dval
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_double

    INTEGER         nfmpi_bput_var1_int8
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: index(*)
!                            INTEGER*8,                     INTENT(IN)  :: i8val
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_var1_int8

    INTEGER         nfmpi_bput_vara_text
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            CHARACTER(len=*),              INTENT(IN)  :: text
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_text

    INTEGER         nfmpi_bput_vara_int1
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER*1,                     INTENT(IN)  :: i1vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_int1

    INTEGER         nfmpi_bput_vara_int2
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER*2,                     INTENT(IN)  :: i2vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_int2

    INTEGER         nfmpi_bput_vara_int
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER,                       INTENT(IN)  :: ivals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_int

    INTEGER         nfmpi_bput_vara_real
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            REAL,                          INTENT(IN)  :: rvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_real

    INTEGER         nfmpi_bput_vara_double
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            DOUBLE PRECISION,              INTENT(IN)  :: dvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_double

    INTEGER         nfmpi_bput_vara_int8
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER*8,                     INTENT(IN)  :: i8vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vara_int8

    INTEGER         nfmpi_bput_vars_text
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            CHARACTER(len=*),              INTENT(IN)  :: text
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_text

    INTEGER         nfmpi_bput_vars_int1
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER*1,                     INTENT(IN)  :: i1vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_int1

    INTEGER         nfmpi_bput_vars_int2
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER*2,                     INTENT(IN)  :: i2vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_int2

    INTEGER         nfmpi_bput_vars_int
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER,                       INTENT(IN)  :: ivals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_int

    INTEGER         nfmpi_bput_vars_real
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            REAL,                          INTENT(OUT) :: rvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_real

    INTEGER         nfmpi_bput_vars_double
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            DOUBLE PRECISION,              INTENT(IN)  :: dvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_double

    INTEGER         nfmpi_bput_vars_int8
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER*8,                     INTENT(IN)  :: i8vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_vars_int8

    INTEGER         nfmpi_bput_varm_text
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            CHARACTER(len=*),              INTENT(IN)  :: text
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_text

    INTEGER         nfmpi_bput_varm_int1
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            INTEGER*1,                     INTENT(IN)  :: i1vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_int1

    INTEGER         nfmpi_bput_varm_int2
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            INTEGER*2,                     INTENT(IN)  :: i2vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_int2

    INTEGER         nfmpi_bput_varm_int 
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            INTEGER,                       INTENT(IN)  :: ivals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_int

    INTEGER         nfmpi_bput_varm_real
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            REAL,                          INTENT(IN)  :: rvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_real

    INTEGER         nfmpi_bput_varm_double
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            DOUBLE PRECISION,              INTENT(IN)  :: dvals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_double

    INTEGER         nfmpi_bput_varm_int8
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER,                       INTENT(IN)  :: varid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: start(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: count(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: stride(*)
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: imap(*)
!                            INTEGER*8,                     INTENT(IN)  :: i8vals(*)
!                            INTEGER,                       INTENT(OUT) :: req
    EXTERNAL    nfmpi_bput_varm_int8

    INTEGER         nfmpi_buffer_attach
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(IN)  :: bufsize
    EXTERNAL    nfmpi_buffer_attach

    INTEGER         nfmpi_buffer_detach
!                            INTEGER,                       INTENT(IN)  :: ncid
    EXTERNAL    nfmpi_buffer_detach

    INTEGER         nfmpi_inq_buffer_usage
!                            INTEGER,                       INTENT(IN)  :: ncid
!                            INTEGER(KIND=MPI_OFFSET_KIND), INTENT(OUT) :: usage
    EXTERNAL     nfmpi_inq_buffer_usage


!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! begin netcdf 2.4 backward compatibility:
!