Go to the source code of this file.
|
| subroutine | qtbvec (m, n, q, ldq, qraux, b, qtb) |
| |
| subroutine | rsolve (m, n, q, ldq, qraux, qtb, x, rcalc, rsd) |
| |
| subroutine qtbvec |
( |
integer |
m, |
|
|
integer |
n, |
|
|
double precision, dimension(ldq,n) |
q, |
|
|
integer |
ldq, |
|
|
double precision, dimension(n) |
qraux, |
|
|
double precision, dimension(m) |
b, |
|
|
double precision, dimension(m) |
qtb |
|
) |
| |
| subroutine rsolve |
( |
integer |
m, |
|
|
integer |
n, |
|
|
double precision, dimension(ldq,n) |
q, |
|
|
integer |
ldq, |
|
|
double precision, dimension(n) |
qraux, |
|
|
double precision, dimension(n) |
qtb, |
|
|
double precision, dimension(m) |
x, |
|
|
logical |
rcalc, |
|
|
double precision, dimension(m) |
rsd |
|
) |
| |