diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-19 10:28:43 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-19 10:28:43 +0100 |
| commit | 58e4d0ec7e992c763a60813352407e8103cd3386 (patch) | |
| tree | 235eb18592f50bbad2d854f22b0ed675cfba0a97 /SRC | |
| parent | c83c6cdf3e9f86625611cfc332831b4a4b6da9e4 (diff) | |
| download | lapack-58e4d0ec7e992c763a60813352407e8103cd3386.tar.gz lapack-58e4d0ec7e992c763a60813352407e8103cd3386.tar.bz2 lapack-58e4d0ec7e992c763a60813352407e8103cd3386.zip | |
[ minor ] fix some missing EXTERNAL declarations
Note: Bug report (for missing GEMM) communicated by email by Jim Demmel.
(Thanks Jim.) Took the occasion to fix some more missing EXTERNAL.
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/clarft.f | 2 | ||||
| -rw-r--r-- | SRC/ctrevc3.f | 3 | ||||
| -rw-r--r-- | SRC/dtrevc3.f | 3 | ||||
| -rw-r--r-- | SRC/strevc3.f | 3 |
4 files changed, 7 insertions, 4 deletions
diff --git a/SRC/clarft.f b/SRC/clarft.f index 6b7d7b65..e20f3b1d 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -187,7 +187,7 @@ INTEGER I, J, PREVLASTV, LASTV * .. * .. External Subroutines .. - EXTERNAL CGEMV, CTRMV + EXTERNAL CGEMM, CGEMV, CTRMV * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/ctrevc3.f b/SRC/ctrevc3.f index 2b0ba66d..9aea1db7 100644 --- a/SRC/ctrevc3.f +++ b/SRC/ctrevc3.f @@ -287,7 +287,8 @@ EXTERNAL LSAME, ILAENV, ICAMAX, SLAMCH, SCASUM * .. * .. External Subroutines .. - EXTERNAL XERBLA, CCOPY, CSSCAL, CGEMV, CLATRS + EXTERNAL XERBLA, CCOPY, CLASET, CSSCAL, CGEMM, CGEMV, + $ CLATRS, SLABAD * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, CMPLX, CONJG, AIMAG, MAX diff --git a/SRC/dtrevc3.f b/SRC/dtrevc3.f index a288218d..004af06c 100644 --- a/SRC/dtrevc3.f +++ b/SRC/dtrevc3.f @@ -279,7 +279,8 @@ EXTERNAL LSAME, IDAMAX, ILAENV, DDOT, DLAMCH * .. * .. External Subroutines .. - EXTERNAL DAXPY, DCOPY, DGEMV, DLALN2, DSCAL, XERBLA + EXTERNAL DAXPY, DCOPY, DGEMV, DLALN2, DSCAL, XERBLA, + $ DGEMM, DLASET, DLABAD * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT diff --git a/SRC/strevc3.f b/SRC/strevc3.f index 49ad8c75..819a184a 100644 --- a/SRC/strevc3.f +++ b/SRC/strevc3.f @@ -279,7 +279,8 @@ EXTERNAL LSAME, ISAMAX, ILAENV, SDOT, SLAMCH * .. * .. External Subroutines .. - EXTERNAL SAXPY, SCOPY, SGEMV, SLALN2, SSCAL, XERBLA + EXTERNAL SAXPY, SCOPY, SGEMV, SLALN2, SSCAL, XERBLA, + $ SGEMM, SLABAD, SLASET * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT |