58 lines
1.5 KiB
FortranFixed
58 lines
1.5 KiB
FortranFixed
REAL FUNCTION SMFLOP( 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
|
|
REAL OPS, TIME
|
|
* ..
|
|
*
|
|
* Purpose
|
|
* =======
|
|
*
|
|
* SMFLOP 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 - REAL
|
|
* On entry, OPS is the number of floating point operations
|
|
* performed by the timed routine.
|
|
*
|
|
* TIME - REAL
|
|
* On entry, TIME is the total time in seconds used by the
|
|
* timed routine.
|
|
*
|
|
* INFO - INTEGER
|
|
* On entry, INFO specifies the return code from the timed
|
|
* routine. If INFO is not 0, then SMFLOP returns a negative
|
|
* value, indicating an error.
|
|
*
|
|
* =====================================================================
|
|
*
|
|
* .. Parameters ..
|
|
REAL ZERO
|
|
PARAMETER ( ZERO = 0.0E+0 )
|
|
* ..
|
|
* .. Intrinsic Functions ..
|
|
INTRINSIC ABS, REAL
|
|
* ..
|
|
* .. Executable Statements ..
|
|
*
|
|
IF( TIME.LE.ZERO ) THEN
|
|
SMFLOP = ZERO
|
|
ELSE
|
|
SMFLOP = OPS / ( 1.0E6*TIME )
|
|
END IF
|
|
IF( INFO.NE.0 )
|
|
$ SMFLOP = -ABS( REAL( INFO ) )
|
|
RETURN
|
|
*
|
|
* End of SMFLOP
|
|
*
|
|
END
|