itest = itest + nwettile(bi,bj,k,iobcs)
integer itest
itest = 0
itest = itestmem (ichknum-1)
O itest,
itest = iwetsum(k)
& itilepos, jtilepos, itest, ierr,
itestmem ( ichknum ) = itest
integer itest,iobcs