SCM

SCM Repository

[matrix] Diff of /branches/Matrix-mer2/src/dppMatrix.c
ViewVC logotype

Diff of /branches/Matrix-mer2/src/dppMatrix.c

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

revision 963, Mon Oct 3 01:44:56 2005 UTC revision 964, Mon Oct 3 20:35:52 2005 UTC
# Line 28  Line 28 
28      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));
29      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(x, Matrix_xSym)));      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(x, Matrix_xSym)));
30      F77_CALL(dpptrf)(uplo, dims, REAL(GET_SLOT(val, Matrix_xSym)), &info);      F77_CALL(dpptrf)(uplo, dims, REAL(GET_SLOT(val, Matrix_xSym)), &info);
31        if (info) {
32            if(info > 0) /* e.g. x singular */
33                error(_("the leading minor of order %d is not positive definite"),
34                        info);
35            else /* should never happen! */
36                error(_("Lapack routine %s returned error code %d"), "dpptrf", info);
37        }
38      UNPROTECT(1);      UNPROTECT(1);
39      return set_factors(x, val, "pCholesky");      return set_factors(x, val, "pCholesky");
40  }  }

Legend:
Removed from v.963  
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