SCM

SCM Repository

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

Diff of /pkg/src/dsyMatrix.c

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

revision 951, Wed Sep 28 12:42:51 2005 UTC revision 952, Wed Sep 28 19:19:19 2005 UTC
# Line 274  Line 274 
274               duplicate(GET_SLOT(from, Matrix_rcondSym)));               duplicate(GET_SLOT(from, Matrix_rcondSym)));
275      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));      SET_SLOT(val, Matrix_DimSym, duplicate(dimP));
276      SET_SLOT(val, Matrix_uploSym, duplicate(uplo));      SET_SLOT(val, Matrix_uploSym, duplicate(uplo));
277      full_to_packed(REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, (n*(n+1))/2)),      full_to_packed_double(
278            REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, (n*(n+1))/2)),
279                     REAL(GET_SLOT(from, Matrix_xSym)), n,                     REAL(GET_SLOT(from, Matrix_xSym)), n,
280                     *CHAR(STRING_ELT(uplo, 0)) == 'U' ? UPP : LOW, NUN);                     *CHAR(STRING_ELT(uplo, 0)) == 'U' ? UPP : LOW, NUN);
281      UNPROTECT(1);      UNPROTECT(1);

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

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