diff options
43 files changed, 67 insertions, 106 deletions
diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f index 45c9729d..db6498da 100644 --- 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 e4823cc9..493940ef 100644 --- 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 1e851e85..57ae3dc4 100644 --- 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 3d957bb6..b6fd9fd9 100644 --- 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 efd53c7d..6094b09f 100644 --- 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 e8539c5c..1d7e8efc 100644 --- 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 67a7e800..6133812c 100644 --- 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 713c4620..44cdac7e 100644 --- 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 e8024b4c..cbc3bc76 100644 --- 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 5871a8f0..6f977b4f 100644 --- 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 15826d9a..eacba1f8 100644 --- 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 02481ea6..fef03dd5 100644 --- 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 77761025..cb5794b6 100644 --- 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 abce652f..0d3002c4 100644 --- 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 5dfd74c6..76d6d399 100644 --- 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 3447c9de..e0bdae39 100644 --- 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 786662c3..7bbc33ce 100644 --- 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 1c11f929..9189e137 100644 --- 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 14849817..5580f4ee 100644 --- 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 fa3ac0f4..927bf664 100644 --- 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 dc1d4b88..5d57ce48 100644 --- 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 9d3edeb9..691749c1 100644 --- 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 d7888daf..f932936e 100644 --- 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 8411502f..2f686a28 100644 --- 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 1afef7cc..c2098f55 100644 --- 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 57c77d57..3354690b 100644 --- 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 79b30d5a..797355e3 100644 --- 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 597b7900..433b3c03 100644 --- 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 77c11352..f9a47d6a 100644 --- 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 944e996b..17de0ed7 100644 --- 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 99a2cdd6..23bb978e 100644 --- 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 6b0b2c67..b6305704 100644 --- 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 3505218a..24555401 100644 --- 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 59d7c9e9..3f7861d2 100644 --- 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 fdc31902..c6cb13b0 100644 --- 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 5a705809..94892b79 100644 --- 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 83713963..fe5de85a 100644 --- 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 7e23ba52..5385131c 100644 --- 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 b779f86c..437255f9 100644 --- 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 6cbd1258..2b056bd0 100644 --- 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 3e460a8e..6af545ad 100644 --- 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 4e4e8667..a32866ee 100644 --- 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 fc36a3a5..167e4a64 100644 --- 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 ) ) |