SCM

SCM Repository

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

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

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

revision 951, Wed Sep 28 12:42:51 2005 UTC revision 964, Mon Oct 3 20:35:52 2005 UTC
# Line 33  Line 33 
33      AZERO(vx, n * n);      AZERO(vx, n * n);
34      F77_CALL(dlacpy)(uplo, &n, &n, REAL(GET_SLOT(x, Matrix_xSym)), &n, vx, &n);      F77_CALL(dlacpy)(uplo, &n, &n, REAL(GET_SLOT(x, Matrix_xSym)), &n, vx, &n);
35      F77_CALL(dpotrf)(uplo, &n, vx, &n, &info);      F77_CALL(dpotrf)(uplo, &n, vx, &n, &info);
36      if (info)      if (info) {
37            if(info > 0)
38                error(_("the leading minor of order %d is not positive definite"),
39                        info);
40            else /* should never happen! */
41          error(_("Lapack routine %s returned error code %d"), "dpotrf", info);          error(_("Lapack routine %s returned error code %d"), "dpotrf", info);
42        }
43      UNPROTECT(1);      UNPROTECT(1);
44      return set_factors(x, val, "Cholesky");      return set_factors(x, val, "Cholesky");
45  }  }

Legend:
Removed from v.951  
changed lines
  Added in v.964

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge