SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/src/Mutils.h
ViewVC logotype

Diff of /pkg/Matrix/src/Mutils.h

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

revision 2811, Mon Jul 16 15:50:31 2012 UTC revision 2850, Mon Oct 22 13:00:35 2012 UTC
# Line 30  Line 30 
30  # include <alloca.h>  # include <alloca.h>
31  #endif  #endif
32    
33    #ifndef LONG_VECTOR_SUPPORT
34    // notably for  R <= 2.15.x :
35    # define XLENGTH(x) LENGTH(x)
36    # if R_VERSION < R_Version(2,16,0)
37      typedef int R_xlen_t;
38    # endif
39    #endif
40    
41  #define Alloca(n, t)   (t *) alloca( (size_t) ( (n) * sizeof(t) ) )  #define Alloca(n, t)   (t *) alloca( (size_t) ( (n) * sizeof(t) ) )
42    
43  SEXP triangularMatrix_validate(SEXP obj);  SEXP triangularMatrix_validate(SEXP obj);
44  SEXP symmetricMatrix_validate(SEXP obj);  SEXP symmetricMatrix_validate(SEXP obj);
45  SEXP dense_nonpacked_validate(SEXP obj);  SEXP dense_nonpacked_validate(SEXP obj);
46    
47    // La_norm_type() & La_rcond_type()  have been in R_ext/Lapack.h
48    //  but have still not been available to package writers ...
49    char La_norm_type (const char *typstr);
50    char La_rcond_type(const char *typstr);
51    
52  /* enum constants from cblas.h and some short forms */  /* enum constants from cblas.h and some short forms */
53  enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102};  enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102};
54  enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113};  enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113};
# Line 239  Line 252 
252      return FALSE;      return FALSE;
253  }  }
254    
255    SEXP Mmatrix(SEXP args);
256    
257  void make_d_matrix_triangular(double *x, SEXP from);  void make_d_matrix_triangular(double *x, SEXP from);
258  void make_i_matrix_triangular(   int *x, SEXP from);  void make_i_matrix_triangular(   int *x, SEXP from);

Legend:
Removed from v.2811  
changed lines
  Added in v.2850

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