ibtmsgid()

integer function ibtmsgid

Definition at line 1360 of file blacstest.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     PURPOSE
*     =======
*     IBTMSGID : returns a ID for tester communication.
*
      INTEGER MINID
      INTEGER ITMP(2)
      SAVE minid
      DATA minid /-1/
*
*     On first call, reserve 1st 1000 IDs for tester use
*
      IF (minid .EQ. -1) THEN
         CALL blacs_get( -1, 1, itmp )
         minid = itmp(1)
         itmp(1) = itmp(1) + 1000
         CALL blacs_set( -1, 1, itmp )
      END IF
*
*     return the minimum allowable ID
*
      ibtmsgid = minid
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: