diff options
Diffstat (limited to 'SRC/slarzb.f')
-rw-r--r-- | SRC/slarzb.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/slarzb.f b/SRC/slarzb.f index 1c335cc8..a0b820fc 100644 --- a/SRC/slarzb.f +++ b/SRC/slarzb.f @@ -155,7 +155,7 @@ $ CALL SGEMM( 'Transpose', 'Transpose', N, K, L, ONE, $ C( M-L+1, 1 ), LDC, V, LDV, ONE, WORK, LDWORK ) * -* W( 1:n, 1:k ) = W( 1:n, 1:k ) * T' or W( 1:m, 1:k ) * T +* W( 1:n, 1:k ) = W( 1:n, 1:k ) * T**T or W( 1:m, 1:k ) * T * CALL STRMM( 'Right', 'Lower', TRANST, 'Non-unit', N, K, ONE, T, $ LDT, WORK, LDWORK ) |