SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/src/dense.c
ViewVC logotype

Diff of /pkg/Matrix/src/dense.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 356, Sat Nov 27 01:45:39 2004 UTC revision 357, Sat Nov 27 17:56:13 2004 UTC
# Line 208  Line 208 
208          F77_CALL(dgeqrf)(&n, &p, xpt, &n, REAL(qraux), work, &lwork, &info);          F77_CALL(dgeqrf)(&n, &p, xpt, &n, REAL(qraux), work, &lwork, &info);
209          if (info)          if (info)
210              error("Second call to dgeqrf returned error code %d", info);              error("Second call to dgeqrf returned error code %d", info);
211          iwork = (int *) R_alloc(trsz, sizeof(double));          iwork = (int *) R_alloc(trsz, sizeof(int));
212          F77_CALL(dtrcon)("1", "U", "N", &rank, xpt, &n, &rcond,          F77_CALL(dtrcon)("1", "U", "N", &rank, xpt, &n, &rcond,
213                           work, iwork, &info);                           work, iwork, &info);
214          if (info)          if (info)

Legend:
Removed from v.356  
changed lines
  Added in v.357

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge