slinquire()

double precision function slinquire	(	character*1	timetype,
		integer	i
	)

Definition at line 188 of file sltimer.f.

*
*  -- ScaLAPACK tools routine (version 1.7) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     May 1, 1997
*
*     .. Scalar Arguments ..
      CHARACTER*1        TIMETYPE
      INTEGER            I
*     ..
*
*  Purpose
*  =======
*
*  SLINQUIRE returns wall or cpu time that has accumulated in timer I.
*
*  Arguments
*  =========
*
*  TIMETYPE (global input) CHARACTER
*           Controls what time will be returned:
*           = 'W': wall clock time is returned,
*           = 'C': CPU time is returned (default).
*
*  I        (global input) INTEGER
*           The timer to return.
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER            NTIMER
      parameter( ntimer = 64 )
      DOUBLE PRECISION   ERRFLAG
      parameter( errflag = -1.0d+0 )
*     ..
*     .. Local Scalars ..
      DOUBLE PRECISION   TIME
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      DOUBLE PRECISION   DCPUTIME00, DWALLTIME00
      EXTERNAL           dcputime00, dwalltime00, lsame
*     ..
*     .. Common Blocks ..
      LOGICAL            DISABLED
      DOUBLE PRECISION   CPUSEC( NTIMER ), CPUSTART( NTIMER ),
     $                   WALLSEC( NTIMER ), WALLSTART( NTIMER )
      COMMON /sltimer00/ cpusec, wallsec, cpustart, wallstart, disabled
*     ..
*     .. Executable Statements ..
*
      IF( lsame( timetype, 'W' ) ) THEN
*
*        If walltime not available on this machine, return -1 flag
*
         IF( dwalltime00().EQ.errflag ) THEN
            time = errflag
         ELSE
            time = wallsec( i )
         END IF
      ELSE
         IF( dcputime00().EQ.errflag ) THEN
            time = errflag
         ELSE
            time = cpusec( i )
         END IF
      END IF
*
      slinquire = time
*
      RETURN
*
*     End of SLINQUIRE
*

Here is the call graph for this function:

Here is the caller graph for this function: