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 1866, Mon Jun 4 17:11:11 2007 UTC revision 1867, Mon Jun 4 17:13:02 2007 UTC
# Line 18  Line 18 
18      return dense_nonpacked_validate(obj);      return dense_nonpacked_validate(obj);
19  }  }
20    
21  double get_norm_sy(SEXP obj, char *typstr)  double get_norm_sy(SEXP obj, const char *typstr)
22  {  {
23      char typnm[] = {'\0', '\0'};      char typnm[] = {'\0', '\0'};
24      int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym));      int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym));
# Line 134  Line 134 
134          uploP = GET_SLOT(x, Matrix_uploSym);          uploP = GET_SLOT(x, Matrix_uploSym);
135      int *dims = INTEGER(dimP), *perm, info;      int *dims = INTEGER(dimP), *perm, info;
136      int lwork = -1, n = dims[0];      int lwork = -1, n = dims[0];
137      char *uplo = CHAR(STRING_ELT(uploP, 0));      const char *uplo = CHAR(STRING_ELT(uploP, 0));
138      double tmp, *vx, *work;      double tmp, *vx, *work;
139    
140      if (val != R_NilValue) return val;      if (val != R_NilValue) return val;

Legend:
Removed from v.1866  
changed lines
  Added in v.1867

root@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