Mercurial > hg > octave-lyh

comparison 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
comparison
equal deleted inserted replaced
2607:a3792f2bf9ff 2608:bac14003d9bb
235 70 CONTINUE 235 70 CONTINUE
236 80 CONTINUE 236 80 CONTINUE
237 END IF 237 END IF
238 ELSE 238 ELSE
239 * 239 *
240 * Form B := alpha*B*A' or B := alpha*B*conjg( A' ). 240 * Form B := alpha*A'*B or B := alpha*conjg( A' )*B.
241 * 241 *
242 IF( UPPER )THEN 242 IF( UPPER )THEN
243 DO 120, J = 1, N 243 DO 120, J = 1, N
244 DO 110, I = M, 1, -1 244 DO 110, I = M, 1, -1
245 TEMP = B( I, J ) 245 TEMP = B( I, J )