From fb2905ff9434569df5edf3c07c9fa8ef4696134b Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 27 Apr 2026 18:55:54 +0200 Subject: [PATCH 1/7] Fixed missing EXTERNAL declarations in LAPACK sources --- SRC/cgeev.f | 2 +- SRC/clahef_rk.f | 4 ++-- SRC/clarft.f | 2 +- SRC/clatrs3.f | 2 +- SRC/cunbdb6.f | 1 + SRC/dgeev.f | 5 ++--- SRC/dlapy2.f | 1 + SRC/dlapy3.f | 1 + SRC/dlaqp2.f | 2 +- SRC/dlarft.f | 2 +- SRC/dlatrs3.f | 2 +- SRC/dopmtr.f | 2 +- SRC/dorbdb4.f | 4 ++-- SRC/dorbdb6.f | 1 + SRC/dorgr2.f | 2 +- SRC/sgeev.f | 2 +- SRC/sggev3.f | 2 +- SRC/slapy2.f | 1 + SRC/slapy3.f | 1 + SRC/slaqr2.f | 4 ++-- SRC/slarft.f | 2 +- SRC/slatrs3.f | 3 ++- SRC/sorbdb6.f | 1 + SRC/zgeev.f | 4 ++-- SRC/zgelss.f | 3 ++- SRC/zlarft.f | 2 +- SRC/zlatrs3.f | 2 +- SRC/zrscl.f | 2 +- SRC/zunbdb6.f | 1 + 29 files changed, 36 insertions(+), 27 deletions(-) diff --git a/SRC/cgeev.f b/SRC/cgeev.f index 865b07831f..ca3a446897 100644 --- a/SRC/cgeev.f +++ b/SRC/cgeev.f @@ -221,7 +221,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, INTEGER ISAMAX, ILAENV REAL SLAMCH, SCNRM2, CLANGE, $ SROUNDUP_LWORK - EXTERNAL LSAME, ISAMAX, ILAENV, + EXTERNAL LSAME, SISNAN, ISAMAX, ILAENV, $ SLAMCH, SCNRM2, CLANGE, $ SROUNDUP_LWORK * .. diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 0c37ba3a7d..15861e3127 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,8 +298,8 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMV, CLACGV, - $ CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMMTR, CGEMV, + $ CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/clarft.f b/SRC/clarft.f index 3bf2448ba8..359f7bb373 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL CTRMM,CGEMM,CLACPY + EXTERNAL CTRMM,CGEMM,CLACPY,CLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/clatrs3.f b/SRC/clatrs3.f index 1e2d11a178..d4f9c1b28b 100644 --- a/SRC/clatrs3.f +++ b/SRC/clatrs3.f @@ -275,7 +275,7 @@ SUBROUTINE CLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ CLANGE, SLARMM, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL CLATRS, CSSCAL, XERBLA + EXTERNAL CGEMM, CLATRS, CSSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f index 0ce344390b..11824d4ba1 100644 --- a/SRC/cunbdb6.f +++ b/SRC/cunbdb6.f @@ -185,6 +185,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL CGEMV, CLASSQ, XERBLA diff --git a/SRC/dgeev.f b/SRC/dgeev.f index e74140c2bc..2d0bbd2c6d 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -230,9 +230,8 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, LOGICAL LSAME, DISNAN INTEGER IDAMAX, ILAENV DOUBLE PRECISION DLAMCH, DLANGE, DLAPY2, DNRM2 - EXTERNAL LSAME, IDAMAX, ILAENV, DLAMCH, DLANGE, - $ DLAPY2, - $ DNRM2 + EXTERNAL LSAME, DISNAN, IDAMAX, ILAENV, + $ DLAMCH, DLANGE, DLAPY2, DNRM2 * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index 5b092c31d8..71615eef0a 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -86,6 +86,7 @@ DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) * .. * .. External Subroutines .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 77548d73c3..c678b9ff31 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -84,6 +84,7 @@ DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) * .. * .. External Subroutines .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index 625c1b1d1e..a1dd23d9a9 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -168,7 +168,7 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, DOUBLE PRECISION TEMP, TEMP2, TOL3Z * .. * .. External Subroutines .. - EXTERNAL DLARF1F, DLARFG, DSWAP + EXTERNAL DLARF, DLARF1F, DLARFG, DSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlarft.f b/SRC/dlarft.f index fa2ea0d134..05d5b9e570 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL DTRMM,DGEMM,DLACPY + EXTERNAL DTRMM,DGEMM,DLACPY,DLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/dlatrs3.f b/SRC/dlatrs3.f index ae94b8dff1..857062e81c 100644 --- a/SRC/dlatrs3.f +++ b/SRC/dlatrs3.f @@ -270,7 +270,7 @@ SUBROUTINE DLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ LSAME * .. * .. External Subroutines .. - EXTERNAL DLATRS, DSCAL, XERBLA + EXTERNAL DGEMM, DLATRS, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/dopmtr.f b/SRC/dopmtr.f index 5646b8eacc..e96335791b 100644 --- a/SRC/dopmtr.f +++ b/SRC/dopmtr.f @@ -176,7 +176,7 @@ SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL DLARF, XERBLA + EXTERNAL DLARF, DLARF1L, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index 36ad19a09e..b0ad5f748d 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,8 +237,8 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARFGP, DORBDB5, DROT, DSCAL, - $ XERBLA + EXTERNAL DLARF, DLARF1F, DLARFGP, DORBDB5, + $ DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 82aa93a5a3..b8205ef3fd 100644 --- a/SRC/dorbdb6.f +++ b/SRC/dorbdb6.f @@ -184,6 +184,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. External Subroutines .. EXTERNAL DGEMV, DLASSQ, XERBLA diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index 43e731966f..cc7e24db38 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -132,7 +132,7 @@ SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) INTEGER I, II, J, L * .. * .. External Subroutines .. - EXTERNAL DLARF, DSCAL, XERBLA + EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/sgeev.f b/SRC/sgeev.f index e5e61395d2..930c4cc821 100644 --- a/SRC/sgeev.f +++ b/SRC/sgeev.f @@ -232,7 +232,7 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, INTEGER ISAMAX, ILAENV REAL SLAMCH, SLANGE, SLAPY2, SNRM2, $ SROUNDUP_LWORK - EXTERNAL LSAME, ISAMAX, ILAENV, + EXTERNAL LSAME, SISNAN, ISAMAX, ILAENV, $ SLAMCH, SLANGE, SLAPY2, $ SNRM2, SROUNDUP_LWORK * .. diff --git a/SRC/sggev3.f b/SRC/sggev3.f index 9fbe6bafef..98f782a3a1 100644 --- a/SRC/sggev3.f +++ b/SRC/sggev3.f @@ -261,7 +261,7 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, EXTERNAL SGEQRF, SGGBAK, SGGBAL, $ SGGHD3, SLAQZ0, SLACPY, $ SLASCL, SLASET, SORGQR, - $ SORMQR, STGEVC + $ SORMQR, STGEVC, XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 9937bc7cc7..783efdabf0 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -86,6 +86,7 @@ REAL FUNCTION SLAPY2( X, Y ) * .. * .. External Subroutines .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/slapy3.f b/SRC/slapy3.f index c1c4bd6724..e67246cd05 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -84,6 +84,7 @@ REAL FUNCTION SLAPY3( X, Y, Z ) * .. * .. External Subroutines .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 0cc95b37ee..7c27905963 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -311,8 +311,8 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, * .. External Subroutines .. EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, $ SLAHQR, - $ SLANV2, SLARF1F, SLARFG, SLASET, SORMHR, - $ STREXC + $ SLANV2, SLARF1F, SLARF1L, SLARFG, + $ SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slarft.f b/SRC/slarft.f index 3e0eac751e..fd13304ba5 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL STRMM,SGEMM,SLACPY + EXTERNAL STRMM,SGEMM,SLACPY,SLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/slatrs3.f b/SRC/slatrs3.f index a01be4aa37..a5e102eac3 100644 --- a/SRC/slatrs3.f +++ b/SRC/slatrs3.f @@ -270,7 +270,8 @@ SUBROUTINE SLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, * .. * .. External Subroutines .. REAL SROUNDUP_LWORK - EXTERNAL SLATRS, SSCAL, SROUNDUP_LWORK, XERBLA + EXTERNAL SGEMM, SLATRS, SSCAL, SROUNDUP_LWORK, + $ XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f index 9fb29b0383..ba373c2542 100644 --- a/SRC/sorbdb6.f +++ b/SRC/sorbdb6.f @@ -184,6 +184,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL SGEMV, SLASSQ, XERBLA diff --git a/SRC/zgeev.f b/SRC/zgeev.f index 883b24c2a3..7325c28d93 100644 --- a/SRC/zgeev.f +++ b/SRC/zgeev.f @@ -219,8 +219,8 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LOGICAL LSAME, DISNAN INTEGER IDAMAX, ILAENV DOUBLE PRECISION DLAMCH, DZNRM2, ZLANGE - EXTERNAL LSAME, IDAMAX, ILAENV, DLAMCH, DZNRM2, - $ ZLANGE + EXTERNAL LSAME, DISNAN, IDAMAX, ILAENV, + $ DLAMCH, DZNRM2, ZLANGE * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCMPLX, CONJG, AIMAG, MAX, SQRT diff --git a/SRC/zgelss.f b/SRC/zgelss.f index 5269eea789..a3f9079b09 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -214,7 +214,8 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, EXTERNAL DLASCL, DLASET, XERBLA, ZBDSQR, ZCOPY, $ ZDRSCL, $ ZGEBRD, ZGELQF, ZGEMM, ZGEMV, ZGEQRF, ZLACPY, - $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, ZUNMLQ + $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, ZUNMLQ, + $ ZUNMQR * .. * .. External Functions .. INTEGER ILAENV diff --git a/SRC/zlarft.f b/SRC/zlarft.f index efd52037d3..8b65d2f60e 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL ZTRMM,ZGEMM,ZLACPY + EXTERNAL ZTRMM,ZGEMM,ZLACPY,ZLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/zlatrs3.f b/SRC/zlatrs3.f index af5fc69a30..a91ffb3c41 100644 --- a/SRC/zlatrs3.f +++ b/SRC/zlatrs3.f @@ -274,7 +274,7 @@ SUBROUTINE ZLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ DLARMM * .. * .. External Subroutines .. - EXTERNAL ZLATRS, ZDSCAL, XERBLA + EXTERNAL ZGEMM, ZLATRS, ZDSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/zrscl.f b/SRC/zrscl.f index 558225c7dd..b775ff2fb5 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -108,7 +108,7 @@ SUBROUTINE ZRSCL( N, A, X, INCX ) EXTERNAL DLAMCH, ZLADIV * .. * .. External Subroutines .. - EXTERNAL DSCAL, ZDSCAL, ZDRSCL + EXTERNAL DSCAL, ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 0d83cf5194..680a5d0dc8 100644 --- a/SRC/zunbdb6.f +++ b/SRC/zunbdb6.f @@ -185,6 +185,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. External Subroutines .. EXTERNAL ZGEMV, ZLASSQ, XERBLA From d653fbe98a44e9f7326a2f58977a47bafd3aa1f6 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Wed, 29 Apr 2026 15:20:01 +0100 Subject: [PATCH 2/7] Add missing EXTERNAL declarations in TESTING/EIG Co-authored-by: Copilot --- TESTING/EIG/cchkdmd.f90 | 3 ++- TESTING/EIG/cchkee.F | 3 ++- TESTING/EIG/cchkhb2stg.f | 5 +++-- TESTING/EIG/cckgsv.f | 3 ++- TESTING/EIG/cdrges3.f | 2 +- TESTING/EIG/cdrgev3.f | 2 +- TESTING/EIG/cglmts.f | 2 +- TESTING/EIG/cgqrts.f | 2 +- TESTING/EIG/chet22.f | 2 +- TESTING/EIG/clsets.f | 2 +- TESTING/EIG/dchksb2stg.f | 2 +- TESTING/EIG/ddrges3.f | 3 ++- TESTING/EIG/ddrgev3.f | 2 +- TESTING/EIG/ddrvbd.f | 2 +- TESTING/EIG/dget40.f | 2 +- TESTING/EIG/dsyl01.f | 2 +- TESTING/EIG/schksb2stg.f | 2 +- TESTING/EIG/sdrges3.f | 3 ++- TESTING/EIG/sdrgev3.f | 2 +- TESTING/EIG/sdrvbd.f | 2 +- TESTING/EIG/sget34.f | 2 +- TESTING/EIG/sglmts.f | 2 +- TESTING/EIG/sgqrts.f | 2 +- TESTING/EIG/slsets.f | 2 +- TESTING/EIG/ssyt22.f | 2 +- TESTING/EIG/zchkdmd.f90 | 2 +- TESTING/EIG/zchkee.F | 11 ++++++----- TESTING/EIG/zchkhb2stg.f | 5 +++-- TESTING/EIG/zdrges3.f | 2 +- TESTING/EIG/zdrgev3.f | 2 +- TESTING/EIG/zerrec.f | 3 ++- TESTING/EIG/zerred.f | 2 +- TESTING/EIG/zerrhs.f | 5 +++-- TESTING/EIG/zerrst.f | 3 ++- 34 files changed, 52 insertions(+), 41 deletions(-) diff --git a/TESTING/EIG/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90 index f8aa19a30a..6fcda0888a 100644 --- a/TESTING/EIG/cchkdmd.f90 +++ b/TESTING/EIG/cchkdmd.f90 @@ -82,7 +82,8 @@ PROGRAM DMD_TEST LOGICAL :: TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL, XLAENV + EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL, XLAENV, & + CLARNV, CLATMR !.....external subroutines DMD package ! subroutines under test EXTERNAL CGEDMD, CGEDMDQ diff --git a/TESTING/EIG/cchkee.F b/TESTING/EIG/cchkee.F index 638966afe1..277f0afa93 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1109,7 +1109,8 @@ PROGRAM CCHKEE $ CDRVSG, CDRVST, CDRVSX, CDRVVX, CERRBD, $ CERRED, CERRGG, CERRHS, CERRST, ILAVER, XLAENV, $ CDRGES3, CDRGEV3, - $ CCHKST2STG, CDRVST2STG, CCHKHB2STG + $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, + $ CDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f index a8f7e58956..de5a7629a5 100644 --- a/TESTING/EIG/cchkhb2stg.f +++ b/TESTING/EIG/cchkhb2stg.f @@ -388,8 +388,9 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, EXTERNAL SLAMCH * .. * .. External Subroutines .. - EXTERNAL SLASUM, XERBLA, CHBT21, CHBTRD, CLACPY, CLASET, - $ CLATMR, CLATMS, CHETRD_HB2ST, CSTEQR + EXTERNAL SCOPY, SLASET, SLASUM, XERBLA, CHBT21, + $ CHBTRD, CLACPY, CLASET, CLATMR, CLATMS, + $ CHETRD_HB2ST, CSTEQR * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, CONJG, MAX, MIN, SQRT diff --git a/TESTING/EIG/cckgsv.f b/TESTING/EIG/cckgsv.f index 2f2b08171c..467c075f76 100644 --- a/TESTING/EIG/cckgsv.f +++ b/TESTING/EIG/cckgsv.f @@ -235,7 +235,8 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAHDG, ALAREQ, ALASUM, CLATMS, SLATB9, CGSVTS3 + EXTERNAL ALAHDG, ALAREQ, ALASUM, CLATMS, SLATB9, + $ CGGSVD3, CGSVTS3 * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/TESTING/EIG/cdrges3.f b/TESTING/EIG/cdrges3.f index 2aaaaaeba9..cda55d3bd8 100644 --- a/TESTING/EIG/cdrges3.f +++ b/TESTING/EIG/cdrges3.f @@ -437,7 +437,7 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, CGET51, CGET54, CGGES3, CLACPY, CLARFG, - $ CLASET, CLATM4, CUNM2R, XERBLA + $ CLASET, CLATM4, CUNM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, AIMAG, CONJG, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index 5836890d37..4eb2f2a512 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -453,7 +453,7 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, CGET52, CGGEV3, CLACPY, CLARFG, CLASET, - $ CLATM4, CUNM2R, XERBLA + $ CLATM4, CUNM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/cglmts.f b/TESTING/EIG/cglmts.f index b906050a8d..9bd27abc1e 100644 --- a/TESTING/EIG/cglmts.f +++ b/TESTING/EIG/cglmts.f @@ -180,7 +180,7 @@ SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, EXTERNAL SCASUM, SLAMCH, CLANGE * .. * .. External Subroutines .. - EXTERNAL CLACPY + EXTERNAL CCOPY, CGEMV, CGGGLM, CLACPY * * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/TESTING/EIG/cgqrts.f b/TESTING/EIG/cgqrts.f index b641c1820f..a9dd8510c4 100644 --- a/TESTING/EIG/cgqrts.f +++ b/TESTING/EIG/cgqrts.f @@ -210,7 +210,7 @@ SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, EXTERNAL SLAMCH, CLANGE, CLANHE * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLASET, CUNGQR, + EXTERNAL CGEMM, CGGQRF, CLACPY, CLASET, CUNGQR, $ CUNGRQ, CHERK * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/chet22.f b/TESTING/EIG/chet22.f index 6ad378ad7d..d5bc58a521 100644 --- a/TESTING/EIG/chet22.f +++ b/TESTING/EIG/chet22.f @@ -192,7 +192,7 @@ SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, EXTERNAL CLANHE, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHEMM + EXTERNAL CGEMM, CHEMM, CUNT01 * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, REAL diff --git a/TESTING/EIG/clsets.f b/TESTING/EIG/clsets.f index 2c185d5af3..7e940230ef 100644 --- a/TESTING/EIG/clsets.f +++ b/TESTING/EIG/clsets.f @@ -174,7 +174,7 @@ SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, INTEGER INFO * .. * .. External Subroutines .. - EXTERNAL CGGLSE, CLACPY, CGET02 + EXTERNAL CCOPY, CGGLSE, CLACPY, CGET02 * .. * .. Executable Statements .. * diff --git a/TESTING/EIG/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f index 6bc0ca532e..4d5fdc665a 100644 --- a/TESTING/EIG/dchksb2stg.f +++ b/TESTING/EIG/dchksb2stg.f @@ -377,7 +377,7 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * .. * .. External Subroutines .. EXTERNAL DLACPY, DLASET, DLASUM, DLATMR, DLATMS, DSBT21, - $ DSBTRD, XERBLA, DSYTRD_SB2ST, DSTEQR + $ DSBTRD, XERBLA, DSYTRD_SB2ST, DSTEQR, DCOPY * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SQRT diff --git a/TESTING/EIG/ddrges3.f b/TESTING/EIG/ddrges3.f index 6d98d4bfad..a1f3722c69 100644 --- a/TESTING/EIG/ddrges3.f +++ b/TESTING/EIG/ddrges3.f @@ -453,7 +453,8 @@ SUBROUTINE DDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, DGET51, DGET53, DGET54, DGGES3, DLACPY, - $ DLARFG, DLASET, DLATM4, DORM2R, XERBLA + $ DLARFG, DLASET, DLATM4, DORM2R, XERBLA, + $ XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SIGN diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index 145f08933d..7436ce286e 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -457,7 +457,7 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, DGET52, DGGEV3, DLACPY, DLARFG, DLASET, - $ DLATM4, DORM2R, XERBLA + $ DLATM4, DORM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SIGN diff --git a/TESTING/EIG/ddrvbd.f b/TESTING/EIG/ddrvbd.f index 0e3e2b4612..a0b65a6aa3 100644 --- a/TESTING/EIG/ddrvbd.f +++ b/TESTING/EIG/ddrvbd.f @@ -421,7 +421,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. External Subroutines .. EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, $ DGESVDQ, DGESVDX, DGESVJ, DLACPY, DLASET, - $ DLATMS, DORT01, DORT03, XERBLA + $ DLATMS, DBDT05, DORT01, DORT03, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, INT, MAX, MIN diff --git a/TESTING/EIG/dget40.f b/TESTING/EIG/dget40.f index f0b6cacd0f..384e0603be 100644 --- a/TESTING/EIG/dget40.f +++ b/TESTING/EIG/dget40.f @@ -120,7 +120,7 @@ SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DHST01, DLACPY, DLASET, DTGEXC + EXTERNAL DGET51, DHST01, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/dsyl01.f b/TESTING/EIG/dsyl01.f index 0ea4813822..66fa4c0746 100644 --- a/TESTING/EIG/dsyl01.f +++ b/TESTING/EIG/dsyl01.f @@ -130,7 +130,7 @@ SUBROUTINE DSYL01( THRESH, NFAIL, RMAX, NINFO, KNT ) * .. External Functions .. LOGICAL DISNAN DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL DLAMCH, DLANGE + EXTERNAL DISNAN, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DLATMR, DLACPY, DGEMM, DTRSYL, DTRSYL3 diff --git a/TESTING/EIG/schksb2stg.f b/TESTING/EIG/schksb2stg.f index d9ec6db295..d930795174 100644 --- a/TESTING/EIG/schksb2stg.f +++ b/TESTING/EIG/schksb2stg.f @@ -377,7 +377,7 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * .. * .. External Subroutines .. EXTERNAL SLACPY, SLASET, SLASUM, SLATMR, SLATMS, SSBT21, - $ SSBTRD, XERBLA, SSYTRD_SB2ST, SSTEQR + $ SSBTRD, XERBLA, SSYTRD_SB2ST, SSTEQR, SCOPY * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, MAX, MIN, SQRT diff --git a/TESTING/EIG/sdrges3.f b/TESTING/EIG/sdrges3.f index b9abc64fd2..7821f041a7 100644 --- a/TESTING/EIG/sdrges3.f +++ b/TESTING/EIG/sdrges3.f @@ -453,7 +453,8 @@ SUBROUTINE SDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, SGET51, SGET53, SGET54, SGGES3, SLACPY, - $ SLARFG, SLASET, SLATM4, SORM2R, XERBLA + $ SLARFG, SLASET, SLATM4, SORM2R, XERBLA, + $ XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index 772e47a555..6c0f9bb40b 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -457,7 +457,7 @@ SUBROUTINE SDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, SGET52, SGGEV3, SLACPY, SLARFG, SLASET, - $ SLATM4, SORM2R, XERBLA + $ SLATM4, SORM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/sdrvbd.f b/TESTING/EIG/sdrvbd.f index 77abb532f4..33ff680555 100644 --- a/TESTING/EIG/sdrvbd.f +++ b/TESTING/EIG/sdrvbd.f @@ -421,7 +421,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. External Subroutines .. EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, $ SGESVDQ, SGESVDX, SGESVJ, SLACPY, SLASET, - $ SLATMS, SORT01, SORT03, XERBLA + $ SLATMS, SBDT05, SORT01, SORT03, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, INT, MAX, MIN diff --git a/TESTING/EIG/sget34.f b/TESTING/EIG/sget34.f index 3d217775a0..d8b49c3426 100644 --- a/TESTING/EIG/sget34.f +++ b/TESTING/EIG/sget34.f @@ -117,7 +117,7 @@ SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) EXTERNAL SLAMCH * .. * .. External Subroutines .. - EXTERNAL SCOPY, SLAEXC + EXTERNAL SCOPY, SHST01, SLAEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, REAL, SIGN, SQRT diff --git a/TESTING/EIG/sglmts.f b/TESTING/EIG/sglmts.f index 0add7d0a0c..b4b3e228dd 100644 --- a/TESTING/EIG/sglmts.f +++ b/TESTING/EIG/sglmts.f @@ -176,7 +176,7 @@ SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, EXTERNAL SASUM, SLAMCH, SLANGE * .. * .. External Subroutines .. - EXTERNAL SLACPY + EXTERNAL SCOPY, SGEMV, SGGGLM, SLACPY * * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/TESTING/EIG/sgqrts.f b/TESTING/EIG/sgqrts.f index e292e897b3..122c4effb5 100644 --- a/TESTING/EIG/sgqrts.f +++ b/TESTING/EIG/sgqrts.f @@ -207,7 +207,7 @@ SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLASET, SORGQR, + EXTERNAL SGEMM, SGGQRF, SLACPY, SLASET, SORGQR, $ SORGRQ, SSYRK * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/slsets.f b/TESTING/EIG/slsets.f index aecad49b91..53fc03af79 100644 --- a/TESTING/EIG/slsets.f +++ b/TESTING/EIG/slsets.f @@ -174,7 +174,7 @@ SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, INTEGER INFO * .. * .. External Subroutines .. - EXTERNAL SGGLSE, SLACPY, SGET02 + EXTERNAL SCOPY, SGGLSE, SLACPY, SGET02 * .. * .. Executable Statements .. * diff --git a/TESTING/EIG/ssyt22.f b/TESTING/EIG/ssyt22.f index ea88687c34..a2eef43736 100644 --- a/TESTING/EIG/ssyt22.f +++ b/TESTING/EIG/ssyt22.f @@ -184,7 +184,7 @@ SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, EXTERNAL SLAMCH, SLANSY * .. * .. External Subroutines .. - EXTERNAL SGEMM, SSYMM + EXTERNAL SGEMM, SORT01, SSYMM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, REAL diff --git a/TESTING/EIG/zchkdmd.f90 b/TESTING/EIG/zchkdmd.f90 index 09c34f8686..334befbd1b 100644 --- a/TESTING/EIG/zchkdmd.f90 +++ b/TESTING/EIG/zchkdmd.f90 @@ -92,7 +92,7 @@ PROGRAM DMD_TEST ! subroutines under test EXTERNAL ZGEDMD, ZGEDMDQ !.....external functions (BLAS and LAPACK) - EXTERNAL DLAMCH, DZNRM2 + EXTERNAL DLAMCH, DZNRM2, ZLANGE REAL(KIND=WP) :: DLAMCH, DZNRM2 REAL(KIND=WP) :: ZLANGE EXTERNAL IZAMAX diff --git a/TESTING/EIG/zchkee.F b/TESTING/EIG/zchkee.F index 7261881b48..1a3e02478c 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1108,8 +1108,9 @@ PROGRAM ZCHKEE $ ZDRGES, ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, $ ZDRVEV, ZDRVSG, ZDRVST, ZDRVSX, ZDRVVX, $ ZERRBD, ZERRED, ZERRGG, ZERRHS, ZERRST, ILAVER, - $ ZDRGES3, ZDRGEV3, - $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG + $ ZDRGES3, ZDRGEV3, + $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, + $ ZDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN @@ -1851,7 +1852,7 @@ PROGRAM ZCHKEE $ WRITE( NOUT, FMT = 9980 )'ZCHKHS', INFO 270 CONTINUE * - ELSE IF( LSAMEN( 3, C3, 'ZST' ) .OR. LSAMEN( 3, C3, 'SEP' ) + ELSE IF( LSAMEN( 3, C3, 'ZST' ) .OR. LSAMEN( 3, C3, 'SEP' ) $ .OR. LSAMEN( 3, C3, 'SE2' ) ) THEN * * ---------------------------------- @@ -2349,9 +2350,9 @@ PROGRAM ZCHKEE * $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, * $ INFO ) CALL ZCHKHB2STG( NN, NVAL, NK, KVAL, MAXTYP, DOTYPE, ISEED, - $ THRESH, NOUT, A( 1, 1 ), NMAX, DR( 1, 1 ), + $ THRESH, NOUT, A( 1, 1 ), NMAX, DR( 1, 1 ), $ DR( 1, 2 ), DR( 1, 3 ), DR( 1, 4 ), DR( 1, 5 ), - $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, + $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, $ INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'ZCHKHB', INFO diff --git a/TESTING/EIG/zchkhb2stg.f b/TESTING/EIG/zchkhb2stg.f index ba576d36fa..54b7a69b6d 100644 --- a/TESTING/EIG/zchkhb2stg.f +++ b/TESTING/EIG/zchkhb2stg.f @@ -385,8 +385,9 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DLASUM, XERBLA, ZHBT21, ZHBTRD, ZLACPY, ZLASET, - $ ZLATMR, ZLATMS, ZHETRD_HB2ST, ZSTEQR + EXTERNAL DCOPY, DLASET, DLASUM, XERBLA, ZHBT21, + $ ZHBTRD, ZLACPY, ZLASET, ZLATMR, ZLATMS, + $ ZHETRD_HB2ST, ZSTEQR * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, MAX, MIN, SQRT diff --git a/TESTING/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index 87064ef239..21f50994da 100644 --- a/TESTING/EIG/zdrges3.f +++ b/TESTING/EIG/zdrges3.f @@ -437,7 +437,7 @@ SUBROUTINE ZDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZGET51, ZGET54, ZGGES3, ZLACPY, - $ ZLARFG, ZLASET, ZLATM4, ZUNM2R + $ ZLARFG, ZLASET, ZLATM4, ZUNM2R, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, DIMAG, MAX, MIN, SIGN diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index 4de01513a0..e2ed7d440d 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -453,7 +453,7 @@ SUBROUTINE ZDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZGET52, ZGGEV3, ZLACPY, ZLARFG, - $ ZLASET, ZLATM4, ZUNM2R + $ ZLASET, ZLATM4, ZUNM2R, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, MAX, MIN, SIGN diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 76f863b3f8..06ba8aa004 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -83,7 +83,8 @@ SUBROUTINE ZERREC( PATH, NUNIT ) $ C( NMAX, NMAX ), WORK( LW ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZTREXC, ZTRSEN, ZTRSNA, ZTRSYL + EXTERNAL CHKXER, ZTREXC, ZTRSEN, ZTRSNA, ZTRSYL, + $ ZTRSYL3 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index 2f6e114c7b..584db2f577 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -100,7 +100,7 @@ SUBROUTINE ZERRED( PATH, NUNIT ) $ VT( NMAX, NMAX ), W( 10*NMAX ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, + EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGEJSV, $ ZGESDD, ZGESVD, ZGESVDX, ZGESVDQ * .. * .. External Functions .. diff --git a/TESTING/EIG/zerrhs.f b/TESTING/EIG/zerrhs.f index f7cd5b2900..395aa998e2 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -88,8 +88,9 @@ SUBROUTINE ZERRHS( PATH, NUNIT ) EXTERNAL LSAMEN * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEBAK, ZGEBAL, ZGEHRD, ZHSEIN, ZHSEQR, - $ ZUNGHR, ZUNMHR, ZTREVC, ZTREVC3 + EXTERNAL CHKXER, ZGEBAK, ZGEBAL, ZGEHD2, ZGEHRD, + $ ZHSEIN, ZHSEQR, ZUNGHR, ZUNMHR, ZTREVC, + $ ZTREVC3 * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/EIG/zerrst.f b/TESTING/EIG/zerrst.f index 2a989a232d..ac6b015133 100644 --- a/TESTING/EIG/zerrst.f +++ b/TESTING/EIG/zerrst.f @@ -99,7 +99,8 @@ SUBROUTINE ZERRST( PATH, NUNIT ) $ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR, ZHETD2, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE + $ ZHBEVX_2STAGE, ZHETRD_2STAGE, + $ ZHETRD_HE2HB, ZHETRD_HB2ST * .. * .. Scalars in Common .. LOGICAL LERR, OK From 0232856846f1ccc71100c8e7f6d4e854fcf4671c Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 15:15:13 +0200 Subject: [PATCH 3/7] Add missing external declarations in TESTING/LIN (and removed unnecessary ones) --- TESTING/LIN/cchkaa.F | 5 ++++- TESTING/LIN/cchkhe.f | 2 +- TESTING/LIN/cchkhe_aa_2stage.f | 7 +++---- TESTING/LIN/cchklqt.f | 2 +- TESTING/LIN/cchklqtp.f | 2 +- TESTING/LIN/cchkqrt.f | 2 +- TESTING/LIN/cchkqrtp.f | 2 +- TESTING/LIN/cchkrfp.f | 2 +- TESTING/LIN/cchksy.f | 2 +- TESTING/LIN/cchksy_aa_2stage.f | 5 ++--- TESTING/LIN/cchktsqr.f | 3 +-- TESTING/LIN/cdrvhe_aa.f | 11 +++-------- TESTING/LIN/cdrvhe_aa_2stage.f | 11 +++-------- TESTING/LIN/cdrvhe_rk.f | 2 +- TESTING/LIN/cdrvls.f | 2 +- TESTING/LIN/cdrvrf3.f | 2 +- TESTING/LIN/cdrvsy_aa.f | 10 +++------- TESTING/LIN/cdrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/cdrvsy_rook.f | 6 +++--- TESTING/LIN/cerrhe.f | 4 ++-- TESTING/LIN/cerrsy.f | 3 ++- TESTING/LIN/cerrtsqr.f | 4 ++-- TESTING/LIN/cerrvx.f | 3 ++- TESTING/LIN/chet01_aa.f | 2 +- TESTING/LIN/clqt04.f | 6 +++++- TESTING/LIN/clqt05.f | 6 +++++- TESTING/LIN/cqrt04.f | 6 +++++- TESTING/LIN/cqrt05.f | 6 +++++- TESTING/LIN/csyt01_aa.f | 2 +- TESTING/LIN/ctsqr01.f | 6 +++++- TESTING/LIN/cunhr_col02.f | 4 ++-- TESTING/LIN/dchkaa.F | 5 +++-- TESTING/LIN/dchklqt.f | 2 +- TESTING/LIN/dchklqtp.f | 2 +- TESTING/LIN/dchkqrt.f | 2 +- TESTING/LIN/dchkqrtp.f | 2 +- TESTING/LIN/dchkrfp.f | 2 +- TESTING/LIN/dchktsqr.f | 3 +-- TESTING/LIN/ddrvab.f | 2 +- TESTING/LIN/ddrvac.f | 7 +------ TESTING/LIN/ddrvgbx.f | 2 +- TESTING/LIN/ddrvrf3.f | 2 +- TESTING/LIN/ddrvsy_aa.f | 10 +++------- TESTING/LIN/ddrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/ddrvsy_rook.f | 6 ++---- TESTING/LIN/derrtsqr.f | 2 +- TESTING/LIN/dlqt04.f | 7 +++++-- TESTING/LIN/dlqt05.f | 7 +++++-- TESTING/LIN/dorhr_col02.f | 4 ++-- TESTING/LIN/dqrt04.f | 6 ++++-- TESTING/LIN/dqrt05.f | 7 +++++-- TESTING/LIN/dsyt01_aa.f | 2 +- TESTING/LIN/dtsqr01.f | 7 +++++-- TESTING/LIN/schkaa.F | 5 +++-- TESTING/LIN/schklq.f | 2 +- TESTING/LIN/schklqt.f | 2 +- TESTING/LIN/schklqtp.f | 2 +- TESTING/LIN/schkqrt.f | 2 +- TESTING/LIN/schkqrtp.f | 2 +- TESTING/LIN/schkrfp.f | 2 +- TESTING/LIN/schksy.f | 4 ++-- TESTING/LIN/schksy_aa_2stage.f | 5 ++--- TESTING/LIN/schktsqr.f | 3 +-- TESTING/LIN/sdrvrf3.f | 2 +- TESTING/LIN/sdrvsy_aa.f | 10 +++------- TESTING/LIN/sdrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/sdrvsy_rook.f | 6 ++---- TESTING/LIN/serrtsqr.f | 4 ++-- TESTING/LIN/slqt04.f | 6 ++++-- TESTING/LIN/slqt05.f | 7 +++++-- TESTING/LIN/sorhr_col02.f | 4 ++-- TESTING/LIN/sqrt04.f | 3 +-- TESTING/LIN/sqrt05.f | 3 +-- TESTING/LIN/ssyt01_aa.f | 2 +- TESTING/LIN/stsqr01.f | 6 +++++- TESTING/LIN/zchkaa.F | 3 ++- TESTING/LIN/zchkhe.f | 2 +- TESTING/LIN/zchkhe_aa_2stage.f | 4 ++-- TESTING/LIN/zchklqt.f | 2 +- TESTING/LIN/zchklqtp.f | 2 +- TESTING/LIN/zchkqrt.f | 2 +- TESTING/LIN/zchkqrtp.f | 2 +- TESTING/LIN/zchkrfp.f | 2 +- TESTING/LIN/zchksy_aa_2stage.f | 5 ++--- TESTING/LIN/zchktsqr.f | 3 +-- TESTING/LIN/zdrvab.f | 2 +- TESTING/LIN/zdrvac.f | 2 +- TESTING/LIN/zdrvhe_aa.f | 11 +++-------- TESTING/LIN/zdrvhe_aa_2stage.f | 9 ++------- TESTING/LIN/zdrvls.f | 2 +- TESTING/LIN/zdrvrf3.f | 2 +- TESTING/LIN/zdrvsy_aa.f | 10 +++------- TESTING/LIN/zdrvsy_aa_2stage.f | 9 ++------- TESTING/LIN/zdrvsy_rook.f | 6 +++--- TESTING/LIN/zerrsy.f | 4 +++- TESTING/LIN/zerrtsqr.f | 4 ++-- TESTING/LIN/zerrvx.f | 11 ++++++----- TESTING/LIN/zhet01_aa.f | 2 +- TESTING/LIN/zlqt04.f | 5 ++++- TESTING/LIN/zlqt05.f | 6 +++++- TESTING/LIN/zpot06.f | 3 +-- TESTING/LIN/zqrt04.f | 5 ++++- TESTING/LIN/zqrt05.f | 7 +++++-- TESTING/LIN/zsyt01_aa.f | 2 +- TESTING/LIN/ztsqr01.f | 7 +++++-- TESTING/LIN/zunhr_col02.f | 4 ++-- 106 files changed, 234 insertions(+), 240 deletions(-) diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index a5a3428c14..790e3045e2 100644 --- a/TESTING/LIN/cchkaa.F +++ b/TESTING/LIN/cchkaa.F @@ -177,7 +177,10 @@ PROGRAM CCHKAA $ 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 diff --git a/TESTING/LIN/cchkhe.f b/TESTING/LIN/cchkhe.f index 61f1862f33..7797e14b46 100644 --- a/TESTING/LIN/cchkhe.f +++ b/TESTING/LIN/cchkhe.f @@ -221,7 +221,7 @@ SUBROUTINE CCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, 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 diff --git a/TESTING/LIN/cchkhe_aa_2stage.f b/TESTING/LIN/cchkhe_aa_2stage.f index d79978e557..09a6a3228b 100644 --- a/TESTING/LIN/cchkhe_aa_2stage.f +++ b/TESTING/LIN/cchkhe_aa_2stage.f @@ -217,10 +217,9 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, 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 diff --git a/TESTING/LIN/cchklqt.f b/TESTING/LIN/cchklqt.f index 7ec8b2c622..1c15e91e09 100644 --- a/TESTING/LIN/cchklqt.f +++ b/TESTING/LIN/cchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQT, CLQT04 + EXTERNAL ALAHD, ALASUM, CERRLQT, CLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchklqtp.f b/TESTING/LIN/cchklqtp.f index 987c0c3654..1d6f00fa1b 100644 --- a/TESTING/LIN/cchklqtp.f +++ b/TESTING/LIN/cchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQTP, CLQT04 + EXTERNAL ALAHD, ALASUM, CERRLQTP, CLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f index 7aeb6df4be..f3ecfbfa61 100644 --- a/TESTING/LIN/cchkqrt.f +++ b/TESTING/LIN/cchkqrt.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRT, CQRT04 + EXTERNAL ALAHD, ALASUM, CERRQRT, CQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkqrtp.f b/TESTING/LIN/cchkqrtp.f index 6820c90042..e22c4f1e46 100644 --- a/TESTING/LIN/cchkqrtp.f +++ b/TESTING/LIN/cchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRTP + EXTERNAL ALAHD, ALASUM, CERRQRTP, CQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index a926380d4c..6236567625 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -111,7 +111,7 @@ PROGRAM CCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, CDRVRFP, CDRVRF1, CDRVRF2, CDRVRF3, - + CDRVRF4 + + CDRVRF4, CERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/cchksy.f b/TESTING/LIN/cchksy.f index ce69f88b8f..f33cb879f2 100644 --- a/TESTING/LIN/cchksy.f +++ b/TESTING/LIN/cchksy.f @@ -221,7 +221,7 @@ SUBROUTINE CCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, 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 diff --git a/TESTING/LIN/cchksy_aa_2stage.f b/TESTING/LIN/cchksy_aa_2stage.f index bede7cca5e..40bec57362 100644 --- a/TESTING/LIN/cchksy_aa_2stage.f +++ b/TESTING/LIN/cchksy_aa_2stage.f @@ -215,9 +215,8 @@ SUBROUTINE CCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. 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 diff --git a/TESTING/LIN/cchktsqr.f b/TESTING/LIN/cchktsqr.f index 0a85d7cf1e..620fae0857 100644 --- a/TESTING/LIN/cchktsqr.f +++ b/TESTING/LIN/cchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRTSQR, - $ CTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, CERRTSQR, CTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f index 3a5b965faa..2f5794f33f 100644 --- a/TESTING/LIN/cdrvhe_aa.f +++ b/TESTING/LIN/cdrvhe_aa.f @@ -193,15 +193,10 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/cdrvhe_aa_2stage.f b/TESTING/LIN/cdrvhe_aa_2stage.f index cb71a60b36..76d9596252 100644 --- a/TESTING/LIN/cdrvhe_aa_2stage.f +++ b/TESTING/LIN/cdrvhe_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE CDRVHE_AA_2STAGE( 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 diff --git a/TESTING/LIN/cdrvhe_rk.f b/TESTING/LIN/cdrvhe_rk.f index 30205622e8..fff0c15e41 100644 --- a/TESTING/LIN/cdrvhe_rk.f +++ b/TESTING/LIN/cdrvhe_rk.f @@ -206,7 +206,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. 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 diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index 03b89b4973..ac27456a44 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -253,7 +253,7 @@ SUBROUTINE CDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, 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 diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index 3f43758939..7e8f20cb5f 100644 --- a/TESTING/LIN/cdrvrf3.f +++ b/TESTING/LIN/cdrvrf3.f @@ -165,7 +165,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL SLAMCH, CLARND, CLANGE, LSAME * .. * .. External Subroutines .. - EXTERNAL CTRTTF, CGEQRF, CGEQLF, CTFSM, CTRSM + EXTERNAL CTRTTF, CGEQRF, CGELQF, CTFSM, CTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f index 70291ee7a2..7adfb5a384 100644 --- a/TESTING/LIN/cdrvsy_aa.f +++ b/TESTING/LIN/cdrvsy_aa.f @@ -195,14 +195,10 @@ SUBROUTINE CDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/cdrvsy_aa_2stage.f b/TESTING/LIN/cdrvsy_aa_2stage.f index f33aef213f..ddf04cf147 100644 --- a/TESTING/LIN/cdrvsy_aa_2stage.f +++ b/TESTING/LIN/cdrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE CDRVSY_AA_2STAGE( 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 diff --git a/TESTING/LIN/cdrvsy_rook.f b/TESTING/LIN/cdrvsy_rook.f index 586cee58ff..dac323cf3b 100644 --- a/TESTING/LIN/cdrvsy_rook.f +++ b/TESTING/LIN/cdrvsy_rook.f @@ -199,9 +199,9 @@ SUBROUTINE CDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. 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 diff --git a/TESTING/LIN/cerrhe.f b/TESTING/LIN/cerrhe.f index cbec382423..f14e432e5d 100644 --- a/TESTING/LIN/cerrhe.f +++ b/TESTING/LIN/cerrhe.f @@ -86,8 +86,8 @@ SUBROUTINE CERRHE( PATH, NUNIT ) 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, diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f index fd84418fbc..1151b797c8 100644 --- a/TESTING/LIN/cerrsy.f +++ b/TESTING/LIN/cerrsy.f @@ -90,7 +90,8 @@ SUBROUTINE CERRSY( PATH, NUNIT ) $ 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 diff --git a/TESTING/LIN/cerrtsqr.f b/TESTING/LIN/cerrtsqr.f index 08cb5b6e53..fd0afdc67a 100644 --- a/TESTING/LIN/cerrtsqr.f +++ b/TESTING/LIN/cerrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE CERRTSQR( PATH, NUNIT ) $ 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 diff --git a/TESTING/LIN/cerrvx.f b/TESTING/LIN/cerrvx.f index a86f0712ec..54ab6044e1 100644 --- a/TESTING/LIN/cerrvx.f +++ b/TESTING/LIN/cerrvx.f @@ -88,7 +88,8 @@ SUBROUTINE CERRVX( PATH, NUNIT ) * .. * .. 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, diff --git a/TESTING/LIN/chet01_aa.f b/TESTING/LIN/chet01_aa.f index 5b1a1d708c..6c709c3ff5 100644 --- a/TESTING/LIN/chet01_aa.f +++ b/TESTING/LIN/chet01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, CLANHE * .. * .. External Subroutines .. - EXTERNAL CLASET, CLAVHE + EXTERNAL CLASET, CSWAP, CTRMM, CLACPY, CLACGV * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/clqt04.f b/TESTING/LIN/clqt04.f index c444ce44c1..fbdd303e87 100644 --- a/TESTING/LIN/clqt04.f +++ b/TESTING/LIN/clqt04.f @@ -107,7 +107,11 @@ SUBROUTINE CLQT04(M,N,NB,RESULT) 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 diff --git a/TESTING/LIN/clqt05.f b/TESTING/LIN/clqt05.f index 387b19d027..b7ba5f6119 100644 --- a/TESTING/LIN/clqt05.f +++ b/TESTING/LIN/clqt05.f @@ -113,7 +113,11 @@ SUBROUTINE CLQT05(M,N,L,NB,RESULT) 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 / diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f index 711bf70cfe..3393bad067 100644 --- a/TESTING/LIN/cqrt04.f +++ b/TESTING/LIN/cqrt04.f @@ -102,11 +102,15 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * .. 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 diff --git a/TESTING/LIN/cqrt05.f b/TESTING/LIN/cqrt05.f index d33ecc7c83..1141317332 100644 --- a/TESTING/LIN/cqrt05.f +++ b/TESTING/LIN/cqrt05.f @@ -109,11 +109,15 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * .. 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 / diff --git a/TESTING/LIN/csyt01_aa.f b/TESTING/LIN/csyt01_aa.f index 48b4173ad0..0fed0c1364 100644 --- a/TESTING/LIN/csyt01_aa.f +++ b/TESTING/LIN/csyt01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, CLANSY * .. * .. External Subroutines .. - EXTERNAL CLASET, CLAVSY + EXTERNAL CLASET, CSWAP, CTRMM, CLACPY * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/ctsqr01.f b/TESTING/LIN/ctsqr01.f index ca1bf5230e..83ec69917f 100644 --- a/TESTING/LIN/ctsqr01.f +++ b/TESTING/LIN/ctsqr01.f @@ -118,7 +118,11 @@ SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT) 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 diff --git a/TESTING/LIN/cunhr_col02.f b/TESTING/LIN/cunhr_col02.f index 4a4f677911..b46600d6b6 100644 --- a/TESTING/LIN/cunhr_col02.f +++ b/TESTING/LIN/cunhr_col02.f @@ -158,8 +158,8 @@ SUBROUTINE CUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) 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 diff --git a/TESTING/LIN/dchkaa.F b/TESTING/LIN/dchkaa.F index 91ed659661..6756fb60bd 100644 --- a/TESTING/LIN/dchkaa.F +++ b/TESTING/LIN/dchkaa.F @@ -170,8 +170,9 @@ PROGRAM DCHKAA $ 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 diff --git a/TESTING/LIN/dchklqt.f b/TESTING/LIN/dchklqt.f index aa77d6a62e..c573352595 100644 --- a/TESTING/LIN/dchklqt.f +++ b/TESTING/LIN/dchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQT, DLQT04 + EXTERNAL ALAHD, ALASUM, DERRLQT, DLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchklqtp.f b/TESTING/LIN/dchklqtp.f index d9251b1f09..e26e229517 100644 --- a/TESTING/LIN/dchklqtp.f +++ b/TESTING/LIN/dchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05 + EXTERNAL ALAHD, ALASUM, DERRLQTP, DLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrt.f b/TESTING/LIN/dchkqrt.f index 566f273d4e..b043097828 100644 --- a/TESTING/LIN/dchkqrt.f +++ b/TESTING/LIN/dchkqrt.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRT, DQRT04 + EXTERNAL ALAHD, ALASUM, DERRQRT, DQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrtp.f b/TESTING/LIN/dchkqrtp.f index 924ba7ea37..b2d069e039 100644 --- a/TESTING/LIN/dchkqrtp.f +++ b/TESTING/LIN/dchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRTP + EXTERNAL ALAHD, ALASUM, DERRQRTP, DQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index 41d269b7e8..c4290ff744 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -110,7 +110,7 @@ PROGRAM DCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, DDRVRFP, DDRVRF1, DDRVRF2, DDRVRF3, - + DDRVRF4 + + DDRVRF4, DERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/dchktsqr.f b/TESTING/LIN/dchktsqr.f index 27076b5c26..f6ba23adf4 100644 --- a/TESTING/LIN/dchktsqr.f +++ b/TESTING/LIN/dchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRTSQR, - $ DTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, DERRTSQR, DTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index a56c77a9c3..f24ac8d5fb 100644 --- a/TESTING/LIN/ddrvab.f +++ b/TESTING/LIN/ddrvab.f @@ -194,7 +194,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, DGET08, DLACPY, DLARHS, DLASET, - $ DLATB4, DLATMS + $ DLATB4, DLATMS, DSGESV * .. * .. Intrinsic Functions .. INTRINSIC DBLE, MAX, MIN, SQRT diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f index ec54f573a7..f7c4f6c276 100644 --- a/TESTING/LIN/ddrvac.f +++ b/TESTING/LIN/ddrvac.f @@ -186,13 +186,8 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * .. 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 .. diff --git a/TESTING/LIN/ddrvgbx.f b/TESTING/LIN/ddrvgbx.f index e2a5ec15de..e8f00b65e2 100644 --- a/TESTING/LIN/ddrvgbx.f +++ b/TESTING/LIN/ddrvgbx.f @@ -234,7 +234,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, 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 diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index 37122e3c92..bf493f5ca5 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.f @@ -160,7 +160,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL DLAMCH, DLANGE, DLARND, LSAME * .. * .. External Subroutines .. - EXTERNAL DTRTTF, DGEQRF, DGEQLF, DTFSM, DTRSM + EXTERNAL DTRTTF, DGEQRF, DGELQF, DTFSM, DTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index 206b25ebed..66b2f92ca6 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -191,14 +191,10 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/ddrvsy_aa_2stage.f b/TESTING/LIN/ddrvsy_aa_2stage.f index 09dbea6422..fc3a47bfba 100644 --- a/TESTING/LIN/ddrvsy_aa_2stage.f +++ b/TESTING/LIN/ddrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE DDRVSY_AA_2STAGE( 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 diff --git a/TESTING/LIN/ddrvsy_rook.f b/TESTING/LIN/ddrvsy_rook.f index 9a8fd4172d..b3327fedb5 100644 --- a/TESTING/LIN/ddrvsy_rook.f +++ b/TESTING/LIN/ddrvsy_rook.f @@ -197,10 +197,8 @@ SUBROUTINE DDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. 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 diff --git a/TESTING/LIN/derrtsqr.f b/TESTING/LIN/derrtsqr.f index bc8128cd44..1c553802e5 100644 --- a/TESTING/LIN/derrtsqr.f +++ b/TESTING/LIN/derrtsqr.f @@ -77,7 +77,7 @@ SUBROUTINE DERRTSQR( PATH, NUNIT ) $ C( NMAX, NMAX ), TAU( 5 ) * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHKXER, DGEQR, + EXTERNAL ALAESM, CHKXER, DGEQR, DLATSQR, DLASWLQ, $ DGEMQR, DGELQ, DGEMLQ * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/dlqt04.f b/TESTING/LIN/dlqt04.f index ef7e67538d..1ba0bd65d9 100644 --- a/TESTING/LIN/dlqt04.f +++ b/TESTING/LIN/dlqt04.f @@ -102,8 +102,11 @@ SUBROUTINE DLQT04(M,N,NB,RESULT) * .. * .. 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 diff --git a/TESTING/LIN/dlqt05.f b/TESTING/LIN/dlqt05.f index 7d2a2a1042..b8438cd436 100644 --- a/TESTING/LIN/dlqt05.f +++ b/TESTING/LIN/dlqt05.f @@ -109,8 +109,11 @@ SUBROUTINE DLQT05(M,N,L,NB,RESULT) * .. * .. 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 / diff --git a/TESTING/LIN/dorhr_col02.f b/TESTING/LIN/dorhr_col02.f index d4c438edb7..326bb8b792 100644 --- a/TESTING/LIN/dorhr_col02.f +++ b/TESTING/LIN/dorhr_col02.f @@ -154,8 +154,8 @@ SUBROUTINE DORHR_COL02( M, N, MB1, NB1, NB2, RESULT ) 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 diff --git a/TESTING/LIN/dqrt04.f b/TESTING/LIN/dqrt04.f index 6a7baea0f6..5a19839c71 100644 --- a/TESTING/LIN/dqrt04.f +++ b/TESTING/LIN/dqrt04.f @@ -100,10 +100,12 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * .. 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 diff --git a/TESTING/LIN/dqrt05.f b/TESTING/LIN/dqrt05.f index 2badd6d496..9bf6c8113f 100644 --- a/TESTING/LIN/dqrt05.f +++ b/TESTING/LIN/dqrt05.f @@ -107,10 +107,13 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * .. 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 / diff --git a/TESTING/LIN/dsyt01_aa.f b/TESTING/LIN/dsyt01_aa.f index 7af9b3c3af..f28a77b950 100644 --- a/TESTING/LIN/dsyt01_aa.f +++ b/TESTING/LIN/dsyt01_aa.f @@ -154,7 +154,7 @@ SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, DLANSY * .. * .. External Subroutines .. - EXTERNAL DLASET, DLAVSY + EXTERNAL DLASET, DSWAP, DTRMM, DLACPY * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/dtsqr01.f b/TESTING/LIN/dtsqr01.f index 85733be4c2..fb26eb1510 100644 --- a/TESTING/LIN/dtsqr01.f +++ b/TESTING/LIN/dtsqr01.f @@ -117,8 +117,11 @@ SUBROUTINE DTSQR01(TSSW, M, N, MB, NB, RESULT) * .. 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 diff --git a/TESTING/LIN/schkaa.F b/TESTING/LIN/schkaa.F index ad6ea87767..88082b725a 100644 --- a/TESTING/LIN/schkaa.F +++ b/TESTING/LIN/schkaa.F @@ -168,8 +168,9 @@ PROGRAM SCHKAA $ 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 diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index d8be9862b4..ecb7e7de05 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -238,7 +238,7 @@ SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQ, SGET02, $ SLACPY, SLARHS, SLATB4, SLATMS, SLQT01, SLQT02, - $ SLQT03, XLAENV + $ SLQT03, SGELS, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/schklqt.f b/TESTING/LIN/schklqt.f index 2230583bae..82c94c7fe5 100644 --- a/TESTING/LIN/schklqt.f +++ b/TESTING/LIN/schklqt.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQT, SLQT04 + EXTERNAL ALAHD, ALASUM, SERRLQT, SLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schklqtp.f b/TESTING/LIN/schklqtp.f index 20c0dd0199..b7569684e8 100644 --- a/TESTING/LIN/schklqtp.f +++ b/TESTING/LIN/schklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05 + EXTERNAL ALAHD, ALASUM, SERRLQTP, SLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrt.f b/TESTING/LIN/schkqrt.f index ed25a230d4..a2e9d42836 100644 --- a/TESTING/LIN/schkqrt.f +++ b/TESTING/LIN/schkqrt.f @@ -126,7 +126,7 @@ SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRT, SQRT04 + EXTERNAL ALAHD, ALASUM, SERRQRT, SQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrtp.f b/TESTING/LIN/schkqrtp.f index eee963c472..98c28f1661 100644 --- a/TESTING/LIN/schkqrtp.f +++ b/TESTING/LIN/schkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRTP, SQRT05 + EXTERNAL ALAHD, ALASUM, SERRQRTP, SQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index ab04f496b8..be26151adb 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -109,7 +109,7 @@ PROGRAM SCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, SDRVRFP, SDRVRF1, SDRVRF2, SDRVRF3, - + SDRVRF4 + + SDRVRF4, SERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/schksy.f b/TESTING/LIN/schksy.f index cfa26e41cd..a8de72ca6b 100644 --- a/TESTING/LIN/schksy.f +++ b/TESTING/LIN/schksy.f @@ -216,8 +216,8 @@ SUBROUTINE SCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * .. 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 diff --git a/TESTING/LIN/schksy_aa_2stage.f b/TESTING/LIN/schksy_aa_2stage.f index 6490cd7c37..4127d8be7c 100644 --- a/TESTING/LIN/schksy_aa_2stage.f +++ b/TESTING/LIN/schksy_aa_2stage.f @@ -213,9 +213,8 @@ SUBROUTINE SCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. 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 diff --git a/TESTING/LIN/schktsqr.f b/TESTING/LIN/schktsqr.f index 5d7aa2d374..9ff9f59e68 100644 --- a/TESTING/LIN/schktsqr.f +++ b/TESTING/LIN/schktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRTSQR, - $ STSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, SERRTSQR, STSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f index ba24611139..8ffb9b0736 100644 --- a/TESTING/LIN/sdrvrf3.f +++ b/TESTING/LIN/sdrvrf3.f @@ -160,7 +160,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL SLAMCH, SLANGE, SLARND, LSAME * .. * .. External Subroutines .. - EXTERNAL STRTTF, SGEQRF, SGEQLF, STFSM, STRSM + EXTERNAL STRTTF, SGEQRF, SGELQF, STFSM, STRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index e53db7309e..f5c3119f61 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -191,14 +191,10 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/sdrvsy_aa_2stage.f b/TESTING/LIN/sdrvsy_aa_2stage.f index 25e7fe0eca..74b1d3a9d8 100644 --- a/TESTING/LIN/sdrvsy_aa_2stage.f +++ b/TESTING/LIN/sdrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE SDRVSY_AA_2STAGE( 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 diff --git a/TESTING/LIN/sdrvsy_rook.f b/TESTING/LIN/sdrvsy_rook.f index 4ab67a81bd..1b996cc4da 100644 --- a/TESTING/LIN/sdrvsy_rook.f +++ b/TESTING/LIN/sdrvsy_rook.f @@ -198,10 +198,8 @@ SUBROUTINE SDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. 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 diff --git a/TESTING/LIN/serrtsqr.f b/TESTING/LIN/serrtsqr.f index 0f431bec16..923d5a1b56 100644 --- a/TESTING/LIN/serrtsqr.f +++ b/TESTING/LIN/serrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE SERRTSQR( PATH, NUNIT ) $ 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 diff --git a/TESTING/LIN/slqt04.f b/TESTING/LIN/slqt04.f index c0ba81f744..4279cfd241 100644 --- a/TESTING/LIN/slqt04.f +++ b/TESTING/LIN/slqt04.f @@ -102,8 +102,10 @@ SUBROUTINE SLQT04(M,N,NB,RESULT) * .. * .. 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 diff --git a/TESTING/LIN/slqt05.f b/TESTING/LIN/slqt05.f index 9afc37ef7c..bbff1b4500 100644 --- a/TESTING/LIN/slqt05.f +++ b/TESTING/LIN/slqt05.f @@ -108,8 +108,11 @@ SUBROUTINE SLQT05(M,N,L,NB,RESULT) * .. * .. 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 / diff --git a/TESTING/LIN/sorhr_col02.f b/TESTING/LIN/sorhr_col02.f index 1cbe405779..3112f5993c 100644 --- a/TESTING/LIN/sorhr_col02.f +++ b/TESTING/LIN/sorhr_col02.f @@ -154,8 +154,8 @@ SUBROUTINE SORHR_COL02( M, N, MB1, NB1, NB2, RESULT ) 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 diff --git a/TESTING/LIN/sqrt04.f b/TESTING/LIN/sqrt04.f index b088ba43e2..a2b5011e71 100644 --- a/TESTING/LIN/sqrt04.f +++ b/TESTING/LIN/sqrt04.f @@ -106,8 +106,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * .. External Functions .. REAL SLAMCH REAL SLANGE, SLANSY - LOGICAL LSAME - EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME + EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/sqrt05.f b/TESTING/LIN/sqrt05.f index 21ec97c1fa..73b4695709 100644 --- a/TESTING/LIN/sqrt05.f +++ b/TESTING/LIN/sqrt05.f @@ -114,8 +114,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * .. 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 / diff --git a/TESTING/LIN/ssyt01_aa.f b/TESTING/LIN/ssyt01_aa.f index 248a39794f..5b27aceca3 100644 --- a/TESTING/LIN/ssyt01_aa.f +++ b/TESTING/LIN/ssyt01_aa.f @@ -154,7 +154,7 @@ SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, SLANSY * .. * .. External Subroutines .. - EXTERNAL SLASET, SLAVSY, SSWAP, STRMM, SLACPY + EXTERNAL SLASET, SSWAP, STRMM, SLACPY * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/stsqr01.f b/TESTING/LIN/stsqr01.f index 683c165aef..dc60c8b829 100644 --- a/TESTING/LIN/stsqr01.f +++ b/TESTING/LIN/stsqr01.f @@ -118,7 +118,11 @@ SUBROUTINE STSQR01(TSSW, M, N, MB, NB, RESULT) 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 diff --git a/TESTING/LIN/zchkaa.F b/TESTING/LIN/zchkaa.F index 77a7a6cb31..ec16545dd0 100644 --- a/TESTING/LIN/zchkaa.F +++ b/TESTING/LIN/zchkaa.F @@ -179,7 +179,8 @@ PROGRAM ZCHKAA $ 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 diff --git a/TESTING/LIN/zchkhe.f b/TESTING/LIN/zchkhe.f index 9ee0793b77..0f6dc3f06c 100644 --- a/TESTING/LIN/zchkhe.f +++ b/TESTING/LIN/zchkhe.f @@ -221,7 +221,7 @@ SUBROUTINE ZCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, 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 diff --git a/TESTING/LIN/zchkhe_aa_2stage.f b/TESTING/LIN/zchkhe_aa_2stage.f index 51082f1d0b..d64b49ee8c 100644 --- a/TESTING/LIN/zchkhe_aa_2stage.f +++ b/TESTING/LIN/zchkhe_aa_2stage.f @@ -216,8 +216,8 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, 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 * .. diff --git a/TESTING/LIN/zchklqt.f b/TESTING/LIN/zchklqt.f index 680c1135e2..4ef8664852 100644 --- a/TESTING/LIN/zchklqt.f +++ b/TESTING/LIN/zchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQT, ZLQT04 + EXTERNAL ALAHD, ALASUM, ZERRLQT, ZLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchklqtp.f b/TESTING/LIN/zchklqtp.f index 75e3ddfb1d..9a259dd2cb 100644 --- a/TESTING/LIN/zchklqtp.f +++ b/TESTING/LIN/zchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQTP, ZLQT04 + EXTERNAL ALAHD, ALASUM, ZERRLQTP, ZLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrt.f b/TESTING/LIN/zchkqrt.f index cb07af72ce..5efe73d49e 100644 --- a/TESTING/LIN/zchkqrt.f +++ b/TESTING/LIN/zchkqrt.f @@ -128,7 +128,7 @@ SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRT, ZQRT04 + EXTERNAL ALAHD, ALASUM, ZERRQRT, ZQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrtp.f b/TESTING/LIN/zchkqrtp.f index 9337a68375..9bae06b3b3 100644 --- a/TESTING/LIN/zchkqrtp.f +++ b/TESTING/LIN/zchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRTP + EXTERNAL ALAHD, ALASUM, ZERRQRTP, ZQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index b2af1e9fbb..4c1b0e7a63 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -111,7 +111,7 @@ PROGRAM ZCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, ZDRVRFP, ZDRVRF1, ZDRVRF2, ZDRVRF3, - + ZDRVRF4 + + ZDRVRF4, ZERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/zchksy_aa_2stage.f b/TESTING/LIN/zchksy_aa_2stage.f index 4c8ff94f78..ab0195e1ba 100644 --- a/TESTING/LIN/zchksy_aa_2stage.f +++ b/TESTING/LIN/zchksy_aa_2stage.f @@ -215,9 +215,8 @@ SUBROUTINE ZCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. 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 diff --git a/TESTING/LIN/zchktsqr.f b/TESTING/LIN/zchktsqr.f index ca7828f1ad..0ebe8b97b3 100644 --- a/TESTING/LIN/zchktsqr.f +++ b/TESTING/LIN/zchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRTSQR, - $ ZTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, ZERRTSQR, ZTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index db7a7bd782..35dbc40772 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -196,7 +196,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ZGET08, ZLACPY, ZLARHS, ZLASET, - $ ZLATB4, ZLATMS + $ ZLATB4, ZLATMS, ZCGESV * .. * .. Intrinsic Functions .. INTRINSIC DCMPLX, DBLE, MAX, MIN, SQRT diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f index 3a7d00da91..d2b0b5c07f 100644 --- a/TESTING/LIN/zdrvac.f +++ b/TESTING/LIN/zdrvac.f @@ -189,7 +189,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, INTEGER ITER, KASE * .. * .. External Subroutines .. - EXTERNAL ALAERH, ZLACPY, ZLAIPD, + EXTERNAL ALAERH, ALAHD, ZLACPY, ZLAIPD, $ ZLARHS, ZLATB4, ZLATMS, $ ZPOT06, ZCPOSV * .. diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f index 28f268c5c6..f96a0059d9 100644 --- a/TESTING/LIN/zdrvhe_aa.f +++ b/TESTING/LIN/zdrvhe_aa.f @@ -193,15 +193,10 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/zdrvhe_aa_2stage.f b/TESTING/LIN/zdrvhe_aa_2stage.f index 9f6d5cba84..32fe434f8e 100644 --- a/TESTING/LIN/zdrvhe_aa_2stage.f +++ b/TESTING/LIN/zdrvhe_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE ZDRVHE_AA_2STAGE( 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 diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index 49a2fdcd75..2fab34f59b 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -252,7 +252,7 @@ SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, 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 diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f index fb95dd55e2..8ff14e9c7a 100644 --- a/TESTING/LIN/zdrvrf3.f +++ b/TESTING/LIN/zdrvrf3.f @@ -165,7 +165,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL DLAMCH, ZLARND, ZLANGE, LSAME * .. * .. External Subroutines .. - EXTERNAL ZTRTTF, ZGEQRF, ZGEQLF, ZTFSM, ZTRSM + EXTERNAL ZTRTTF, ZGEQRF, ZGELQF, ZTFSM, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f index 74aaf61a14..f1352291b8 100644 --- a/TESTING/LIN/zdrvsy_aa.f +++ b/TESTING/LIN/zdrvsy_aa.f @@ -195,14 +195,10 @@ SUBROUTINE ZDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 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 diff --git a/TESTING/LIN/zdrvsy_aa_2stage.f b/TESTING/LIN/zdrvsy_aa_2stage.f index 744872db39..d9ac7a5aa5 100644 --- a/TESTING/LIN/zdrvsy_aa_2stage.f +++ b/TESTING/LIN/zdrvsy_aa_2stage.f @@ -197,15 +197,10 @@ SUBROUTINE ZDRVSY_AA_2STAGE( 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 diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f index 8f1e16ddc8..d96bfac722 100644 --- a/TESTING/LIN/zdrvsy_rook.f +++ b/TESTING/LIN/zdrvsy_rook.f @@ -200,9 +200,9 @@ SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. 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 diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index a948e0795b..404eea7fca 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -90,7 +90,9 @@ SUBROUTINE ZERRSY( PATH, NUNIT ) $ 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 diff --git a/TESTING/LIN/zerrtsqr.f b/TESTING/LIN/zerrtsqr.f index 01892844e0..0580bd5237 100644 --- a/TESTING/LIN/zerrtsqr.f +++ b/TESTING/LIN/zerrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) $ 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 diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f index 09d412d07c..a2c1903b21 100644 --- a/TESTING/LIN/zerrvx.f +++ b/TESTING/LIN/zerrvx.f @@ -88,11 +88,12 @@ SUBROUTINE ZERRVX( PATH, NUNIT ) * .. * .. 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 diff --git a/TESTING/LIN/zhet01_aa.f b/TESTING/LIN/zhet01_aa.f index f1035c8180..ceb1c69bde 100644 --- a/TESTING/LIN/zhet01_aa.f +++ b/TESTING/LIN/zhet01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, ZLANHE * .. * .. External Subroutines .. - EXTERNAL ZLASET, ZLAVHE + EXTERNAL ZLASET, ZSWAP, ZTRMM, ZLACPY, ZLACGV * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/zlqt04.f b/TESTING/LIN/zlqt04.f index 3afa7c397d..f7b47dee4d 100644 --- a/TESTING/LIN/zlqt04.f +++ b/TESTING/LIN/zlqt04.f @@ -107,7 +107,10 @@ SUBROUTINE ZLQT04(M,N,NB,RESULT) 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 diff --git a/TESTING/LIN/zlqt05.f b/TESTING/LIN/zlqt05.f index e845621a96..7bfb873097 100644 --- a/TESTING/LIN/zlqt05.f +++ b/TESTING/LIN/zlqt05.f @@ -113,7 +113,11 @@ SUBROUTINE ZLQT05(M,N,L,NB,RESULT) 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 / diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f index 34993e8125..5d8a46f689 100644 --- a/TESTING/LIN/zpot06.f +++ b/TESTING/LIN/zpot06.f @@ -155,10 +155,9 @@ SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, COMPLEX*16 ZDUM * .. * .. External Functions .. - LOGICAL LSAME INTEGER IZAMAX DOUBLE PRECISION DLAMCH, ZLANSY - EXTERNAL LSAME, IZAMAX, DLAMCH, ZLANSY + EXTERNAL IZAMAX, DLAMCH, ZLANSY * .. * .. External Subroutines .. EXTERNAL ZHEMM diff --git a/TESTING/LIN/zqrt04.f b/TESTING/LIN/zqrt04.f index 3ca7199cec..20b1af73eb 100644 --- a/TESTING/LIN/zqrt04.f +++ b/TESTING/LIN/zqrt04.f @@ -102,11 +102,14 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL ZGEMM, ZLACPY, ZLARNV, ZGEMQRT, ZLASET, ZGEQRT, ZHERK +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zqrt05.f b/TESTING/LIN/zqrt05.f index 5677b7e76b..25799ac5c8 100644 --- a/TESTING/LIN/zqrt05.f +++ b/TESTING/LIN/zqrt05.f @@ -109,11 +109,14 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL ZGEMM, ZLARNV, ZTPMQRT, ZTPQRT, ZGEMQRT, ZHERK, + $ ZLACPY, ZLASET +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/zsyt01_aa.f b/TESTING/LIN/zsyt01_aa.f index ed65a5128d..e36cc8b7a1 100644 --- a/TESTING/LIN/zsyt01_aa.f +++ b/TESTING/LIN/zsyt01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, ZLANSY * .. * .. External Subroutines .. - EXTERNAL ZLASET, ZLAVSY + EXTERNAL ZLASET, ZSWAP, ZTRMM, ZLACPY * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/ztsqr01.f b/TESTING/LIN/ztsqr01.f index f844d512bc..524d2f26cb 100644 --- a/TESTING/LIN/ztsqr01.f +++ b/TESTING/LIN/ztsqr01.f @@ -117,8 +117,11 @@ SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT) * .. External Functions .. DOUBLE PRECISION DLAMCH, ZLANGE, ZLANSY LOGICAL LSAME - INTEGER ILAENV - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME, ILAENV + EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME +* .. +* .. External Subroutines .. + EXTERNAL ZLARNV, ZLACPY, ZGELQ, ZGEMLQ, ZLASET, ZGEMM, + $ ZHERK, ZGEQR, ZGEMQR * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zunhr_col02.f b/TESTING/LIN/zunhr_col02.f index 1c2e713716..260215ae0f 100644 --- a/TESTING/LIN/zunhr_col02.f +++ b/TESTING/LIN/zunhr_col02.f @@ -158,8 +158,8 @@ SUBROUTINE ZUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. External Subroutines .. - EXTERNAL ZLACPY, ZLARNV, ZLASET, ZGETSQRHRT, - $ ZSCAL, ZGEMM, ZGEMQRT, ZHERK + EXTERNAL ZLACPY, ZLARNV, ZLASET, ZGETSQRHRT, ZGEMM, + $ ZGEMQRT, ZHERK * .. * .. Intrinsic Functions .. INTRINSIC CEILING, DBLE, MAX, MIN From a3b6a89b5fd2af2188c35080a98545b224cf1340 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:13:41 +0200 Subject: [PATCH 4/7] Removed unnecessary external declarations in TESTING/EIG --- TESTING/EIG/cbdt05.f | 6 ++---- TESTING/EIG/cchkee.F | 14 ++++++-------- TESTING/EIG/dbdt04.f | 3 +-- TESTING/EIG/dbdt05.f | 4 +--- TESTING/EIG/dchkbd.f | 4 ++-- TESTING/EIG/dchkdmd.f90 | 2 +- TESTING/EIG/dchkee.F | 11 +++++------ TESTING/EIG/ddrvst2stg.f | 11 +++++------ TESTING/EIG/dget40.f | 2 +- TESTING/EIG/sbdt04.f | 3 +-- TESTING/EIG/sbdt05.f | 4 +--- TESTING/EIG/schkbd.f | 4 ++-- TESTING/EIG/schkdmd.f90 | 2 +- TESTING/EIG/schkee.F | 11 +++++------ TESTING/EIG/sdrvst2stg.f | 11 +++++------ TESTING/EIG/zbdt05.f | 6 ++---- TESTING/EIG/zchkdmd.f90 | 1 - TESTING/EIG/zchkee.F | 14 ++++++-------- TESTING/EIG/zdrvst2stg.f | 8 ++++---- 19 files changed, 51 insertions(+), 70 deletions(-) diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 80934f3ebf..403efcf019 100644 --- a/TESTING/EIG/cbdt05.f +++ b/TESTING/EIG/cbdt05.f @@ -154,10 +154,8 @@ SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, REAL DUM( 1 ) * .. * .. External Functions .. - LOGICAL LSAME - INTEGER ISAMAX - REAL SASUM, SCASUM, SLAMCH, CLANGE - EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE + REAL SCASUM, SLAMCH, CLANGE + EXTERNAL SCASUM, SLAMCH, CLANGE * .. * .. External Subroutines .. EXTERNAL CGEMM diff --git a/TESTING/EIG/cchkee.F b/TESTING/EIG/cchkee.F index 277f0afa93..6b2bca6703 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1103,14 +1103,12 @@ PROGRAM CCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, CCHKBB, CCHKBD, CCHKBK, CCHKBL, CCHKEC, - $ CCHKGG, CCHKGK, CCHKGL, CCHKHB, CCHKHS, CCHKST, - $ CCKCSD, CCKGLM, CCKGQR, CCKGSV, CCKLSE, CDRGES, - $ CDRGEV, CDRGSX, CDRGVX, CDRVBD, CDRVES, CDRVEV, - $ CDRVSG, CDRVST, CDRVSX, CDRVVX, CERRBD, - $ CERRED, CERRGG, CERRHS, CERRST, ILAVER, XLAENV, - $ CDRGES3, CDRGEV3, - $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, - $ CDRVSG2STG + $ CCHKGG, CCHKGK, CCHKGL, CCHKHS, CCHKST, CCKCSD, + $ CCKGLM, CCKGQR, CCKGSV, CCKLSE, CDRGES, CDRGEV, + $ CDRGSX, CDRGVX, CDRVBD, CDRVES, CDRVEV, CDRVST, + $ CDRVSX, CDRVVX, CERRBD, CERRED, CERRGG, CERRHS, + $ CERRST, ILAVER, XLAENV, CDRGES3, CDRGEV3, + $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, CDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/dbdt04.f b/TESTING/EIG/dbdt04.f index 762b8373a2..5753f0e9c3 100644 --- a/TESTING/EIG/dbdt04.f +++ b/TESTING/EIG/dbdt04.f @@ -156,9 +156,8 @@ SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX DOUBLE PRECISION DASUM, DLAMCH - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH + EXTERNAL LSAME, DASUM, DLAMCH * .. * .. External Subroutines .. EXTERNAL DGEMM diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index ca12e830b8..68f4920bce 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -150,10 +150,8 @@ SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, DOUBLE PRECISION ANORM, EPS * .. * .. External Functions .. - LOGICAL LSAME - INTEGER IDAMAX DOUBLE PRECISION DASUM, DLAMCH, DLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, DLANGE + EXTERNAL DASUM, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DGEMM diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index 92d4fff006..bd7d944248 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -539,8 +539,8 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, DOUBLE PRECISION DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH, DLARND, DSXT1 - EXTERNAL DLAMCH, DLARND, DSXT1 + DOUBLE PRECISION DLAMCH, DLARND + EXTERNAL DLAMCH, DLARND * .. * .. External Subroutines .. EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, diff --git a/TESTING/EIG/dchkdmd.f90 b/TESTING/EIG/dchkdmd.f90 index a2b9966288..948f9dcb13 100644 --- a/TESTING/EIG/dchkdmd.f90 +++ b/TESTING/EIG/dchkdmd.f90 @@ -94,7 +94,7 @@ PROGRAM DMD_TEST LOGICAL TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL + EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLASCL EXTERNAL DLARNV, DLATMR, XLAENV !.....external subroutines DMD package, part 1 ! subroutines under test diff --git a/TESTING/EIG/dchkee.F b/TESTING/EIG/dchkee.F index 20c4cb47c2..07bb24e9f9 100644 --- a/TESTING/EIG/dchkee.F +++ b/TESTING/EIG/dchkee.F @@ -1106,12 +1106,11 @@ PROGRAM DCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, DCHKBB, DCHKBD, DCHKBK, DCHKBL, DCHKEC, - $ DCHKGG, DCHKGK, DCHKGL, DCHKHS, DCHKSB, DCHKST, - $ DCKCSD, DCKGLM, DCKGQR, DCKGSV, DCKLSE, DDRGES, - $ DDRGEV, DDRGSX, DDRGVX, DDRVBD, DDRVES, DDRVEV, - $ DDRVSG, DDRVST, DDRVSX, DDRVVX, DERRBD, - $ DERRED, DERRGG, DERRHS, DERRST, ILAVER, XLAENV, - $ DDRGES3, DDRGEV3, + $ DCHKGG, DCHKGK, DCHKGL, DCHKHS, DCHKST, DCKCSD, + $ DCKGLM, DCKGQR, DCKGSV, DCKLSE, DDRGES, DDRGEV, + $ DDRGSX, DDRGVX, DDRVBD, DDRVES, DDRVEV, DDRVST, + $ DDRVSX, DDRVVX, DERRBD, DERRED, DERRGG, DERRHS, + $ DERRST, ILAVER, XLAENV, DDRGES3, DDRGEV3, $ DCHKST2STG, DDRVST2STG, DCHKSB2STG, DDRVSG2STG * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index f1c848d07f..dfccbc9646 100644 --- a/TESTING/EIG/ddrvst2stg.f +++ b/TESTING/EIG/ddrvst2stg.f @@ -503,14 +503,13 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, DLACPY, DLAFTS, DLASET, DLATMR, - $ DLATMS, DSBEV, DSBEVD, DSBEVX, DSPEV, DSPEVD, - $ DSPEVX, DSTEV, DSTEVD, DSTEVR, DSTEVX, DSTT21, - $ DSTT22, DSYEV, DSYEVD, DSYEVR, DSYEVX, DSYT21, + EXTERNAL ALASVM, DLACPY, DLAFTS, DLASET, DLATMR, DLATMS, + $ DSBEV, DSBEVD, DSBEVX, DSPEV, DSPEVD, DSPEVX, + $ DSTEV, DSTEVD, DSTEVR, DSTEVX, DSTT21, DSTT22, + $ DSYEV, DSYEVD, DSYEVR, DSYEVX, DSYT21, $ DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE, $ DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE, - $ DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB, - $ DSYTRD_SB2ST, DSYT22, XERBLA + $ DSBEVX_2STAGE, DSYT22, XERBLA * .. * .. Scalars in Common .. CHARACTER*32 SRNAMT diff --git a/TESTING/EIG/dget40.f b/TESTING/EIG/dget40.f index 384e0603be..f1ba47e71e 100644 --- a/TESTING/EIG/dget40.f +++ b/TESTING/EIG/dget40.f @@ -120,7 +120,7 @@ SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DGET51, DHST01, DLACPY, DLASET, DTGEXC + EXTERNAL DGET51, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/sbdt04.f b/TESTING/EIG/sbdt04.f index 0111b1a644..dc0361e9f7 100644 --- a/TESTING/EIG/sbdt04.f +++ b/TESTING/EIG/sbdt04.f @@ -156,9 +156,8 @@ SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX REAL SASUM, SLAMCH - EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH + EXTERNAL LSAME, SASUM, SLAMCH * .. * .. External Subroutines .. EXTERNAL SGEMM diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index b4c91c2cb7..7ca10c544b 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -150,10 +150,8 @@ SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, REAL ANORM, EPS * .. * .. External Functions .. - LOGICAL LSAME - INTEGER ISAMAX REAL SASUM, SLAMCH, SLANGE - EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, SLANGE + EXTERNAL SASUM, SLAMCH, SLANGE * .. * .. External Subroutines .. EXTERNAL SGEMM diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 9fd4f3480a..5c15e51ba3 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -539,8 +539,8 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, REAL DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. * .. External Functions .. - REAL SLAMCH, SLARND, SSXT1 - EXTERNAL SLAMCH, SLARND, SSXT1 + REAL SLAMCH, SLARND + EXTERNAL SLAMCH, SLARND * .. * .. External Subroutines .. EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, diff --git a/TESTING/EIG/schkdmd.f90 b/TESTING/EIG/schkdmd.f90 index ce0166763e..79bbb2ab31 100644 --- a/TESTING/EIG/schkdmd.f90 +++ b/TESTING/EIG/schkdmd.f90 @@ -94,7 +94,7 @@ PROGRAM DMD_TEST LOGICAL TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL SAXPY, SGEEV, SGEMM, SGEMV, SLACPY, SLASCL + EXTERNAL SAXPY, SGEEV, SGEMM, SGEMV, SLASCL EXTERNAL SLARNV, SLATMR, XLAENV !.....external subroutines DMD package, part 1 ! subroutines under test diff --git a/TESTING/EIG/schkee.F b/TESTING/EIG/schkee.F index fa780b695c..4fa913e301 100644 --- a/TESTING/EIG/schkee.F +++ b/TESTING/EIG/schkee.F @@ -1106,12 +1106,11 @@ PROGRAM SCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, SCHKBB, SCHKBD, SCHKBK, SCHKBL, SCHKEC, - $ SCHKGG, SCHKGK, SCHKGL, SCHKHS, SCHKSB, SCHKST, - $ SCKCSD, SCKGLM, SCKGQR, SCKGSV, SCKLSE, SDRGES, - $ SDRGEV, SDRGSX, SDRGVX, SDRVBD, SDRVES, SDRVEV, - $ SDRVSG, SDRVST, SDRVSX, SDRVVX, SERRBD, - $ SERRED, SERRGG, SERRHS, SERRST, ILAVER, XLAENV, - $ SDRGES3, SDRGEV3, + $ SCHKGG, SCHKGK, SCHKGL, SCHKHS, SCHKST, SCKCSD, + $ SCKGLM, SCKGQR, SCKGSV, SCKLSE, SDRGES, SDRGEV, + $ SDRGSX, SDRGVX, SDRVBD, SDRVES, SDRVEV, SDRVST, + $ SDRVSX, SDRVVX, SERRBD, SERRED, SERRGG, SERRHS, + $ SERRST, ILAVER, XLAENV, SDRGES3, SDRGEV3, $ SCHKST2STG, SDRVST2STG, SCHKSB2STG, SDRVSG2STG * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index f20d9fdf37..377fbd7f8f 100644 --- a/TESTING/EIG/sdrvst2stg.f +++ b/TESTING/EIG/sdrvst2stg.f @@ -503,14 +503,13 @@ SUBROUTINE SDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL SLAMCH, SLARND, SSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, SLACPY, SLAFTS, SLASET, SLATMR, - $ SLATMS, SSBEV, SSBEVD, SSBEVX, SSPEV, SSPEVD, - $ SSPEVX, SSTEV, SSTEVD, SSTEVR, SSTEVX, SSTT21, - $ SSTT22, SSYEV, SSYEVD, SSYEVR, SSYEVX, SSYT21, + EXTERNAL ALASVM, SLACPY, SLAFTS, SLASET, SLATMR, SLATMS, + $ SSBEV, SSBEVD, SSBEVX, SSPEV, SSPEVD, SSPEVX, + $ SSTEV, SSTEVD, SSTEVR, SSTEVX, SSTT21, SSTT22, + $ SSYEV, SSYEVD, SSYEVR, SSYEVX, SSYT21, $ SSYEVD_2STAGE, SSYEVR_2STAGE, SSYEVX_2STAGE, $ SSYEV_2STAGE, SSBEV_2STAGE, SSBEVD_2STAGE, - $ SSBEVX_2STAGE, SSYTRD_2STAGE, SSYTRD_SY2SB, - $ SSYTRD_SB2ST, SSYT22, XERBLA + $ SSBEVX_2STAGE, SSYT22, XERBLA * .. * .. Scalars in Common .. CHARACTER*32 SRNAMT diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index 2a4bf82016..db0c977b31 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -154,10 +154,8 @@ SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, DOUBLE PRECISION DUM( 1 ) * .. * .. External Functions .. - LOGICAL LSAME - INTEGER IDAMAX - DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE + DOUBLE PRECISION DZASUM, DLAMCH, ZLANGE + EXTERNAL DZASUM, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEMM diff --git a/TESTING/EIG/zchkdmd.f90 b/TESTING/EIG/zchkdmd.f90 index 334befbd1b..0224ae9d0f 100644 --- a/TESTING/EIG/zchkdmd.f90 +++ b/TESTING/EIG/zchkdmd.f90 @@ -84,7 +84,6 @@ PROGRAM DMD_TEST LOGICAL :: TEST_QRDMD !.....external subroutines (BLAS and LAPACK) - EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL EXTERNAL ZGEEV, ZGEMV, ZLASCL EXTERNAL ZLARNV, ZLATMR, XLAENV EXTERNAL ZAXPY, ZGEMM diff --git a/TESTING/EIG/zchkee.F b/TESTING/EIG/zchkee.F index 1a3e02478c..3dc9ab4d86 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1103,14 +1103,12 @@ PROGRAM ZCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, XLAENV, ZCHKBB, ZCHKBD, ZCHKBK, ZCHKBL, - $ ZCHKEC, ZCHKGG, ZCHKGK, ZCHKGL, ZCHKHB, ZCHKHS, - $ ZCHKST, ZCKCSD, ZCKGLM, ZCKGQR, ZCKGSV, ZCKLSE, - $ ZDRGES, ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, - $ ZDRVEV, ZDRVSG, ZDRVST, ZDRVSX, ZDRVVX, - $ ZERRBD, ZERRED, ZERRGG, ZERRHS, ZERRST, ILAVER, - $ ZDRGES3, ZDRGEV3, - $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, - $ ZDRVSG2STG + $ ZCHKEC, ZCHKGG, ZCHKGK, ZCHKGL, ZCHKHS, ZCHKST, + $ ZCKCSD, ZCKGLM, ZCKGQR, ZCKGSV, ZCKLSE, ZDRGES, + $ ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, ZDRVEV, + $ ZDRVST, ZDRVSX, ZDRVVX, ZERRBD, ZERRED, ZERRGG, + $ ZERRHS, ZERRST, ILAVER, ZDRGES3, ZDRGEV3, + $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, ZDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 5dd58c173d..012ae271e2 100644 --- a/TESTING/EIG/zdrvst2stg.f +++ b/TESTING/EIG/zdrvst2stg.f @@ -392,12 +392,12 @@ SUBROUTINE ZDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, DLAFTS, XERBLA, ZHBEV, ZHBEVD, - $ ZHBEVX, ZHEEV, ZHEEVD, ZHEEVR, ZHEEVX, ZHET21, - $ ZHET22, ZHPEV, ZHPEVD, ZHPEVX, ZLACPY, ZLASET, + EXTERNAL ALASVM, DLAFTS, XERBLA, ZHBEV, ZHBEVD, ZHBEVX, + $ ZHEEV, ZHEEVD, ZHEEVR, ZHEEVX, ZHET21, ZHET22, + $ ZHPEV, ZHPEVD, ZHPEVX, ZLACPY, ZLASET, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE, ZLATMR, ZLATMS + $ ZHBEVX_2STAGE, ZLATMR, ZLATMS * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, INT, LOG, MAX, MIN, SQRT From 57e7ee9724a1371e3d223e1f1d0d6e0598c1a4f7 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:23:23 +0200 Subject: [PATCH 5/7] Add missing external declarations in CBLAS/TESTING --- CBLAS/testing/c_cblat3.f | 3 ++- CBLAS/testing/c_dblat2.f | 2 +- CBLAS/testing/c_zblat3.f | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 3575e6d8f7..1a84d9e7b8 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -86,7 +86,8 @@ PROGRAM CBLAT3 LOGICAL LCE EXTERNAL SDIFF, LCE * .. External Subroutines .. - EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, CCHK5, CCHK6, CMMCH + EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, CCHK5, CCHK6, + $ CC3CHKE, CMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. diff --git a/CBLAS/testing/c_dblat2.f b/CBLAS/testing/c_dblat2.f index 757d1cc9cc..66aaa129c6 100644 --- a/CBLAS/testing/c_dblat2.f +++ b/CBLAS/testing/c_dblat2.f @@ -1641,7 +1641,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, LOGICAL LDE, LDERES EXTERNAL LDE, LDERES * .. External Subroutines .. - EXTERNAL DGER, DMAKE, DMVCH + EXTERNAL CDGER, DMAKE, DMVCH * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN * .. Scalars in Common .. diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index 8e5be30721..f5e3c852c2 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -87,7 +87,8 @@ PROGRAM ZBLAT3 LOGICAL LZE EXTERNAL DDIFF, LZE * .. External Subroutines .. - EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHK6, ZMMCH + EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHK6, + $ CZ3CHKE, ZMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. From ce313deecded4070c7efccd08f0aa693f8b2d3dc Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:33:05 +0200 Subject: [PATCH 6/7] Add missing external declarations in SRC (and removed unused ones) --- SRC/VARIANTS/cholesky/RL/cpotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/dpotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/spotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/zpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/cpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/dpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/spotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/zpotrf.f | 2 +- SRC/cgedmd.f90 | 4 ++-- SRC/cgelq.f | 3 +-- SRC/cgeqr.f | 3 +-- SRC/chbev_2stage.f | 5 ++--- SRC/chesv_aa.f | 3 +-- SRC/chseqr.f | 3 +-- SRC/clahef_aa.f | 7 +++---- SRC/clahef_rk.f | 3 +-- SRC/claqr5.f | 3 +-- SRC/claswlq.f | 4 +--- SRC/clasyf_aa.f | 8 +++----- SRC/clatsqr.f | 5 ++--- SRC/crscl.f | 3 +-- SRC/csysv_aa.f | 3 +-- SRC/dgedmdq.f90 | 1 - SRC/dgelq.f | 4 ---- SRC/dgeqr.f | 4 ---- SRC/dlaqp2.f | 2 +- SRC/dlaqr5.f | 3 +-- SRC/dlaswlq.f | 4 ---- SRC/dlasyf_aa.f | 8 +++----- SRC/dlatsqr.f | 4 ---- SRC/dorbdb4.f | 3 +-- SRC/dorgr2.f | 2 +- SRC/dsysv_aa.f | 3 +-- SRC/ilaenv.f | 4 ++-- SRC/sgedmdq.f90 | 1 - SRC/sgelq.f | 3 +-- SRC/sgeqr.f | 2 -- SRC/slaqr2.f | 6 ++---- SRC/slaqr5.f | 3 +-- SRC/slaswlq.f | 4 +--- SRC/slasyf_aa.f | 8 +++----- SRC/slatsqr.f | 2 -- SRC/zgedmd.f90 | 4 ++-- SRC/zgelq.f | 4 ---- SRC/zgeqr.f | 4 ---- SRC/zhbev_2stage.f | 5 ++--- SRC/zhesv_aa.f | 3 +-- SRC/zhesv_aa_2stage.f | 3 +-- SRC/zlahef_aa.f | 7 +++---- SRC/zlaqr5.f | 3 +-- SRC/zlaswlq.f | 4 ---- SRC/zlasyf_aa.f | 8 +++----- SRC/zlatsqr.f | 4 ---- SRC/zrscl.f | 5 ++--- SRC/zsysv_aa.f | 3 +-- SRC/zsytrf_aa_2stage.f | 5 ++--- 56 files changed, 65 insertions(+), 141 deletions(-) diff --git a/SRC/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 99b509b475..ba15b3f4a7 100644 --- a/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHERK, CPOTRF2, CTRSM, XERBLA + EXTERNAL CHERK, CPOTRF2, CTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/dpotrf.f b/SRC/VARIANTS/cholesky/RL/dpotrf.f index e1de96d9ad..644bdf3921 100644 --- a/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -129,7 +129,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL DGEMM, DPOTRF2, DSYRK, DTRSM, XERBLA + EXTERNAL DPOTRF2, DSYRK, DTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/spotrf.f b/SRC/VARIANTS/cholesky/RL/spotrf.f index b739f622ca..3303e5ad54 100644 --- a/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -129,7 +129,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL SGEMM, SPOTRF2, SSYRK, STRSM, XERBLA + EXTERNAL SPOTRF2, SSYRK, STRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/zpotrf.f b/SRC/VARIANTS/cholesky/RL/zpotrf.f index 1642a47977..37d6a277c9 100644 --- a/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTRF2, ZTRSM + EXTERNAL XERBLA, ZHERK, ZPOTRF2, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/SRC/VARIANTS/cholesky/TOP/cpotrf.f index a69779fced..70630788b8 100644 --- a/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHERK, CPOTRF2, CTRSM, XERBLA + EXTERNAL CHERK, CPOTRF2, CTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/SRC/VARIANTS/cholesky/TOP/dpotrf.f index e992c8cfba..d78cae2e09 100644 --- a/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -129,7 +129,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL DGEMM, DPOTRF2, DSYRK, DTRSM, XERBLA + EXTERNAL DPOTRF2, DSYRK, DTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/spotrf.f b/SRC/VARIANTS/cholesky/TOP/spotrf.f index 5df525a528..5cf46bb6ce 100644 --- a/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -129,7 +129,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL SGEMM, SPOTRF2, SSYRK, STRSM, XERBLA + EXTERNAL SPOTRF2, SSYRK, STRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/SRC/VARIANTS/cholesky/TOP/zpotrf.f index ff0c07bd5e..6dbd11f4e2 100644 --- a/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTRF2, ZTRSM + EXTERNAL XERBLA, ZHERK, ZPOTRF2, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/cgedmd.f90 b/SRC/cgedmd.f90 index 9cc23e81e0..dc7fc46ce3 100644 --- a/SRC/cgedmd.f90 +++ b/SRC/cgedmd.f90 @@ -558,8 +558,8 @@ SUBROUTINE CGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, & ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) CLANGE, SLAMCH, SCNRM2 - EXTERNAL CLANGE, SLAMCH, SCNRM2, ICAMAX - INTEGER ICAMAX + EXTERNAL SLAMCH, SCNRM2, ICAMAX + INTEGER ICAMAX LOGICAL SISNAN, LSAME EXTERNAL SISNAN, LSAME ! diff --git a/SRC/cgelq.f b/SRC/cgelq.f index 5a92164b7e..59a136846f 100644 --- a/SRC/cgelq.f +++ b/SRC/cgelq.f @@ -192,9 +192,8 @@ SUBROUTINE CGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL CGELQT, CLASWLQ, XERBLA diff --git a/SRC/cgeqr.f b/SRC/cgeqr.f index bb7d0a7b27..eb49fdc6db 100644 --- a/SRC/cgeqr.f +++ b/SRC/cgeqr.f @@ -194,9 +194,8 @@ SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL CLATSQR, CGEQRT, XERBLA diff --git a/SRC/chbev_2stage.f b/SRC/chbev_2stage.f index 690dc0f100..27ec15e02d 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -244,9 +244,8 @@ SUBROUTINE CHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, $ SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, - $ CSTEQR, - $ CHETRD_2STAGE, CHETRD_HB2ST + EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR, + $ CHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC REAL, SQRT diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index 132a29d821..28bfc23af4 100644 --- a/SRC/chesv_aa.f +++ b/SRC/chesv_aa.f @@ -180,9 +180,8 @@ SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL LSAME, ILAENV, SROUNDUP_LWORK + EXTERNAL LSAME, SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL XERBLA, CHETRF_AA, CHETRS_AA diff --git a/SRC/chseqr.f b/SRC/chseqr.f index 2696cf00a1..78b9488907 100644 --- a/SRC/chseqr.f +++ b/SRC/chseqr.f @@ -342,8 +342,7 @@ SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * .. External Functions .. INTEGER ILAENV LOGICAL LSAME - REAL SROUNDUP_LWORK - EXTERNAL ILAENV, LSAME, SROUNDUP_LWORK + EXTERNAL ILAENV, LSAME * .. * .. External Subroutines .. EXTERNAL CCOPY, CLACPY, CLAHQR, CLAQR0, CLASET, diff --git a/SRC/clahef_aa.f b/SRC/clahef_aa.f index ad6ffaba9e..817d139f96 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -166,12 +166,11 @@ SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ICAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ICAMAX + INTEGER ICAMAX + EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, CCOPY, CSWAP, - $ CLASET, XERBLA + EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC REAL, CONJG, MAX diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 15861e3127..33a7aa3dd1 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,8 +298,7 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMMTR, CGEMV, - $ CLACGV, CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMMTR, CGEMV, CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 4ece3ca9d7..96ea4f5bee 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -299,8 +299,7 @@ SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET, - $ CTRMM + EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET * .. * .. Statement Functions .. REAL CABS1 diff --git a/SRC/claswlq.f b/SRC/claswlq.f index 835c679447..be633b8a62 100644 --- a/SRC/claswlq.f +++ b/SRC/claswlq.f @@ -187,10 +187,8 @@ SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL LSAME, ILAENV, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. EXTERNAL CGELQT, CTPLQT, XERBLA diff --git a/SRC/clasyf_aa.f b/SRC/clasyf_aa.f index 6931a04a0f..02a48b6d42 100644 --- a/SRC/clasyf_aa.f +++ b/SRC/clasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE CLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ICAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ICAMAX + INTEGER ICAMAX + EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, - $ CLASET, - $ XERBLA + EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index 0392b3da78..c16f4331f0 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -159,7 +159,7 @@ *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. *> -*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,” +*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,� *> J. Demmel, L. Grigori, M. Hoemmen, J. Langou, *> SIAM J. Sci. Comput, vol. 34, no. 1, 2012 *> \endverbatim @@ -190,9 +190,8 @@ SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INTEGER I, II, KK, CTR, LWMIN, MINMN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. EXTERNAL CGEQRT, CTPQRT, XERBLA diff --git a/SRC/crscl.f b/SRC/crscl.f index d59b049aa0..730a4e9ba1 100644 --- a/SRC/crscl.f +++ b/SRC/crscl.f @@ -105,8 +105,7 @@ SUBROUTINE CRSCL( N, A, X, INCX ) * .. * .. External Functions .. REAL SLAMCH - COMPLEX CLADIV - EXTERNAL SLAMCH, CLADIV + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL CSCAL, CSSCAL, CSRSCL diff --git a/SRC/csysv_aa.f b/SRC/csysv_aa.f index 469a961dc6..8f9661806b 100644 --- a/SRC/csysv_aa.f +++ b/SRC/csysv_aa.f @@ -180,9 +180,8 @@ SUBROUTINE CSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL ILAENV, LSAME, SROUNDUP_LWORK + EXTERNAL LSAME, SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL XERBLA, CSYTRF_AA, CSYTRS_AA diff --git a/SRC/dgedmdq.f90 b/SRC/dgedmdq.f90 index 75d9d18ee3..ddcc947bb2 100644 --- a/SRC/dgedmdq.f90 +++ b/SRC/dgedmdq.f90 @@ -633,7 +633,6 @@ SUBROUTINE DGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, & ! ! External subroutines (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~~~~ - EXTERNAL DGEMM EXTERNAL DGEDMD, DGEQRF, DLACPY, DLASET, DORGQR, & DORMQR, XERBLA ! diff --git a/SRC/dgelq.f b/SRC/dgelq.f index 98f4ba84c9..3cbe50b63f 100644 --- a/SRC/dgelq.f +++ b/SRC/dgelq.f @@ -191,10 +191,6 @@ SUBROUTINE DGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL DGELQT, DLASWLQ, XERBLA * .. diff --git a/SRC/dgeqr.f b/SRC/dgeqr.f index fe657da3c0..873bf4013a 100644 --- a/SRC/dgeqr.f +++ b/SRC/dgeqr.f @@ -193,10 +193,6 @@ SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL DLATSQR, DGEQRT, XERBLA * .. diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index a1dd23d9a9..625c1b1d1e 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -168,7 +168,7 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, DOUBLE PRECISION TEMP, TEMP2, TOL3Z * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFG, DSWAP + EXTERNAL DLARF1F, DLARFG, DSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index fe8719d7ad..d9ecf53194 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -304,8 +304,7 @@ SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, DOUBLE PRECISION VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET, - $ DTRMM + EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET * .. * .. Executable Statements .. * diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index 9c4ceb19cd..569190f02c 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -187,10 +187,6 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL DGELQT, DTPLQT, XERBLA * .. diff --git a/SRC/dlasyf_aa.f b/SRC/dlasyf_aa.f index 991ae005d2..fc3d9a6814 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IDAMAX + INTEGER IDAMAX + EXTERNAL LSAME, IDAMAX * .. * .. External Subroutines .. - EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, - $ DLASET, - $ XERBLA + EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, DLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dlatsqr.f b/SRC/dlatsqr.f index 8c596ce2fb..152f47ffc5 100644 --- a/SRC/dlatsqr.f +++ b/SRC/dlatsqr.f @@ -188,10 +188,6 @@ SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, * .. Local Scalars .. LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN -* .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME * .. EXTERNAL SUBROUTINES .. EXTERNAL DGEQRT, DTPQRT, XERBLA * .. INTRINSIC FUNCTIONS .. diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index b0ad5f748d..128b2d2129 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,8 +237,7 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFGP, DORBDB5, - $ DROT, DSCAL, XERBLA + EXTERNAL DLARF1F, DLARFGP, DORBDB5, DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index cc7e24db38..caee9f8b64 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -132,7 +132,7 @@ SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) INTEGER I, II, J, L * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA + EXTERNAL DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 2757bff994..df8b855781 100644 --- a/SRC/dsysv_aa.f +++ b/SRC/dsysv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, DSYTRF_AA, DSYTRS_AA diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index e108108d7f..58c26cd299 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -179,8 +179,8 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) INTRINSIC CHAR, ICHAR, INT, MIN, REAL * .. * .. External Functions .. - INTEGER IEEECK, IPARMQ, IPARAM2STAGE - EXTERNAL IEEECK, IPARMQ, IPARAM2STAGE + INTEGER IEEECK, IPARMQ + EXTERNAL IEEECK, IPARMQ * .. * .. Executable Statements .. * diff --git a/SRC/sgedmdq.f90 b/SRC/sgedmdq.f90 index 6bb0a9ed0a..e54380f650 100644 --- a/SRC/sgedmdq.f90 +++ b/SRC/sgedmdq.f90 @@ -633,7 +633,6 @@ SUBROUTINE SGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, & ! ! External subroutines (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~~~~ - EXTERNAL SGEMM EXTERNAL SGEDMD, SGEQRF, SLACPY, SLASET, SORGQR, & SORMQR, XERBLA ! diff --git a/SRC/sgelq.f b/SRC/sgelq.f index d985d06504..bbe12ba3b0 100644 --- a/SRC/sgelq.f +++ b/SRC/sgelq.f @@ -192,9 +192,8 @@ SUBROUTINE SGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL SGELQT, SLASWLQ, XERBLA diff --git a/SRC/sgeqr.f b/SRC/sgeqr.f index b4403b6790..7d4bda6477 100644 --- a/SRC/sgeqr.f +++ b/SRC/sgeqr.f @@ -194,8 +194,6 @@ SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. * .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 7c27905963..5108e33d48 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -309,10 +309,8 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, EXTERNAL SLAMCH, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, - $ SLAHQR, - $ SLANV2, SLARF1F, SLARF1L, SLARFG, - $ SLASET, SORMHR, STREXC + EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, SLAHQR, SLANV2, + $ SLARF1F, SLARFG, SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index aed50f6181..b70e18a513 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -304,8 +304,7 @@ SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, REAL VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET, - $ STRMM + EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET * .. * .. Executable Statements .. * diff --git a/SRC/slaswlq.f b/SRC/slaswlq.f index 08e7f3b9c1..b7157fe6bf 100644 --- a/SRC/slaswlq.f +++ b/SRC/slaswlq.f @@ -187,13 +187,11 @@ SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. - EXTERNAL SGELQT, SGEQRT, STPLQT, STPQRT, XERBLA + EXTERNAL SGELQT, STPLQT, XERBLA * .. * .. INTRINSIC FUNCTIONS .. INTRINSIC MAX, MIN, MOD diff --git a/SRC/slasyf_aa.f b/SRC/slasyf_aa.f index d45bbb99c2..93b0e504e8 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ISAMAX + INTEGER ISAMAX + EXTERNAL LSAME, ISAMAX * .. * .. External Subroutines .. - EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, - $ SLASET, - $ XERBLA + EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, SLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index daeaf61b84..068bf4563b 100644 --- a/SRC/slatsqr.f +++ b/SRC/slatsqr.f @@ -190,8 +190,6 @@ SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/zgedmd.f90 b/SRC/zgedmd.f90 index 7e40a3f1b6..86f0c322be 100644 --- a/SRC/zgedmd.f90 +++ b/SRC/zgedmd.f90 @@ -558,8 +558,8 @@ SUBROUTINE ZGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, & ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) ZLANGE, DLAMCH, DZNRM2 - EXTERNAL ZLANGE, DLAMCH, DZNRM2, IZAMAX - INTEGER IZAMAX + EXTERNAL DLAMCH, DZNRM2, IZAMAX + INTEGER IZAMAX LOGICAL DISNAN, LSAME EXTERNAL DISNAN, LSAME ! diff --git a/SRC/zgelq.f b/SRC/zgelq.f index fc5bceb5fa..87ac030188 100644 --- a/SRC/zgelq.f +++ b/SRC/zgelq.f @@ -191,10 +191,6 @@ SUBROUTINE ZGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL ZGELQT, ZLASWLQ, XERBLA * .. diff --git a/SRC/zgeqr.f b/SRC/zgeqr.f index 65a543d2b8..62ce9b8f7c 100644 --- a/SRC/zgeqr.f +++ b/SRC/zgeqr.f @@ -193,10 +193,6 @@ SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL ZLATSQR, ZGEQRT, XERBLA * .. diff --git a/SRC/zhbev_2stage.f b/SRC/zhbev_2stage.f index 257edbd638..0358ebf9bd 100644 --- a/SRC/zhbev_2stage.f +++ b/SRC/zhbev_2stage.f @@ -243,9 +243,8 @@ SUBROUTINE ZHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV2STAGE * .. * .. External Subroutines .. - EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, - $ ZSTEQR, - $ ZHETRD_2STAGE, ZHETRD_HB2ST + EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, ZSTEQR, + $ ZHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC DBLE, SQRT diff --git a/SRC/zhesv_aa.f b/SRC/zhesv_aa.f index 13910d09ae..43975d0004 100644 --- a/SRC/zhesv_aa.f +++ b/SRC/zhesv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZHETRF_AA, ZHETRS_AA diff --git a/SRC/zhesv_aa_2stage.f b/SRC/zhesv_aa_2stage.f index cb744541e8..7360b633fe 100644 --- a/SRC/zhesv_aa_2stage.f +++ b/SRC/zhesv_aa_2stage.f @@ -211,8 +211,7 @@ SUBROUTINE ZHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZHETRF_AA_2STAGE, diff --git a/SRC/zlahef_aa.f b/SRC/zlahef_aa.f index a109098784..ae355b7076 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -166,12 +166,11 @@ SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IZAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IZAMAX + INTEGER IZAMAX + EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZLACGV, ZCOPY, ZSCAL, - $ ZSWAP, ZLASET, XERBLA + EXTERNAL ZGEMV, ZAXPY, ZLACGV, ZCOPY, ZSCAL, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCONJG, MAX diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f index 54da1d4e98..a940f24c7b 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -299,8 +299,7 @@ SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX*16 VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET, - $ ZTRMM + EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 diff --git a/SRC/zlaswlq.f b/SRC/zlaswlq.f index 0cfd5b8f3f..da1cc9c325 100644 --- a/SRC/zlaswlq.f +++ b/SRC/zlaswlq.f @@ -185,10 +185,6 @@ SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL ZGELQT, ZTPLQT, XERBLA * .. diff --git a/SRC/zlasyf_aa.f b/SRC/zlasyf_aa.f index 230b668515..aa005b7a45 100644 --- a/SRC/zlasyf_aa.f +++ b/SRC/zlasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE ZLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IZAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IZAMAX + INTEGER IZAMAX + EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, - $ ZLASET, - $ XERBLA + EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/zlatsqr.f b/SRC/zlatsqr.f index ffb402ebd8..242fec7243 100644 --- a/SRC/zlatsqr.f +++ b/SRC/zlatsqr.f @@ -189,10 +189,6 @@ SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, LWMIN, MINMN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL ZGEQRT, ZTPQRT, XERBLA * .. diff --git a/SRC/zrscl.f b/SRC/zrscl.f index b775ff2fb5..1f73b8a2e2 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -104,11 +104,10 @@ SUBROUTINE ZRSCL( N, A, X, INCX ) * .. * .. External Functions .. DOUBLE PRECISION DLAMCH - COMPLEX*16 ZLADIV - EXTERNAL DLAMCH, ZLADIV + EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DSCAL, ZDSCAL, ZDRSCL, ZSCAL + EXTERNAL ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index bf66ebdbcf..8728acb913 100644 --- a/SRC/zsysv_aa.f +++ b/SRC/zsysv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE ZSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZSYTRF_AA, ZSYTRS_AA diff --git a/SRC/zsytrf_aa_2stage.f b/SRC/zsytrf_aa_2stage.f index 8d47f220fb..b68821c6d4 100644 --- a/SRC/zsytrf_aa_2stage.f +++ b/SRC/zsytrf_aa_2stage.f @@ -189,9 +189,8 @@ SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, - $ ZGETRF, - $ ZLACPY, ZLASET, ZLASWP, ZTRSM, ZSWAP + EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, ZGETRF, ZLACPY, + $ ZLASET, ZTRSM, ZSWAP * .. * .. Intrinsic Functions .. INTRINSIC MIN, MAX From 5da24275b9a9fc2d5a6f362a7345e42ebff2ad8a Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Wed, 13 May 2026 12:54:05 +0200 Subject: [PATCH 7/7] Some reformatting to shorten lines below 72 characters with preprocessor replacements --- CBLAS/testing/c_cblat3.f | 4 ++-- CBLAS/testing/c_zblat3.f | 4 ++-- SRC/chbev_2stage.f | 4 ++-- SRC/clahef_aa.f | 3 ++- SRC/clahef_rk.f | 3 ++- SRC/claqr5.f | 3 ++- SRC/clarft.f | 2 +- SRC/clasyf_aa.f | 3 ++- SRC/clatsqr.f | 2 +- SRC/dgeev.f | 6 +++--- SRC/dlaqr5.f | 3 ++- SRC/dlarft.f | 2 +- SRC/dlasyf_aa.f | 3 ++- SRC/dorbdb4.f | 3 ++- SRC/slaqr2.f | 5 +++-- SRC/slaqr5.f | 3 ++- SRC/slarft.f | 2 +- SRC/slasyf_aa.f | 3 ++- SRC/slatrs3.f | 9 ++++----- SRC/zgeev.f | 6 +++--- SRC/zgelss.f | 10 +++++----- SRC/zhbev_2stage.f | 4 ++-- SRC/zlahef_aa.f | 3 ++- SRC/zlaqr5.f | 3 ++- SRC/zlarft.f | 2 +- SRC/zlasyf_aa.f | 3 ++- SRC/zsytrf_aa_2stage.f | 5 +++-- 27 files changed, 58 insertions(+), 45 deletions(-) diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 1a84d9e7b8..2e63f777f3 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -86,8 +86,8 @@ PROGRAM CBLAT3 LOGICAL LCE EXTERNAL SDIFF, LCE * .. External Subroutines .. - EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, CCHK5, CCHK6, - $ CC3CHKE, CMMCH + EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, + $ CCHK5, CCHK6, CC3CHKE, CMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index f5e3c852c2..94635b9637 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -87,8 +87,8 @@ PROGRAM ZBLAT3 LOGICAL LZE EXTERNAL DDIFF, LZE * .. External Subroutines .. - EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHK6, - $ CZ3CHKE, ZMMCH + EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, + $ ZCHK5, ZCHK6, CZ3CHKE, ZMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. diff --git a/SRC/chbev_2stage.f b/SRC/chbev_2stage.f index 27ec15e02d..059fc1efe6 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -244,8 +244,8 @@ SUBROUTINE CHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, $ SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR, - $ CHETRD_HB2ST + EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, + $ CSTEQR, CHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC REAL, SQRT diff --git a/SRC/clahef_aa.f b/SRC/clahef_aa.f index 817d139f96..7aabfe026e 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -170,7 +170,8 @@ SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, CCOPY, CSWAP, CLASET + EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, + $ CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC REAL, CONJG, MAX diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 33a7aa3dd1..fa17636ea3 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,7 +298,8 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMMTR, CGEMV, CLACGV, CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMMTR, + $ CGEMV, CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 96ea4f5bee..685a748c7d 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -299,7 +299,8 @@ SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET + EXTERNAL CGEMM, CLACPY, CLAQR1, + $ CLARFG, CLASET * .. * .. Statement Functions .. REAL CABS1 diff --git a/SRC/clarft.f b/SRC/clarft.f index 359f7bb373..dbd2e49a28 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL CTRMM,CGEMM,CLACPY,CLARFT_LVL2 + EXTERNAL CTRMM, CGEMM, CLACPY, CLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/clasyf_aa.f b/SRC/clasyf_aa.f index 02a48b6d42..3951f516f2 100644 --- a/SRC/clasyf_aa.f +++ b/SRC/clasyf_aa.f @@ -170,7 +170,8 @@ SUBROUTINE CLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, CLASET + EXTERNAL CAXPY, CGEMV, CSCAL, + $ CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index c16f4331f0..6c9a3ab3c7 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -159,7 +159,7 @@ *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. *> -*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,� +*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,” *> J. Demmel, L. Grigori, M. Hoemmen, J. Langou, *> SIAM J. Sci. Comput, vol. 34, no. 1, 2012 *> \endverbatim diff --git a/SRC/dgeev.f b/SRC/dgeev.f index 2d0bbd2c6d..106657bb48 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -222,9 +222,9 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, DOUBLE PRECISION DUM( 1 ) * .. * .. External Subroutines .. - EXTERNAL DGEBAK, DGEBAL, DGEHRD, DHSEQR, DLACPY, - $ DLARTG, - $ DLASCL, DORGHR, DROT, DSCAL, DTREVC3, XERBLA + EXTERNAL DGEBAK, DGEBAL, DGEHRD, DHSEQR, + $ DLACPY, DLARTG, DLASCL, DORGHR, + $ DROT, DSCAL, DTREVC3, XERBLA * .. * .. External Functions .. LOGICAL LSAME, DISNAN diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index d9ecf53194..441a09f37a 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -304,7 +304,8 @@ SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, DOUBLE PRECISION VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET + EXTERNAL DGEMM, DLACPY, DLAQR1, + $ DLARFG, DLASET * .. * .. Executable Statements .. * diff --git a/SRC/dlarft.f b/SRC/dlarft.f index 05d5b9e570..567b1e52e0 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL DTRMM,DGEMM,DLACPY,DLARFT_LVL2 + EXTERNAL DTRMM, DGEMM, DLACPY, DLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/dlasyf_aa.f b/SRC/dlasyf_aa.f index fc3d9a6814..1ed52d9652 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -170,7 +170,8 @@ SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, IDAMAX * .. * .. External Subroutines .. - EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, DLASET + EXTERNAL DGEMV, DAXPY, DCOPY, + $ DSWAP, DSCAL, DLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index 128b2d2129..21a38845c1 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,7 +237,8 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF1F, DLARFGP, DORBDB5, DROT, DSCAL, XERBLA + EXTERNAL DLARF1F, DLARFGP, DORBDB5, + $ DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 5108e33d48..60d5313acb 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -309,8 +309,9 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, EXTERNAL SLAMCH, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, SLAHQR, SLANV2, - $ SLARF1F, SLARFG, SLASET, SORMHR, STREXC + EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, + $ SLAHQR, SLANV2, SLARF1F, SLARFG, + $ SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index b70e18a513..bdff68b9a4 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -304,7 +304,8 @@ SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, REAL VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET + EXTERNAL SGEMM, SLACPY, SLAQR1, + $ SLARFG, SLASET * .. * .. Executable Statements .. * diff --git a/SRC/slarft.f b/SRC/slarft.f index fd13304ba5..ba13c068b6 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL STRMM,SGEMM,SLACPY,SLARFT_LVL2 + EXTERNAL STRMM, SGEMM, SLACPY, SLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/slasyf_aa.f b/SRC/slasyf_aa.f index 93b0e504e8..9c79aabf6c 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -170,7 +170,8 @@ SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, ISAMAX * .. * .. External Subroutines .. - EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, SLASET + EXTERNAL SAXPY, SGEMV, SSCAL, + $ SCOPY, SSWAP, SLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/slatrs3.f b/SRC/slatrs3.f index a5e102eac3..4191e97c1f 100644 --- a/SRC/slatrs3.f +++ b/SRC/slatrs3.f @@ -264,14 +264,13 @@ SUBROUTINE SLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, * .. External Functions .. LOGICAL LSAME INTEGER ILAENV - REAL SLAMCH, SLANGE, SLARMM + REAL SLAMCH, SLANGE, SLARMM, + $ SROUNDUP_LWORK EXTERNAL ILAENV, LSAME, SLAMCH, SLANGE, - $ SLARMM + $ SLARMM, SROUNDUP_LWORK * .. * .. External Subroutines .. - REAL SROUNDUP_LWORK - EXTERNAL SGEMM, SLATRS, SSCAL, SROUNDUP_LWORK, - $ XERBLA + EXTERNAL SGEMM, SLATRS, SSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/zgeev.f b/SRC/zgeev.f index 7325c28d93..8bc0f08bcf 100644 --- a/SRC/zgeev.f +++ b/SRC/zgeev.f @@ -211,9 +211,9 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, DOUBLE PRECISION DUM( 1 ) * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZDSCAL, ZGEBAK, ZGEBAL, ZGEHRD, - $ ZHSEQR, - $ ZLACPY, ZLASCL, ZSCAL, ZTREVC3, ZUNGHR + EXTERNAL XERBLA, ZDSCAL, ZGEBAK, ZGEBAL, + $ ZGEHRD, ZHSEQR, ZLACPY, ZLASCL, + $ ZSCAL, ZTREVC3, ZUNGHR * .. * .. External Functions .. LOGICAL LSAME, DISNAN diff --git a/SRC/zgelss.f b/SRC/zgelss.f index a3f9079b09..316133723f 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -211,11 +211,11 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, COMPLEX*16 DUM( 1 ) * .. * .. External Subroutines .. - EXTERNAL DLASCL, DLASET, XERBLA, ZBDSQR, ZCOPY, - $ ZDRSCL, - $ ZGEBRD, ZGELQF, ZGEMM, ZGEMV, ZGEQRF, ZLACPY, - $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, ZUNMLQ, - $ ZUNMQR + EXTERNAL DLASCL, DLASET, XERBLA, ZBDSQR, + $ ZCOPY, ZDRSCL, ZGEBRD, ZGELQF, + $ ZGEMM, ZGEMV, ZGEQRF, ZLACPY, + $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, + $ ZUNMLQ, ZUNMQR * .. * .. External Functions .. INTEGER ILAENV diff --git a/SRC/zhbev_2stage.f b/SRC/zhbev_2stage.f index 0358ebf9bd..05307711eb 100644 --- a/SRC/zhbev_2stage.f +++ b/SRC/zhbev_2stage.f @@ -243,8 +243,8 @@ SUBROUTINE ZHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV2STAGE * .. * .. External Subroutines .. - EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, ZSTEQR, - $ ZHETRD_HB2ST + EXTERNAL DSCAL, DSTERF, XERBLA, + $ ZLASCL, ZSTEQR, ZHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC DBLE, SQRT diff --git a/SRC/zlahef_aa.f b/SRC/zlahef_aa.f index ae355b7076..8c01962ffb 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -170,7 +170,8 @@ SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZLACGV, ZCOPY, ZSCAL, ZSWAP, ZLASET + EXTERNAL ZGEMV, ZAXPY, ZLACGV, ZCOPY, + $ ZSCAL, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCONJG, MAX diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f index a940f24c7b..ae91fbe176 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -299,7 +299,8 @@ SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX*16 VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET + EXTERNAL ZGEMM, ZLACPY, ZLAQR1, + $ ZLARFG, ZLASET * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 diff --git a/SRC/zlarft.f b/SRC/zlarft.f index 8b65d2f60e..626a3c4b9b 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL ZTRMM,ZGEMM,ZLACPY,ZLARFT_LVL2 + EXTERNAL ZTRMM, ZGEMM, ZLACPY, ZLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/zlasyf_aa.f b/SRC/zlasyf_aa.f index aa005b7a45..057bcb08a9 100644 --- a/SRC/zlasyf_aa.f +++ b/SRC/zlasyf_aa.f @@ -170,7 +170,8 @@ SUBROUTINE ZLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, ZLASET + EXTERNAL ZGEMV, ZAXPY, ZSCAL, + $ ZCOPY, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/zsytrf_aa_2stage.f b/SRC/zsytrf_aa_2stage.f index b68821c6d4..53a60f49af 100644 --- a/SRC/zsytrf_aa_2stage.f +++ b/SRC/zsytrf_aa_2stage.f @@ -189,8 +189,9 @@ SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, ZGETRF, ZLACPY, - $ ZLASET, ZTRSM, ZSWAP + EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, + $ ZGETRF, ZLACPY, ZLASET, ZTRSM, + $ ZSWAP * .. * .. Intrinsic Functions .. INTRINSIC MIN, MAX