Mercurial > hg > octave-lyh

comparison libcruft/qrupdate/dqhqr.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 56be6f31dd4e
children
comparison
equal deleted inserted replaced
7724:932b0cf51834 7725:7c9ba697a479
36 c 36 c
37 integer m,n,k,ldq,ldr 37 integer m,n,k,ldq,ldr
38 double precision Q(ldq,*),R(ldr,*) 38 double precision Q(ldq,*),R(ldr,*)
39 double precision c 39 double precision c
40 double precision s,rr 40 double precision s,rr
41 external dlartg,drot 41 external xerbla,dlartg,drot
42 integer info,i 42 integer info,i
43 c quick return if possible. 43 c quick return if possible.
44 if (n <= 0 .or. k <= 1) return 44 if (n <= 0 .or. k <= 1) return
45 c check arguments. 45 c check arguments.
46 info = 0 46 info = 0