diff options
| author | julie <julielangou@users.noreply.github.com> | 2009-09-11 21:04:20 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2009-09-11 21:04:20 +0000 |
| commit | 458bd37a2c24c3b1f6c26eeb5ab2196c83a3f44a (patch) | |
| tree | e77df336d707985d7ed16ca89fa198931fd2132f /INSTALL | |
| parent | d3b90da2431ae4ab48f44cad54304d69b22ed894 (diff) | |
| download | lapack-458bd37a2c24c3b1f6c26eeb5ab2196c83a3f44a.tar.gz lapack-458bd37a2c24c3b1f6c26eeb5ab2196c83a3f44a.tar.bz2 lapack-458bd37a2c24c3b1f6c26eeb5ab2196c83a3f44a.zip | |
Commit Julien's proposed change for bug0019
Diffstat (limited to 'INSTALL')
| -rw-r--r-- | INSTALL/secondtst.f | 33 |
1 files changed, 15 insertions, 18 deletions
diff --git a/INSTALL/secondtst.f b/INSTALL/secondtst.f index 33a5466f..c96d44e2 100644 --- a/INSTALL/secondtst.f +++ b/INSTALL/secondtst.f @@ -6,7 +6,7 @@ * * .. Parameters .. INTEGER NMAX, ITS - PARAMETER ( NMAX = 100, ITS = 5000 ) + PARAMETER ( NMAX = 1000, ITS = 5000 ) * .. * .. Local Scalars .. INTEGER I, J @@ -33,7 +33,7 @@ 10 CONTINUE ALPHA = 0.315 * -* Time 1,000,000 SAXPY operations +* Time 10,000,000 SAXPY operations * T1 = SECOND( ) DO 30 J = 1, ITS @@ -45,7 +45,7 @@ T2 = SECOND( ) WRITE( 6, 9999 )T2 - T1 IF( T2-T1.GT.0.0 ) THEN - WRITE( 6, 9998 )1.0 / ( T2-T1 ) + WRITE( 6, 9998 )10.0 / ( T2-T1 ) ELSE WRITE( 6, 9994 ) END IF @@ -66,26 +66,23 @@ * to SECOND. * WRITE( 6, 9997 )T2 - T1 - AVG = ( ( T2-T1 ) - TNOSEC ) * 1000./REAL( ITS ) - WRITE( 6, 9996 )AVG + AVG = ( ( T2-T1 ) - TNOSEC ) * 1000.0E+00/REAL( ITS ) + IF( AVG.GT.0.0) + $ WRITE( 6, 9996 )AVG * * Compute the equivalent number of floating point operations used * by an average call to SECOND. * - IF( TNOSEC.GT.0.0 ) + IF(( AVG.GT.0.0 ).AND.( TNOSEC.GT.0.0 )) $ WRITE( 6, 9995 )1000.*AVG / TNOSEC * - 9999 FORMAT( ' Time for 1,000,000 SAXPY ops = ', G10.3, ' seconds' ) - 9998 FORMAT( ' SAXPY performance rate = ', G10.3, ' mflops ' ) - 9997 FORMAT( ' Including SECOND, time = ', G10.3, ' seconds' ) - 9996 FORMAT( ' Average time for SECOND = ', G10.3, + 9999 FORMAT( ' Time for 10,000,000 SAXPY ops = ', G10.3, ' seconds' ) + 9998 FORMAT( ' SAXPY performance rate = ', G10.3, ' mflops ' ) + 9997 FORMAT( ' Including SECOND, time = ', G10.3, ' seconds' ) + 9996 FORMAT( ' Average time for SECOND = ', G10.3, $ ' milliseconds' ) - 9995 FORMAT( ' Equivalent floating point ops = ', G10.3, ' ops' ) - 9994 FORMAT( ' *** Error: Time for operations was zero' ) - CALL MYSUB(NMAX,X,Y) - END - SUBROUTINE MYSUB(N,X,Y) - INTEGER N - REAL X(N), Y(N) - RETURN + 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' ) END + |