diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 3575e6d8f..2e63f777f 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 757d1cc9c..66aaa129c 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 8e5be3072..94635b963 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 .. diff --git a/SRC/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 99b509b47..ba15b3f4a 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 e1de96d9a..644bdf392 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 b739f622c..3303e5ad5 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 1642a4797..37d6a277c 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 a69779fce..70630788b 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 e992c8cfb..d78cae2e0 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 5df525a52..5cf46bb6c 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 ff0c07bd5..6dbd11f4e 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 9cc23e81e..dc7fc46ce 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/cgeev.f b/SRC/cgeev.f index 865b07831..ca3a44689 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/cgelq.f b/SRC/cgelq.f index 5a92164b7..59a136846 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 bb7d0a7b2..eb49fdc6d 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 690dc0f10..059fc1efe 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -245,8 +245,7 @@ SUBROUTINE CHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, * .. * .. External Subroutines .. EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, - $ CSTEQR, - $ CHETRD_2STAGE, CHETRD_HB2ST + $ CSTEQR, CHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC REAL, SQRT diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index 132a29d82..28bfc23af 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 2696cf00a..78b948890 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 ad6ffaba9..7aabfe026 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -166,12 +166,12 @@ 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 0c37ba3a7..fa17636ea 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, 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 4ece3ca9d..685a748c7 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -299,8 +299,8 @@ 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/clarft.f b/SRC/clarft.f index 3bf2448ba..dbd2e49a2 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/claswlq.f b/SRC/claswlq.f index 835c67944..be633b8a6 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 6931a04a0..3951f516f 100644 --- a/SRC/clasyf_aa.f +++ b/SRC/clasyf_aa.f @@ -166,13 +166,12 @@ 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/clatrs3.f b/SRC/clatrs3.f index 1e2d11a17..d4f9c1b28 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/clatsqr.f b/SRC/clatsqr.f index 0392b3da7..6c9a3ab3c 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -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 d59b049aa..730a4e9ba 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 469a961dc..8f9661806 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/cunbdb6.f b/SRC/cunbdb6.f index 0ce344390..11824d4ba 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/dgedmdq.f90 b/SRC/dgedmdq.f90 index 75d9d18ee..ddcc947bb 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/dgeev.f b/SRC/dgeev.f index e74140c2b..106657bb4 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -222,17 +222,16 @@ 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 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/dgelq.f b/SRC/dgelq.f index 98f4ba84c..3cbe50b63 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 fe657da3c..873bf4013 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/dlapy2.f b/SRC/dlapy2.f index 5b092c31d..71615eef0 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 77548d73c..c678b9ff3 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/dlaqr5.f b/SRC/dlaqr5.f index fe8719d7a..441a09f37 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -304,8 +304,8 @@ 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/dlarft.f b/SRC/dlarft.f index fa2ea0d13..567b1e52e 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/dlaswlq.f b/SRC/dlaswlq.f index 9c4ceb19c..569190f02 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 991ae005d..1ed52d965 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -166,13 +166,12 @@ 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/dlatrs3.f b/SRC/dlatrs3.f index ae94b8dff..857062e81 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/dlatsqr.f b/SRC/dlatsqr.f index 8c596ce2f..152f47ffc 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/dopmtr.f b/SRC/dopmtr.f index 5646b8eac..e96335791 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 36ad19a09..21a38845c 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 DLARF1F, DLARFGP, DORBDB5, + $ DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 82aa93a5a..b8205ef3f 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 43e731966..caee9f8b6 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 DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 2757bff99..df8b85578 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 e108108d7..58c26cd29 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 6bb0a9ed0..e54380f65 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/sgeev.f b/SRC/sgeev.f index e5e61395d..930c4cc82 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/sgelq.f b/SRC/sgelq.f index d985d0650..bbe12ba3b 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 b4403b679..7d4bda647 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/sggev3.f b/SRC/sggev3.f index 9fbe6bafe..98f782a3a 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 9937bc7cc..783efdabf 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 c1c4bd672..e67246cd0 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 0cc95b37e..60d5313ac 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -310,9 +310,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 + $ 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 aed50f618..bdff68b9a 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -304,8 +304,8 @@ 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/slarft.f b/SRC/slarft.f index 3e0eac751..ba13c068b 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/slaswlq.f b/SRC/slaswlq.f index 08e7f3b9c..b7157fe6b 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 d45bbb99c..9c79aabf6 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -166,13 +166,12 @@ 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/slatrs3.f b/SRC/slatrs3.f index a01be4aa3..4191e97c1 100644 --- a/SRC/slatrs3.f +++ b/SRC/slatrs3.f @@ -264,13 +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 SLATRS, SSCAL, SROUNDUP_LWORK, XERBLA + EXTERNAL SGEMM, SLATRS, SSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index daeaf61b8..068bf4563 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/sorbdb6.f b/SRC/sorbdb6.f index 9fb29b038..ba373c254 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/zgedmd.f90 b/SRC/zgedmd.f90 index 7e40a3f1b..86f0c322b 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/zgeev.f b/SRC/zgeev.f index 883b24c2a..8bc0f08bc 100644 --- a/SRC/zgeev.f +++ b/SRC/zgeev.f @@ -211,16 +211,16 @@ 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 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/zgelq.f b/SRC/zgelq.f index fc5bceb5f..87ac03018 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/zgelss.f b/SRC/zgelss.f index 5269eea78..316133723 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -211,10 +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 + 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/zgeqr.f b/SRC/zgeqr.f index 65a543d2b..62ce9b8f7 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 257edbd63..05307711e 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 13910d09a..43975d000 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 cb744541e..7360b633f 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 a10909878..8c01962ff 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -166,12 +166,12 @@ 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 54da1d4e9..ae91fbe17 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -299,8 +299,8 @@ 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/zlarft.f b/SRC/zlarft.f index efd52037d..626a3c4b9 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/zlaswlq.f b/SRC/zlaswlq.f index 0cfd5b8f3..da1cc9c32 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 230b66851..057bcb08a 100644 --- a/SRC/zlasyf_aa.f +++ b/SRC/zlasyf_aa.f @@ -166,13 +166,12 @@ 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/zlatrs3.f b/SRC/zlatrs3.f index af5fc69a3..a91ffb3c4 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/zlatsqr.f b/SRC/zlatsqr.f index ffb402ebd..242fec724 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 558225c7d..1f73b8a2e 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 + EXTERNAL ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index bf66ebdbc..8728acb91 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 8d47f220f..53a60f49a 100644 --- a/SRC/zsytrf_aa_2stage.f +++ b/SRC/zsytrf_aa_2stage.f @@ -190,8 +190,8 @@ SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, * .. * .. External Subroutines .. EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, - $ ZGETRF, - $ ZLACPY, ZLASET, ZLASWP, ZTRSM, ZSWAP + $ ZGETRF, ZLACPY, ZLASET, ZTRSM, + $ ZSWAP * .. * .. Intrinsic Functions .. INTRINSIC MIN, MAX diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 0d83cf519..680a5d0dc 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 diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 80934f3eb..403efcf01 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/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90 index f8aa19a30..6fcda0888 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 638966afe..6b2bca670 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1103,13 +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 + $ 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/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f index a8f7e5895..de5a7629a 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 2f2b08171..467c075f7 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 2aaaaaeba..cda55d3bd 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 5836890d3..4eb2f2a51 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 b906050a8..9bd27abc1 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 b641c1820..a9dd8510c 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 6ad378ad7..d5bc58a52 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 2c185d5af..7e940230e 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/dbdt04.f b/TESTING/EIG/dbdt04.f index 762b8373a..5753f0e9c 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 ca12e830b..68f4920bc 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 92d4fff00..bd7d94424 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 a2b996628..948f9dcb1 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 20c4cb47c..07bb24e9f 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/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f index 6bc0ca532..4d5fdc665 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 6d98d4bfa..a1f3722c6 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 145f08933..7436ce286 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 0e3e2b461..a0b65a6aa 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/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index f1c848d07..dfccbc964 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 f0b6cacd0..f1ba47e71 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, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/dsyl01.f b/TESTING/EIG/dsyl01.f index 0ea481382..66fa4c074 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/sbdt04.f b/TESTING/EIG/sbdt04.f index 0111b1a64..dc0361e9f 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 b4c91c2cb..7ca10c544 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 9fd4f3480..5c15e51ba 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 ce0166763..79bbb2ab3 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 fa780b695..4fa913e30 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/schksb2stg.f b/TESTING/EIG/schksb2stg.f index d9ec6db29..d93079517 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 b9abc64fd..7821f041a 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 772e47a55..6c0f9bb40 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 77abb532f..33ff68055 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/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index f20d9fdf3..377fbd7f8 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/sget34.f b/TESTING/EIG/sget34.f index 3d217775a..d8b49c342 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 0add7d0a0..b4b3e228d 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 e292e897b..122c4effb 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 aecad49b9..53fc03af7 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 ea88687c3..a2eef4373 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/zbdt05.f b/TESTING/EIG/zbdt05.f index 2a4bf8201..db0c977b3 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 09c34f868..0224ae9d0 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 @@ -92,7 +91,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 7261881b4..3dc9ab4d8 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1103,13 +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 + $ 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 @@ -1851,7 +1850,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 +2348,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 ba576d36f..54b7a69b6 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 87064ef23..21f50994d 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 4de01513a..e2ed7d440 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/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 5dd58c173..012ae271e 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 diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 76f863b3f..06ba8aa00 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 2f6e114c7..584db2f57 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 f7cd5b290..395aa998e 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 2a989a232..ac6b01513 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 diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index a5a3428c1..790e3045e 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 61f1862f3..7797e14b4 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 d79978e55..09a6a3228 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 7ec8b2c62..1c15e91e0 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 987c0c365..1d6f00fa1 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 7aeb6df4b..f3ecfbfa6 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 6820c9004..e22c4f1e4 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 a926380d4..623656762 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 ce69f88b8..f33cb879f 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 bede7cca5..40bec5736 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 0a85d7cf1..620fae085 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 3a5b965fa..2f5794f33 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 cb71a60b3..76d959625 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 30205622e..fff0c15e4 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 03b89b497..ac27456a4 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 3f4375893..7e8f20cb5 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 70291ee7a..7adfb5a38 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 f33aef213..ddf04cf14 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 586cee58f..dac323cf3 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 cbec38242..f14e432e5 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 fd84418fb..1151b797c 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 08cb5b6e5..fd0afdc67 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 a86f0712e..54ab6044e 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 5b1a1d708..6c709c3ff 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 c444ce44c..fbdd303e8 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 387b19d02..b7ba5f611 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 711bf70cf..3393bad06 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 d33ecc7c8..114131733 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 48b4173ad..0fed0c136 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 ca1bf5230..83ec69917 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 4a4f67791..b46600d6b 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 91ed65966..6756fb60b 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 aa77d6a62..c57335259 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 d9251b1f0..e26e22951 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 566f273d4..b04309782 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 924ba7ea3..b2d069e03 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 41d269b7e..c4290ff74 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 27076b5c2..f6ba23adf 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 a56c77a9c..f24ac8d5f 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 ec54f573a..f7c4f6c27 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 e2a5ec15d..e8f00b65e 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 37122e3c9..bf493f5ca 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 206b25ebe..66b2f92ca 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 09dbea642..fc3a47bfb 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 9a8fd4172..b3327fedb 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 bc8128cd4..1c553802e 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 ef7e67538..1ba0bd65d 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 7d2a2a104..b8438cd43 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 d4c438edb..326bb8b79 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 6a7baea0f..5a19839c7 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 2badd6d49..9bf6c8113 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 7af9b3c3a..f28a77b95 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 85733be4c..fb26eb151 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 ad6ea8776..88082b725 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 d8be9862b..ecb7e7de0 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 2230583ba..82c94c7fe 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 20c0dd019..b7569684e 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 ed25a230d..a2e9d4283 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 eee963c47..98c28f166 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 ab04f496b..be26151ad 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 cfa26e41c..a8de72ca6 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 6490cd7c3..4127d8be7 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 5d7aa2d37..9ff9f59e6 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 ba2461113..8ffb9b073 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 e53db7309..f5c3119f6 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 25e7fe0ec..74b1d3a9d 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 4ab67a81b..1b996cc4d 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 0f431bec1..923d5a1b5 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 c0ba81f74..4279cfd24 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 9afc37ef7..bbff1b450 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 1cbe40577..3112f5993 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 b088ba43e..a2b5011e7 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 21ec97c1f..73b469570 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 248a39794..5b27aceca 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 683c165ae..dc60c8b82 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 77a7a6cb3..ec16545dd 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 9ee0793b7..0f6dc3f06 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 51082f1d0..d64b49ee8 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 680c1135e..4ef866485 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 75e3ddfb1..9a259dd2c 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 cb07af72c..5efe73d49 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 9337a6837..9bae06b3b 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 b2af1e9fb..4c1b0e7a6 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 4c8ff94f7..ab0195e1b 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 ca7828f1a..0ebe8b97b 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 db7a7bd78..35dbc4077 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 3a7d00da9..d2b0b5c07 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 28f268c5c..f96a0059d 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 9f6d5cba8..32fe434f8 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 49a2fdcd7..2fab34f59 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 fb95dd55e..8ff14e9c7 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 74aaf61a1..f1352291b 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 744872db3..d9ac7a5aa 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 8f1e16ddc..d96bfac72 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 a948e0795..404eea7fc 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 01892844e..0580bd523 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 09d412d07..a2c1903b2 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 f1035c818..ceb1c69bd 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 3afa7c397..f7b47dee4 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 e845621a9..7bfb87309 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 34993e812..5d8a46f68 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 3ca7199ce..20b1af73e 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 5677b7e76..25799ac5c 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 ed65a5128..e36cc8b7a 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 f844d512b..524d2f26c 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 1c2e71371..260215ae0 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