Missing parameter definition

julielangou · julielangou · commit 87ca83c46811 · 2015-11-15T21:06:49.000Z
diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f
@@ -70,6 +70,8 @@ SUBROUTINE CERRVX( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX
       PARAMETER          ( NMAX = 4 )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          EQ
diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f
@@ -70,6 +70,8 @@ SUBROUTINE DERRVX( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX
       PARAMETER          ( NMAX = 4 )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          EQ
diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f
@@ -70,6 +70,8 @@ SUBROUTINE SERRVX( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX
       PARAMETER          ( NMAX = 4 )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          EQ
diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f
@@ -70,6 +70,8 @@ SUBROUTINE ZERRVX( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX
       PARAMETER          ( NMAX = 4 )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          EQ
