From c2552546f5251abf638e6fcfda30a1e22f2468c4 Mon Sep 17 00:00:00 2001 From: igor175 Date: Wed, 7 Dec 2011 14:19:47 +0000 Subject: [PATCH] collapsed 2 lines of COMPLEX variable declarations into one line in clasyf_rook.f and csytf2_rook.f --- SRC/clasyf_rook.f | 3 +-- SRC/csytf2_rook.f | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/SRC/clasyf_rook.f b/SRC/clasyf_rook.f index b46fb98..a16dbe0 100644 --- a/SRC/clasyf_rook.f +++ b/SRC/clasyf_rook.f @@ -214,8 +214,7 @@ INTEGER IMAX, ITEMP, J, JB, JJ, JMAX, JP1, JP2, K, KK, $ KW, KKW, KP, KSTEP, P, II REAL ABSAKK, ALPHA, COLMAX, ROWMAX, STEMP, SFMIN - COMPLEX D11, D12, D21, D22, R1 - $ T, Z + COMPLEX D11, D12, D21, D22, R1, T, Z * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/csytf2_rook.f b/SRC/csytf2_rook.f index 50b9c95..8ec1e04 100644 --- a/SRC/csytf2_rook.f +++ b/SRC/csytf2_rook.f @@ -225,8 +225,7 @@ INTEGER I, IMAX, J, JMAX, ITEMP, K, KK, KP, KSTEP, $ P, II REAL ABSAKK, ALPHA, COLMAX, ROWMAX, STEMP, SFMIN - COMPLEX D11, D12, D21, D22, - $ T, WK, WKM1, WKP1, Z + COMPLEX D11, D12, D21, D22, T, WK, WKM1, WKP1, Z * .. * .. External Functions .. LOGICAL LSAME -- 2.7.4