diff options
| author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-02 04:26:02 +0000 |
|---|---|---|
| committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2012-11-02 04:26:02 +0000 |
| commit | 7b5fb338b29bc11f8cd7ec087eacc19bd9b6608f (patch) | |
| tree | 94bb464ceeb1a2fc4e3e0c6942bb30dd5deb6a0b /SRC/slasyf.f | |
| parent | 99ad8555cef598fdb2b7e0687865011d6cee70e7 (diff) | |
| download | lapack-7b5fb338b29bc11f8cd7ec087eacc19bd9b6608f.tar.gz lapack-7b5fb338b29bc11f8cd7ec087eacc19bd9b6608f.tar.bz2 lapack-7b5fb338b29bc11f8cd7ec087eacc19bd9b6608f.zip | |
updated comments for interchage of rows and columns in (s,d,c,z)lasyf.f and (c,z)lagef.f
Diffstat (limited to 'SRC/slasyf.f')
| -rw-r--r-- | SRC/slasyf.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/SRC/slasyf.f b/SRC/slasyf.f index 9a96fe43..e8f8090c 100644 --- a/SRC/slasyf.f +++ b/SRC/slasyf.f @@ -319,7 +319,8 @@ KK = K - KSTEP + 1 KKW = NB + KK - N * -* Updated column KP is already stored in column KKW of W +* Interchange rows and columns KP and KK. +* Updated column KP is already stored in column KK of W. * IF( KP.NE.KK ) THEN * @@ -552,7 +553,8 @@ * KK = K + KSTEP - 1 * -* Updated column KP is already stored in column KK of W +* Interchange rows and columns KP and KK. +* Updated column KP is already stored in column KK of W. * IF( KP.NE.KK ) THEN * |