para_gathv1ddp()

subroutine parautil::para_gathv1ddp	(	integer, dimension(:), intent(in)	recvcounts,
		integer, dimension(:), intent(in)	displs,
		integer, intent(in)	receiver,
		real(dp), dimension(:), intent(in)	sendbuf,
		real(dp), dimension(:), intent(out)	recvbuf
	)

Definition at line 290 of file ompi_kronlininv.f08.

    real(dp),intent(out) :: recvbuf(:)
    integer,intent(in) :: recvcounts(:),receiver,displs(:)
    real(dp),intent(in) :: sendbuf(:)
    integer :: mpierr

    ! print*,myrank," : size(sendbuf)",size(sendbuf)," size(recvbuf)",size(recvbuf)," displs ",displs
    
    ! if (displs(1)/=0) then
    !    write(*,*) myrank,": para_allgathv1ddp(): displs(1)/=0  potential problem (should be 0)"
    !    stop
    ! end if

    !! SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNTS,
    !!     DISPLS, RECVTYPE, ROOT, COMM, IERROR

    call mpi_gatherv(sendbuf,size(sendbuf), dp_real_type, recvbuf, recvcounts, &
         displs, dp_real_type, receiver, mpi_comm_world, mpierr)
    

Here is the caller graph for this function: