From 58e4d0ec7e992c763a60813352407e8103cd3386 Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Mon, 19 Dec 2016 10:28:43 +0100 Subject: [ 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. --- SRC/clarft.f | 2 +- SRC/ctrevc3.f | 3 ++- SRC/dtrevc3.f | 3 ++- SRC/strevc3.f | 3 ++- 4 files changed, 7 insertions(+), 4 deletions(-) (limited to 'SRC') 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 -- cgit v1.2.3