& grdchkwhichproc,
integer grdchkwhichproc
if ( myProcId .EQ. grdchkwhichproc ) then
& ' grad-res ', grdchkwhichproc,
if ( myProcId .EQ. grdchkwhichproc )
IF ( myProcId .EQ. grdchkwhichproc ) THEN
IF ( myProcId .EQ. grdchkwhichproc .AND. ierr .EQ. 0 ) THEN
IF (myProcId .EQ. grdchkwhichproc .AND. .NOT.useSingleCpuIO) THEN
grdchkwhichproc = -1
IF ( grdchkwhichproc .NE. -1 ) THEN
grdchkwhichproc = myProcId
&' grdchkWhichProc: ',grdchkwhichproc