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

Add missing external declarations in SRC (and removed unused ones)

Browse Source
This commit is contained in:
Simon Maertens
2026-05-12 16:59:16 +01:00
parent 57e7ee9724
commit ce313deecd
56 changed files with 65 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/VARIANTS/cholesky/RL/cpotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/RL/dpotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/RL/spotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/RL/zpotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/TOP/cpotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/TOP/dpotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/TOP/spotrf.f
+1 -1
View File
@@ -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
SRC/VARIANTS/cholesky/TOP/zpotrf.f
+1 -1
View File
@@ -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
SRC/cgedmd.f90
+2 -2
View File
@@ -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
!
SRC/cgelq.f
+1 -2
View File
@@ -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
SRC/cgeqr.f
+1 -2
View File
@@ -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
SRC/chbev_2stage.f
+2 -3
View File
@@ -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
SRC/chesv_aa.f
+1 -2
View File
@@ -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
SRC/chseqr.f
+1 -2
View File
@@ -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,
SRC/clahef_aa.f
+3 -4
View File
@@ -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
SRC/clahef_rk.f
+1 -2
View File
@@ -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
SRC/claqr5.f
+1 -2
View File
@@ -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
SRC/claswlq.f
+1 -3
View File
@@ -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
SRC/clasyf_aa.f
+3 -5
View File
@@ -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
SRC/clatsqr.f
+2 -3
View File
@@ -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
SRC/crscl.f
+1 -2
View File
@@ -105,8 +105,7 @@
* ..
* .. External Functions ..
REAL SLAMCH
COMPLEX CLADIV
EXTERNAL SLAMCH, CLADIV
EXTERNAL SLAMCH
* ..
* .. External Subroutines ..
EXTERNAL CSCAL, CSSCAL, CSRSCL
SRC/csysv_aa.f
+1 -2
View File
@@ -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
SRC/dgedmdq.f90
-1
View File
@@ -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
!
SRC/dgelq.f
-4
View File
@@ -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
* ..
SRC/dgeqr.f
-4
View File
@@ -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
* ..
SRC/dlaqp2.f
+1 -1
View File
@@ -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
SRC/dlaqr5.f
+1 -2
View File
@@ -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 ..
*
SRC/dlaswlq.f
-4
View File
@@ -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
* ..
SRC/dlasyf_aa.f
+3 -5
View File
@@ -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
SRC/dlatsqr.f
-4
View File
@@ -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 ..
SRC/dorbdb4.f
+1 -2
View File
@@ -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
SRC/dorgr2.f
+1 -1
View File
@@ -132,7 +132,7 @@
INTEGER I, II, J, L
* ..
* .. External Subroutines ..
EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA
EXTERNAL DLARF1L, DSCAL, XERBLA
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX
SRC/dsysv_aa.f
+1 -2
View File
@@ -180,8 +180,7 @@
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL ILAENV, LSAME
EXTERNAL LSAME
* ..
* .. External Subroutines ..
EXTERNAL XERBLA, DSYTRF_AA, DSYTRS_AA
SRC/ilaenv.f
+2 -2
View File
@@ -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 ..
*
SRC/sgedmdq.f90
-1
View File
@@ -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
!
SRC/sgelq.f
+1 -2
View File
@@ -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
SRC/sgeqr.f
-2
View File
@@ -194,8 +194,6 @@
INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ
* ..
* .. External Functions ..
LOGICAL LSAME
EXTERNAL LSAME
REAL SROUNDUP_LWORK
EXTERNAL SROUNDUP_LWORK
* ..
SRC/slaqr2.f
+2 -4
View File
@@ -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
SRC/slaqr5.f
+1 -2
View File
@@ -304,8 +304,7 @@
REAL VT( 3 )
* ..
* .. External Subroutines ..
EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET,
$ STRMM
EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET
* ..
* .. Executable Statements ..
*
SRC/slaswlq.f
+1 -3
View File
@@ -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
SRC/slasyf_aa.f
+3 -5
View File
@@ -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
SRC/slatsqr.f
-2
View File
@@ -190,8 +190,6 @@
INTEGER I, II, KK, CTR, MINMN, LWMIN
* ..
* .. EXTERNAL FUNCTIONS ..
LOGICAL LSAME
EXTERNAL LSAME
REAL SROUNDUP_LWORK
EXTERNAL SROUNDUP_LWORK
* ..
SRC/zgedmd.f90
+2 -2
View File
@@ -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
!
SRC/zgelq.f
-4
View File
@@ -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
* ..
SRC/zgeqr.f
-4
View File
@@ -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
* ..
SRC/zhbev_2stage.f
+2 -3
View File
@@ -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
SRC/zhesv_aa.f
+1 -2
View File
@@ -180,8 +180,7 @@
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL LSAME, ILAENV
EXTERNAL LSAME
* ..
* .. External Subroutines ..
EXTERNAL XERBLA, ZHETRF_AA, ZHETRS_AA
SRC/zhesv_aa_2stage.f
+1 -2
View File
@@ -211,8 +211,7 @@
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL LSAME, ILAENV
EXTERNAL LSAME
* ..
* .. External Subroutines ..
EXTERNAL XERBLA, ZHETRF_AA_2STAGE,
SRC/zlahef_aa.f
+3 -4
View File
@@ -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
SRC/zlaqr5.f
+1 -2
View File
@@ -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
SRC/zlaswlq.f
-4
View File
@@ -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
* ..
SRC/zlasyf_aa.f
+3 -5
View File
@@ -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
SRC/zlatsqr.f
-4
View File
@@ -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
* ..
SRC/zrscl.f
+2 -3
View File
@@ -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
SRC/zsysv_aa.f
+1 -2
View File
@@ -180,8 +180,7 @@
* ..
* .. External Functions ..
LOGICAL LSAME
INTEGER ILAENV
EXTERNAL ILAENV, LSAME
EXTERNAL LSAME
* ..
* .. External Subroutines ..
EXTERNAL XERBLA, ZSYTRF_AA, ZSYTRS_AA
SRC/zsytrf_aa_2stage.f
+2 -3
View File
@@ -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