SCM

SCM Repository

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

Diff of /pkg/src/CHMfactor.c

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

revision 2222, Fri Jul 18 10:00:25 2008 UTC revision 2223, Fri Jul 18 23:04:48 2008 UTC
# Line 37  Line 37 
37  SEXP CHMfactor_spsolve(SEXP a, SEXP b, SEXP system)  SEXP CHMfactor_spsolve(SEXP a, SEXP b, SEXP system)
38  {  {
39      CHM_FR L = AS_CHM_FR(a);      CHM_FR L = AS_CHM_FR(a);
40      CHM_SP B = AS_CHM_SP(b);      CHM_SP B = AS_CHM_SP__(b);
41      int sys = asInteger(system);      int sys = asInteger(system);
42      R_CheckStack();      R_CheckStack();
43    
# Line 122  Line 122 
122  SEXP CHMfactor_update(SEXP object, SEXP parent, SEXP mult)  SEXP CHMfactor_update(SEXP object, SEXP parent, SEXP mult)
123  {  {
124      CHM_FR L = AS_CHM_FR(object), Lcp;      CHM_FR L = AS_CHM_FR(object), Lcp;
125      CHM_SP A = AS_CHM_SP(parent);      CHM_SP A = AS_CHM_SP__(parent);
126      R_CheckStack();      R_CheckStack();
127    
128      Lcp = cholmod_copy_factor(L, &c);      Lcp = cholmod_copy_factor(L, &c);
# Line 135  Line 135 
135      int i, nmult = LENGTH(mult);      int i, nmult = LENGTH(mult);
136      double *aa = REAL(ans), *mm = REAL(mult);      double *aa = REAL(ans), *mm = REAL(mult);
137      CHM_FR L = AS_CHM_FR(x), Lcp;      CHM_FR L = AS_CHM_FR(x), Lcp;
138      CHM_SP A = AS_CHM_SP(parent);      CHM_SP A = AS_CHM_SP__(parent);
139      R_CheckStack();      R_CheckStack();
140    
141      Lcp = cholmod_copy_factor(L, &c);      Lcp = cholmod_copy_factor(L, &c);

Legend:
Removed from v.2222  
changed lines
  Added in v.2223

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