phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TESTING/LIN: use named constants in drvrf tests

Browse Source 
Replace hard-coded floating-point constants with existing named
  constants in the drvrf3 and drvrfp test drivers. This keeps the test
  initialization code consistent with surrounding LAPACK test style.
This commit is contained in:
NAKATA Maho
2026-04-11 20:29:54 +09:00
parent 774b05d15d
commit 25d74b31a7
8 changed files with 26 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TESTING/LIN/cdrvrf3.f
+4 -2
View File
@@ -138,8 +138,10 @@
* ..
* .. Parameters ..
COMPLEX ZERO, ONE
REAL TWO
PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ) ,
+ ONE = ( 1.0E+0, 0.0E+0 ) )
PARAMETER ( TWO = 2.0E+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 1 )
* ..
@@ -287,7 +289,7 @@
DO J = 1, NA
DO I = 1, J
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( J, J ) )
+ ( TWO * A( J, J ) )
END DO
END DO
END IF
@@ -310,7 +312,7 @@
DO I = 1, NA
DO J = 1, I
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( I, I ) )
+ ( TWO * A( I, I ) )
END DO
END DO
END IF
TESTING/LIN/cdrvrfp.f
+2 -2
View File
@@ -276,8 +276,8 @@
* =====================================================================
*
* .. Parameters ..
REAL ONE, ZERO
PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 )
REAL ZERO, ONE
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 4 )
* ..
TESTING/LIN/ddrvrf3.f
+5 -4
View File
@@ -135,9 +135,10 @@
* =====================================================================
* ..
* .. Parameters ..
DOUBLE PRECISION ZERO, ONE
DOUBLE PRECISION ZERO, ONE, TWO
PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ) ,
+ ONE = ( 1.0D+0, 0.0D+0 ) )
+ ONE = ( 1.0D+0, 0.0D+0 ),
+ TWO = 2.0D+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 1 )
* ..
@@ -283,7 +284,7 @@
DO J = 1, NA
DO I = 1, J
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( J, J ) )
+ ( TWO * A( J, J ) )
END DO
END DO
END IF
@@ -306,7 +307,7 @@
DO I = 1, NA
DO J = 1, I
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( I, I ) )
+ ( TWO * A( I, I ) )
END DO
END DO
END IF
TESTING/LIN/ddrvrfp.f
+2 -2
View File
@@ -269,8 +269,8 @@
* =====================================================================
*
* .. Parameters ..
DOUBLE PRECISION ONE, ZERO
PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 )
DOUBLE PRECISION ZERO, ONE
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 4 )
* ..
TESTING/LIN/sdrvrf3.f
+5 -4
View File
@@ -135,9 +135,10 @@
* =====================================================================
* ..
* .. Parameters ..
REAL ZERO, ONE
REAL ZERO, ONE, TWO
PARAMETER ( ZERO = ( 0.0E+0, 0.0E+0 ) ,
+ ONE = ( 1.0E+0, 0.0E+0 ) )
+ ONE = ( 1.0E+0, 0.0E+0 ),
+ TWO = 2.0E+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 1 )
* ..
@@ -283,7 +284,7 @@
DO J = 1, NA
DO I = 1, J
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( J, J ) )
+ ( TWO * A( J, J ) )
END DO
END DO
END IF
@@ -306,7 +307,7 @@
DO I = 1, NA
DO J = 1, I
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( I, I ) )
+ ( TWO * A( I, I ) )
END DO
END DO
END IF
TESTING/LIN/sdrvrfp.f
+2 -2
View File
@@ -269,8 +269,8 @@
* =====================================================================
*
* .. Parameters ..
REAL ONE, ZERO
PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 )
REAL ZERO, ONE
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 4 )
* ..
TESTING/LIN/zdrvrf3.f
+4 -2
View File
@@ -138,8 +138,10 @@
* ..
* .. Parameters ..
COMPLEX*16 ZERO, ONE
DOUBLE PRECISION TWO
PARAMETER ( ZERO = ( 0.0D+0, 0.0D+0 ) ,
+ ONE = ( 1.0D+0, 0.0D+0 ) )
PARAMETER ( TWO = 2.0D+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 1 )
* ..
@@ -287,7 +289,7 @@
DO J = 1, NA
DO I = 1, J
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( J, J ) )
+ ( TWO * A( J, J ) )
END DO
END DO
END IF
@@ -310,7 +312,7 @@
DO I = 1, NA
DO J = 1, I
A( I, J ) = A( I, J ) /
+ ( 2.0 * A( I, I ) )
+ ( TWO * A( I, I ) )
END DO
END DO
END IF
TESTING/LIN/zdrvrfp.f
+2 -2
View File
@@ -276,8 +276,8 @@
* =====================================================================
*
* .. Parameters ..
DOUBLE PRECISION ONE, ZERO
PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 )
DOUBLE PRECISION ZERO, ONE
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
INTEGER NTESTS
PARAMETER ( NTESTS = 4 )
* ..