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 /SRC/csytf2_rook.f | |
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
Diffstat (limited to 'SRC/csytf2_rook.f')
-rw-r--r-- | SRC/csytf2_rook.f | 3 |
1 files changed, 1 insertions, 2 deletions
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 |