ibtnprocs()

integer function ibtnprocs

Definition at line 80 of file btprim.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*  Purpose
*  =======
*  IBTNPROCS: returns the number of processes in the machine.
*
*  ====================================================================
*     ..
*     .. Include Files ..
      include 'mpif.h'
*     ..
*     .. Local Scalars ..
      INTEGER NPROC
*     ..
*     .. Common Blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*     ..
*     .. Executable Statements ..
*
      CALL mpi_comm_size(btcomm, nproc, ierr)
      IF (ierr.NE.0) CALL btmpierr("MPI_COMM_SIZE", ierr)
      ibtnprocs = nproc
*
      RETURN
*
*     End of IBTNPROCS
*

Here is the call graph for this function:

Here is the caller graph for this function: