& nbeg,
integer nbeg
nbeg = icomptest
nend = nbeg + nend
& nbeg, itilepos, jtilepos, layer,
IF ( nbeg .EQ. 0 ) CALL GRDCHK_GET_POSITION( myThid )
DO icomp = nbeg, nend, nstep
ichknum = (icomp - nbeg)/nstep + 1
nbeg = 0
&' First location: ',nbeg