phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add missing external declarations in TESTING/LIN (and removed unnecessary ones)

Browse Source
This commit is contained in:
Simon Maertens
2026-05-12 16:57:21 +01:00
parent d653fbe98a
commit 0232856846
106 changed files with 234 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TESTING/LIN/cchkaa.F
+4 -1
View File
@@ -177,7 +177,10 @@
$ CDRVHE_ROOK, CDRVHE_RK, CDRVHE_AA, CDRVHP,
$ CDRVLS, CDRVPB, CDRVPO, CDRVPP, CDRVPT, CDRVSP,
$ CDRVSY, CDRVSY_ROOK, CDRVSY_RK, CDRVSY_AA,
$ ILAVER, CCHKQRT, CCHKQRTP
$ ILAVER, CCHKQRT, CCHKQRTP,
$ CCHKLQT, CCHKLQTP, CCHKTSQR,
$ CCHKHE_AA_2STAGE, CDRVHE_AA_2STAGE,
$ CCHKSY_AA_2STAGE, CDRVSY_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cchkhe.f
+1 -1
View File
@@ -221,7 +221,7 @@
EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CGET04, CHECON,
$ CHERFS, CHET01, CHETRF, CHETRI2, CHETRS,
$ CLACPY, CLAIPD, CLARHS, CLATB4, CLATMS, CPOT02,
$ CPOT03, CPOT05, XLAENV
$ CPOT03, CPOT05, CHETRS2, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cchkhe_aa_2stage.f
+3 -4
View File
@@ -217,10 +217,9 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CLACPY,
$ CLARHS, CLATB4, CLATMS, CPOT02,
$ CHETRF_AA_2STAGE,
$ CHETRS_AA_2STAGE, XLAENV
EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CLACPY,
$ CLAIPD, CLARHS, CLATB4, CLATMS, CPOT02,
$ CHETRF_AA_2STAGE, CHETRS_AA_2STAGE, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cchklqt.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQT, CLQT04
EXTERNAL ALAHD, ALASUM, CERRLQT, CLQT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cchklqtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQTP, CLQT04
EXTERNAL ALAHD, ALASUM, CERRLQTP, CLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cchkqrt.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRT, CQRT04
EXTERNAL ALAHD, ALASUM, CERRQRT, CQRT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cchkqrtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRTP
EXTERNAL ALAHD, ALASUM, CERRQRTP, CQRT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cchkrfp.f
+1 -1
View File
@@ -111,7 +111,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ILAVER, CDRVRFP, CDRVRF1, CDRVRF2, CDRVRF3,
+ CDRVRF4
+ CDRVRF4, CERRRFP
* ..
* .. Executable Statements ..
*
TESTING/LIN/cchksy.f
+1 -1
View File
@@ -221,7 +221,7 @@
EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CGET04, CLACPY,
$ CLARHS, CLATB4, CLATMS, CLATSY, CPOT05, CSYCON,
$ CSYRFS, CSYT01, CSYT02, CSYT03, CSYTRF,
$ CSYTRI2, CSYTRS, XLAENV
$ CSYTRI2, CSYTRS, CSYTRS2, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cchksy_aa_2stage.f
+2 -3
View File
@@ -215,9 +215,8 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CLACPY, CLARHS,
$ CLATB4, CLATMS, CSYT02, CSYT01,
$ CSYTRF_AA_2STAGE, CSYTRS_AA_2STAGE,
$ XLAENV
$ CLATB4, CLATMS, CSYT02, CSYTRF_AA_2STAGE,
$ CSYTRS_AA_2STAGE, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cchktsqr.f
+1 -2
View File
@@ -129,8 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, CERRTSQR,
$ CTSQR01, XLAENV
EXTERNAL ALAHD, ALASUM, CERRTSQR, CTSQR01, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cdrvhe_aa.f
+3 -8
View File
@@ -193,15 +193,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
REAL CLANHE, SGET06
EXTERNAL CLANHE, SGET06
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX,
$ CGET04, CLACPY, CLARHS, CLATB4, CLATMS,
$ CHESV_AA, CHET01_AA, CPOT02,
$ CHETRF_AA
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY,
$ CLARHS, CLATB4, CLATMS, CHESV_AA, CHET01_AA,
$ CPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cdrvhe_aa_2stage.f
+3 -8
View File
@@ -195,15 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
REAL CLANHE, SGET06
EXTERNAL CLANHE, SGET06
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX,
$ CGET04, CLACPY, CLARHS, CLATB4, CLATMS,
$ CHESV_AA_2STAGE, CPOT02,
$ CHETRF_AA_2STAGE
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY,
$ CLARHS, CLATB4, CLATMS, CHESV_AA_2STAGE,
$ CPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cdrvhe_rk.f
+1 -1
View File
@@ -206,7 +206,7 @@
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CGET04,
$ CLACPY, CLARHS, CLATB4, CLATMS, CHESV_RK,
$ CHET01_3, CPOT02, CHETRF_RK, CHETRI_3
$ CHET01_3, CPOT02, CHETRF_RK, CSYTRI_3
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cdrvls.f
+1 -1
View File
@@ -253,7 +253,7 @@
EXTERNAL ALAERH, ALAHD, ALASVM, CERRLS, CGELS, CGELSD,
$ CGELSS, CGELST, CGELSY, CGEMM, CGETSLS, CLACPY,
$ CLARNV, CQRT13, CQRT15, CQRT16, CSSCAL,
$ SAXPY, XLAENV
$ CSCAL, SAXPY, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN, INT, REAL, SQRT
TESTING/LIN/cdrvrf3.f
+1 -1
View File
@@ -165,7 +165,7 @@
EXTERNAL SLAMCH, CLARND, CLANGE, LSAME
* ..
* .. External Subroutines ..
EXTERNAL CTRTTF, CGEQRF, CGEQLF, CTFSM, CTRSM
EXTERNAL CTRTTF, CGEQRF, CGELQF, CTFSM, CTRSM
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, SQRT
TESTING/LIN/cdrvsy_aa.f
+3 -7
View File
@@ -195,14 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
REAL DGET06, CLANSY
EXTERNAL DGET06, CLANSY
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CLACPY,
$ CLARHS, CLASET, CLATB4, CLATMS, CSYT02,
$ CSYSV_AA, CSYT01_AA, CSYTRF_AA, XLAENV
EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CLACPY, CLARHS,
$ CLATB4, CLATMS, CSYT02, CSYSV_AA, CSYT01_AA,
$ XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cdrvsy_aa_2stage.f
+3 -8
View File
@@ -195,15 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
COMPLEX CLANSY, SGET06
EXTERNAL CLANSY, SGET06
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX,
$ CGET04, CLACPY, CLARHS, CLATB4, CLATMS,
$ CSYSV_AA_2STAGE, CSYT01_AA, CSYT02,
$ CSYTRF_AA_2STAGE
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY,
$ CLARHS, CLATB4, CLATMS, CSYSV_AA_2STAGE,
$ CSYT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cdrvsy_rook.f
+3 -3
View File
@@ -199,9 +199,9 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CGET04,
$ CLACPY, CLARHS, CLASET, CLATB4, CLATMS, CLATSY,
$ CPOT05, CSYSV_ROOK, CSYT01_ROOK, CSYT02,
$ CSYTRF_ROOK, CSYTRI_ROOK
$ CLACPY, CLARHS, CLATB4, CLATMS, CLATSY,
$ CSYSV_ROOK, CSYT01_ROOK, CSYT02, CSYTRF_ROOK,
$ CSYTRI_ROOK
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cerrhe.f
+2 -2
View File
@@ -86,8 +86,8 @@
EXTERNAL LSAMEN
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHECON, CSYCON_3, CHECON_ROOK, CHERFS,
$ CHETF2, CHETF2_RK, CHETF2_ROOK, CHETRF_AA,
EXTERNAL ALAESM, CHECON, CHECON_3, CHECON_ROOK, CHERFS,
$ CHETF2, CHETF2_RK, CHETF2_ROOK, CHETRF_AA,
$ CHETRF, CHETRF_RK, CHETRF_ROOK, CHETRI,
$ CHETRI_3, CHETRI_3X, CHETRI_ROOK, CHETRI2,
$ CHETRI2X, CHETRS, CHETRS_3, CHETRS_ROOK,
TESTING/LIN/cerrsy.f
+2 -1
View File
@@ -90,7 +90,8 @@
$ CSYTF2, CSYTF2_RK, CSYTF2_ROOK, CSYTRF,
$ CSYTRF_RK, CSYTRF_ROOK, CSYTRI, CSYTRI_3,
$ CSYTRI_3X, CSYTRI_ROOK, CSYTRI2, CSYTRI2X,
$ CSYTRS, CSYTRS_3, CSYTRS_ROOK
$ CSYTRS, CSYTRS_3, CSYTRS_ROOK, CSYTRF_AA,
$ CSYTRS_AA, CSYTRF_AA_2STAGE, CSYTRS_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cerrtsqr.f
+2 -2
View File
@@ -77,8 +77,8 @@
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, CGEQR,
$ CGEMQR, CGELQ, CGEMLQ
EXTERNAL ALAESM, CHKXER, CGEQR, CGEMQR, CGELQ,
$ CGEMLQ, CLATSQR, CLASWLQ
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/cerrvx.f
+2 -1
View File
@@ -88,7 +88,8 @@
* ..
* .. External Subroutines ..
EXTERNAL CGBSV, CGBSVX, CGESV, CGESVX, CGTSV, CGTSVX,
$ CHESV, CHESV_RK, CHESV_ROOK, CHESVX, CHKXER,
$ CHESV, CHESV_AA, CHESV_AA_2STAGE, CHESV_RK,
$ CHESV_ROOK, CHESVX, CHKXER,
$ CHPSV, CHPSVX, CPBSV, CPBSVX, CPOSV, CPOSVX,
$ CPPSV, CPPSVX, CPTSV, CPTSVX, CSPSV, CSPSVX,
$ CSYSV, CSYSV_AA, CSYSV_RK, CSYSV_ROOK,
TESTING/LIN/chet01_aa.f
+1 -1
View File
@@ -157,7 +157,7 @@
EXTERNAL LSAME, SLAMCH, CLANHE
* ..
* .. External Subroutines ..
EXTERNAL CLASET, CLAVHE
EXTERNAL CLASET, CSWAP, CTRMM, CLACPY, CLACGV
* ..
* .. Intrinsic Functions ..
INTRINSIC REAL
TESTING/LIN/clqt04.f
+5 -1
View File
@@ -107,7 +107,11 @@
REAL SLAMCH
REAL CLANGE, CLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY
* ..
* .. External Subroutines ..
EXTERNAL CLARNV, CLACPY, CGELQT, CLASET, CGEMLQT, CGEMM,
$ CHERK
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/clqt05.f
+5 -1
View File
@@ -113,7 +113,11 @@
REAL SLAMCH
REAL CLANGE, CLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY
* ..
* .. External Subroutines ..
EXTERNAL CLASET, CLARNV, CLACPY, CTPLQT, CGEMLQT, CGEMM,
$ CHERK, CTPMLQT
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/cqrt04.f
+5 -1
View File
@@ -102,11 +102,15 @@
* .. Local Arrays ..
INTEGER ISEED( 4 )
* ..
* .. External Subroutines ..
EXTERNAL CGEMM, CLACPY, CLARNV, CGEMQRT, CLASET, CGEQRT,
$ CHERK
* ..
* .. External Functions ..
REAL SLAMCH
REAL CLANGE, CLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cqrt05.f
+5 -1
View File
@@ -109,11 +109,15 @@
* .. Local Arrays ..
INTEGER ISEED( 4 )
* ..
* .. External Subroutines ..
EXTERNAL CGEMM, CLARNV, CTPMQRT, CTPQRT, CGEMQRT, CHERK,
$ CLACPY, CLASET
* ..
* .. External Functions ..
REAL SLAMCH
REAL CLANGE, CLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME
EXTERNAL SLAMCH, CLANGE, CLANSY
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/csyt01_aa.f
+1 -1
View File
@@ -157,7 +157,7 @@
EXTERNAL LSAME, SLAMCH, CLANSY
* ..
* .. External Subroutines ..
EXTERNAL CLASET, CLAVSY
EXTERNAL CLASET, CSWAP, CTRMM, CLACPY
* ..
* .. Intrinsic Functions ..
INTRINSIC REAL
TESTING/LIN/ctsqr01.f
+5 -1
View File
@@ -118,7 +118,11 @@
REAL SLAMCH, CLANGE, CLANSY
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME, ILAENV
EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME
* ..
* .. External Subroutines ..
EXTERNAL CLARNV, CLACPY, CGELQ, CGEMLQ, CLASET, CGEMM,
$ CHERK, CGEQR, CGEMQR
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/cunhr_col02.f
+2 -2
View File
@@ -158,8 +158,8 @@
EXTERNAL SLAMCH, CLANGE, CLANSY
* ..
* .. External Subroutines ..
EXTERNAL CLACPY, CLARNV, CLASET, CGETSQRHRT,
$ CSCAL, CGEMM, CGEMQRT, CHERK
EXTERNAL CLACPY, CLARNV, CLASET, CGETSQRHRT, CGEMM,
$ CGEMQRT, CHERK
* ..
* .. Intrinsic Functions ..
INTRINSIC CEILING, REAL, MAX, MIN
TESTING/LIN/dchkaa.F
+3 -2
View File
@@ -170,8 +170,9 @@
$ DCHKSY_AA, DCHKTB, DCHKTP, DCHKTR, DCHKTZ,
$ DDRVGB, DDRVGE, DDRVGT, DDRVLS, DDRVPB, DDRVPO,
$ DDRVPP, DDRVPT, DDRVSP, DDRVSY, DDRVSY_ROOK,
$ DDRVSY_RK, DDRVSY_AA, ILAVER, DCHKLQTP, DCHKQRT,
$ DCHKQRTP, DCHKLQT,DCHKTSQR
$ DDRVSY_RK, DDRVSY_AA, ILAVER, DCHKLQTP,
$ DCHKQRT, DCHKQRTP, DCHKLQT, DCHKTSQR,
$ DCHKSY_AA_2STAGE, DDRVSY_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/dchklqt.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQT, DLQT04
EXTERNAL ALAHD, ALASUM, DERRLQT, DLQT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/dchklqtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05
EXTERNAL ALAHD, ALASUM, DERRLQTP, DLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/dchkqrt.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRT, DQRT04
EXTERNAL ALAHD, ALASUM, DERRQRT, DQRT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/dchkqrtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRTP
EXTERNAL ALAHD, ALASUM, DERRQRTP, DQRT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/dchkrfp.f
+1 -1
View File
@@ -110,7 +110,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ILAVER, DDRVRFP, DDRVRF1, DDRVRF2, DDRVRF3,
+ DDRVRF4
+ DDRVRF4, DERRRFP
* ..
* .. Executable Statements ..
*
TESTING/LIN/dchktsqr.f
+1 -2
View File
@@ -129,8 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRTSQR,
$ DTSQR01, XLAENV
EXTERNAL ALAHD, ALASUM, DERRTSQR, DTSQR01, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/ddrvab.f
+1 -1
View File
@@ -194,7 +194,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, DGET08, DLACPY, DLARHS, DLASET,
$ DLATB4, DLATMS
$ DLATB4, DLATMS, DSGESV
* ..
* .. Intrinsic Functions ..
INTRINSIC DBLE, MAX, MIN, SQRT
TESTING/LIN/ddrvac.f
+1 -6
View File
@@ -186,13 +186,8 @@
* .. Local Variables ..
INTEGER ITER, KASE
* ..
* .. External Functions ..
LOGICAL LSAME
EXTERNAL LSAME
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, DLACPY,
$ DLARHS, DLASET, DLATB4, DLATMS,
EXTERNAL ALAERH, ALAHD, DLACPY, DLARHS, DLATB4, DLATMS,
$ DPOT06, DSPOSV
* ..
* .. Intrinsic Functions ..
TESTING/LIN/ddrvgbx.f
+1 -1
View File
@@ -234,7 +234,7 @@
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGBEQU, DGBSV,
$ DGBSVX, DGBT01, DGBT02, DGBT05, DGBTRF, DGBTRS,
$ DGET04, DLACPY, DLAQGB, DLARHS, DLASET, DLATB4,
$ DLATMS, XLAENV, DGBSVXX, DGBEQUB
$ DLATMS, XLAENV, DGBSVXX
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, MAX, MIN
TESTING/LIN/ddrvrf3.f
+1 -1
View File
@@ -160,7 +160,7 @@
EXTERNAL DLAMCH, DLANGE, DLARND, LSAME
* ..
* .. External Subroutines ..
EXTERNAL DTRTTF, DGEQRF, DGEQLF, DTFSM, DTRSM
EXTERNAL DTRTTF, DGEQRF, DGELQF, DTFSM, DTRSM
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, SQRT
TESTING/LIN/ddrvsy_aa.f
+3 -7
View File
@@ -191,14 +191,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DGET06, DLANSY
EXTERNAL DGET06, DLANSY
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY,
$ DLARHS, DLASET, DLATB4, DLATMS, DPOT02,
$ DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DLACPY, DLARHS,
$ DLATB4, DLATMS, DPOT02, DSYSV_AA, DSYT01_AA,
$ XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/ddrvsy_aa_2stage.f
+3 -8
View File
@@ -195,15 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DLANSY, SGET06
EXTERNAL DLANSY, SGET06
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, DERRVX,
$ DGET04, DLACPY, DLARHS, DLATB4, DLATMS,
$ DSYSV_AA_2STAGE, DPOT02,
$ DSYTRF_AA_2STAGE
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, DERRVX, DLACPY,
$ DLARHS, DLATB4, DLATMS, DSYSV_AA_2STAGE,
$ DPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/ddrvsy_rook.f
+2 -4
View File
@@ -197,10 +197,8 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY,
$ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05,
$ DSYSV_ROOK, DSYT01_ROOK, DSYTRF_ROOK,
$ DSYTRI_ROOK,
$ XLAENV
$ DLARHS, DLATB4, DLATMS, DPOT02, DSYSV_ROOK,
$ DSYT01_ROOK, DSYTRF_ROOK, DSYTRI_ROOK, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/derrtsqr.f
+1 -1
View File
@@ -77,7 +77,7 @@
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, DGEQR,
EXTERNAL ALAESM, CHKXER, DGEQR, DLATSQR, DLASWLQ,
$ DGEMQR, DGELQ, DGEMLQ
* ..
* .. Scalars in Common ..
TESTING/LIN/dlqt04.f
+5 -2
View File
@@ -102,8 +102,11 @@
* ..
* .. External Functions ..
DOUBLE PRECISION DLAMCH, DLANGE, DLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY
* ..
* .. External Subroutines ..
EXTERNAL DLARNV, DLACPY, DGELQT, DLASET, DGEMLQT, DGEMM,
$ DSYRK
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/dlqt05.f
+5 -2
View File
@@ -109,8 +109,11 @@
* ..
* .. External Functions ..
DOUBLE PRECISION DLAMCH, DLANGE, DLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY
* ..
* .. External Subroutines ..
EXTERNAL DLASET, DLARNV, DLACPY, DTPLQT, DGEMLQT, DGEMM,
$ DSYRK, DTPMLQT
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/dorhr_col02.f
+2 -2
View File
@@ -154,8 +154,8 @@
EXTERNAL DLAMCH, DLANGE, DLANSY
* ..
* .. External Subroutines ..
EXTERNAL DLACPY, DLARNV, DLASET, DGETSQRHRT,
$ DSCAL, DGEMM, DGEMQRT, DSYRK
EXTERNAL DLACPY, DLARNV, DLASET, DGETSQRHRT, DGEMM,
$ DGEMQRT, DSYRK
* ..
* .. Intrinsic Functions ..
INTRINSIC CEILING, DBLE, MAX, MIN
TESTING/LIN/dqrt04.f
+4 -2
View File
@@ -100,10 +100,12 @@
* .. Local Arrays ..
INTEGER ISEED( 4 )
* ..
* .. External Subroutines ..
EXTERNAL DGEMM, DLACPY, DLARNV, DGEMQRT, DLASET, DGEQRT, DSYRK
* ..
* .. External Functions ..
DOUBLE PRECISION DLAMCH, DLANGE, DLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/dqrt05.f
+5 -2
View File
@@ -107,10 +107,13 @@
* .. Local Arrays ..
INTEGER ISEED( 4 )
* ..
* .. External Subroutines ..
EXTERNAL DGEMM, DLARNV, DTPMQRT, DTPQRT, DGEMQRT, DSYRK,
$ DLACPY, DLASET
* ..
* .. External Functions ..
DOUBLE PRECISION DLAMCH, DLANGE, DLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME
EXTERNAL DLAMCH, DLANGE, DLANSY
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/dsyt01_aa.f
+1 -1
View File
@@ -154,7 +154,7 @@
EXTERNAL LSAME, DLAMCH, DLANSY
* ..
* .. External Subroutines ..
EXTERNAL DLASET, DLAVSY
EXTERNAL DLASET, DSWAP, DTRMM, DLACPY
* ..
* .. Intrinsic Functions ..
INTRINSIC DBLE
TESTING/LIN/dtsqr01.f
+5 -2
View File
@@ -117,8 +117,11 @@
* .. External Functions ..
DOUBLE PRECISION DLAMCH, DLANGE, DLANSY
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME, ILAENV
EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME
* ..
* .. External Subroutines ..
EXTERNAL DLARNV, DLACPY, DGELQ, DGEMLQ, DLASET, DGEMM,
$ DSYRK, DGEQR, DGEMQR
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/schkaa.F
+3 -2
View File
@@ -168,8 +168,9 @@
$ SCHKSY_AA, SCHKTB, SCHKTP, SCHKTR, SCHKTZ,
$ SDRVGB, SDRVGE, SDRVGT, SDRVLS, SDRVPB, SDRVPO,
$ SDRVPP, SDRVPT, SDRVSP, SDRVSY, SDRVSY_ROOK,
$ SDRVSY_RK, SDRVSY_AA, ILAVER, SCHKLQTP, SCHKQRT,
$ SCHKQRTP, SCHKLQT, SCHKTSQR
$ SDRVSY_RK, SDRVSY_AA, ILAVER, SCHKLQTP,
$ SCHKQRT, SCHKQRTP, SCHKLQT, SCHKTSQR,
$ SCHKSY_AA_2STAGE, SDRVSY_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/schklq.f
+1 -1
View File
@@ -238,7 +238,7 @@
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQ, SGET02,
$ SLACPY, SLARHS, SLATB4, SLATMS, SLQT01, SLQT02,
$ SLQT03, XLAENV
$ SLQT03, SGELS, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/schklqt.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQT, SLQT04
EXTERNAL ALAHD, ALASUM, SERRLQT, SLQT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/schklqtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05
EXTERNAL ALAHD, ALASUM, SERRLQTP, SLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/schkqrt.f
+1 -1
View File
@@ -126,7 +126,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRT, SQRT04
EXTERNAL ALAHD, ALASUM, SERRQRT, SQRT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/schkqrtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRTP, SQRT05
EXTERNAL ALAHD, ALASUM, SERRQRTP, SQRT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/schkrfp.f
+1 -1
View File
@@ -109,7 +109,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ILAVER, SDRVRFP, SDRVRF1, SDRVRF2, SDRVRF3,
+ SDRVRF4
+ SDRVRF4, SERRRFP
* ..
* .. Executable Statements ..
*
TESTING/LIN/schksy.f
+2 -2
View File
@@ -216,8 +216,8 @@
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY,
$ SLARHS, SLATB4, SLATMS, SPOT02, SPOT03, SPOT05,
$ SSYCON, SSYCONV, SSYRFS, SSYT01, SSYTRF,
$ SSYTRI2, SSYTRS, SSYTRS2, XLAENV
$ SSYCON, SSYRFS, SSYT01, SSYTRF, SSYTRI2,
$ SSYTRS, SSYTRS2, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/schksy_aa_2stage.f
+2 -3
View File
@@ -213,9 +213,8 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SLACPY, SLARHS,
$ SLATB4, SLATMS, SPOT02, SSYT01_AA,
$ SSYTRF_AA_2STAGE, SSYTRS_AA_2STAGE,
$ XLAENV
$ SLATB4, SLATMS, SPOT02, SSYTRF_AA_2STAGE,
$ SSYTRS_AA_2STAGE, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/schktsqr.f
+1 -2
View File
@@ -129,8 +129,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, SERRTSQR,
$ STSQR01, XLAENV
EXTERNAL ALAHD, ALASUM, SERRTSQR, STSQR01, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/sdrvrf3.f
+1 -1
View File
@@ -160,7 +160,7 @@
EXTERNAL SLAMCH, SLANGE, SLARND, LSAME
* ..
* .. External Subroutines ..
EXTERNAL STRTTF, SGEQRF, SGEQLF, STFSM, STRSM
EXTERNAL STRTTF, SGEQRF, SGELQF, STFSM, STRSM
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, SQRT
TESTING/LIN/sdrvsy_aa.f
+3 -7
View File
@@ -191,14 +191,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
REAL DGET06, SLANSY
EXTERNAL DGET06, SLANSY
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY,
$ SLARHS, SLASET, SLATB4, SLATMS, SPOT02,
$ SSYSV_AA, SSYT01_AA, SSYTRF_AA, XLAENV
EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SLACPY, SLARHS,
$ SLATB4, SLATMS, SPOT02, SSYSV_AA, SSYT01_AA,
$ XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/sdrvsy_aa_2stage.f
+3 -8
View File
@@ -195,15 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
* .. External Functions ..
REAL SLANSY, SGET06
EXTERNAL SLANSY, SGET06
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, SERRVX,
$ SLACPY, SLARHS, SLATB4, SLATMS,
$ SSYSV_AA_2STAGE, SSYT01_AA, SPOT02,
$ SSYTRF_AA_2STAGE
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, SERRVX, SLACPY,
$ SLARHS, SLATB4, SLATMS, SSYSV_AA_2STAGE,
$ SPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/sdrvsy_rook.f
+2 -4
View File
@@ -198,10 +198,8 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY,
$ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, SPOT05,
$ SSYSV_ROOK, SSYT01_ROOK, SSYTRF_ROOK,
$ SSYTRI_ROOK,
$ XLAENV
$ SLARHS, SLATB4, SLATMS, SPOT02, SSYSV_ROOK,
$ SSYT01_ROOK, SSYTRF_ROOK, SSYTRI_ROOK, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/serrtsqr.f
+2 -2
View File
@@ -77,8 +77,8 @@
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, SGEQR,
$ SGEMQR, SGELQ, SGEMLQ
EXTERNAL ALAESM, CHKXER, SGEQR, SGEMQR, SGELQ,
$ SGEMLQ, SLATSQR, SLASWLQ
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/slqt04.f
+4 -2
View File
@@ -102,8 +102,10 @@
* ..
* .. External Functions ..
REAL SLAMCH, SLANGE, SLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY
* ..
* .. External Subroutines ..
EXTERNAL SLARNV, SLACPY, SGELQT, SLASET, SGEMLQT, SGEMM, SSYRK
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/slqt05.f
+5 -2
View File
@@ -108,8 +108,11 @@
* ..
* .. External Functions ..
REAL SLAMCH, SLANGE, SLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY
* ..
* .. External Subroutines ..
EXTERNAL SLASET, SLARNV, SLACPY, STPLQT, SGEMLQT, SGEMM,
$ SSYRK, STPMLQT
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/sorhr_col02.f
+2 -2
View File
@@ -154,8 +154,8 @@
EXTERNAL SLAMCH, SLANGE, SLANSY
* ..
* .. External Subroutines ..
EXTERNAL SLACPY, SLARNV, SLASET, SGETSQRHRT,
$ SSCAL, SGEMM, SGEMQRT, SSYRK
EXTERNAL SLACPY, SLARNV, SLASET, SGETSQRHRT, SGEMM,
$ SGEMQRT, SSYRK
* ..
* .. Intrinsic Functions ..
INTRINSIC CEILING, REAL, MAX, MIN
TESTING/LIN/sqrt04.f
+1 -2
View File
@@ -106,8 +106,7 @@
* .. External Functions ..
REAL SLAMCH
REAL SLANGE, SLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/sqrt05.f
+1 -2
View File
@@ -114,8 +114,7 @@
* .. External Functions ..
REAL SLAMCH
REAL SLANGE, SLANSY
LOGICAL LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME
EXTERNAL SLAMCH, SLANGE, SLANSY
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /
TESTING/LIN/ssyt01_aa.f
+1 -1
View File
@@ -154,7 +154,7 @@
EXTERNAL LSAME, SLAMCH, SLANSY
* ..
* .. External Subroutines ..
EXTERNAL SLASET, SLAVSY, SSWAP, STRMM, SLACPY
EXTERNAL SLASET, SSWAP, STRMM, SLACPY
* ..
* .. Intrinsic Functions ..
INTRINSIC REAL
TESTING/LIN/stsqr01.f
+5 -1
View File
@@ -118,7 +118,11 @@
REAL SLAMCH, SLANGE, SLANSY
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL SLAMCH, SLARNV, SLANGE, SLANSY, LSAME, ILAENV
EXTERNAL SLAMCH, SLARNV, SLANGE, SLANSY, LSAME
* ..
* .. External Subroutines ..
EXTERNAL SLACPY, SGELQ, SGEMLQ, SLASET, SGEMM, SSYRK,
$ SGEQR, SGEMQR
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/zchkaa.F
+2 -1
View File
@@ -179,7 +179,8 @@
$ ZDRVPO, ZDRVPP, ZDRVPT, ZDRVSP, ZDRVSY,
$ ZDRVSY_ROOK, ZDRVSY_RK, ZDRVSY_AA,
$ ZDRVSY_AA_2STAGE, ILAVER, ZCHKQRT, ZCHKQRTP,
$ ZCHKLQT, ZCHKLQTP, ZCHKTSQR
$ ZCHKLQT, ZCHKLQTP, ZCHKTSQR,
$ ZCHKHE_AA_2STAGE, ZCHKSY_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zchkhe.f
+1 -1
View File
@@ -221,7 +221,7 @@
EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04,
$ ZHECON, ZHERFS, ZHET01, ZHETRF, ZHETRI2,
$ ZHETRS, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, ZLATMS,
$ ZPOT02, ZPOT03, ZPOT05
$ ZPOT02, ZPOT03, ZPOT05, ZHETRS2
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/zchkhe_aa_2stage.f
+2 -2
View File
@@ -216,8 +216,8 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRHE, ZLACPY,
$ ZLARHS, ZLATB4, ZLATMS, ZPOT02,
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRHE, ZLACPY,
$ ZLAIPD, ZLARHS, ZLATB4, ZLATMS, ZPOT02,
$ ZHETRF_AA_2STAGE, ZHETRS_AA_2STAGE,
$ XLAENV
* ..
TESTING/LIN/zchklqt.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQT, ZLQT04
EXTERNAL ALAHD, ALASUM, ZERRLQT, ZLQT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zchklqtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQTP, ZLQT04
EXTERNAL ALAHD, ALASUM, ZERRLQTP, ZLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zchkqrt.f
+1 -1
View File
@@ -128,7 +128,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRT, ZQRT04
EXTERNAL ALAHD, ALASUM, ZERRQRT, ZQRT04
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zchkqrtp.f
+1 -1
View File
@@ -129,7 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRTP
EXTERNAL ALAHD, ALASUM, ZERRQRTP, ZQRT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zchkrfp.f
+1 -1
View File
@@ -111,7 +111,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ILAVER, ZDRVRFP, ZDRVRF1, ZDRVRF2, ZDRVRF3,
+ ZDRVRF4
+ ZDRVRF4, ZERRRFP
* ..
* .. Executable Statements ..
*
TESTING/LIN/zchksy_aa_2stage.f
+2 -3
View File
@@ -215,9 +215,8 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZLACPY, ZLARHS,
$ ZLATB4, ZLATMS, ZSYT02, ZSYT01,
$ ZSYTRF_AA_2STAGE, ZSYTRS_AA_2STAGE,
$ XLAENV
$ ZLATB4, ZLATMS, ZSYT02, ZSYTRF_AA_2STAGE,
$ ZSYTRS_AA_2STAGE, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/zchktsqr.f
+1 -2
View File
@@ -129,8 +129,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, ZERRTSQR,
$ ZTSQR01, XLAENV
EXTERNAL ALAHD, ALASUM, ZERRTSQR, ZTSQR01, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/zdrvab.f
+1 -1
View File
@@ -196,7 +196,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ZGET08, ZLACPY, ZLARHS, ZLASET,
$ ZLATB4, ZLATMS
$ ZLATB4, ZLATMS, ZCGESV
* ..
* .. Intrinsic Functions ..
INTRINSIC DCMPLX, DBLE, MAX, MIN, SQRT
TESTING/LIN/zdrvac.f
+1 -1
View File
@@ -189,7 +189,7 @@
INTEGER ITER, KASE
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ZLACPY, ZLAIPD,
EXTERNAL ALAERH, ALAHD, ZLACPY, ZLAIPD,
$ ZLARHS, ZLATB4, ZLATMS,
$ ZPOT06, ZCPOSV
* ..
TESTING/LIN/zdrvhe_aa.f
+3 -8
View File
@@ -193,15 +193,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DGET06, ZLANHE
EXTERNAL DGET06, ZLANHE
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04,
$ ZHESV_AA, ZHET01_AA, ZHETRF_AA,
$ ZHETRI2, ZLACPY, ZLAIPD, ZLARHS, ZLATB4,
$ ZLATMS, ZPOT02
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX,
$ ZHESV_AA, ZHET01_AA, ZLACPY, ZLAIPD, ZLARHS,
$ ZLATB4, ZLATMS, ZPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zdrvhe_aa_2stage.f
+2 -7
View File
@@ -195,15 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DGET06, ZLANHE
EXTERNAL DGET06, ZLANHE
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX,
$ ZGET04, ZLACPY, ZLARHS, ZLATB4, ZLATMS,
$ ZHESV_AA_2STAGE, ZHET01_AA, ZPOT02,
$ ZHETRF_AA_2STAGE
$ ZLACPY, ZLARHS, ZLATB4, ZLATMS,
$ ZHESV_AA_2STAGE, ZPOT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zdrvls.f
+1 -1
View File
@@ -252,7 +252,7 @@
EXTERNAL ALAERH, ALAHD, ALASVM, DAXPY, ZERRLS, ZGELS,
$ ZGELSD, ZGELSS, ZGELST, ZGELSY, ZGEMM,
$ ZGETSLS, ZLACPY, ZLARNV, ZQRT13, ZQRT15,
$ ZQRT16, ZDSCAL, XLAENV
$ ZQRT16, ZDSCAL, ZSCAL, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC DBLE, MAX, MIN, INT, SQRT
TESTING/LIN/zdrvrf3.f
+1 -1
View File
@@ -165,7 +165,7 @@
EXTERNAL DLAMCH, ZLARND, ZLANGE, LSAME
* ..
* .. External Subroutines ..
EXTERNAL ZTRTTF, ZGEQRF, ZGEQLF, ZTFSM, ZTRSM
EXTERNAL ZTRTTF, ZGEQRF, ZGELQF, ZTFSM, ZTRSM
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, SQRT
TESTING/LIN/zdrvsy_aa.f
+3 -7
View File
@@ -195,14 +195,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DGET06, ZLANSY
EXTERNAL DGET06, ZLANSY
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZGET04, ZLACPY,
$ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02,
$ ZSYSV_AA, ZSYT01_AA, ZSYTRF_AA, XLAENV
EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZLACPY,
$ ZLARHS, ZLATB4, ZLATMS, ZSYT02, ZSYSV_AA,
$ ZSYT01_AA, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zdrvsy_aa_2stage.f
+2 -7
View File
@@ -197,15 +197,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Functions ..
DOUBLE PRECISION DGET06, ZLANSY
EXTERNAL DGET06, ZLANSY
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX,
$ ZGET04, ZLACPY, ZLARHS, ZLATB4, ZLATMS,
$ ZSYSV_AA_2STAGE, ZSYT01_AA, ZSYT02,
$ ZSYTRF_AA_2STAGE
$ ZLACPY, ZLARHS, ZLATB4, ZLATMS,
$ ZSYSV_AA_2STAGE, ZSYT02
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zdrvsy_rook.f
+3 -3
View File
@@ -200,9 +200,9 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04,
$ ZLACPY, ZLARHS, ZLASET, ZLATB4, ZLATMS, ZLATSY,
$ ZPOT05, ZSYSV_ROOK, ZSYT01_ROOK, ZSYT02,
$ ZSYTRF_ROOK, ZSYTRI_ROOK
$ ZLACPY, ZLARHS, ZLATB4, ZLATMS, ZLATSY,
$ ZSYSV_ROOK, ZSYT01_ROOK, ZSYT02, ZSYTRF_ROOK,
$ ZSYTRI_ROOK
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zerrsy.f
+3 -1
View File
@@ -90,7 +90,9 @@
$ ZSYTF2, ZSYTF2_RK, ZSYTF2_ROOK, ZSYTRF,
$ ZSYTRF_RK, ZSYTRF_ROOK, ZSYTRI, ZSYTRI_3,
$ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2X,
$ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK
$ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK, ZSYTRF_AA,
$ ZSYTRS_AA, ZSYTRF_AA_2STAGE,
$ ZSYTRS_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zerrtsqr.f
+2 -2
View File
@@ -77,8 +77,8 @@
$ C( NMAX, NMAX ), TAU( 5 )
* ..
* .. External Subroutines ..
EXTERNAL ALAESM, CHKXER, ZGEQR,
$ ZGEMQR, ZGELQ, ZGEMLQ
EXTERNAL ALAESM, CHKXER, ZGEQR, ZGEMQR, ZGELQ,
$ ZGEMLQ, ZLATSQR, ZLASWLQ
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zerrvx.f
+6 -5
View File
@@ -88,11 +88,12 @@
* ..
* .. External Subroutines ..
EXTERNAL CHKXER, ZGBSV, ZGBSVX, ZGESV, ZGESVX, ZGTSV,
$ ZGTSVX, ZHESV, ZHESV_RK, ZHESV_ROOK, ZHESVX,
$ ZHPSV, ZHPSVX, ZPBSV, ZPBSVX, ZPOSV, ZPOSVX,
$ ZPPSV, ZPPSVX, ZPTSV, ZPTSVX, ZSPSV, ZSPSVX,
$ ZSYSV, ZSYSV_AA, ZSYSV_RK, ZSYSV_ROOK,
$ ZSYSVX, ZHESV_AA_2STAGE
$ ZGTSVX, ZHESV, ZHESV_AA, ZHESV_RK,
$ ZHESV_ROOK, ZHESVX, ZHPSV, ZHPSVX, ZPBSV,
$ ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, ZPPSVX, ZPTSV,
$ ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, ZSYSV_AA,
$ ZSYSV_RK, ZSYSV_ROOK, ZSYSVX,
$ ZHESV_AA_2STAGE, ZSYSV_AA_2STAGE
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
TESTING/LIN/zhet01_aa.f
+1 -1
View File
@@ -157,7 +157,7 @@
EXTERNAL LSAME, DLAMCH, ZLANHE
* ..
* .. External Subroutines ..
EXTERNAL ZLASET, ZLAVHE
EXTERNAL ZLASET, ZSWAP, ZTRMM, ZLACPY, ZLACGV
* ..
* .. Intrinsic Functions ..
INTRINSIC DBLE
TESTING/LIN/zlqt04.f
+4 -1
View File
@@ -107,7 +107,10 @@
DOUBLE PRECISION DLAMCH
DOUBLE PRECISION ZLANGE, ZLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME
EXTERNAL DLAMCH, ZLANGE, ZLANSY
* ..
* .. External Subroutines ..
EXTERNAL ZLARNV, ZLACPY, ZGELQT, ZLASET, ZGEMLQT, ZGEMM, ZHERK
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
TESTING/LIN/zlqt05.f
+5 -1
View File
@@ -113,7 +113,11 @@
DOUBLE PRECISION DLAMCH
DOUBLE PRECISION ZLANGE, ZLANSY
LOGICAL LSAME
EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME
EXTERNAL DLAMCH, ZLANGE, ZLANSY
* ..
* .. External Subroutines ..
EXTERNAL ZLASET, ZLARNV, ZLACPY, ZTPLQT, ZGEMLQT, ZGEMM,
$ ZHERK, ZTPMLQT
* ..
* .. Data statements ..
DATA ISEED / 1988, 1989, 1990, 1991 /

Some files were not shown because too many files have changed in this diff Show More