diff options
Diffstat (limited to 'SRC/dsptrf.f')
| -rw-r--r-- | SRC/dsptrf.f | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/SRC/dsptrf.f b/SRC/dsptrf.f index 24700908..58538915 100644 --- a/SRC/dsptrf.f +++ b/SRC/dsptrf.f @@ -199,9 +199,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 |