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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ C> \ingroup variantsPOcomputational 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 @@ ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) CLANGE, SLAMCH, SCNRM2 - EXTERNAL CLANGE, SLAMCH, SCNRM2, ICAMAX - INTEGER ICAMAX + EXTERNAL SLAMCH, SCNRM2, ICAMAX + INTEGER ICAMAX LOGICAL SISNAN, LSAME EXTERNAL SISNAN, LSAME ! diff --git a/SRC/cgelq.f b/SRC/cgelq.f index 5a92164b7..59a136846 100644 --- a/SRC/cgelq.f +++ b/SRC/cgelq.f @@ -192,9 +192,8 @@ 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 @@ 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..27ec15e02 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -244,9 +244,8 @@ $ SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, - $ CSTEQR, - $ CHETRD_2STAGE, CHETRD_HB2ST + EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR, + $ CHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC REAL, SQRT diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index 132a29d82..28bfc23af 100644 --- a/SRC/chesv_aa.f +++ b/SRC/chesv_aa.f @@ -180,9 +180,8 @@ * .. * .. 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 @@ * .. 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..817d139f9 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -166,12 +166,11 @@ * .. * .. 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 15861e312..33a7aa3dd 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,8 +298,7 @@ EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMMTR, CGEMV, - $ CLACGV, CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMMTR, CGEMV, CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 4ece3ca9d..96ea4f5be 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -299,8 +299,7 @@ COMPLEX VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET, - $ CTRMM + EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET * .. * .. Statement Functions .. REAL CABS1 diff --git a/SRC/claswlq.f b/SRC/claswlq.f index 835c67944..be633b8a6 100644 --- a/SRC/claswlq.f +++ b/SRC/claswlq.f @@ -187,10 +187,8 @@ 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..02a48b6d4 100644 --- a/SRC/clasyf_aa.f +++ b/SRC/clasyf_aa.f @@ -166,13 +166,11 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ICAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ICAMAX + INTEGER ICAMAX + EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, - $ CLASET, - $ XERBLA + EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index 0392b3da7..c16f4331f 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -159,7 +159,7 @@ *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. *> -*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,” +*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,� *> J. Demmel, L. Grigori, M. Hoemmen, J. Langou, *> SIAM J. Sci. Comput, vol. 34, no. 1, 2012 *> \endverbatim @@ -190,9 +190,8 @@ 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 @@ * .. * .. 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 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL ILAENV, LSAME, SROUNDUP_LWORK + EXTERNAL LSAME, SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL XERBLA, CSYTRF_AA, CSYTRS_AA diff --git a/SRC/dgedmdq.f90 b/SRC/dgedmdq.f90 index 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/dgelq.f b/SRC/dgelq.f index 98f4ba84c..3cbe50b63 100644 --- a/SRC/dgelq.f +++ b/SRC/dgelq.f @@ -191,10 +191,6 @@ 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 @@ LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL DLATSQR, DGEQRT, XERBLA * .. diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index a1dd23d9a..625c1b1d1 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -168,7 +168,7 @@ DOUBLE PRECISION TEMP, TEMP2, TOL3Z * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFG, DSWAP + EXTERNAL DLARF1F, DLARFG, DSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index fe8719d7a..d9ecf5319 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -304,8 +304,7 @@ DOUBLE PRECISION VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET, - $ DTRMM + EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET * .. * .. Executable Statements .. * diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index 9c4ceb19c..569190f02 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -187,10 +187,6 @@ 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..fc3d9a681 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -166,13 +166,11 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IDAMAX + INTEGER IDAMAX + EXTERNAL LSAME, IDAMAX * .. * .. External Subroutines .. - EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, - $ DLASET, - $ XERBLA + EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, DLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dlatsqr.f b/SRC/dlatsqr.f index 8c596ce2f..152f47ffc 100644 --- a/SRC/dlatsqr.f +++ b/SRC/dlatsqr.f @@ -188,10 +188,6 @@ * .. Local Scalars .. LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN -* .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME * .. EXTERNAL SUBROUTINES .. EXTERNAL DGEQRT, DTPQRT, XERBLA * .. INTRINSIC FUNCTIONS .. diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index b0ad5f748..128b2d212 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,8 +237,7 @@ LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFGP, DORBDB5, - $ DROT, DSCAL, XERBLA + EXTERNAL DLARF1F, DLARFGP, DORBDB5, DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index cc7e24db3..caee9f8b6 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -132,7 +132,7 @@ INTEGER I, II, J, L * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA + EXTERNAL DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 2757bff99..df8b85578 100644 --- a/SRC/dsysv_aa.f +++ b/SRC/dsysv_aa.f @@ -180,8 +180,7 @@ * .. * .. 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 @@ 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/sgelq.f b/SRC/sgelq.f index d985d0650..bbe12ba3b 100644 --- a/SRC/sgelq.f +++ b/SRC/sgelq.f @@ -192,9 +192,8 @@ 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 @@ INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. * .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 7c2790596..5108e33d4 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -309,10 +309,8 @@ EXTERNAL SLAMCH, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, - $ SLAHQR, - $ SLANV2, SLARF1F, SLARF1L, SLARFG, - $ SLASET, SORMHR, STREXC + EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, SLAHQR, SLANV2, + $ SLARF1F, SLARFG, SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index aed50f618..b70e18a51 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -304,8 +304,7 @@ REAL VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET, - $ STRMM + EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET * .. * .. Executable Statements .. * diff --git a/SRC/slaswlq.f b/SRC/slaswlq.f index 08e7f3b9c..b7157fe6b 100644 --- a/SRC/slaswlq.f +++ b/SRC/slaswlq.f @@ -187,13 +187,11 @@ 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..93b0e504e 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -166,13 +166,11 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ISAMAX + INTEGER ISAMAX + EXTERNAL LSAME, ISAMAX * .. * .. External Subroutines .. - EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, - $ SLASET, - $ XERBLA + EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, SLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index daeaf61b8..068bf4563 100644 --- a/SRC/slatsqr.f +++ b/SRC/slatsqr.f @@ -190,8 +190,6 @@ INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/zgedmd.f90 b/SRC/zgedmd.f90 index 7e40a3f1b..86f0c322b 100644 --- a/SRC/zgedmd.f90 +++ b/SRC/zgedmd.f90 @@ -558,8 +558,8 @@ ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) ZLANGE, DLAMCH, DZNRM2 - EXTERNAL ZLANGE, DLAMCH, DZNRM2, IZAMAX - INTEGER IZAMAX + EXTERNAL DLAMCH, DZNRM2, IZAMAX + INTEGER IZAMAX LOGICAL DISNAN, LSAME EXTERNAL DISNAN, LSAME ! diff --git a/SRC/zgelq.f b/SRC/zgelq.f index fc5bceb5f..87ac03018 100644 --- a/SRC/zgelq.f +++ b/SRC/zgelq.f @@ -191,10 +191,6 @@ LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL ZGELQT, ZLASWLQ, XERBLA * .. diff --git a/SRC/zgeqr.f b/SRC/zgeqr.f index 65a543d2b..62ce9b8f7 100644 --- a/SRC/zgeqr.f +++ b/SRC/zgeqr.f @@ -193,10 +193,6 @@ 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..0358ebf9b 100644 --- a/SRC/zhbev_2stage.f +++ b/SRC/zhbev_2stage.f @@ -243,9 +243,8 @@ 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 @@ * .. * .. 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 @@ * .. * .. 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..ae355b707 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -166,12 +166,11 @@ * .. * .. 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..a940f24c7 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -299,8 +299,7 @@ COMPLEX*16 VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET, - $ ZTRMM + EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 diff --git a/SRC/zlaswlq.f b/SRC/zlaswlq.f index 0cfd5b8f3..da1cc9c32 100644 --- a/SRC/zlaswlq.f +++ b/SRC/zlaswlq.f @@ -185,10 +185,6 @@ 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..aa005b7a4 100644 --- a/SRC/zlasyf_aa.f +++ b/SRC/zlasyf_aa.f @@ -166,13 +166,11 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER IZAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IZAMAX + INTEGER IZAMAX + EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, - $ ZLASET, - $ XERBLA + EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/zlatsqr.f b/SRC/zlatsqr.f index ffb402ebd..242fec724 100644 --- a/SRC/zlatsqr.f +++ b/SRC/zlatsqr.f @@ -189,10 +189,6 @@ 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 b775ff2fb..1f73b8a2e 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -104,11 +104,10 @@ * .. * .. External Functions .. DOUBLE PRECISION DLAMCH - COMPLEX*16 ZLADIV - EXTERNAL DLAMCH, ZLADIV + EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DSCAL, ZDSCAL, ZDRSCL, ZSCAL + EXTERNAL ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index bf66ebdbc..8728acb91 100644 --- a/SRC/zsysv_aa.f +++ b/SRC/zsysv_aa.f @@ -180,8 +180,7 @@ * .. * .. 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..b68821c6d 100644 --- a/SRC/zsytrf_aa_2stage.f +++ b/SRC/zsytrf_aa_2stage.f @@ -189,9 +189,8 @@ EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, - $ ZGETRF, - $ ZLACPY, ZLASET, ZLASWP, ZTRSM, ZSWAP + EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, ZGETRF, ZLACPY, + $ ZLASET, ZTRSM, ZSWAP * .. * .. Intrinsic Functions .. INTRINSIC MIN, MAX