anchor.diff:        enddo
         enddo
   
  -      call MPI_WAITALL (NEIBPETOT, req1, sta1, ierr)
  +      call MPI_WAITALL (ncnt, req1, sta1, ierr)
         deallocate (sta1, sta2, req1, req2)
  +
  +      deallocate(neib_flag)
   
         end subroutine hecmw_solve_send_recv_33
   
  
positive.code:        
  !C
  !C-- SEND
        do neib= 1, NEIBPETOT
          istart= STACK_EXPORT(neib-1)
          inum  = STACK_EXPORT(neib  ) - istart
          do k= istart+1, istart+inum
                 ii   = 3*NOD_EXPORT(k)
             WS(3*k-2)= X(ii-2)
  
negative.code: 
        ! local valiables
        integer(kind=kint ) :: neib,istart,inum,k,ii,ierr
  
        integer(kind=kint ), allocatable :: neib_flag(:)
        integer(kind=kint ) :: ncnt
  
        allocate(neib_flag(NEIBPETOT))
        neib_flag = 0
  
  !C
  !C-- INIT.
        allocate (sta1(MPI_STATUS_SIZE,NEIBPETOT))
  