00001 #ifndef MATRIX_GEMATRIX_H
00002 #define MATRIX_GEMATRIX_H
00003
00004 #include <R_ext/Lapack.h>
00005 #include "Mutils.h"
00006
00007 SEXP dgeMatrix_validate(SEXP obj);
00008 SEXP dgeMatrix_norm(SEXP obj, SEXP norm);
00009 SEXP dgeMatrix_rcond(SEXP obj, SEXP type);
00010 SEXP dgeMatrix_crossprod(SEXP x);
00011 SEXP dgeMatrix_dgeMatrix_crossprod(SEXP x, SEXP y);
00012 SEXP dgeMatrix_matrix_crossprod(SEXP x, SEXP y);
00013 SEXP dgeMatrix_getDiag(SEXP x);
00014 SEXP dgeMatrix_LU(SEXP x);
00015 SEXP dgeMatrix_determinant(SEXP x, SEXP logarithm);
00016 SEXP dgeMatrix_Schur(SEXP x, SEXP vectors);
00017 SEXP dgeMatrix_solve(SEXP a);
00018 SEXP dgeMatrix_dgeMatrix_mm(SEXP a, SEXP b);
00019 SEXP dgeMatrix_svd(SEXP x, SEXP nu, SEXP nv);
00020 SEXP dgeMatrix_exp(SEXP x);
00021
00022
00023
00024
00025
00026 void F77_NAME(dgesdd)(const char *jobz,
00027 const int *m, const int *n,
00028 double *a, const int *lda, double *s,
00029 double *u, const int *ldu,
00030 double *vt, const int *ldvt,
00031 double *work, const int *lwork, int *iwork, int *info);
00032
00033
00034 #endif