diff options
56 files changed, 77 insertions, 104 deletions
diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f index bf5d741b..f08fe8a1 100644 --- a/SRC/cgbrfsx.f +++ b/SRC/cgbrfsx.f @@ -498,11 +498,10 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL SLAMCH, CLANGB, CLA_GBRCOND_X, CLA_GBRCOND_C REAL SLAMCH, CLANGB, CLA_GBRCOND_X, CLA_GBRCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/cgerfsx.f b/SRC/cgerfsx.f index f9862612..f276ef0a 100644 --- a/SRC/cgerfsx.f +++ b/SRC/cgerfsx.f @@ -475,11 +475,10 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL SLAMCH, CLANGE, CLA_GERCOND_X, CLA_GERCOND_C REAL SLAMCH, CLANGE, CLA_GERCOND_X, CLA_GERCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/cgsvj0.f b/SRC/cgsvj0.f index d51a0789..b00da9aa 100644 --- a/SRC/cgsvj0.f +++ b/SRC/cgsvj0.f @@ -268,7 +268,7 @@ * .. External Subroutines .. * .. * from BLAS - EXTERNAL CCOPY, CROT, CSSCAL, CSWAP + EXTERNAL CCOPY, CROT, CSWAP * from LAPACK EXTERNAL CLASCL, CLASSQ, XERBLA * .. diff --git a/SRC/cgsvj1.f b/SRC/cgsvj1.f index b6291522..d36df3fa 100644 --- a/SRC/cgsvj1.f +++ b/SRC/cgsvj1.f @@ -281,7 +281,7 @@ * .. * .. External Subroutines .. * .. from BLAS - EXTERNAL CCOPY, CROT, CSSCAL, CSWAP + EXTERNAL CCOPY, CROT, CSWAP * .. from LAPACK EXTERNAL CLASCL, CLASSQ, XERBLA * .. diff --git a/SRC/cherfsx.f b/SRC/cherfsx.f index 4c5d7956..2450388c 100644 --- a/SRC/cherfsx.f +++ b/SRC/cherfsx.f @@ -461,12 +461,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL SLAMCH, CLANHE, CLA_HERCOND_X, CLA_HERCOND_C REAL SLAMCH, CLANHE, CLA_HERCOND_X, CLA_HERCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f index 4260075a..b7702063 100644 --- a/SRC/chesvxx.f +++ b/SRC/chesvxx.f @@ -554,7 +554,7 @@ REAL SLAMCH, CLA_HERPVGRW * .. * .. External Subroutines .. - EXTERNAL CHECON, CHEEQUB, CHETRF, CHETRS, CLACPY, + EXTERNAL CHEEQUB, CHETRF, CHETRS, CLACPY, $ CLAQHE, XERBLA, CLASCL2, CHERFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index a0fd4274..a7e31800 100644 --- a/SRC/chetrs2.f +++ b/SRC/chetrs2.f @@ -158,7 +158,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL CSCAL, CSYCONV, CSWAP, CTRSM, XERBLA + EXTERNAL CSSCAL, CSYCONV, CSWAP, CTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC CONJG, MAX, REAL diff --git a/SRC/clarft.f b/SRC/clarft.f index d65fbfa9..6b7d7b65 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -187,7 +187,7 @@ INTEGER I, J, PREVLASTV, LASTV * .. * .. External Subroutines .. - EXTERNAL CGEMV, CLACGV, CTRMV + EXTERNAL CGEMV, CTRMV * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/cporfsx.f b/SRC/cporfsx.f index 3395ab65..14d5e0f8 100644 --- a/SRC/cporfsx.f +++ b/SRC/cporfsx.f @@ -453,12 +453,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL SLAMCH, CLANHE, CLA_PORCOND_X, CLA_PORCOND_C REAL SLAMCH, CLANHE, CLA_PORCOND_X, CLA_PORCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/cposvxx.f b/SRC/cposvxx.f index 973060d0..2294f248 100644 --- a/SRC/cposvxx.f +++ b/SRC/cposvxx.f @@ -540,7 +540,7 @@ REAL SLAMCH, CLA_PORPVGRW * .. * .. External Subroutines .. - EXTERNAL CPOCON, CPOEQUB, CPOTRF, CPOTRS, CLACPY, + EXTERNAL CPOEQUB, CPOTRF, CPOTRS, CLACPY, $ CLAQHE, XERBLA, CLASCL2, CPORFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/cstein.f b/SRC/cstein.f index f39f50bf..8a96d55d 100644 --- a/SRC/cstein.f +++ b/SRC/cstein.f @@ -221,8 +221,8 @@ * .. * .. External Functions .. INTEGER ISAMAX - REAL SASUM, SLAMCH, SNRM2 - EXTERNAL ISAMAX, SASUM, SLAMCH, SNRM2 + REAL SLAMCH, SNRM2 + EXTERNAL ISAMAX, SLAMCH, SNRM2 * .. * .. External Subroutines .. EXTERNAL SCOPY, SLAGTF, SLAGTS, SLARNV, SSCAL, XERBLA diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f index b85bfef8..67613ac8 100644 --- a/SRC/csyrfsx.f +++ b/SRC/csyrfsx.f @@ -463,12 +463,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL SLAMCH, CLANSY, CLA_SYRCOND_X, CLA_SYRCOND_C REAL SLAMCH, CLANSY, CLA_SYRCOND_X, CLA_SYRCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index a0988ea8..428f30ed 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -554,7 +554,7 @@ REAL SLAMCH, CLA_SYRPVGRW * .. * .. External Subroutines .. - EXTERNAL CSYCON, CSYEQUB, CSYTRF, CSYTRS, CLACPY, + EXTERNAL CSYEQUB, CSYTRF, CSYTRS, CLACPY, $ CLAQSY, XERBLA, CLASCL2, CSYRFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/ctpmqrt.f b/SRC/ctpmqrt.f index 94b0202c..8c5b7272 100644 --- a/SRC/ctpmqrt.f +++ b/SRC/ctpmqrt.f @@ -242,7 +242,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, CLARFB + EXTERNAL XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 0560456d..6ed9290b 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -363,8 +363,8 @@ LOGICAL LRQUERY * .. * .. External Subroutines .. - EXTERNAL XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL, - $ CLASET, CUNBDB, CUNGLQ, CUNGQR + EXTERNAL XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT, + $ CUNBDB, CUNGLQ, CUNGQR * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/cungbr.f b/SRC/cungbr.f index fb6de56f..723a0c2e 100644 --- a/SRC/cungbr.f +++ b/SRC/cungbr.f @@ -183,8 +183,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL CUNGLQ, CUNGQR, XERBLA diff --git a/SRC/dgbrfsx.f b/SRC/dgbrfsx.f index 6f49bce1..11c6e7e6 100644 --- a/SRC/dgbrfsx.f +++ b/SRC/dgbrfsx.f @@ -502,11 +502,10 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL DLAMCH, DLANGB, DLA_GBRCOND DOUBLE PRECISION DLAMCH, DLANGB, DLA_GBRCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/dgerfsx.f b/SRC/dgerfsx.f index 7e501bd1..48e4e9bb 100644 --- a/SRC/dgerfsx.f +++ b/SRC/dgerfsx.f @@ -475,11 +475,10 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL DLAMCH, DLANGE, DLA_GERCOND DOUBLE PRECISION DLAMCH, DLANGE, DLA_GERCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/dgesvdx.f b/SRC/dgesvdx.f index b6060b40..dbfc6bf9 100644 --- a/SRC/dgesvdx.f +++ b/SRC/dgesvdx.f @@ -299,13 +299,13 @@ * .. External Subroutines .. EXTERNAL DBDSVDX, DGEBRD, DGELQF, DGEQRF, DLACPY, $ DLASCL, DLASET, DORMBR, DORMLQ, DORMQR, - $ DSCAL, XERBLA + $ XERBLA * .. * .. External Functions .. LOGICAL LSAME INTEGER ILAENV - DOUBLE PRECISION DLAMCH, DLANGE, DNRM2 - EXTERNAL LSAME, ILAENV, DLAMCH, DLANGE, DNRM2 + DOUBLE PRECISION DLAMCH, DLANGE + EXTERNAL LSAME, ILAENV, DLAMCH, DLANGE * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT diff --git a/SRC/dla_porcond.f b/SRC/dla_porcond.f index 696a4d69..fdec1310 100644 --- a/SRC/dla_porcond.f +++ b/SRC/dla_porcond.f @@ -169,8 +169,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX - EXTERNAL LSAME, IDAMAX + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL DLACN2, DPOTRS, XERBLA diff --git a/SRC/dla_syrcond.f b/SRC/dla_syrcond.f index 428f2e55..d046d033 100644 --- a/SRC/dla_syrcond.f +++ b/SRC/dla_syrcond.f @@ -175,12 +175,11 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX DOUBLE PRECISION DLAMCH - EXTERNAL LSAME, IDAMAX, DLAMCH + EXTERNAL LSAME, DLAMCH * .. * .. External Subroutines .. - EXTERNAL DLACN2, DLATRS, DRSCL, XERBLA, DSYTRS + EXTERNAL DLACN2, XERBLA, DSYTRS * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index ddb2b616..be5e9e3f 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -340,7 +340,7 @@ $ WANTV1T, WANTV2T * .. * .. External Subroutines .. - EXTERNAL DBBCSD, DLACPY, DLAPMR, DLAPMT, DLASCL, DLASET, + EXTERNAL DBBCSD, DLACPY, DLAPMR, DLAPMT, $ DORBDB, DORGLQ, DORGQR, XERBLA * .. * .. External Functions .. diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f index 20e3d47d..3492318b 100644 --- a/SRC/dorgbr.f +++ b/SRC/dorgbr.f @@ -182,8 +182,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL DORGLQ, DORGQR, XERBLA diff --git a/SRC/dporfsx.f b/SRC/dporfsx.f index 35d38a80..ed9f1c3e 100644 --- a/SRC/dporfsx.f +++ b/SRC/dporfsx.f @@ -455,12 +455,11 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, DLANSY, DLA_PORCOND DOUBLE PRECISION DLAMCH, DLANSY, DLA_PORCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/dstein.f b/SRC/dstein.f index 2e588771..192fa035 100644 --- a/SRC/dstein.f +++ b/SRC/dstein.f @@ -209,8 +209,8 @@ * .. * .. External Functions .. INTEGER IDAMAX - DOUBLE PRECISION DASUM, DDOT, DLAMCH, DNRM2 - EXTERNAL IDAMAX, DASUM, DDOT, DLAMCH, DNRM2 + DOUBLE PRECISION DDOT, DLAMCH, DNRM2 + EXTERNAL IDAMAX, DDOT, DLAMCH, DNRM2 * .. * .. External Subroutines .. EXTERNAL DAXPY, DCOPY, DLAGTF, DLAGTS, DLARNV, DSCAL, diff --git a/SRC/dsyrfsx.f b/SRC/dsyrfsx.f index 72da6633..420824c4 100644 --- a/SRC/dsyrfsx.f +++ b/SRC/dsyrfsx.f @@ -462,12 +462,11 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, DLANSY, DLA_SYRCOND DOUBLE PRECISION DLAMCH, DLANSY, DLA_SYRCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index 73d0ab85..3d06be00 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -550,7 +550,7 @@ DOUBLE PRECISION DLAMCH, DLA_SYRPVGRW * .. * .. External Subroutines .. - EXTERNAL DSYCON, DSYEQUB, DSYTRF, DSYTRS, + EXTERNAL DSYEQUB, DSYTRF, DSYTRS, $ DLACPY, DLAQSY, XERBLA, DLASCL2, DSYRFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f index b79911c3..bd7223c4 100644 --- a/SRC/dtpmqrt.f +++ b/SRC/dtpmqrt.f @@ -242,7 +242,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, DLARFB + EXTERNAL XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/sgbrfsx.f b/SRC/sgbrfsx.f index e4a2aabb..231ae10d 100644 --- a/SRC/sgbrfsx.f +++ b/SRC/sgbrfsx.f @@ -502,11 +502,10 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL SLAMCH, SLANGB, SLA_GBRCOND REAL SLAMCH, SLANGB, SLA_GBRCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/sgerfsx.f b/SRC/sgerfsx.f index 5d40833c..9134df44 100644 --- a/SRC/sgerfsx.f +++ b/SRC/sgerfsx.f @@ -475,11 +475,10 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL SLAMCH, SLANGE, SLA_GERCOND REAL SLAMCH, SLANGE, SLA_GERCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/sgesvdx.f b/SRC/sgesvdx.f index 2bcded66..f1a0989a 100644 --- a/SRC/sgesvdx.f +++ b/SRC/sgesvdx.f @@ -299,13 +299,13 @@ * .. External Subroutines .. EXTERNAL SBDSVDX, SGEBRD, SGELQF, SGEQRF, SLACPY, $ SLASCL, SLASET, SORMBR, SORMLQ, SORMQR, - $ SSCAL, XERBLA + $ XERBLA * .. * .. External Functions .. LOGICAL LSAME INTEGER ILAENV - REAL SLAMCH, SLANGE, SNRM2 - EXTERNAL LSAME, ILAENV, SLAMCH, SLANGE, SNRM2 + REAL SLAMCH, SLANGE + EXTERNAL LSAME, ILAENV, SLAMCH, SLANGE * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT diff --git a/SRC/sla_porcond.f b/SRC/sla_porcond.f index 06f3d46e..a4ef8965 100644 --- a/SRC/sla_porcond.f +++ b/SRC/sla_porcond.f @@ -167,8 +167,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX - EXTERNAL LSAME, ISAMAX + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL SLACN2, SPOTRS, XERBLA diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f index 448d4e26..34531ba5 100644 --- a/SRC/sla_syrcond.f +++ b/SRC/sla_syrcond.f @@ -173,9 +173,8 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX REAL SLAMCH - EXTERNAL LSAME, ISAMAX, SLAMCH + EXTERNAL LSAME, SLAMCH * .. * .. External Subroutines .. EXTERNAL SLACN2, XERBLA, SSYTRS diff --git a/SRC/slasq2.f b/SRC/slasq2.f index f272d344..56d123c6 100644 --- a/SRC/slasq2.f +++ b/SRC/slasq2.f @@ -147,9 +147,8 @@ EXTERNAL SLASQ3, SLASRT, XERBLA * .. * .. External Functions .. - INTEGER ILAENV REAL SLAMCH - EXTERNAL ILAENV, SLAMCH + EXTERNAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SQRT diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index 50f5d345..0114a619 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -343,7 +343,7 @@ $ WANTV1T, WANTV2T * .. * .. External Subroutines .. - EXTERNAL SBBCSD, SLACPY, SLAPMR, SLAPMT, SLASCL, SLASET, + EXTERNAL SBBCSD, SLACPY, SLAPMR, SLAPMT, $ SORBDB, SORGLQ, SORGQR, XERBLA * .. * .. External Functions .. diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f index 88fc8446..0dd4472c 100644 --- a/SRC/sorgbr.f +++ b/SRC/sorgbr.f @@ -182,8 +182,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL SORGLQ, SORGQR, XERBLA diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f index e49fa6bf..3e8d2ee1 100644 --- a/SRC/sporfsx.f +++ b/SRC/sporfsx.f @@ -455,12 +455,11 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL SLAMCH, SLANSY, SLA_PORCOND REAL SLAMCH, SLANSY, SLA_PORCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/spotrf2.f b/SRC/spotrf2.f index 68761afc..34a8c087 100644 --- a/SRC/spotrf2.f +++ b/SRC/spotrf2.f @@ -134,7 +134,7 @@ EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL SGEMM, SSYRK, XERBLA + EXTERNAL SSYRK, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/SRC/sstein.f b/SRC/sstein.f index 119eb57c..aa0d24a2 100644 --- a/SRC/sstein.f +++ b/SRC/sstein.f @@ -209,8 +209,8 @@ * .. * .. External Functions .. INTEGER ISAMAX - REAL SASUM, SDOT, SLAMCH, SNRM2 - EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SNRM2 + REAL SDOT, SLAMCH, SNRM2 + EXTERNAL ISAMAX, SDOT, SLAMCH, SNRM2 * .. * .. External Subroutines .. EXTERNAL SAXPY, SCOPY, SLAGTF, SLAGTS, SLARNV, SSCAL, diff --git a/SRC/ssyrfsx.f b/SRC/ssyrfsx.f index 1ac7f6b7..4ef498f4 100644 --- a/SRC/ssyrfsx.f +++ b/SRC/ssyrfsx.f @@ -462,12 +462,11 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL SLAMCH, SLANSY, SLA_SYRCOND REAL SLAMCH, SLANSY, SLA_SYRCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index ff89e1e1..8f30ff60 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -553,7 +553,7 @@ REAL SLAMCH, SLA_SYRPVGRW * .. * .. External Subroutines .. - EXTERNAL SSYCON, SSYEQUB, SSYTRF, SSYTRS, + EXTERNAL SSYEQUB, SSYTRF, SSYTRS, $ SLACPY, SLAQSY, XERBLA, SLASCL2, SSYRFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f index a7eb1d3d..35a7721c 100644 --- a/SRC/stpmqrt.f +++ b/SRC/stpmqrt.f @@ -242,7 +242,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, SLARFB + EXTERNAL XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f index 8aab97e1..8020bca4 100644 --- a/SRC/zgbrfsx.f +++ b/SRC/zgbrfsx.f @@ -498,11 +498,10 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, ZLANGB, ZLA_GBRCOND_X, ZLA_GBRCOND_C DOUBLE PRECISION DLAMCH, ZLANGB, ZLA_GBRCOND_X, ZLA_GBRCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/zgerfsx.f b/SRC/zgerfsx.f index 5fd803c1..a0ab717e 100644 --- a/SRC/zgerfsx.f +++ b/SRC/zgerfsx.f @@ -475,11 +475,10 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL DLAMCH, ZLANGE, ZLA_GERCOND_X, ZLA_GERCOND_C DOUBLE PRECISION DLAMCH, ZLANGE, ZLA_GERCOND_X, ZLA_GERCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index e39151e8..7bdab26c 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -461,12 +461,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, ZLANHE, ZLA_HERCOND_X, ZLA_HERCOND_C DOUBLE PRECISION DLAMCH, ZLANHE, ZLA_HERCOND_X, ZLA_HERCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/zhesvxx.f b/SRC/zhesvxx.f index 64e65631..df290a13 100644 --- a/SRC/zhesvxx.f +++ b/SRC/zhesvxx.f @@ -551,7 +551,7 @@ DOUBLE PRECISION DLAMCH, ZLA_HERPVGRW * .. * .. External Subroutines .. - EXTERNAL ZHECON, ZHEEQUB, ZHETRF, ZHETRS, ZLACPY, + EXTERNAL ZHEEQUB, ZHETRF, ZHETRS, ZLACPY, $ ZLAQHE, XERBLA, ZLASCL2, ZHERFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index 0ad2c1c8..8fdffb30 100644 --- a/SRC/zhetrs2.f +++ b/SRC/zhetrs2.f @@ -158,7 +158,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL ZLACGV, ZSCAL, ZSYCONV, ZSWAP, ZTRSM, XERBLA + EXTERNAL ZDSCAL, ZSYCONV, ZSWAP, ZTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCONJG, MAX diff --git a/SRC/zlarft.f b/SRC/zlarft.f index 6b7d829b..d6bc5c1d 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -187,7 +187,7 @@ INTEGER I, J, PREVLASTV, LASTV * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZLACGV, ZTRMV, ZGEMM + EXTERNAL ZGEMV, ZTRMV, ZGEMM * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f index 691a02f5..4c25b673 100644 --- a/SRC/zporfsx.f +++ b/SRC/zporfsx.f @@ -453,12 +453,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, ZLANHE, ZLA_PORCOND_X, ZLA_PORCOND_C DOUBLE PRECISION DLAMCH, ZLANHE, ZLA_PORCOND_X, ZLA_PORCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f index b7924b57..9f8301f3 100644 --- a/SRC/zposvxx.f +++ b/SRC/zposvxx.f @@ -537,7 +537,7 @@ DOUBLE PRECISION DLAMCH, ZLA_PORPVGRW * .. * .. External Subroutines .. - EXTERNAL ZPOCON, ZPOEQUB, ZPOTRF, ZPOTRS, ZLACPY, + EXTERNAL ZPOEQUB, ZPOTRF, ZPOTRS, ZLACPY, $ ZLAQHE, XERBLA, ZLASCL2, ZPORFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/zstein.f b/SRC/zstein.f index 01c85226..c9acd4f9 100644 --- a/SRC/zstein.f +++ b/SRC/zstein.f @@ -221,8 +221,8 @@ * .. * .. External Functions .. INTEGER IDAMAX - DOUBLE PRECISION DASUM, DLAMCH, DNRM2 - EXTERNAL IDAMAX, DASUM, DLAMCH, DNRM2 + DOUBLE PRECISION DLAMCH, DNRM2 + EXTERNAL IDAMAX, DLAMCH, DNRM2 * .. * .. External Subroutines .. EXTERNAL DCOPY, DLAGTF, DLAGTS, DLARNV, DSCAL, XERBLA diff --git a/SRC/zsyrfsx.f b/SRC/zsyrfsx.f index a61792f9..09f6638d 100644 --- a/SRC/zsyrfsx.f +++ b/SRC/zsyrfsx.f @@ -463,12 +463,11 @@ INTRINSIC MAX, SQRT, TRANSFER * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILAPREC EXTERNAL DLAMCH, ZLANSY, ZLA_SYRCOND_X, ZLA_SYRCOND_C DOUBLE PRECISION DLAMCH, ZLANSY, ZLA_SYRCOND_X, ZLA_SYRCOND_C LOGICAL LSAME - INTEGER BLAS_FPINFO_X - INTEGER ILATRANS, ILAPREC + INTEGER ILAPREC * .. * .. Executable Statements .. * diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index 3a8aa215..11945ef2 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -551,7 +551,7 @@ DOUBLE PRECISION DLAMCH, ZLA_SYRPVGRW * .. * .. External Subroutines .. - EXTERNAL ZSYCON, ZSYEQUB, ZSYTRF, ZSYTRS, ZLACPY, + EXTERNAL ZSYEQUB, ZSYTRF, ZSYTRS, ZLACPY, $ ZLAQSY, XERBLA, ZLASCL2, ZSYRFSX * .. * .. Intrinsic Functions .. diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f index 9ba2732a..dbcfcf0c 100644 --- a/SRC/ztpmqrt.f +++ b/SRC/ztpmqrt.f @@ -242,7 +242,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZLARFB + EXTERNAL XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index f9054cbd..9bb94486 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -363,8 +363,8 @@ LOGICAL LRQUERY * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZBBCSD, ZLACPY, ZLAPMR, ZLAPMT, ZLASCL, - $ ZLASET, ZUNBDB, ZUNGLQ, ZUNGQR + EXTERNAL XERBLA, ZBBCSD, ZLACPY, ZLAPMR, ZLAPMT, + $ ZUNBDB, ZUNGLQ, ZUNGQR * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/zungbr.f b/SRC/zungbr.f index 50dac434..eeecb97a 100644 --- a/SRC/zungbr.f +++ b/SRC/zungbr.f @@ -183,8 +183,7 @@ * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZUNGLQ, ZUNGQR |