SCM

SCM Repository

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

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

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

revision 2816, Tue Jul 24 22:21:35 2012 UTC revision 2817, Sat Aug 11 23:41:46 2012 UTC
# Line 348  Line 348 
348      enum dense_enum { ddense, ldense, ndense      enum dense_enum { ddense, ldense, ndense
349      } M_type = ( (cl[0] == 'd') ? ddense :      } M_type = ( (cl[0] == 'd') ? ddense :
350                  ((cl[0] == 'l') ? ldense : ndense));                  ((cl[0] == 'l') ? ldense : ndense));
351        int *adims = INTEGER(GET_SLOT(dx, Matrix_DimSym)), n = adims[0];
     if(symm_tst) {  
         int *adims = INTEGER(GET_SLOT(dx, Matrix_DimSym)), n = adims[0], i,j;  
352          if(n != adims[1]) {          if(n != adims[1]) {
353              UNPROTECT(1);              UNPROTECT(1);
354              error(_("ddense_to_symmetric(): matrix is not square!"));              error(_("ddense_to_symmetric(): matrix is not square!"));
355              return R_NilValue; /* -Wall */              return R_NilValue; /* -Wall */
356          }          }
357    
358        if(symm_tst) {
359            int i,j;
360  #define CHECK_SYMMETRIC                                                 \  #define CHECK_SYMMETRIC                                                 \
361          for (j = 0; j < n; j++)                                         \          for (j = 0; j < n; j++)                                         \
362              for (i = 0; i < j; i++)                                     \              for (i = 0; i < j; i++)                                     \

Legend:
Removed from v.2816  
changed lines
  Added in v.2817

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