11 void daxpy (
int n,
float da,
float dx[],
int incx,
float dy[],
int incy );
12 float ddot (
int n,
float dx[],
int incx,
float dy[],
int incy );
13 float dnrm2 (
int n,
float x[],
int incx );
14 void dqrank (
float a[],
int lda,
int m,
int n,
float tol,
int *kr,
15 int jpvt[],
float qraux[] );
16 void dqrdc (
float a[],
int lda,
int n,
int p,
float qraux[],
int jpvt[],
17 float work[],
int job );
18 int dqrls (
float a[],
int lda,
int m,
int n,
float tol,
int *kr,
float b[],
19 float x[],
float rsd[],
int jpvt[],
float qraux[],
int itask );
20 void dqrlss (
float a[],
int lda,
int m,
int n,
int kr,
float b[],
float x[],
21 float rsd[],
int jpvt[],
float qraux[] );
22 int dqrsl (
float a[],
int lda,
int n,
int k,
float qraux[],
float y[],
23 float qy[],
float qty[],
float b[],
float rsd[],
float ab[],
int job );
24 void drotg (
float *sa,
float *sb,
float *c,
float *
s );
25 void dscal (
int n,
float sa,
float x[],
int incx );
26 void dswap (
int n,
float x[],
int incx,
float y[],
int incy );
27 void qr_solve (
int m,
int n,
float a[],
float b[],
float x[] );
void dqrlss(float a[], int lda, int m, int n, int kr, float b[], float x[], float rsd[], int jpvt[], float qraux[])
float ddot(int n, float dx[], int incx, float dy[], int incy)
int dqrsl(float a[], int lda, int n, int k, float qraux[], float y[], float qy[], float qty[], float b[], float rsd[], float ab[], int job)
void dqrank(float a[], int lda, int m, int n, float tol, int *kr, int jpvt[], float qraux[])
void qr_solve(int m, int n, float a[], float b[], float x[])
void drotg(float *sa, float *sb, float *c, float *s)
void daxpy(int n, float da, float dx[], int incx, float dy[], int incy)
void dscal(int n, float sa, float x[], int incx)
float dnrm2(int n, float x[], int incx)
int dqrls(float a[], int lda, int m, int n, float tol, int *kr, float b[], float x[], float rsd[], int jpvt[], float qraux[], int itask)
void dswap(int n, float x[], int incx, float y[], int incy)
void dqrdc(float a[], int lda, int n, int p, float qraux[], int jpvt[], float work[], int job)