Remove unused parameters

diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f
index 45c9729df7865ce2f42e4048e38f6ab629f24027..db6498da412f84051b33c2ee92d5eb01c3405a1d 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 e4823cc97f0b27009dc3d489d8361ee43f7b46cf..493940ef583661707f7833a7b3d8773f7bcad720 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 1e851e85a84c4b3e93b6d6d72b831c4b3cf3e803..57ae3dc4e3ed6a5232304467fadd2a885c0720b1 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 3d957bb604b8b82778ccee940a570a2263a4145c..b6fd9fd967d50ba49633f655ab4bc962c0e1799d 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 efd53c7dca33afd2c4f8b86a3b9d4f3aed5d53ba..6094b09f88d3e54d29c2d3b108312c4a716d1bb8 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 e8539c5c375ad33533d026b00be2dca63beae60f..1d7e8efc2e56634c795441a3f3f6acb49c2e286a 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 67a7e80032705da7ea598023ddc29f0d6bf288be..6133812cb91b675d2827af5cb83465d8740fb05b 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 713c4620579947275b194d891a57ed178676caaa..44cdac7e0b0a489c0bf07532290f9c4748a132a2 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 e8024b4c56b5bcfa22cd39de112de92fb5a0d51d..cbc3bc761126986bb4fa919b401417cf9af461ea 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 5871a8f0fc42b73ae9e236f7a86418604c043a9d..6f977b4fec98a46ea6794907dda0331ef7e8764b 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 15826d9a05cba9f37717d32e40f09b216ffc91a6..eacba1f89d50dddde0d6762df66383a4a720e805 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 02481ea6dacfb4af4bfbc91075e97727a6bd59bf..fef03dd5148a8e8f829aea7282a6b7a0d2ff6cfd 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 77761025df7e4a9982e68e6f2b427664f679546a..cb5794b6619e98f1043818d98906e9738a33cb49 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 abce652fb3b2f469e9d91d1e7f40777503a6a098..0d3002c4d8a0cfe4977e09d5299e2b4d92dc7890 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 5dfd74c6490850e3eff6f384dfb90fd044068b99..76d6d399adc839eae7b06ea7cd7f5db4b7af85a4 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 3447c9debee41a3c1488539c590db2aa7fea118f..e0bdae399237780f66375b2028e39c745a23748c 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 786662c37e6c935056dde37307e57109485e8552..7bbc33cef8ab9fbde8cfdab0c6415306b985bfe9 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 1c11f9298f4be09114dfc1c3bbe5f5b7a2fce4ea..9189e1375bce52543f2c0229a38d95b58d7afdca 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 1484981740f466d5893063d8b32172f7373f28d6..5580f4ee8ace91a7ec911f6d235149527a3334dc 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 fa3ac0f4c24c0095d74e602c54780cb80e397410..927bf664aa99df65518d0c6e898a4a49ec397807 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 dc1d4b8857838715662362f446ca3a19d9e52ed3..5d57ce484e59c0505d5444d81cfb56769b93608e 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 9d3edeb9355388fdd5352e3fe3cdaa05308313ea..691749c1a03285fbc12cf3ed76fcbe75ff3206dc 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 d7888daf3ba0e28b5a738dfeb8f7c0b46f38ed2a..f932936e30c3e16346346341fe9bd4e6547f4c04 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 8411502f0fd729c15c100dcbf48e97075ec52269..2f686a2880d371abcdb1e6286d6b04183cbc37d8 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 1afef7cce28a608538cec4d74ab57d9bb891e940..c2098f55cb3ce6186978b3c71ee2194095e7fed9 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 57c77d57efe94435822bb7ea4041eff7068c3bbd..3354690b3bce7dcf7ce0020b43ae8c08f2245ae4 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 79b30d5a8e1b016a4f3f7f25fbd33cb0f348a160..797355e379cef648c96efd90ee386551d4b06f40 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 597b7900b58fc627f9316ecfdfe7cccca3415397..433b3c03513d068c2555a1eb68c95b61b5e36b68 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 77c113528ad9fddf5bd725d43ec0e0547d4ae9a7..f9a47d6ac1fa523f0adaaacc075e3bdfec52a7c4 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 944e996bf939fa0306f90940d4d56e547c2cbc5c..17de0ed72743740f97a042c309eabd293f90f864 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 99a2cdd6330595c8cc522c50a18271d56e0f490a..23bb978ee8809edbe0e09bf4034fc1b4a1ba15b1 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 6b0b2c67e2df93b7a0d1d689971702309cca2af9..b6305704f3fb9af90d8c5b3d0ff747658d9b8bc0 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 3505218a9a5d68b840343d59013b69a1355dda2b..24555401bf68aa0807232f8da72f0b8a0b92d42f 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 59d7c9e9228728f32fe081ff10a8e18c18337eb0..3f7861d2a1494b78af5daaf90e1598722e5563de 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 fdc31902085bc4b1eb8c2c28dd30225031c271b6..c6cb13b0636b5c019970999075798143685fa76b 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 5a7058090d967789b92f18878210dffcf36ff047..94892b793fc5c842b2b2d04938d5ab349e3d80c9 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 8371396394cb2e91a36e95952a148505a5bbdbb5..fe5de85a7fbb9a9e79eb7e8e50bac0be0072a83a 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 7e23ba528408b1fbbfdaeeaf28ae538861f36a86..5385131caf8e786dc58a80c153033d5e00ea6b9b 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 b779f86c3f1bb7c5e04fb6a776e4e2703e38c8dc..437255f95db0332733a84d920a3a22fcc796cd4d 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 6cbd1258d69ac26cecb3fdcde727d9d619f6c9c4..2b056bd03ab528629ec9b7ce4bbe0725e70d0e73 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 3e460a8e94e5c1b01b791ef74ee3512a82df0333..6af545ad8f4365339c8b5bd3c968c34b193c9cc2 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 4e4e86670c072a801479cdfead0cd35f5a2caffd..a32866ee697b5e9f09a8c1d0e755747e10e3fdc0 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 fc36a3a5fc67e98f2a4d9cfd54e2de3b74ce9776..167e4a64118caee193c9e68611605622ae10efdc 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 ) )