Skip to content

Fix external declarations #1279

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ACSimon33 wants to merge 7 commits into
base: master
Choose a base branch
from
Open

Fix external declarations #1279

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
fb2905f
Fixed missing EXTERNAL declarations in LAPACK sources
ACSimon33 Apr 27, 2026
d653fbe
Add missing EXTERNAL declarations in TESTING/EIG
ACSimon33 Apr 29, 2026
0232856
Add missing external declarations in TESTING/LIN (and removed unneces…
ACSimon33 May 2, 2026
a3b6a89
Removed unnecessary external declarations in TESTING/EIG
ACSimon33 May 2, 2026
57e7ee9
Add missing external declarations in CBLAS/TESTING
ACSimon33 May 2, 2026
ce313de
Add missing external declarations in SRC (and removed unused ones)
ACSimon33 May 2, 2026
5da2427
Some reformatting to shorten lines below 72 characters with preproces…
ACSimon33 May 13, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion CBLAS/testing/c_cblat3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion CBLAS/testing/c_dblat2.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
3 changes: 2 additions & 1 deletion CBLAS/testing/c_zblat3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/RL/cpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/RL/dpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/RL/spotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/RL/zpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/TOP/cpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/TOP/dpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/TOP/spotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/VARIANTS/cholesky/TOP/zpotrf.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 2 additions & 2 deletions SRC/cgedmd.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
!
Expand Down
2 changes: 1 addition & 1 deletion SRC/cgeev.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
* ..
Expand Down
3 changes: 1 addition & 2 deletions SRC/cgelq.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/cgeqr.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/chbev_2stage.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/chesv_aa.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/chseqr.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand Down
8 changes: 4 additions & 4 deletions SRC/clahef_aa.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 2 additions & 2 deletions SRC/clahef_rk.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 2 additions & 2 deletions SRC/claqr5.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/clarft.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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..
*
Expand Down
4 changes: 1 addition & 3 deletions SRC/claswlq.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
9 changes: 4 additions & 5 deletions SRC/clasyf_aa.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/clatrs3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/clatsqr.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/crscl.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 1 addition & 2 deletions SRC/csysv_aa.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
1 change: 1 addition & 0 deletions SRC/cunbdb6.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
1 change: 0 additions & 1 deletion SRC/dgedmdq.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
!
Expand Down
11 changes: 5 additions & 6 deletions SRC/dgeev.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 0 additions & 4 deletions SRC/dgelq.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
* ..
Expand Down
4 changes: 0 additions & 4 deletions SRC/dgeqr.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
* ..
Expand Down
1 change: 1 addition & 0 deletions SRC/dlapy2.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,6 +86,7 @@ DOUBLE PRECISION FUNCTION DLAPY2( X, Y )
* ..
* .. External Subroutines ..
DOUBLE PRECISION DLAMCH
EXTERNAL DLAMCH
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, MAX, MIN, SQRT
Expand Down
1 change: 1 addition & 0 deletions SRC/dlapy3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -84,6 +84,7 @@ DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z )
* ..
* .. External Subroutines ..
DOUBLE PRECISION DLAMCH
EXTERNAL DLAMCH
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, MAX, SQRT
Expand Down
4 changes: 2 additions & 2 deletions SRC/dlaqr5.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
*
Expand Down
2 changes: 1 addition & 1 deletion SRC/dlarft.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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..
*
Expand Down
Loading
Loading