dsecndtst.f

Go to the documentation of this file.

*> \brief \b DSECNDTST
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at
*            http://www.netlib.org/lapack/explore-html/
*
*  Definition:
*  ===========
*
*      PROGRAM DSECNDTST
*
*  Authors:
*  ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date November 2017
*
*> \ingroup auxOTHERauxiliary
*
*  =====================================================================      PROGRAM DSECNDTST
*
*  -- LAPACK test routine (version 3.8.0) --
*
*  -- LAPACK computational routine (version 3.8.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2017
*
* =====================================================================
*
*     .. Parameters ..
      INTEGER            nmax, its
      parameter( nmax = 1000, its = 50000 )
*     ..
*     .. Local Scalars ..
      INTEGER            i, j
      DOUBLE PRECISION   alpha, avg, t1, t2, tnosec, total
*     ..
*     .. Local Arrays ..
      DOUBLE PRECISION   x( nmax ), y( nmax )
*     ..
*     .. External Functions ..
      DOUBLE PRECISION   dsecnd
      EXTERNAL           dsecnd
*     ..
*     .. External Subroutines ..
      EXTERNAL           mysub
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          dble
*     ..
*     .. Executable Statements ..
*
*    .. Figure TOTAL flops ..
      total = dble(nmax) * dble(its) * 2.0
*
*     Initialize X and Y
*
      DO 10 i = 1, nmax
         x( i ) = dble( 1 ) / dble( i )
         y( i ) = dble( nmax-i ) / dble( nmax )
   10 CONTINUE
      alpha = 0.315d0
*
*     Time TOTAL SAXPY operations
*
      t1 = dsecnd( )
      DO 30 j = 1, its
         DO 20 i = 1, nmax
            y( i ) = y( i ) + alpha*x( i )
   20    CONTINUE
         alpha = -alpha
   30 CONTINUE
      t2 = dsecnd( )
      tnosec = t2 - t1
      WRITE( 6, 9999 )total, tnosec
      IF( tnosec.GT.0.0 ) THEN
         WRITE( 6, 9998 )(total/1.0d6)/tnosec
      ELSE
         WRITE( 6, 9994 )
      END IF
*
*     Time TOTAL DAXPY operations with DSECND in the outer loop
*
      t1 = dsecnd( )
      DO 50 j = 1, its
         DO 40 i = 1, nmax
            y( i ) = y( i ) + alpha*x( i )
   40    CONTINUE
         alpha = -alpha
         t2 = dsecnd( )
   50 CONTINUE
*
*     Compute the time used in milliseconds used by an average call
*     to DSECND.
*
      WRITE( 6, 9997 )t2 - t1
      avg = ( ( t2-t1 ) - tnosec ) * 1000.0d+00/dble( its )
      IF( avg.GT.0.0)
     $   WRITE( 6, 9996 )avg
*
*     Compute the equivalent number of floating point operations used
*     by an average call to DSECND.
*
      IF(( avg.GT.0.0 ).AND.( tnosec.GT.0.0 ))
     $   WRITE( 6, 9995 )(avg/1000) * total / tnosec
*
 9999 FORMAT( ' Time for ', g10.3,' DAXPY ops = ', g10.3, ' seconds' )
 9998 FORMAT( ' DAXPY performance rate        = ', g10.3, ' mflops ' )
 9997 FORMAT( ' Including DSECND, time        = ', g10.3, ' seconds' )
 9996 FORMAT( ' Average time for DSECND       = ', g10.3,
     $      ' milliseconds' )
 9995 FORMAT( ' Equivalent floating point ops = ', g10.3, ' ops' )
 9994 FORMAT( ' *** Warning:  Time for operations was less or equal',
     $        ' than zero => timing in TESTING might be dubious' )
      CALL mysub(nmax,x,y)
      END
      SUBROUTINE mysub(N,X,Y)
      INTEGER N
      DOUBLE PRECISION X(N), Y(N)
      RETURN
      END