pb_timer()

subroutine pb_timer

(

integer

i

)

Definition at line 2975 of file pblastim.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 ..
      INTEGER            I
*     ..
*
*  Purpose
*  =======
*
*  PB_TIMER  provides a  "stopwatch" functionality cpu/wall timer in se-
*  conds. 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 PB_TIMER calls in them.
*
*  Arguments
*  =========
*
*  I       (global input) INTEGER
*          On entry, I specifies the timer to stop/start.
*
*  -- Written on April 1, 1998 by
*     R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. 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 PB_TIMER
*

Here is the caller graph for this function: