sltimer()

subroutine sltimer

(

integer

i

)

Definition at line 46 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 ..
      INTEGER            I
*     ..
*
*  Purpose
*  =======
*
*  SLtimer provides a "stopwatch" functionality cpu/wall timer
*  (in seconds).  Up to 64 separate timers can be functioning at once.
*  The first call starts the timer, and the second stops it.  This
*  routine can be disenabled, so that calls to the timer are ignored.
*  This feature can be used to make sure certain sections of code do
*  not affect timings, even if they call routines which have SLtimer
*  calls in them.
*
*  Arguments
*  =========
*
*  I       (global input) INTEGER
*          The timer to stop/start.
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER            NTIMER
      parameter( ntimer = 64 )
      DOUBLE PRECISION   STARTFLAG
      parameter( startflag = -5.0d+0 )
*     ..
*     .. External Functions ..
      DOUBLE PRECISION   DCPUTIME00, DWALLTIME00
      EXTERNAL           dcputime00, dwalltime00
*     ..
*     .. Common Blocks ..
      LOGICAL            DISABLED
      DOUBLE PRECISION   CPUSEC( NTIMER ), CPUSTART( NTIMER ),
     $                   WALLSEC( NTIMER ), WALLSTART( NTIMER )
      COMMON /sltimer00/ cpusec, wallsec, cpustart, wallstart, disabled
*     ..
*     .. Executable Statements ..
*
*     If timing disabled, return
*
      IF( disabled )
     $   RETURN
*
      IF( wallstart( i ).EQ.startflag ) THEN
*
*        If timer has not been started, start it
*
         wallstart( i ) = dwalltime00()
         cpustart( i )  = dcputime00()
*
      ELSE
*
*        Stop timer and add interval to count
*
         cpusec( i ) = cpusec( i ) + dcputime00() - cpustart( i )
         wallsec( i ) = wallsec( i ) + dwalltime00() - wallstart( i )
         wallstart( i ) = startflag
*
      END IF
*
      RETURN
*
*     End of SLTIMER
*