anchor.diff:        &             0,pidMPI,MPI_comm_world,statMPI,errMPI)
       end do
     end do
  -  
     ! receive tensor data at nodes
     do i=1,ntransNodeTens
       allocate(transNodeTens(i)%ptr(nNode,3,3))
  
positive.code:       end do
      end do
    end do
    
    ! receive scaler data in elements
    do i=1,ntransEleScal
      allocate(transEleScal(i)%ptr(nEle))
      call MPI_recv(transEleScal(i)%ptr,nEle,MPI_double_precision,&
      &             0,pidMPI,MPI_comm_world,statMPI,errMPI)
    end do
    
    ! receive vector data in elements
    do i=1,ntransEleVect
      allocate(transEleVect(i)%ptr(nEle,3))
  
negative.code:   ! send tensor data on nodes
    allocate(buffDataTens(nkNode,3,3))
    do i=1,ntransNodeTens
      buffDataTens(:,:,:)=transNodeTens(i)%ptr(mapNode,:,:)
      do j=1,3
        do l=1,3
          call MPI_send(buffDataTens(:,j,l),nkNode,MPI_double_precision,p,p,MPI_comm_world,errMPI)
  