para_srarr1ddp()

subroutine parautil::para_srarr1ddp	(	integer, intent(in)	source,
		integer, intent(in)	dest,
		integer, intent(in)	tag,
		real(dp), dimension(:), intent(in)	sendrow,
		real(dp), dimension(:), intent(inout)	recvrow
	)

Definition at line 220 of file ompi_kronlininv.f08.

   
    integer,intent(in) :: source,dest,tag
    real(dp),intent(in) :: sendrow(:)
    real(dp),intent(inout) :: recvrow(:)

    integer :: mpierr,nelem
    integer :: mpistat(mpi_status_size)

    nelem=size(sendrow)  ! with no dim gives the total array size

    ! to avoid deadlocks
    if ((myrank==source) .and. (myrank==dest))  then
       !print*,"same send recv in ",myrank
       recvrow = sendrow
    else
       if (myrank==source) then
          !print*,"sending from ",myrank," to ",dest," tag=",tag
          call mpi_send(sendrow, nelem, dp_real_type, dest, tag, &
               mpi_comm_world, mpierr)
       end if
       if (myrank==dest) then
          !print*,"receiving in ",myrank," from ",source," tag=",tag
          call mpi_recv(recvrow, nelem, dp_real_type, source, tag,&
               mpi_comm_world, mpistat, mpierr)
       end if
    end if
    

Here is the caller graph for this function: