para_allgathv1ddp()

subroutine parautil::para_allgathv1ddp	(	integer, dimension(:), intent(in)	scheduling,
		integer, dimension(:), intent(in)	displs,
		real(dp), dimension(:), intent(in)	sendbuf,
		real(dp), dimension(:), intent(out)	recvbuf
	)

Definition at line 270 of file ompi_kronlininv.f08.

    real(dp),intent(out) :: recvbuf(:)
    integer,intent(in) :: scheduling(:),displs(:)
    real(dp),intent(in) :: sendbuf(:)
    integer :: mpierr
    !! SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNTS,
    !!     DISPLS, RECVTYPE,  COMM, IERROR
    !print*,myrank," : size(sendbuf)",size(sendbuf),size(recvbuf)," loop ",displs," | sched ",scheduling
    ! if (displs(1)/=0) then
    !    write(*,*) myrank,": para_allgathv1ddp(): displs(1)/=0  potential problem (should be 0)"
    !    stop
    ! end if

    call mpi_allgatherv(sendbuf,size(sendbuf), dp_real_type, recvbuf, scheduling, &
         displs, dp_real_type, mpi_comm_world, mpierr)
    !print*,myrank," mpierr",mpierr

Here is the caller graph for this function: