Merge pull request #1230 from nakatamaho/cleanup/eig-errbd-errhs-constants

TESTING/EIG: use named ONE constants in several error-exit tests

Author: langou

TESTING/EIG/cerrbd.f

@@ -68,6 +68,8 @@ SUBROUTINE CERRBD( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 4, LW = NMAX )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
@@ -108,7 +110,7 @@ SUBROUTINE CERRBD( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1. / REAL( I+J )
+            A( I, J ) = ONE / REAL( I+J )
    10    CONTINUE
    20 CONTINUE
       OK = .TRUE.

TESTING/EIG/cerrhs.f

@@ -68,6 +68,8 @@ SUBROUTINE CERRHS( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 3, LW = NMAX*NMAX )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
@@ -111,7 +113,7 @@ SUBROUTINE CERRHS( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1. / REAL( I+J )
+            A( I, J ) = ONE / REAL( I+J )
    10    CONTINUE
          SEL( J ) = .TRUE.
    20 CONTINUE

TESTING/EIG/derrbd.f

@@ -112,7 +112,7 @@ SUBROUTINE DERRBD( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1.D0 / DBLE( I+J )
+            A( I, J ) = ONE / DBLE( I+J )
    10    CONTINUE
    20 CONTINUE
       OK = .TRUE.

TESTING/EIG/derrhs.f

@@ -68,6 +68,8 @@ SUBROUTINE DERRHS( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 3, LW = ( NMAX+2 )*( NMAX+2 )+NMAX )
+      DOUBLE PRECISION   ONE
+      PARAMETER          ( ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
@@ -111,7 +113,7 @@ SUBROUTINE DERRHS( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1.D0 / DBLE( I+J )
+            A( I, J ) = ONE / DBLE( I+J )
    10    CONTINUE
          WI( J ) = DBLE( J )
          SEL( J ) = .TRUE.

TESTING/EIG/serrbd.f

@@ -112,7 +112,7 @@ SUBROUTINE SERRBD( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1. / REAL( I+J )
+            A( I, J ) = ONE / REAL( I+J )
    10    CONTINUE
    20 CONTINUE
       OK = .TRUE.

TESTING/EIG/serrhs.f

@@ -68,6 +68,8 @@ SUBROUTINE SERRHS( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 3, LW = ( NMAX+2 )*( NMAX+2 )+NMAX )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
@@ -110,7 +112,7 @@ SUBROUTINE SERRHS( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1. / REAL( I+J )
+            A( I, J ) = ONE / REAL( I+J )
    10    CONTINUE
          WI( J ) = REAL( J )
          SEL( J ) = .TRUE.

TESTING/EIG/zerrbd.f

@@ -68,6 +68,8 @@ SUBROUTINE ZERRBD( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 4, LW = NMAX )
+      DOUBLE PRECISION   ONE
+      PARAMETER          ( ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
@@ -108,7 +110,7 @@ SUBROUTINE ZERRBD( PATH, NUNIT )
 *
       DO 20 J = 1, NMAX
          DO 10 I = 1, NMAX
-            A( I, J ) = 1.D0 / DBLE( I+J )
+            A( I, J ) = ONE / DBLE( I+J )
    10    CONTINUE
    20 CONTINUE
       OK = .TRUE.