anchor.diff:    res_0 = sqrt(res_abs/f_v)
   !    if(res_abs.lt.t_eps) goto 10
   
  -  do i_iter=1,n_iter
  +  do i_iter=1, n_iter
   
   !$OMP BARRIER
   !$OMP DO
  -    do k=lg,kg
  -    do j=lg,jg
  -    do i=lg,ig
  +    do k=lg, kg
  +    do j=lg, jg
  +    do i=lg, ig
         xt(i,j,k) = 0.0
       end do
       end do
  
positive.code:     key(i,2) = -1 !recv
    end do
  
  !  call cpm_IsParallel(iret, ierr)
  
  ! X_MINUS
  ! send
  
negative.code:     end do
      end do
  
      call cpm_Isend(cf_z(1,1), cf_sz(3), CPM_REAL, nID(Z_MINUS), 0, key(Z_MINUS,1), ierr)
    endif
  
  ! recv
    if( nID(Z_PLUS).ge.0 ) then
      call cpm_Irecv(cf_z(1,3), cf_sz(3), CPM_REAL, nID(Z_PLUS), 0, key(Z_MINUS,2), ierr)
    endif
  
  ! Z_PLUS
  