56 lines
1.4 KiB
FortranFixed
56 lines
1.4 KiB
FortranFixed
DOUBLE PRECISION FUNCTION DMFLOP( OPS, TIME, INFO )
|
|
*
|
|
* -- LAPACK timing routine (version 3.1) --
|
|
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
|
|
* October 2006
|
|
*
|
|
* .. Scalar Arguments ..
|
|
INTEGER INFO
|
|
DOUBLE PRECISION OPS, TIME
|
|
* ..
|
|
*
|
|
* Purpose
|
|
* =======
|
|
*
|
|
* DMFLOP computes the megaflop rate given the number of operations
|
|
* and time in seconds. This is basically just a divide operation,
|
|
* but care is taken not to divide by zero.
|
|
*
|
|
* Arguments
|
|
* =========
|
|
*
|
|
* OPS (input) DOUBLE PRECISION
|
|
* The number of floating point operations.
|
|
* performed by the timed routine.
|
|
*
|
|
* TIME (input) DOUBLE PRECISION
|
|
* The total time in seconds.
|
|
*
|
|
* INFO (input) INTEGER
|
|
* The return code from the timed routine. If INFO is not 0,
|
|
* then DMFLOP returns a negative value, indicating an error.
|
|
*
|
|
* =====================================================================
|
|
*
|
|
* .. Parameters ..
|
|
DOUBLE PRECISION ZERO
|
|
PARAMETER ( ZERO = 0.0D+0 )
|
|
* ..
|
|
* .. Intrinsic Functions ..
|
|
INTRINSIC ABS, DBLE
|
|
* ..
|
|
* .. Executable Statements ..
|
|
*
|
|
IF( TIME.LE.ZERO ) THEN
|
|
DMFLOP = ZERO
|
|
ELSE
|
|
DMFLOP = OPS / ( 1.0D6*TIME )
|
|
END IF
|
|
IF( INFO.NE.0 )
|
|
$ DMFLOP = -ABS( DBLE( INFO ) )
|
|
RETURN
|
|
*
|
|
* End of DMFLOP
|
|
*
|
|
END
|