SCM

SCM Repository

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

Diff of /pkg/src/dtpMatrix.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 20  Line 20 
20  }  }
21    
22  static  static
23  double get_norm(SEXP obj, char *typstr)  double get_norm(SEXP obj, const char *typstr)
24  {  {
25      char typnm[] = {'\0', '\0'};      char typnm[] = {'\0', '\0'};
26      int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym));      int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym));
# Line 92  Line 92 
92      int *xDim = INTEGER(GET_SLOT(x, Matrix_DimSym)),      int *xDim = INTEGER(GET_SLOT(x, Matrix_DimSym)),
93          *yDim = INTEGER(GET_SLOT(val, Matrix_DimSym));          *yDim = INTEGER(GET_SLOT(val, Matrix_DimSym));
94      int ione = 1, j;      int ione = 1, j;
95      char *uplo = uplo_P(x), *diag = diag_P(x);      const char *uplo = uplo_P(x), *diag = diag_P(x);
96      double *xx = REAL(GET_SLOT(x, Matrix_xSym)),      double *xx = REAL(GET_SLOT(x, Matrix_xSym)),
97          *vx = REAL(GET_SLOT(val, Matrix_xSym));          *vx = REAL(GET_SLOT(val, Matrix_xSym));
98    
# Line 113  Line 113 
113      int *aDim = INTEGER(GET_SLOT(a, Matrix_DimSym)),      int *aDim = INTEGER(GET_SLOT(a, Matrix_DimSym)),
114          *bDim = INTEGER(GET_SLOT(val, Matrix_DimSym));          *bDim = INTEGER(GET_SLOT(val, Matrix_DimSym));
115      int ione = 1, j;      int ione = 1, j;
116      char *uplo = uplo_P(a), *diag = diag_P(a);      const char *uplo = uplo_P(a), *diag = diag_P(a);
117      double *ax = REAL(GET_SLOT(a, Matrix_xSym)),      double *ax = REAL(GET_SLOT(a, Matrix_xSym)),
118          *vx = REAL(GET_SLOT(val, Matrix_xSym));          *vx = REAL(GET_SLOT(val, Matrix_xSym));
119    
# Line 136  Line 136 
136      int *xDim = INTEGER(GET_SLOT(x, Matrix_DimSym)),      int *xDim = INTEGER(GET_SLOT(x, Matrix_DimSym)),
137          *yDim = INTEGER(GET_SLOT(y, Matrix_DimSym));          *yDim = INTEGER(GET_SLOT(y, Matrix_DimSym));
138      int i;      int i;
139      char *uplo = uplo_P(y), *diag = diag_P(y);      const char *uplo = uplo_P(y), *diag = diag_P(y);
140      double *yx = REAL(GET_SLOT(y, Matrix_xSym)),      double *yx = REAL(GET_SLOT(y, Matrix_xSym)),
141          *vx = REAL(GET_SLOT(val, Matrix_xSym));          *vx = REAL(GET_SLOT(val, Matrix_xSym));
142    

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