sbteps()

real function sbteps

Definition at line 12557 of file blacstest.f.

*
*     .. External Functions ..
      INTEGER IBTMYPROC, IBTNPROCS, IBTMSGID
      REAL SLAMCH
      EXTERNAL ibtmyproc, ibtnprocs, ibtmsgid, slamch
*     ..
*     .. Local Scalars ..
      INTEGER I, IAM, NNODES
      REAL EPS, EPS2
      SAVE eps
      DATA eps /-22.0e0/
*     ..
*     .. Executable Statements ..
*
*     First time called, must get max epsilon possessed by any
*     participating process
*
      IF( eps .EQ. -22.0e0 ) THEN
         iam = ibtmyproc()
         nnodes = ibtnprocs()
         eps = slamch('epsilon')
         IF( iam .EQ. 0 ) THEN
            IF( nnodes .GT. 1 ) THEN
               DO 10 i = 1, nnodes-1
                  CALL btrecv( 4, 1, eps2, i, ibtmsgid()+20 )
                  IF( eps .LT. eps2 ) eps = eps2
   10          CONTINUE
            END IF
            CALL btsend( 4, 1, eps, -1, ibtmsgid()+20 )
         ELSE
            CALL btsend( 4, 1, eps, 0, ibtmsgid()+20 )
            CALL btrecv( 4, 1, eps, 0, ibtmsgid()+20 )
         ENDIF
      END IF
      sbteps = eps
      RETURN
*
*     End SBTEPS
*

Here is the call graph for this function:

Here is the caller graph for this function: