Skip to content

Commit 1c493c4

Browse files
langoulangou
authored
Merge pull request #1233 from nakatamaho/cleanup/testing-lin-drvrf-constants
TESTING/LIN: use named constants in drvrf tests
2 parents ff3f982 + 25d74b3 commit 1c493c4

File tree

8 files changed

+26
-20
lines changed

8 files changed

+26
-20
lines changed

‎TESTING/LIN/cdrvrf3.f‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -138,8 +138,10 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
138138
* ..
139139
* .. Parameters ..
140140
COMPLEX ZERO, ONE
141+
REAL TWO
141142
PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ) ,
142143
+ ONE = ( 1.0E+0, 0.0E+0 ) )
144+
PARAMETER ( TWO = 2.0E+0 )
143145
INTEGER NTESTS
144146
PARAMETER ( NTESTS = 1 )
145147
* ..
@@ -287,7 +289,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
287289
DO J = 1, NA
288290
DO I = 1, J
289291
A( I, J ) = A( I, J ) /
290-
+ ( 2.0 * A( J, J ) )
292+
+ ( TWO * A( J, J ) )
291293
END DO
292294
END DO
293295
END IF
@@ -310,7 +312,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
310312
DO I = 1, NA
311313
DO J = 1, I
312314
A( I, J ) = A( I, J ) /
313-
+ ( 2.0 * A( I, I ) )
315+
+ ( TWO * A( I, I ) )
314316
END DO
315317
END DO
316318
END IF

‎TESTING/LIN/cdrvrfp.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -276,8 +276,8 @@ SUBROUTINE CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL,
276276
* =====================================================================
277277
*
278278
* .. Parameters ..
279-
REAL ONE, ZERO
280-
PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 )
279+
REAL ZERO, ONE
280+
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
281281
INTEGER NTESTS
282282
PARAMETER ( NTESTS = 4 )
283283
* ..

‎TESTING/LIN/ddrvrf3.f‎

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -135,9 +135,10 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
135135
* =====================================================================
136136
* ..
137137
* .. Parameters ..
138-
DOUBLE PRECISION ZERO, ONE
138+
DOUBLE PRECISION ZERO, ONE, TWO
139139
PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ) ,
140-
+ ONE = ( 1.0D+0, 0.0D+0 ) )
140+
+ ONE = ( 1.0D+0, 0.0D+0 ),
141+
+ TWO = 2.0D+0 )
141142
INTEGER NTESTS
142143
PARAMETER ( NTESTS = 1 )
143144
* ..
@@ -283,7 +284,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
283284
DO J = 1, NA
284285
DO I = 1, J
285286
A( I, J ) = A( I, J ) /
286-
+ ( 2.0 * A( J, J ) )
287+
+ ( TWO * A( J, J ) )
287288
END DO
288289
END DO
289290
END IF
@@ -306,7 +307,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
306307
DO I = 1, NA
307308
DO J = 1, I
308309
A( I, J ) = A( I, J ) /
309-
+ ( 2.0 * A( I, I ) )
310+
+ ( TWO * A( I, I ) )
310311
END DO
311312
END DO
312313
END IF

‎TESTING/LIN/ddrvrfp.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -269,8 +269,8 @@ SUBROUTINE DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL,
269269
* =====================================================================
270270
*
271271
* .. Parameters ..
272-
DOUBLE PRECISION ONE, ZERO
273-
PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 )
272+
DOUBLE PRECISION ZERO, ONE
273+
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
274274
INTEGER NTESTS
275275
PARAMETER ( NTESTS = 4 )
276276
* ..

‎TESTING/LIN/sdrvrf3.f‎

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -135,9 +135,10 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
135135
* =====================================================================
136136
* ..
137137
* .. Parameters ..
138-
REAL ZERO, ONE
138+
REAL ZERO, ONE, TWO
139139
PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ) ,
140-
+ ONE = ( 1.0E+0, 0.0E+0 ) )
140+
+ ONE = ( 1.0E+0, 0.0E+0 ),
141+
+ TWO = 2.0E+0 )
141142
INTEGER NTESTS
142143
PARAMETER ( NTESTS = 1 )
143144
* ..
@@ -283,7 +284,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
283284
DO J = 1, NA
284285
DO I = 1, J
285286
A( I, J ) = A( I, J ) /
286-
+ ( 2.0 * A( J, J ) )
287+
+ ( TWO * A( J, J ) )
287288
END DO
288289
END DO
289290
END IF
@@ -306,7 +307,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
306307
DO I = 1, NA
307308
DO J = 1, I
308309
A( I, J ) = A( I, J ) /
309-
+ ( 2.0 * A( I, I ) )
310+
+ ( TWO * A( I, I ) )
310311
END DO
311312
END DO
312313
END IF

‎TESTING/LIN/sdrvrfp.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -269,8 +269,8 @@ SUBROUTINE SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL,
269269
* =====================================================================
270270
*
271271
* .. Parameters ..
272-
REAL ONE, ZERO
273-
PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 )
272+
REAL ZERO, ONE
273+
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
274274
INTEGER NTESTS
275275
PARAMETER ( NTESTS = 4 )
276276
* ..

‎TESTING/LIN/zdrvrf3.f‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -138,8 +138,10 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
138138
* ..
139139
* .. Parameters ..
140140
COMPLEX*16 ZERO, ONE
141+
DOUBLE PRECISION TWO
141142
PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ) ,
142143
+ ONE = ( 1.0D+0, 0.0D+0 ) )
144+
PARAMETER ( TWO = 2.0D+0 )
143145
INTEGER NTESTS
144146
PARAMETER ( NTESTS = 1 )
145147
* ..
@@ -287,7 +289,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
287289
DO J = 1, NA
288290
DO I = 1, J
289291
A( I, J ) = A( I, J ) /
290-
+ ( 2.0 * A( J, J ) )
292+
+ ( TWO * A( J, J ) )
291293
END DO
292294
END DO
293295
END IF
@@ -310,7 +312,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
310312
DO I = 1, NA
311313
DO J = 1, I
312314
A( I, J ) = A( I, J ) /
313-
+ ( 2.0 * A( I, I ) )
315+
+ ( TWO * A( I, I ) )
314316
END DO
315317
END DO
316318
END IF

‎TESTING/LIN/zdrvrfp.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -276,8 +276,8 @@ SUBROUTINE ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL,
276276
* =====================================================================
277277
*
278278
* .. Parameters ..
279-
DOUBLE PRECISION ONE, ZERO
280-
PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 )
279+
DOUBLE PRECISION ZERO, ONE
280+
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
281281
INTEGER NTESTS
282282
PARAMETER ( NTESTS = 4 )
283283
* ..

0 commit comments

Comments
 (0)