icomptest = 0
icomptest = icomptest + 1
nbeg = icomptest
integer icomptest
icomptest = icompmem (ichknum-1)
& bi, bj, icomptest, ichknum
if ( icomptest .EQ. 0 ) then
icomptest = icglom1
if ( icomploc .eq. icomptest ) then
if (icomptest .EQ. icomp-1) then
icomptest = icomptest
icomptest = icomptest + nwettile(bi,bj,k,iobcs)