# SCM Repository

[matrix] View of /pkg/src/dgeMatrix.h
 [matrix] / pkg / src / dgeMatrix.h

# View of /pkg/src/dgeMatrix.h

Sat Jan 29 14:09:38 2005 UTC (14 years, 5 months ago) by bates
Original Path: pkg/src/geMatrix.h
File size: 1152 byte(s)
`Add expm function`
```#ifndef MATRIX_GEMATRIX_H
#define MATRIX_GEMATRIX_H

#include <R_ext/Lapack.h>
#include "Mutils.h"

SEXP geMatrix_validate(SEXP obj);
SEXP geMatrix_norm(SEXP obj, SEXP norm);
SEXP geMatrix_rcond(SEXP obj, SEXP type);
SEXP geMatrix_crossprod(SEXP x);
SEXP geMatrix_geMatrix_crossprod(SEXP x, SEXP y);
SEXP geMatrix_matrix_crossprod(SEXP x, SEXP y);
SEXP geMatrix_getDiag(SEXP x);
SEXP geMatrix_LU(SEXP x);
SEXP geMatrix_determinant(SEXP x, SEXP logarithm);
SEXP geMatrix_solve(SEXP a);
SEXP geMatrix_geMatrix_mm(SEXP a, SEXP b);
SEXP geMatrix_svd(SEXP x, SEXP nu, SEXP nv);
SEXP geMatrix_exp(SEXP x);

/* DGESDD - compute the singular value decomposition (SVD); of a   */
/* real M-by-N matrix A, optionally computing the left and/or      */
/* right singular vectors.  If singular vectors are desired, it uses a */
/* divide-and-conquer algorithm.                                   */
void F77_NAME(dgesdd)(const char *jobz,
const int *m, const int *n,
double *a, const int *lda, double *s,
double *u, const int *ldu,
double *vt, const int *ldvt,
double *work, const int *lwork, int *iwork, int *info);

#endif
```