Remove unused parameters

diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f
index 45c9729..db6498d 100644 (file)
--- a/BLAS/TESTING/cblat2.f
+++ b/BLAS/TESTING/cblat2.f
@@ -117,8 +117,8 @@
       PARAMETER          ( NSUBS = 17 )
       COMPLEX            ZERO, ONE
       PARAMETER          ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
-      REAL               RZERO, RHALF, RONE
-      PARAMETER          ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
+      REAL               RZERO
+      PARAMETER          ( RZERO = 0.0 )
       INTEGER            NMAX, INCMAX
       PARAMETER          ( NMAX = 65, INCMAX = 2 )
       INTEGER            NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
index e4823cc..493940e 100644 (file)
--- a/BLAS/TESTING/cblat3.f
+++ b/BLAS/TESTING/cblat3.f
@@ -99,8 +99,8 @@
       PARAMETER          ( NSUBS = 9 )
       COMPLEX            ZERO, ONE
       PARAMETER          ( ZERO = ( 0.0, 0.0 ), ONE = ( 1.0, 0.0 ) )
-      REAL               RZERO, RHALF, RONE
-      PARAMETER          ( RZERO = 0.0, RHALF = 0.5, RONE = 1.0 )
+      REAL               RZERO
+      PARAMETER          ( RZERO = 0.0 )
       INTEGER            NMAX
       PARAMETER          ( NMAX = 65 )
       INTEGER            NIDMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f
index 1e851e8..57ae3dc 100644 (file)
--- a/BLAS/TESTING/dblat2.f
+++ b/BLAS/TESTING/dblat2.f
@@ -114,8 +114,8 @@
       PARAMETER          ( NIN = 5 )
       INTEGER            NSUBS
       PARAMETER          ( NSUBS = 16 )
-      DOUBLE PRECISION   ZERO, HALF, ONE
-      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
+      DOUBLE PRECISION   ZERO, ONE
+      PARAMETER          ( ZERO = 0.0D0, ONE = 1.0D0 )
       INTEGER            NMAX, INCMAX
       PARAMETER          ( NMAX = 65, INCMAX = 2 )
       INTEGER            NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f
index 3d957bb..b6fd9fd 100644 (file)
--- a/BLAS/TESTING/dblat3.f
+++ b/BLAS/TESTING/dblat3.f
@@ -94,8 +94,8 @@
       PARAMETER          ( NIN = 5 )
       INTEGER            NSUBS
       PARAMETER          ( NSUBS = 6 )
-      DOUBLE PRECISION   ZERO, HALF, ONE
-      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
+      DOUBLE PRECISION   ZERO, ONE
+      PARAMETER          ( ZERO = 0.0D0, ONE = 1.0D0 )
       INTEGER            NMAX
       PARAMETER          ( NMAX = 65 )
       INTEGER            NIDMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f
index efd53c7..6094b09 100644 (file)
--- a/BLAS/TESTING/sblat2.f
+++ b/BLAS/TESTING/sblat2.f
@@ -114,8 +114,8 @@
       PARAMETER          ( NIN = 5 )
       INTEGER            NSUBS
       PARAMETER          ( NSUBS = 16 )
-      REAL               ZERO, HALF, ONE
-      PARAMETER          ( ZERO = 0.0, HALF = 0.5, ONE = 1.0 )
+      REAL               ZERO, ONE
+      PARAMETER          ( ZERO = 0.0, ONE = 1.0 )
       INTEGER            NMAX, INCMAX
       PARAMETER          ( NMAX = 65, INCMAX = 2 )
       INTEGER            NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/sblat3.f b/BLAS/TESTING/sblat3.f
index e8539c5..1d7e8ef 100644 (file)
--- a/BLAS/TESTING/sblat3.f
+++ b/BLAS/TESTING/sblat3.f
@@ -94,8 +94,8 @@
       PARAMETER          ( NIN = 5 )
       INTEGER            NSUBS
       PARAMETER          ( NSUBS = 6 )
-      REAL               ZERO, HALF, ONE
-      PARAMETER          ( ZERO = 0.0, HALF = 0.5, ONE = 1.0 )
+      REAL               ZERO, ONE
+      PARAMETER          ( ZERO = 0.0, ONE = 1.0 )
       INTEGER            NMAX
       PARAMETER          ( NMAX = 65 )
       INTEGER            NIDMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f
index 67a7e80..6133812 100644 (file)
--- a/BLAS/TESTING/zblat2.f
+++ b/BLAS/TESTING/zblat2.f
@@ -118,8 +118,8 @@
       COMPLEX*16         ZERO, ONE
       PARAMETER          ( ZERO = ( 0.0D0, 0.0D0 ),
      $                   ONE = ( 1.0D0, 0.0D0 ) )
-      DOUBLE PRECISION   RZERO, RHALF, RONE
-      PARAMETER          ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
+      DOUBLE PRECISION   RZERO
+      PARAMETER          ( RZERO = 0.0D0 )
       INTEGER            NMAX, INCMAX
       PARAMETER          ( NMAX = 65, INCMAX = 2 )
       INTEGER            NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX

diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
index 713c462..44cdac7 100644 (file)
--- a/BLAS/TESTING/zblat3.f
+++ b/BLAS/TESTING/zblat3.f
@@ -101,8 +101,8 @@
       COMPLEX*16         ZERO, ONE
       PARAMETER          ( ZERO = ( 0.0D0, 0.0D0 ),
      $                   ONE = ( 1.0D0, 0.0D0 ) )
-      DOUBLE PRECISION   RZERO, RHALF, RONE
-      PARAMETER          ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
+      DOUBLE PRECISION   RZERO
+      PARAMETER          ( RZERO = 0.0D0 )
       INTEGER            NMAX
       PARAMETER          ( NMAX = 65 )
       INTEGER            NIDMAX, NALMAX, NBEMAX

diff --git a/SRC/cgees.f b/SRC/cgees.f
index e8024b4..cbc3bc7 100644 (file)
--- a/SRC/cgees.f
+++ b/SRC/cgees.f
@@ -74,7 +74,7 @@
 *>
 *> \param[in] SELECT
 *> \verbatim
-*>          SELECT is procedure) LOGICAL FUNCTION of one COMPLEX argument
+*>          SELECT is a LOGICAL FUNCTION of one COMPLEX argument
 *>          SELECT must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'S', SELECT is used to select eigenvalues to order
 *>          to the top left of the Schur form.

diff --git a/SRC/cgges.f b/SRC/cgges.f
index 5871a8f..6f977b4 100644 (file)
--- a/SRC/cgges.f
+++ b/SRC/cgges.f
@@ -100,7 +100,7 @@
 *>
 *> \param[in] SELCTG
 *> \verbatim
-*>          SELCTG is procedure) LOGICAL FUNCTION of two COMPLEX arguments
+*>          SELCTG is a LOGICAL FUNCTION of two COMPLEX arguments
 *>          SELCTG must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'N', SELCTG is not referenced.
 *>          If SORT = 'S', SELCTG is used to select eigenvalues to sort

diff --git a/SRC/cunbdb.f b/SRC/cunbdb.f
index 15826d9..eacba1f 100644 (file)
--- a/SRC/cunbdb.f
+++ b/SRC/cunbdb.f
@@ -309,9 +309,8 @@
 *     .. Parameters ..
       REAL               REALONE
       PARAMETER          ( REALONE = 1.0E0 )
-      COMPLEX            NEGONE, ONE
-      PARAMETER          ( NEGONE = (-1.0E0,0.0E0),
-     $                     ONE = (1.0E0,0.0E0) )
+      COMPLEX            ONE
+      PARAMETER          ( ONE = (1.0E0,0.0E0) )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            COLMAJOR, LQUERY

diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f
index 02481ea..fef03dd 100644 (file)
--- a/SRC/cuncsd.f
+++ b/SRC/cuncsd.f
@@ -343,11 +343,8 @@
 *  ===================================================================
 *
 *     .. Parameters ..
-      REAL               REALONE
-      PARAMETER          ( REALONE = 1.0E0 )
-      COMPLEX            NEGONE, ONE, PIOVER2, ZERO
-      PARAMETER          ( NEGONE = (-1.0E0,0.0E0), ONE = (1.0E0,0.0E0),
-     $                     PIOVER2 = 1.57079632679489662E0,
+      COMPLEX            ONE, ZERO
+      PARAMETER          ( ONE = (1.0E0,0.0E0),
      $                     ZERO = (0.0E0,0.0E0) )
 *     ..
 *     .. Local Scalars ..

diff --git a/SRC/dgees.f b/SRC/dgees.f
index 7776102..cb5794b 100644 (file)
--- a/SRC/dgees.f
+++ b/SRC/dgees.f
@@ -80,7 +80,7 @@
 *>
 *> \param[in] SELECT
 *> \verbatim
-*>          SELECT is procedure) LOGICAL FUNCTION of two DOUBLE PRECISION arguments
+*>          SELECT is a LOGICAL FUNCTION of two DOUBLE PRECISION arguments
 *>          SELECT must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'S', SELECT is used to select eigenvalues to sort
 *>          to the top left of the Schur form.

diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f
index abce652..0d3002c 100644 (file)
--- a/SRC/dgesvj.f
+++ b/SRC/dgesvj.f
@@ -352,9 +352,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      DOUBLE PRECISION   ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0,
-     $                   TWO = 2.0D0 )
+      DOUBLE PRECISION   ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0)
       INTEGER            NSWEEP
       PARAMETER          ( NSWEEP = 30 )
 *     ..

diff --git a/SRC/dgges.f b/SRC/dgges.f
index 5dfd74c..76d6d39 100644 (file)
--- a/SRC/dgges.f
+++ b/SRC/dgges.f
@@ -106,7 +106,7 @@
 *>
 *> \param[in] SELCTG
 *> \verbatim
-*>          SELCTG is procedure) LOGICAL FUNCTION of three DOUBLE PRECISION arguments
+*>          SELCTG is a LOGICAL FUNCTION of three DOUBLE PRECISION arguments
 *>          SELCTG must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'N', SELCTG is not referenced.
 *>          If SORT = 'S', SELCTG is used to select eigenvalues to sort

diff --git a/SRC/dgsvj0.f b/SRC/dgsvj0.f
index 3447c9d..e0bdae3 100644 (file)
--- a/SRC/dgsvj0.f
+++ b/SRC/dgsvj0.f
@@ -236,9 +236,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      DOUBLE PRECISION   ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0,
-     $                   TWO = 2.0D0 )
+      DOUBLE PRECISION   ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0)
 *     ..
 *     .. Local Scalars ..
       DOUBLE PRECISION   AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG,

diff --git a/SRC/dgsvj1.f b/SRC/dgsvj1.f
index 786662c..7bbc33c 100644 (file)
--- a/SRC/dgsvj1.f
+++ b/SRC/dgsvj1.f
@@ -254,9 +254,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      DOUBLE PRECISION   ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0,
-     $                   TWO = 2.0D0 )
+      DOUBLE PRECISION   ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
 *     ..
 *     .. Local Scalars ..
       DOUBLE PRECISION   AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG,

diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f
index 1c11f92..9189e13 100644 (file)
--- a/SRC/dlarrf.f
+++ b/SRC/dlarrf.f
@@ -210,10 +210,9 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO,
-     $                   ZERO
-      PARAMETER          ( ZERO = 0.0D0, ONE = 1.0D0, TWO = 2.0D0,
-     $                     FOUR = 4.0D0, QUART = 0.25D0,
+      DOUBLE PRECISION   MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO
+      PARAMETER          ( ONE = 1.0D0, TWO = 2.0D0,
+     $                     QUART = 0.25D0,
      $                     MAXGROWTH1 = 8.D0,
      $                     MAXGROWTH2 = 8.D0 )
 *     ..

diff --git a/SRC/dorbdb.f b/SRC/dorbdb.f
index 1484981..5580f4e 100644 (file)
--- a/SRC/dorbdb.f
+++ b/SRC/dorbdb.f
@@ -309,8 +309,8 @@
 *     .. Parameters ..
       DOUBLE PRECISION   REALONE
       PARAMETER          ( REALONE = 1.0D0 )
-      DOUBLE PRECISION   NEGONE, ONE
-      PARAMETER          ( NEGONE = -1.0D0, ONE = 1.0D0 )
+      DOUBLE PRECISION   ONE
+      PARAMETER          ( ONE = 1.0D0 )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            COLMAJOR, LQUERY

diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f
index fa3ac0f..927bf66 100644 (file)
--- a/SRC/dorcsd.f
+++ b/SRC/dorcsd.f
@@ -322,11 +322,8 @@
 *  ===================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   REALONE
-      PARAMETER          ( REALONE = 1.0D0 )
-      DOUBLE PRECISION   NEGONE, ONE, PIOVER2, ZERO
-      PARAMETER          ( NEGONE = -1.0D0, ONE = 1.0D0,
-     $                     PIOVER2 = 1.57079632679489662D0,
+      DOUBLE PRECISION   ONE, ZERO
+      PARAMETER          ( ONE = 1.0D0,
      $                     ZERO = 0.0D0 )
 *     ..
 *     .. Local Scalars ..

diff --git a/SRC/dspgvd.f b/SRC/dspgvd.f
index dc1d4b8..5d57ce4 100644 (file)
--- a/SRC/dspgvd.f
+++ b/SRC/dspgvd.f
@@ -227,10 +227,6 @@
 *
 *  =====================================================================
 *
-*     .. Parameters ..
-      DOUBLE PRECISION   TWO
-      PARAMETER          ( TWO = 2.0D+0 )
-*     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, UPPER, WANTZ
       CHARACTER          TRANS

diff --git a/SRC/sgees.f b/SRC/sgees.f
index 9d3edeb..691749c 100644 (file)
--- a/SRC/sgees.f
+++ b/SRC/sgees.f
@@ -80,7 +80,7 @@
 *>
 *> \param[in] SELECT
 *> \verbatim
-*>          SELECT is procedure) LOGICAL FUNCTION of two REAL arguments
+*>          SELECT is LOGICAL FUNCTION of two REAL arguments
 *>          SELECT must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'S', SELECT is used to select eigenvalues to sort
 *>          to the top left of the Schur form.

diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f
index d7888da..f932936 100644 (file)
--- a/SRC/sgesvj.f
+++ b/SRC/sgesvj.f
@@ -338,9 +338,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      REAL               ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0,
-     $                   TWO = 2.0E0 )
+      REAL               ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0)
       INTEGER            NSWEEP
       PARAMETER          ( NSWEEP = 30 )
 *     ..

diff --git a/SRC/sgges.f b/SRC/sgges.f
index 8411502..2f686a2 100644 (file)
--- a/SRC/sgges.f
+++ b/SRC/sgges.f
@@ -106,7 +106,7 @@
 *>
 *> \param[in] SELCTG
 *> \verbatim
-*>          SELCTG is procedure) LOGICAL FUNCTION of three REAL arguments
+*>          SELCTG is a LOGICAL FUNCTION of three REAL arguments
 *>          SELCTG must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'N', SELCTG is not referenced.
 *>          If SORT = 'S', SELCTG is used to select eigenvalues to sort

diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f
index 1afef7c..c2098f5 100644 (file)
--- a/SRC/sgsvj0.f
+++ b/SRC/sgsvj0.f
@@ -236,9 +236,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      REAL               ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0,
-     $                   TWO = 2.0E0 )
+      REAL               ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0)
 *     ..
 *     .. Local Scalars ..
       REAL               AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG,

diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f
index 57c77d5..3354690 100644 (file)
--- a/SRC/sgsvj1.f
+++ b/SRC/sgsvj1.f
@@ -254,9 +254,8 @@
 *  =====================================================================
 *
 *     .. Local Parameters ..
-      REAL               ZERO, HALF, ONE, TWO
-      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0,
-     $                   TWO = 2.0E0 )
+      REAL               ZERO, HALF, ONE
+      PARAMETER          ( ZERO = 0.0E0, HALF = 0.5E0, ONE = 1.0E0)
 *     ..
 *     .. Local Scalars ..
       REAL               AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG,

diff --git a/SRC/slarrf.f b/SRC/slarrf.f
index 79b30d5..797355e 100644 (file)
--- a/SRC/slarrf.f
+++ b/SRC/slarrf.f
@@ -210,10 +210,9 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      REAL               FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO,
-     $                   ZERO
-      PARAMETER          ( ZERO = 0.0E0, ONE = 1.0E0, TWO = 2.0E0,
-     $                     FOUR = 4.0E0, QUART = 0.25E0,
+      REAL               MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO
+      PARAMETER          ( ONE = 1.0E0, TWO = 2.0E0,
+     $                     QUART = 0.25E0,
      $                     MAXGROWTH1 = 8.E0,
      $                     MAXGROWTH2 = 8.E0 )
 *     ..

diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f
index 597b790..433b3c0 100644 (file)
--- a/SRC/sorbdb.f
+++ b/SRC/sorbdb.f
@@ -309,8 +309,8 @@
 *     .. Parameters ..
       REAL               REALONE
       PARAMETER          ( REALONE = 1.0E0 )
-      REAL               NEGONE, ONE
-      PARAMETER          ( NEGONE = -1.0E0, ONE = 1.0E0 )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E0 )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            COLMAJOR, LQUERY

diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f
index 77c1135..f9a47d6 100644 (file)
--- a/SRC/sorcsd.f
+++ b/SRC/sorcsd.f
@@ -322,11 +322,8 @@
 *  ===================================================================
 *
 *     .. Parameters ..
-      REAL               REALONE
-      PARAMETER          ( REALONE = 1.0E+0 )
-      REAL               NEGONE, ONE, PIOVER2, ZERO
-      PARAMETER          ( NEGONE = -1.0E+0, ONE = 1.0E+0,
-     $                     PIOVER2 = 1.57079632679489662E0,
+      REAL               ONE, ZERO
+      PARAMETER          ( ONE = 1.0E+0,
      $                     ZERO = 0.0E+0 )
 *     ..
 *     .. Local Arrays ..

diff --git a/SRC/sspgvd.f b/SRC/sspgvd.f
index 944e996..17de0ed 100644 (file)
--- a/SRC/sspgvd.f
+++ b/SRC/sspgvd.f
@@ -227,10 +227,6 @@
 *
 *  =====================================================================
 *
-*     .. Parameters ..
-      REAL               TWO
-      PARAMETER          ( TWO = 2.0E+0 )
-*     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, UPPER, WANTZ
       CHARACTER          TRANS

diff --git a/SRC/zgees.f b/SRC/zgees.f
index 99a2cdd..23bb978 100644 (file)
--- a/SRC/zgees.f
+++ b/SRC/zgees.f
@@ -74,7 +74,7 @@
 *>
 *> \param[in] SELECT
 *> \verbatim
-*>          SELECT is procedure) LOGICAL FUNCTION of one COMPLEX*16 argument
+*>          SELECT is a LOGICAL FUNCTION of one COMPLEX*16 argument
 *>          SELECT must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'S', SELECT is used to select eigenvalues to order
 *>          to the top left of the Schur form.

diff --git a/SRC/zgges.f b/SRC/zgges.f
index 6b0b2c6..b630570 100644 (file)
--- a/SRC/zgges.f
+++ b/SRC/zgges.f
@@ -100,7 +100,7 @@
 *>
 *> \param[in] SELCTG
 *> \verbatim
-*>          SELCTG is procedure) LOGICAL FUNCTION of two COMPLEX*16 arguments
+*>          SELCTG is a LOGICAL FUNCTION of two COMPLEX*16 arguments
 *>          SELCTG must be declared EXTERNAL in the calling subroutine.
 *>          If SORT = 'N', SELCTG is not referenced.
 *>          If SORT = 'S', SELCTG is used to select eigenvalues to sort

diff --git a/SRC/zunbdb.f b/SRC/zunbdb.f
index 3505218..2455540 100644 (file)
--- a/SRC/zunbdb.f
+++ b/SRC/zunbdb.f
@@ -309,9 +309,8 @@
 *     .. Parameters ..
       DOUBLE PRECISION   REALONE
       PARAMETER          ( REALONE = 1.0D0 )
-      COMPLEX*16         NEGONE, ONE
-      PARAMETER          ( NEGONE = (-1.0D0,0.0D0),
-     $                     ONE = (1.0D0,0.0D0) )
+      COMPLEX*16         ONE
+      PARAMETER          ( ONE = (1.0D0,0.0D0) )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            COLMAJOR, LQUERY

diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f
index 59d7c9e..3f7861d 100644 (file)
--- a/SRC/zuncsd.f
+++ b/SRC/zuncsd.f
@@ -343,11 +343,8 @@
 *  ===================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   REALONE
-      PARAMETER          ( REALONE = 1.0D0 )
-      COMPLEX*16         NEGONE, ONE, PIOVER2, ZERO
-      PARAMETER          ( NEGONE = (-1.0D0,0.0D0), ONE = (1.0D0,0.0D0),
-     $                     PIOVER2 = 1.57079632679489662D0,
+      COMPLEX*16         ONE, ZERO
+      PARAMETER          ( ONE = (1.0D0,0.0D0),
      $                     ZERO = (0.0D0,0.0D0) )
 *     ..
 *     .. Local Scalars ..

diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f
index fdc3190..c6cb13b 100644 (file)
--- a/TESTING/EIG/cckcsd.f
+++ b/TESTING/EIG/cckcsd.f
@@ -212,8 +212,6 @@
       PARAMETER          ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4,
      $                     PIOVER2 = 1.57079632679489662E0,
      $                     TEN = 10.0D0 )
-      COMPLEX            ZERO, ONE
-      PARAMETER          ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            FIRSTT

diff --git a/TESTING/EIG/dckcsd.f b/TESTING/EIG/dckcsd.f
index 5a70580..94892b7 100644 (file)
--- a/TESTING/EIG/dckcsd.f
+++ b/TESTING/EIG/dckcsd.f
@@ -212,8 +212,6 @@
       PARAMETER          ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12,
      $                     PIOVER2 = 1.57079632679489662D0,
      $                     TEN = 10.0D0 )
-      DOUBLE PRECISION   ZERO, ONE
-      PARAMETER          ( ZERO = 0.0D0, ONE = 1.0D0 )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            FIRSTT

diff --git a/TESTING/EIG/sckcsd.f b/TESTING/EIG/sckcsd.f
index 8371396..fe5de85 100644 (file)
--- a/TESTING/EIG/sckcsd.f
+++ b/TESTING/EIG/sckcsd.f
@@ -212,8 +212,6 @@
       PARAMETER          ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4,
      $                     PIOVER2 = 1.57079632679489662E0,
      $                     TEN = 10.0D0 )
-      REAL               ZERO, ONE
-      PARAMETER          ( ZERO = 0.0E0, ONE = 1.0E0 )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            FIRSTT

diff --git a/TESTING/EIG/zckcsd.f b/TESTING/EIG/zckcsd.f
index 7e23ba5..5385131 100644 (file)
--- a/TESTING/EIG/zckcsd.f
+++ b/TESTING/EIG/zckcsd.f
@@ -212,8 +212,6 @@
       PARAMETER          ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12,
      $                     PIOVER2 = 1.57079632679489662D0,
      $                     TEN = 10.0D0 )
-      COMPLEX*16         ZERO, ONE
-      PARAMETER          ( ZERO = (0.0D0,0.0D0), ONE = (1.0D0,0.0D0) )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            FIRSTT

diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f
index b779f86..437255f 100644 (file)
--- a/TESTING/LIN/ddrvab.f
+++ b/TESTING/LIN/ddrvab.f
@@ -171,8 +171,8 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   ONE, ZERO
-      PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
+      DOUBLE PRECISION   ZERO
+      PARAMETER          ( ZERO = 0.0D+0 )
       INTEGER            NTYPES
       PARAMETER          ( NTYPES = 11 )
       INTEGER            NTESTS

diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f
index 6cbd125..2b056bd 100644 (file)
--- a/TESTING/LIN/ddrvac.f
+++ b/TESTING/LIN/ddrvac.f
@@ -164,8 +164,8 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   ONE, ZERO
-      PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
+      DOUBLE PRECISION   ZERO
+      PARAMETER          ( ZERO = 0.0D+0 )
       INTEGER            NTYPES
       PARAMETER          ( NTYPES = 9 )
       INTEGER            NTESTS

diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f
index 3e460a8..6af545a 100644 (file)
--- a/TESTING/LIN/zdrvab.f
+++ b/TESTING/LIN/zdrvab.f
@@ -173,8 +173,8 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   ONE, ZERO
-      PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
+      DOUBLE PRECISION   ZERO
+      PARAMETER          ( ZERO = 0.0D+0 )
       INTEGER            NTYPES
       PARAMETER          ( NTYPES = 11 )
       INTEGER            NTESTS

diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f
index 4e4e866..a32866e 100644 (file)
--- a/TESTING/LIN/zdrvac.f
+++ b/TESTING/LIN/zdrvac.f
@@ -166,8 +166,8 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   ONE, ZERO
-      PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
+      DOUBLE PRECISION   ZERO
+      PARAMETER          ( ZERO = 0.0D+0 )
       INTEGER            NTYPES
       PARAMETER          ( NTYPES = 9 )
       INTEGER            NTESTS

diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f
index fc36a3a..167e4a6 100644 (file)
--- a/TESTING/LIN/zpot06.f
+++ b/TESTING/LIN/zpot06.f
@@ -145,9 +145,8 @@
 *  =====================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   ZERO, ONE, NEGONE
+      DOUBLE PRECISION   ZERO, ONE
       PARAMETER          ( ZERO = 0.0D+0, ONE = 1.0D+0 )
-      PARAMETER          ( NEGONE = -1.0D+0 )
       COMPLEX*16         CONE, NEGCONE
       PARAMETER          ( CONE = ( 1.0D+0, 0.0D+0 ) )
       PARAMETER          ( NEGCONE = ( -1.0D+0, 0.0D+0 ) )