diff options
| author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-02-17 20:14:14 +0000 |
|---|---|---|
| committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-02-17 20:14:14 +0000 |
| commit | dc06e1f1e960f24583f9b305b93de1c355d7db09 (patch) | |
| tree | 3c30202295cdc476b1207ebb27cab81de45f967d /SRC/csptrf.f | |
| parent | 5eee138e420da625ccaba75204f838b329af1736 (diff) | |
| download | lapack-dc06e1f1e960f24583f9b305b93de1c355d7db09.tar.gz lapack-dc06e1f1e960f24583f9b305b93de1c355d7db09.tar.bz2 lapack-dc06e1f1e960f24583f9b305b93de1c355d7db09.zip | |
removed confusing comments about JMAX, resolves bug0034
Diffstat (limited to 'SRC/csptrf.f')
| -rw-r--r-- | SRC/csptrf.f | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/SRC/csptrf.f b/SRC/csptrf.f index 30064764..bdd28572 100644 --- a/SRC/csptrf.f +++ b/SRC/csptrf.f @@ -208,9 +208,6 @@ KP = K ELSE * -* JMAX is the column-index of the largest off-diagonal -* element in row IMAX, and ROWMAX is its absolute value -* ROWMAX = ZERO JMAX = IMAX KX = IMAX*( IMAX+1 ) / 2 + IMAX |