& nbeg,
integer nbeg
nbeg = 0
&' First location: ',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