para_srint()

subroutine parautil::para_srint	(	integer, intent(in)	source,
		integer, intent(in)	dest,
		integer, intent(in)	tag,
		integer, intent(in)	sint,
		integer, intent(inout)	rint
	)

Definition at line 196 of file ompi_kronlininv.f08.

    integer,intent(in) :: source,dest,tag
    integer,intent(in) :: sint
    integer,intent(inout) :: rint
    integer :: nelem,mpierr
    integer :: mpistat(mpi_status_size)
    
    if ((myrank==source) .and. (myrank==dest))  then
       rint = sint
    else
       if (myrank==source) then
          call mpi_send(sint, nelem, mpi_integer, dest, tag, &
               mpi_comm_world, mpierr)
       end if
       if (myrank==dest) then
          call mpi_recv(rint, nelem, mpi_integer, source, tag,&
               mpi_comm_world, mpistat, mpierr)
       end if
    end if