anchor.diff:        end do
   !$OMP END DO
   
  -      call psor (para_key, p, sz, g, omg, res, wrk, bnd, commmode, do_time, commtime, dtype)
  +      call psor (para_key, p, sz, g, omg, res, wrk, bnd, dtype)
         iparam(2) = iparam(2) + 1
   
         if (res.lt.t_eps) then
  
positive.code:     end do
      end do
  
  !    if ( iret == 1 ) then
        call cpm_Isend(cf_x(1,2), cf_sz(1), CPM_REAL, nID(X_PLUS), 0, key(X_PLUS,1), ierr)
  !    end if
    endif
  
  ! recv
    if( nID(X_MINUS).ge.0 ) then
  !    if ( iret == 1 ) then
        call cpm_Irecv(cf_x(1,4), cf_sz(1), CPM_REAL, nID(X_MINUS), 0, key(X_PLUS,2), ierr)
  !    endif
    endif
  
  ! Y_MINUS
  
negative.code:     end do
      end do
  
      call cpm_Isend(cf_y(1,2), cf_sz(2), CPM_REAL, nID(Y_PLUS), 0, key(Y_PLUS,1), ierr)
    endif
  
  ! recv
    if( nID(Y_MINUS).ge.0 ) then
      call cpm_Irecv(cf_y(1,4), cf_sz(2), CPM_REAL, nID(Y_MINUS), 0, key(Y_PLUS,2), ierr)
    endif
  
  ! Z_MINUS
  