SCM

SCM Repository

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

Diff of /pkg/src/dgTMatrix.c

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

revision 862, Thu Aug 18 21:31:07 2005 UTC revision 874, Sat Aug 27 21:27:51 2005 UTC
# Line 105  Line 105 
105      return ans;      return ans;
106  }  }
107    
108  SEXP graphNEL_as_dgTMatrix(SEXP x)  SEXP graphNEL_as_dgTMatrix(SEXP x, SEXP symmetric)
109  {  {
110      SEXP nodes = GET_SLOT(x, install("nodes")),      SEXP nodes = GET_SLOT(x, install("nodes")),
111          edgeL = GET_SLOT(x, install("edgeL")),          edgeL = GET_SLOT(x, install("edgeL")),
112          ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dsTMatrix")));          ans = PROTECT(NEW_OBJECT(MAKE_CLASS(LOGICAL(symmetric)[0]
113                                                ? "dsTMatrix"
114                                                : "dgTMatrix")));
115      int *ii, *jj, *dims, i, j, nnd = LENGTH(nodes), pos, totl;      int *ii, *jj, *dims, i, j, nnd = LENGTH(nodes), pos, totl;
116      double *xx;      double *xx;
117    

Legend:
Removed from v.862  
changed lines
  Added in v.874

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