& grdchkwhichproc,
integer grdchkwhichproc
grdchkwhichproc = 0
& ' grad-res ', grdchkwhichproc,
grdchkwhichproc = iG-1 + (jG-1)*nPx
if ( myProcId .EQ. grdchkwhichproc ) then
if ( myProcId .EQ. grdchkwhichproc .AND.