ibtmyproc()

integer function ibtmyproc

Definition at line 46 of file btprim.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*  Purpose
*  =======
*  IBTMYPROC: returns a process number between 0 .. NPROCS-1.  On
*  systems not natively in this numbering scheme, translates to it.
*
*  ====================================================================
*     ..
*     .. Include Files ..
      include 'mpif.h'
*     ..
*     .. Local Scalars ..
      INTEGER RANK
*     ..
*     .. Common Blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*     ..
*     .. Executable Statements ..
*
      CALL mpi_comm_rank(btcomm, rank, ierr)
      IF (ierr.NE.0) CALL btmpierr("MPI_COMM_RANK", ierr)
      ibtmyproc = rank
      RETURN
*
*     End of IBTMYPROC
*

Here is the call graph for this function:

Here is the caller graph for this function: