nbeg = icomptest
nend = nbeg + nend
& nbeg, itilepos, jtilepos, layer,
if ( nbeg .EQ. 0 )
do icomp = nbeg, nend, nstep
ichknum = (icomp - nbeg)/nstep + 1
& nbeg,
nbeg = 0
&' First location: ',nbeg
integer nbeg