SCM

SCM Repository

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

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

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

revision 2629, Sat Dec 11 18:50:49 2010 UTC revision 2646, Mon Feb 21 10:57:49 2011 UTC
# Line 472  Line 472 
472      return chm_sparse_to_SEXP(chcp, 1, 0, 0, "", dn);      return chm_sparse_to_SEXP(chcp, 1, 0, 0, "", dn);
473  }  }
474    
475    /* Csparse_drop(x, tol):  drop entries with absolute value < tol, i.e,
476    *  at least all "explicit" zeros */
477  SEXP Csparse_drop(SEXP x, SEXP tol)  SEXP Csparse_drop(SEXP x, SEXP tol)
478  {  {
479      const char *cl = class_P(x);      const char *cl = class_P(x);
# Line 861  Line 863 
863      case 'l':      case 'l':
864          error(_("code not yet written for cls = \"lgCMatrix\""));          error(_("code not yet written for cls = \"lgCMatrix\""));
865      }      }
866    /* FIXME: dimnames are *NOT* put there yet (if non-NULL) */
867      cholmod_l_free_sparse(&A, &c);      cholmod_l_free_sparse(&A, &c);
868      UNPROTECT(1);      UNPROTECT(1);
869      return ans;      return ans;

Legend:
Removed from v.2629  
changed lines
  Added in v.2646

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