SECONDTST - Online Linux Manual PageSection : 1
Updated : November 2008
Source : LAPACK test routine (version 3.2)
Note : LAPACK test routine (version 3.2)

NAME

SYNOPSISPROGRAM TEST4    INTEGER NMAX, ITS  PARAMETER ( NMAX = 100, ITS = 5000 )  INTEGER I, J  REAL ALPHA, AVG, T1, T2, TNOSEC  REAL X( NMAX ), Y( NMAX )  REAL SECOND  EXTERNAL SECOND  INTRINSIC REAL  DO 10 I = 1, NMAX  X( I ) = REAL( 1 ) / REAL( I )  Y( I ) = REAL( NMAX-I ) / REAL( NMAX )  10 CONTINUE  ALPHA = 0.315  T1 = SECOND( )  DO 30 J = 1, ITS  DO 20 I = 1, NMAX  Y( I ) = Y( I ) + ALPHA*X( I )  20 CONTINUE  ALPHA = -ALPHA  30 CONTINUE  T2 = SECOND( )  WRITE( 6, 9999 )T2 - T1  IF( T2-T1.GT.0.0 ) THEN  WRITE( 6, 9998 )1.0 / ( T2-T1 )  ELSE  WRITE( 6, 9994 )  END IF  TNOSEC = T2 - T1  T1 = SECOND( )  DO 50 J = 1, ITS  DO 40 I = 1, NMAX  Y( I ) = Y( I ) + ALPHA*X( I )  40 CONTINUE  ALPHA = -ALPHA  T2 = SECOND( )  50 CONTINUE  WRITE( 6, 9997 )T2 - T1  AVG = ( ( T2-T1 ) - TNOSEC ) * 1000./REAL( ITS )  WRITE( 6, 9996 )AVG  IF( 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, ' 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  END

PURPOSE
0
Johanes Gumabo
Data Size   :   19,436 byte
man-secondtst.lBuild   :   2024-12-05, 20:55   :  
Visitor Screen   :   x
Visitor Counter ( page / site )   :   2 / 202,802
Visitor ID   :     :  
Visitor IP   :   18.223.159.237   :  
Visitor Provider   :   AMAZON-02   :  
Provider Position ( lat x lon )   :   39.962500 x -83.006100   :   x
Provider Accuracy Radius ( km )   :   1000   :  
Provider City   :   Columbus   :  
Provider Province   :   Ohio ,   :   ,
Provider Country   :   United States   :  
Provider Continent   :   North America   :  
Visitor Recorder   :   Version   :  
Visitor Recorder   :   Library   :  
Online Linux Manual Page   :   Version   :   Online Linux Manual Page - Fedora.40 - march=x86-64 - mtune=generic - 24.12.05
Online Linux Manual Page   :   Library   :   lib_c - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Online Linux Manual Page   :   Library   :   lib_m - 24.10.03 - march=x86-64 - mtune=generic - Fedora.40
Data Base   :   Version   :   Online Linux Manual Page Database - 24.04.13 - march=x86-64 - mtune=generic - fedora-38
Data Base   :   Library   :   lib_c - 23.02.07 - march=x86-64 - mtune=generic - fedora.36

Very long time ago, I have the best tutor, Wenzel Svojanovsky . If someone knows the email address of Wenzel Svojanovsky , please send an email to johanes_gumabo@yahoo.co.id .
If error, please print screen and send to johanes_gumabo@yahoo.co.id
Under development. Support me via PayPal.