diff options
-rw-r--r-- | SRC/clasyf_rook.f | 3 | ||||
-rw-r--r-- | 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 b46fb987..a16dbe02 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 50b9c952..8ec1e04d 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 |