Home
last modified time | relevance | path

Searched refs:DLCTES (Results 1 – 25 of 39) sorted by relevance

12

/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/
H A Ddlctes.f67 LOGICAL FUNCTION DLCTES( ZR, ZI, D )
89 DLCTES = ( ZR.LT.ZERO )
91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f448 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 Dddrges3.f448 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 Ddlctes.f67 LOGICAL FUNCTION DLCTES( ZR, ZI, D )
89 DLCTES = ( ZR.LT.ZERO )
91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f448 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 Dddrges3.f448 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 Ddlctes.f67 LOGICAL FUNCTION DLCTES( ZR, ZI, D )
89 DLCTES = ( ZR.LT.ZERO )
91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges3.f448 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 Dddrges.f448 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 Ddlctes.f67 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function
89 DLCTES = ( ZR.LT.ZERO )
91 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges3.f448 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 Dddrges.f448 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 Ddlctes.f69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function
92 DLCTES = ( ZR.LT.ZERO )
94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f451 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 Ddlctes.f69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function
92 DLCTES = ( ZR.LT.ZERO )
94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f451 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 Ddlctes.f69 LOGICAL FUNCTION DLCTES( ZR, ZI, D ) function
92 DLCTES = ( ZR.LT.ZERO )
94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f451 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 Ddlctes.f69 LOGICAL FUNCTION DLCTES( ZR, ZI, D )
92 DLCTES = ( ZR.LT.ZERO )
94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f451 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 Dddrges3.f451 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 Ddlctes.f67 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 Ddlctes.f69 LOGICAL FUNCTION DLCTES( ZR, ZI, D )
92 DLCTES = ( ZR.LT.ZERO )
94 DLCTES = ( SIGN( ONE, ZR ).NE.SIGN( ONE, D ) )
H A Dddrges.f451 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 Dla_ddrges.f334 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 ),

12