diff options
Diffstat (limited to 'SRC/sgecon.f')
| -rw-r--r-- | SRC/sgecon.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/sgecon.f b/SRC/sgecon.f index a2a11126..56c30232 100644 --- a/SRC/sgecon.f +++ b/SRC/sgecon.f @@ -149,12 +149,12 @@ $ A, LDA, WORK, SU, WORK( 3*N+1 ), INFO ) ELSE * -* Multiply by inv(U'). +* Multiply by inv(U**T). * CALL SLATRS( 'Upper', 'Transpose', 'Non-unit', NORMIN, N, A, $ LDA, WORK, SU, WORK( 3*N+1 ), INFO ) * -* Multiply by inv(L'). +* Multiply by inv(L**T). * CALL SLATRS( 'Lower', 'Transpose', 'Unit', NORMIN, N, A, $ LDA, WORK, SL, WORK( 2*N+1 ), INFO ) |