[Lapack] [Lapack SVN] r660 - in /lapack/trunk/SRC: cheequb.f csyequb.f d

[Julien Langou]

---------- Forwarded message ----------
Date: Sun, 10 May 2009 15:01:42 -0600
Subject: [Lapack SVN] r660 - in /lapack/trunk/SRC: cheequb.f csyequb.f dsyequb.f
      ssyequb.f zheequb.f zsyequb.f

Author: langou
Date: Sun May 10 17:01:41 2009
New Revision: 660

URL: https://icl.cs.utk.edu/trac/lapack-dev/changeset/660
Log:


Bug report sent by Alexander V. Kobotov (from Intel) on Mon, 6 Apr 2009 to 
"lapack@Domain.Removed".
"c(he/sy)equb: no slamch in external lists and lsame, intrinsics not described"



Modified:
     lapack/trunk/SRC/cheequb.f
     lapack/trunk/SRC/csyequb.f
     lapack/trunk/SRC/dsyequb.f
     lapack/trunk/SRC/ssyequb.f
     lapack/trunk/SRC/zheequb.f
     lapack/trunk/SRC/zsyequb.f

Modified: lapack/trunk/SRC/cheequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/cheequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/cheequb.f (original)
+++ lapack/trunk/SRC/cheequb.f Sun May 10 17:01:41 2009
@@ -81,10 +81,14 @@
  *     .. External Functions ..
        REAL               SLAMCH
        LOGICAL            LSAME
+      EXTERNAL           LSAME, SLAMCH
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           CLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, AIMAG, INT, LOG, MAX, MIN, REAL, SQRT
+*     ..
  *     .. Statement Functions ..
        REAL               CABS1
  *     ..

Modified: lapack/trunk/SRC/csyequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/csyequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/csyequb.f (original)
+++ lapack/trunk/SRC/csyequb.f Sun May 10 17:01:41 2009
@@ -89,10 +89,14 @@
  *     .. External Functions ..
        REAL               SLAMCH
        LOGICAL            LSAME
+      EXTERNAL           LSAME, SLAMCH
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           CLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, AIMAG, INT, LOG, MAX, MIN, REAL, SQRT
+*     ..
  *     .. Statement Functions ..
        REAL               CABS1
  *     ..

Modified: lapack/trunk/SRC/dsyequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/dsyequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/dsyequb.f (original)
+++ lapack/trunk/SRC/dsyequb.f Sun May 10 17:01:41 2009
@@ -87,10 +87,14 @@
  *     .. External Functions ..
        DOUBLE PRECISION   DLAMCH
        LOGICAL            LSAME
+      EXTERNAL           DLAMCH, LSAME
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           DLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, INT, LOG, MAX, MIN, SQRT
+*     ..
  *     .. Executable Statements ..
  *
  *     Test input parameters.

Modified: lapack/trunk/SRC/ssyequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/ssyequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/ssyequb.f (original)
+++ lapack/trunk/SRC/ssyequb.f Sun May 10 17:01:41 2009
@@ -87,10 +87,14 @@
  *     .. External Functions ..
        REAL               SLAMCH
        LOGICAL            LSAME
+      EXTERNAL           LSAME, SLAMCH
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           SLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, INT, LOG, MAX, MIN, SQRT
+*     ..
  *     .. Executable Statements ..
  *
  *     Test input parameters.

Modified: lapack/trunk/SRC/zheequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/zheequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/zheequb.f (original)
+++ lapack/trunk/SRC/zheequb.f Sun May 10 17:01:41 2009
@@ -81,10 +81,14 @@
  *     .. External Functions ..
        DOUBLE PRECISION   DLAMCH
        LOGICAL            LSAME
+      EXTERNAL           DLAMCH, LSAME
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           ZLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, DBLE, DIMAG, INT, LOG, MAX, MIN, SQRT
+*     ..
  *     .. Statement Functions ..
        DOUBLE PRECISION   CABS1
  *     ..

Modified: lapack/trunk/SRC/zsyequb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/zsyequb.f?rev=660
==============================================================================
--- lapack/trunk/SRC/zsyequb.f (original)
+++ lapack/trunk/SRC/zsyequb.f Sun May 10 17:01:41 2009
@@ -89,10 +89,14 @@
  *     .. External Functions ..
        DOUBLE PRECISION   DLAMCH
        LOGICAL            LSAME
+      EXTERNAL           DLAMCH, LSAME
  *     ..
  *     .. External Subroutines ..
        EXTERNAL           ZLASSQ
  *     ..
+*     .. Intrinsic Functions ..
+      INTRINSIC          ABS, DBLE, DIMAG, INT, LOG, MAX, MIN, SQRT
+*     ..
  *     .. Statement Functions ..
        DOUBLE PRECISION   CABS1
  *     ..