/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dlctes.f | 67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 89 DLCTES = ( ZR.LT.ZERO ) 91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 755 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 861 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 862 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 867 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 868 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 870 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 871 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
H A D | ddrges3.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 763 CALL DGGES3( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 869 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 870 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 875 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 876 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 878 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 879 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | dlctes.f | 67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 89 DLCTES = ( ZR.LT.ZERO ) 91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 755 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 861 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 862 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 867 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 868 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 870 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 871 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
H A D | ddrges3.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 763 CALL DGGES3( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 869 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 870 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 875 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 876 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 878 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 879 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | dlctes.f | 67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 89 DLCTES = ( ZR.LT.ZERO ) 91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges3.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 763 CALL DGGES3( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 869 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 870 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 875 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 876 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 878 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 879 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
H A D | ddrges.f | 448 LOGICAL DLCTES 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 755 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 861 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 862 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 867 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 868 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 870 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 871 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dlctes.f | 67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function 89 DLCTES = ( ZR.LT.ZERO ) 91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges3.f | 448 LOGICAL DLCTES local 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 763 CALL DGGES3( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 869 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 870 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 875 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 876 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 878 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 879 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
H A D | ddrges.f | 448 LOGICAL DLCTES local 451 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 755 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 861 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 862 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 867 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 868 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 870 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 871 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | dlctes.f | 69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function 92 DLCTES = ( ZR.LT.ZERO ) 94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 451 LOGICAL DLCTES local 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | dlctes.f | 69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function 92 DLCTES = ( ZR.LT.ZERO ) 94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 451 LOGICAL DLCTES local 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | dlctes.f | 69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function 92 DLCTES = ( ZR.LT.ZERO ) 94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 451 LOGICAL DLCTES local 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | dlctes.f | 69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 92 DLCTES = ( ZR.LT.ZERO ) 94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 451 LOGICAL DLCTES 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
H A D | ddrges3.f | 451 LOGICAL DLCTES 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES3( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | dlctes.f | 67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 89 DLCTES = ( ZR.LT.ZERO ) 91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dlctes.f | 69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) 92 DLCTES = ( ZR.LT.ZERO ) 94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
|
H A D | ddrges.f | 451 LOGICAL DLCTES 454 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 758 CALL DGGES( 'V', 'V', SORT, DLCTES, N, S, LDA, T, LDA, 864 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 865 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 870 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 871 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 873 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 874 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|
/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_ddrges.f | 334 LOGICAL DLCTES 337 EXTERNAL DLCTES, ILAENV, DLAMCH, DLARND 644 CALL LA_TEST_DGGES( 'V', 'V', SORT, DLCTES, N, S, 751 IF( DLCTES( ALPHAR( I ), ALPHAI( I ), 752 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ), 757 IF( ( DLCTES( ALPHAR( I+1 ), ALPHAI( I+1 ), 758 $ BETA( I+1 ) ) .OR. DLCTES( ALPHAR( I+1 ), 760 $ ( .NOT.( DLCTES( ALPHAR( I ), ALPHAI( I ), 761 $ BETA( I ) ) .OR. DLCTES( ALPHAR( I ),
|