Mercurial > octave-nkf

comparison libcruft/qrupdate/zch1dn.f @ 7725:7c9ba697a479

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cosmetic fixes in QR & Cholesky updating codes
author Jaroslav Hajek <highegg@gmail.com>
date Sun, 20 Apr 2008 09:50:22 -0400
parents 07522d7dcdf8
children
comparison
equal deleted inserted replaced
7724:932b0cf51834 7725:7c9ba697a479
34 c so that R does not need to be traversed by rows. 34 c so that R does not need to be traversed by rows.
35 c 35 c
36 integer n,info 36 integer n,info
37 double complex R(n,n),u(n) 37 double complex R(n,n),u(n)
38 double precision w(n) 38 double precision w(n)
39 external ztrsv,zcopy,zlartg,dznrm2 39 external ztrsv,zlartg,dznrm2
40 double precision rho,dznrm2 40 double precision rho,dznrm2
41 double complex crho,rr,ui,t 41 double complex crho,rr,ui,t
42 integer i,j 42 integer i,j
43 43
44 c quick return if possible 44 c quick return if possible