diff options
Diffstat (limited to 'SRC/sgsvj1.f')
| -rw-r--r-- | SRC/sgsvj1.f | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index bb36ea15..c1249b79 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -44,12 +44,12 @@ * block-entries (tiles) of the (1,2) off-diagonal block are marked by the * [x]'s in the following scheme: * -* | * C * [x] [x] [x]| -* | * C * [x] [x] [x]| Row-cycling in the nblr-by-nblc [x] blocks. -* | * C * [x] [x] [x]| Row-cyclic pivoting inside each [x] block. -* |[x] [x] [x] * C * | -* |[x] [x] [x] * C * | -* |[x] [x] [x] * C * | +* | * * * [x] [x] [x]| +* | * * * [x] [x] [x]| Row-cycling in the nblr-by-nblc [x] blocks. +* | * * * [x] [x] [x]| Row-cyclic pivoting inside each [x] block. +* |[x] [x] [x] * * * | +* |[x] [x] [x] * * * | +* |[x] [x] [x] * * * | * * In terms of the columns of A, the first N1 columns are rotated 'against' * the remaining N-N1 columns, trying to increase the angle between the @@ -271,12 +271,12 @@ * Jacobi SVD algorithm SGESVJ. * * -* | * C * [x] [x] [x]| -* | * C * [x] [x] [x]| Row-cycling in the nblr-by-nblc [x] blocks. -* | * C * [x] [x] [x]| Row-cyclic pivoting inside each [x] block. -* |[x] [x] [x] * C * | -* |[x] [x] [x] * C * | -* |[x] [x] [x] * C * | +* | * * * [x] [x] [x]| +* | * * * [x] [x] [x]| Row-cycling in the nblr-by-nblc [x] blocks. +* | * * * [x] [x] [x]| Row-cyclic pivoting inside each [x] block. +* |[x] [x] [x] * * * | +* |[x] [x] [x] * * * | +* |[x] [x] [x] * * * | * * DO 1993 i = 1, NSWEEP |