From 46604b2708d41f3f90f35040370ba0a92b8662b0 Mon Sep 17 00:00:00 2001 From: NAKATA Maho Date: Tue, 14 Apr 2026 07:36:16 +0900 Subject: [PATCH] cleanup: normalize ZERO/ONE declaration order in TESTING/EIG error-exit tests Reorder ZERO and ONE declarations and PARAMETER definitions for consistency in the TESTING/EIG error-exit test sources. No functional change intended. --- TESTING/EIG/cerrec.f | 4 ++-- TESTING/EIG/cerred.f | 4 ++-- TESTING/EIG/derrec.f | 4 ++-- TESTING/EIG/derred.f | 4 ++-- TESTING/EIG/serrec.f | 4 ++-- TESTING/EIG/serred.f | 4 ++-- TESTING/EIG/zerrec.f | 4 ++-- TESTING/EIG/zerred.f | 4 ++-- 8 files changed, 16 insertions(+), 16 deletions(-) diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index 7e5c6ced8..4f68f7b38 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -69,8 +69,8 @@ SUBROUTINE CERREC( PATH, NUNIT ) * .. Parameters .. INTEGER NMAX, LW PARAMETER ( NMAX = 4, LW = NMAX*( NMAX+2 ) ) - REAL ONE, ZERO - PARAMETER ( ONE = 1.0E0, ZERO = 0.0E0 ) + REAL ZERO, ONE + PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0 ) * .. * .. Local Scalars .. INTEGER I, IFST, ILST, INFO, J, M, NT diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f index a406d9cc5..96c0aeb7c 100644 --- a/TESTING/EIG/cerred.f +++ b/TESTING/EIG/cerred.f @@ -83,8 +83,8 @@ SUBROUTINE CERRED( PATH, NUNIT ) * .. Parameters .. INTEGER NMAX, LW PARAMETER ( NMAX = 4, LW = 5*NMAX ) - REAL ONE, ZERO - PARAMETER ( ONE = 1.0E0, ZERO = 0.0E0 ) + REAL ZERO, ONE + PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0 ) * .. * .. Local Scalars .. CHARACTER*2 C2 diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index cdee74180..68c691cad 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -68,8 +68,8 @@ SUBROUTINE DERREC( PATH, NUNIT ) * * .. Parameters .. INTEGER NMAX - DOUBLE PRECISION ONE, ZERO - PARAMETER ( NMAX = 4, ONE = 1.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION ZERO, ONE + PARAMETER ( NMAX = 4, ZERO = 0.0D0, ONE = 1.0D0 ) * .. * .. Local Scalars .. INTEGER I, IFST, ILST, INFO, J, M, NT diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index a20d08ff9..d411471df 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -82,8 +82,8 @@ SUBROUTINE DERRED( PATH, NUNIT ) * * .. Parameters .. INTEGER NMAX - DOUBLE PRECISION ONE, ZERO - PARAMETER ( NMAX = 4, ONE = 1.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION ZERO, ONE + PARAMETER ( NMAX = 4, ZERO = 0.0D0, ONE = 1.0D0 ) * .. * .. Local Scalars .. CHARACTER*2 C2 diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index 6c89ed3a1..477c8c0bf 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -68,8 +68,8 @@ SUBROUTINE SERREC( PATH, NUNIT ) * * .. Parameters .. INTEGER NMAX - REAL ONE, ZERO - PARAMETER ( NMAX = 4, ONE = 1.0E0, ZERO = 0.0E0 ) + REAL ZERO, ONE + PARAMETER ( NMAX = 4, ZERO = 0.0E0, ONE = 1.0E0 ) * .. * .. Local Scalars .. INTEGER I, IFST, ILST, INFO, J, M, NT diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index d6d5f5c61..5ef8a56a9 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -82,8 +82,8 @@ SUBROUTINE SERRED( PATH, NUNIT ) * * .. Parameters .. INTEGER NMAX - REAL ONE, ZERO - PARAMETER ( NMAX = 4, ONE = 1.0E0, ZERO = 0.0E0 ) + REAL ZERO, ONE + PARAMETER ( NMAX = 4, ZERO = 0.0E0, ONE = 1.0E0 ) * .. * .. Local Scalars .. CHARACTER*2 C2 diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index cc3f48b48..76f863b3f 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -69,8 +69,8 @@ SUBROUTINE ZERREC( PATH, NUNIT ) * .. Parameters .. INTEGER NMAX, LW PARAMETER ( NMAX = 4, LW = NMAX*( NMAX+2 ) ) - DOUBLE PRECISION ONE, ZERO - PARAMETER ( ONE = 1.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION ZERO, ONE + PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) * .. * .. Local Scalars .. INTEGER I, IFST, ILST, INFO, J, M, NT diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index eef38dda7..2f6e114c7 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -83,8 +83,8 @@ SUBROUTINE ZERRED( PATH, NUNIT ) * .. Parameters .. INTEGER NMAX, LW PARAMETER ( NMAX = 4, LW = 5*NMAX ) - DOUBLE PRECISION ONE, ZERO - PARAMETER ( ONE = 1.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION ZERO, ONE + PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) * .. * .. Local Scalars .. CHARACTER*2 C2