collapsed 2 lines of COMPLEX variable declarations into one line in clasyf_rook...

diff --git a/SRC/clasyf_rook.f b/SRC/clasyf_rook.f
index b46fb98..a16dbe0 100644 (file)
--- 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 (file)
--- 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