********************************************************************************
authorlangou <langou@users.noreply.github.com>
Wed, 16 Nov 2011 16:03:59 +0000 (16:03 +0000)
committerlangou <langou@users.noreply.github.com>
Wed, 16 Nov 2011 16:03:59 +0000 (16:03 +0000)
From Ake Sandgren, Umea University and HPC2N, on 11-16-2011.

Hi!

stprfb.f has some unneeded external declarations

diff -ru site/SRC/stprfb.f p1/SRC/stprfb.f
--- site/SRC/stprfb.f   2011-10-22 18:49:03.000000000 +0200
+++ p1/SRC/stprfb.f     2011-11-16 09:30:22.000000000 +0100
@@ -246,7 +246,7 @@
     EXTERNAL  LSAME
*     ..
*     .. External Subroutines ..
-      EXTERNAL  SCOPY, SGEMM, SLACGV, STRMM
+      EXTERNAL  SGEMM, STRMM
*     ..
*     .. Executable Statements ..
*

********************************************************************************

Ake,

Thank you for catching this.  I will remove the unused external declarations.
The changes will be available from the lapack-dev svn server, and in the next
release.

Rodney

********************************************************************************

SRC/ctprfb.f
SRC/stprfb.f
SRC/ztprfb.f

index a7f626d..38e5b38 100644 (file)
       EXTERNAL  LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL  CCOPY, CGEMM, CLACGV, CTRMM
+      EXTERNAL  CGEMM, CTRMM
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC CONJG
index 08cb71e..a666da2 100644 (file)
       EXTERNAL  LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL  SCOPY, SGEMM, SLACGV, STRMM
+      EXTERNAL  SGEMM, STRMM
 *     ..
 *     .. Executable Statements ..
 *
index b099638..981df85 100644 (file)
       EXTERNAL  LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL  ZCOPY, ZGEMM, ZLACGV, ZTRMM
+      EXTERNAL  ZGEMM, ZTRMM
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC CONJG