diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 14:19:47 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2011-12-07 14:19:47 +0000 |
commit | c2552546f5251abf638e6fcfda30a1e22f2468c4 (patch) | |
tree | a0883dba4e3352d717c764c64a930a6979ead40f | |
parent | 3a4622a6c1cb8ba661b880e2598223e6a4494565 (diff) | |
download | lapack-c2552546f5251abf638e6fcfda30a1e22f2468c4.tar.gz lapack-c2552546f5251abf638e6fcfda30a1e22f2468c4.tar.bz2 lapack-c2552546f5251abf638e6fcfda30a1e22f2468c4.zip |
collapsed 2 lines of COMPLEX variable declarations into one line in clasyf_rook.f and csytf2_rook.f
-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 |