/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dchksb2stg.f | 367 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 794 TEMP3 = ZERO 800 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 805 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, local 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | schkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, local 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | dchksb2stg.f | 367 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 794 TEMP3 = ZERO 800 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 805 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | schkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | zlaqz3.f | 232 COMPLEX*16 :: TEMP, TEMP2, TEMP3, S 298 TEMP3 = BETA( I )*A( ILO+1, ILO ) 301 $ ABS( TEMP3 ) .GT. SAFMAX ) THEN 303 TEMP3 = CZERO 306 CALL ZLARTG( TEMP2, TEMP3, C, S, TEMP )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | schksb2stg.f | 354 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 781 TEMP3 = ZERO 787 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 792 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | zchkhb2stg.f | 364 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 791 TEMP3 = ZERO 797 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 802 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | cchkhb2stg.f | 364 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 791 TEMP3 = ZERO 797 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 802 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchksb2stg.f | 354 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 781 TEMP3 = ZERO 787 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 792 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchkst2stg.f | 657 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1068 TEMP3 = ZERO 1074 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1079 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1252 TEMP3 = ZERO 1258 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1263 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1504 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1506 TEMP3 = ZERO 1509 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | schkst2stg.f | 657 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1068 TEMP3 = ZERO 1074 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1079 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1252 TEMP3 = ZERO 1258 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1263 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1504 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1506 TEMP3 = ZERO 1509 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | claqz3.f | 230 COMPLEX :: TEMP, TEMP2, TEMP3, S 296 TEMP3 = BETA( I )*A( ILO+1, ILO ) 299 $ ABS( TEMP3 ) .GT. SAFMAX ) THEN 301 TEMP3 = CZERO 304 CALL CLARTG( TEMP2, TEMP3, C, S, TEMP )
|
H A D | zlaqz3.f | 232 COMPLEX*16 :: TEMP, TEMP2, TEMP3, S 298 TEMP3 = BETA( I )*A( ILO+1, ILO ) 301 $ ABS( TEMP3 ) .GT. SAFMAX ) THEN 303 TEMP3 = CZERO 306 CALL ZLARTG( TEMP2, TEMP3, C, S, TEMP )
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | zchkhb2stg.f | 376 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 803 TEMP3 = ZERO 809 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 814 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | cchkhb2stg.f | 379 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 806 TEMP3 = ZERO 812 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 817 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchksb2stg.f | 367 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 794 TEMP3 = ZERO 800 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 805 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | schksb2stg.f | 367 $ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL 794 TEMP3 = ZERO 800 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 805 RESULT(6) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
|
H A D | dchkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | schkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | schkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | dchkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | schkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|
H A D | dchkst2stg.f | 654 $ RTUNFL, TEMP1, TEMP2, TEMP3, TEMP4, ULP, 1065 TEMP3 = ZERO 1071 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1076 RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1249 TEMP3 = ZERO 1255 TEMP3 = MAX( TEMP3, ABS( D1( J ) ), ABS( D3( J ) ) ) 1260 RESULT( 12 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) ) 1501 TEMP3 = MAX( ABS( WA1( N ) ), ABS( WA1( 1 ) ) ) 1503 TEMP3 = ZERO 1506 RESULT( 19 ) = ( TEMP1+TEMP2 ) / MAX( UNFL, TEMP3*ULP )
|