btsetup()

subroutine btsetup	(	integer, dimension(memlen)	mem,
		integer	memlen,
		character*1, dimension(cmemlen)	cmem,
		integer	cmemlen,
		integer	outnum,
		logical	testsdrv,
		logical	testbsbr,
		logical	testcomb,
		logical	testaux,
		integer	iam,
		integer	nnodes
	)

Definition at line 1 of file btprim.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*     .. Scalar Arguments ..
      LOGICAL TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX
      INTEGER MEMLEN, CMEMLEN, OUTNUM, IAM, NNODES
*     ..
*     .. Array Arguments ..
      INTEGER MEM(MEMLEN)
      CHARACTER*1 CMEM(CMEMLEN)
*     ..
*
*  Purpose
*  =======
*  BTSETUP:  Sets up communicator and initiliazes MPI if needed.
*
*  ====================================================================
*
*     ..
*     .. Local Scalars
      LOGICAL INIT
*     ..
*     .. Include Files ..
      include 'mpif.h'
*     ..
*     .. Common Blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*     ..
*     .. Executable Statements ..
*
      ierr = 0
      CALL mpi_initialized(init, ierr)
      IF (.NOT.init) CALL mpi_init(ierr)
      IF (ierr.NE.0) CALL btmpierr("mpi_init", ierr)
      CALL mpi_comm_dup(mpi_comm_world, btcomm, ierr)
      IF (ierr.NE.0) CALL btmpierr("MPI_COMM_DUP", ierr)
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: