pb_boot()

subroutine pb_boot

Definition at line 2926 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
*
*
*  Purpose
*  =======
*
*  PB_BOOT (re)sets all timers to 0, and enables PB_TIMER.
*
*  -- Written on April 1, 1998 by
*     R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER            NTIMER
      parameter( ntimer = 64 )
      DOUBLE PRECISION   STARTFLAG, ZERO
      parameter( startflag = -5.0d+0, zero = 0.0d+0 )
*     ..
*     .. Local Scalars ..
      INTEGER            I
*     ..
*     .. Common Blocks ..
      LOGICAL            DISABLED
      DOUBLE PRECISION   CPUSEC( NTIMER ), CPUSTART( NTIMER ),
     $                   WALLSEC( NTIMER ), WALLSTART( NTIMER )
      COMMON /sltimer00/ cpusec, wallsec, cpustart, wallstart, disabled
*     ..
*     .. Executable Statements ..
*
      disabled = .false.
      DO 10 i = 1, ntimer
         cpusec( i )  = zero
         wallsec( i ) = zero
         cpustart( i )  = startflag
         wallstart( i ) = startflag
   10 CONTINUE
*
      RETURN
*
*     End of PB_BOOT
*

Here is the caller graph for this function: