pslamch()

real function pslamch	(	integer	ictxt,
		character*1	cmach
	)

Definition at line 7454 of file pcblastst.f.

*
*  -- PBLAS test routine (version 2.0) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     April 1, 1998
*
*     .. Scalar Arguments ..
      CHARACTER*1        CMACH
      INTEGER            ICTXT
*     ..
*
*  Purpose
*  =======
*
*
*     .. Local Scalars ..
      CHARACTER*1        TOP
      INTEGER            IDUMM
      REAL               TEMP
*     ..
*     .. External Subroutines ..
      EXTERNAL           pb_topget, sgamn2d, sgamx2d
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      REAL               SLAMCH
      EXTERNAL           lsame, slamch
*     ..
*     .. Executable Statements ..
*
      temp = slamch( cmach )
*
      IF( lsame( cmach, 'E' ).OR.lsame( cmach, 'S' ).OR.
     $    lsame( cmach, 'M' ).OR.lsame( cmach, 'U' ) ) THEN
         CALL pb_topget( ictxt, 'Combine', 'All', top )
         idumm = 0
         CALL sgamx2d( ictxt, 'All', top, 1, 1, temp, 1, idumm,
     $                 idumm, -1, -1, idumm )
      ELSE IF( lsame( cmach, 'L' ).OR.lsame( cmach, 'O' ) ) THEN
         CALL pb_topget( ictxt, 'Combine', 'All', top )
         idumm = 0
         CALL sgamn2d( ictxt, 'All', top, 1, 1, temp, 1, idumm,
     $                 idumm, -1, -1, idumm )
      END IF
*
      pslamch = temp
*
      RETURN
*
*     End of PSLAMCH
*

Here is the call graph for this function:

Here is the caller graph for this function: