*----------------------------------------------------------------------- subroutine nxvgax(ncdfid,cvname,values) include '/usr/local/include/netcdf.inc' real values(*) character cvname*(*) integer istart(MAXVDIMS),icount(MAXVDIMS),ivdims(MAXVDIMS) character cvtemp*(MAXNCNAM) nvarid=ncvid(ncdfid,cvname,ircode) if (ircode.ne.0) call msgdmp('e','nxvgax','error in ncvid.') call ncvinq(ncdfid,nvarid,cvtemp,ivtype,nvdims,ivdims,nvarat, + ircode) if (ircode.ne.0) call msgdmp('e','nxvgax','error in ncvinq.') lencvl=1 do 10 n=1,nvdims istart(n)=1 call ncdinq(ncdfid,ivdims(n),cvtemp,icount(n),ircode) if (ircode.ne.0) call msgdmp('e','nxvgax','error in ncdinq.') lencvl=lencvl*icount(n) 10 continue if (lencvl.eq.0) + call msgdmp('e','nxvgax','unlimited dimension size exists.') call ncvgt(ncdfid,nvarid,istart,icount,values,ircode) if (ircode.ne.0) call msgdmp('e','nxvgax','error in ncvgt.') end