Mercurial > hg > octave-lyh

diff libcruft/blas/ztrmm.f @ 2608:bac14003d9bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-01-18 00:11:48 by jwe]
author jwe
date Sat, 18 Jan 1997 00:13:08 +0000
parents 30c606bec7a8
children
line wrap: on
line diff
--- a/libcruft/blas/ztrmm.f
+++ b/libcruft/blas/ztrmm.f
@@ -237,7 +237,7 @@
             END IF
          ELSE
 *
-*           Form  B := alpha*B*A'   or   B := alpha*B*conjg( A' ).
+*           Form  B := alpha*A'*B   or   B := alpha*conjg( A' )*B.
 *
             IF( UPPER )THEN
                DO 120, J = 1, N