btrecv()

subroutine btrecv	(	integer	dtype,
		integer	n,
		real, dimension(*)	buff,
		integer	src,
		integer	msgid
	)

Definition at line 206 of file btprim.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     .. Scalar Arguments ..
      INTEGER N, DTYPE, SRC, MSGID
*     ..
*     .. Array Arguments ..
      REAL BUFF(*)
*     ..
*
*     PURPOSE
*     =======
*     BTRECV: Globally blocking receive.
*
*     Arguments
*     =========
*     DTYPE    (input) INTEGER
*              Indicates what data type BUFF is:
*                1  =  RAW BYTES
*                3  =  INTEGER
*                4  =  SINGLE PRECISION REAL
*                6  =  DOUBLE PRECISION REAL
*                5  =  SINGLE PRECISION COMPLEX
*                7  =  DOUBLE PRECISION COMPLEX
*
*     N        (input) INTEGER
*              The number of elements of type DTYPE in BUFF.
*
*     BUFF     (output) INTEGER
*              The buffer to receive into.
*
*     SRC      (input) INTEGER
*              The source of the message.
*
*     MSGID    (input) INTEGER
*              The message ID.
*
* =====================================================================
*     ..
*     .. Local Scalars ..
      INTEGER MPIDTYPE
*     ..
*     .. Include Files ..
      include 'mpif.h'
*     ..
*     .. Local Arrays ..
      INTEGER STAT(MPI_STATUS_SIZE)
*     ..
*     .. Common Blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*
      IF( dtype .EQ. 1 ) THEN
         mpidtype = mpi_byte
      ELSE IF( dtype .EQ. 3 ) THEN
         mpidtype = mpi_integer
      ELSE IF( dtype .EQ. 4 ) THEN
         mpidtype = mpi_real
      ELSE IF( dtype .EQ. 5 ) THEN
         mpidtype = mpi_complex
      ELSE IF( dtype .EQ. 6 ) THEN
         mpidtype = mpi_double_precision
      ELSE IF( dtype .EQ. 7 ) THEN
         mpidtype = mpi_double_complex
      END IF
*
      CALL mpi_recv( buff, n, mpidtype, src, 0, btcomm, stat, ierr )
      IF (ierr.NE.0) CALL btmpierr("MPI_RECV", ierr)
*
      RETURN
*
*     End of BTRECV
*

Here is the call graph for this function:

Here is the caller graph for this function: