SCM

SCM Repository

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

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

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

revision 3146, Thu Oct 8 15:52:08 2015 UTC revision 3147, Thu Oct 29 16:56:10 2015 UTC
# Line 70  Line 70 
70          ""};          ""};
71  /* #define xSXP(iTyp) ((iTyp == 0) ? REALSXP : ((iTyp == 1) ? LGLSXP : /\* else *\/ CPLXSXP)); */  /* #define xSXP(iTyp) ((iTyp == 0) ? REALSXP : ((iTyp == 1) ? LGLSXP : /\* else *\/ CPLXSXP)); */
72  /* #define xTYPE(iTyp) ((iTyp == 0) ? double : ((iTyp == 1) ? int : /\* else *\/ Rcomplex)); */  /* #define xTYPE(iTyp) ((iTyp == 0) ? double : ((iTyp == 1) ? int : /\* else *\/ Rcomplex)); */
73      int ctype = Matrix_check_class_etc(x, valid);      int ctype = R_check_class_etc(x, valid);
74    
75      if (ctype < 0 || *diag_P(x) != 'U') {      if (ctype < 0 || *diag_P(x) != 'U') {
76          /* "trivially fast" when not triangular (<==> no 'diag' slot),          /* "trivially fast" when not triangular (<==> no 'diag' slot),

Legend:
Removed from v.3146  
changed lines
  Added in v.3147

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