I icomp,
& icomp, ncvarcomp, ichknum
if ( icomp .gt. 0 ) then
if ( icomp .le. ncvarcomp ) then
& (icomp .gt. icglom1 .AND. icomp .LE. icglo) ) then
icomploc = icomp
if (icomptest .EQ. icomp-1) then
if ( icomp .gt. maxncvarcomps ) then
if ( icomp .lt. 0 ) then
integer icomp
INTEGER icomp
DO icomp = nbeg, nend, nstep
ichknum = (icomp - nbeg)/nstep + 1
CALL GRDCHK_LOC( icomp, ichknum,
icompmem ( ichknum ) = icomp
icomp = icompmem(i)