expm.c File Reference

#include "Lapack-etc.h"
#include "Mdefines.h"
#include "expm.h"

Go to the source code of this file.

Macros
#define	SWAP_ROW(I, J)   F77_CALL(dswap)(&n, &v[(I)], &n, &v[(J)], &n)
#define	SWAP_COL(I, J)   F77_CALL(dswap)(&n, &v[(I)*n_], &i1, &v[(J)*n_], &i1)
#define	RE_PERMUTE(I)

Functions
SEXP	dgeMatrix_expm (SEXP x)

Variables
static const double	padec []

Macro Definition Documentation

RE_PERMUTE

#define RE_PERMUTE

(

I

)

Value:

    int p_I = (int) (perm[I]) - 1;      \
    SWAP_COL(I, p_I);           \
    SWAP_ROW(I, p_I)

SWAP_COL

#define SWAP_COL	(		I,
			J
	)		F77_CALL(dswap)(&n, &v[(I)*n_], &i1, &v[(J)*n_], &i1)

SWAP_ROW

#define SWAP_ROW	(		I,
			J
	)		F77_CALL(dswap)(&n, &v[(I)], &n, &v[(J)], &n)

Function Documentation

dgeMatrix_expm()

SEXP dgeMatrix_expm

(

SEXP

x

)

Definition at line 19 of file expm.c.

References _, FCONE, GET_SLOT, Matrix_DimSym, Matrix_memset(), Matrix_xSym, padec, and RE_PERMUTE.

Variable Documentation

padec

const double padec[]

static

Initial value:

=
{
  5.0000000000000000e-1,
  1.1666666666666667e-1,
  1.6666666666666667e-2,
  1.6025641025641026e-3,
  1.0683760683760684e-4,
  4.8562548562548563e-6,
  1.3875013875013875e-7,
  1.9270852604185938e-9,
}

Definition at line 6 of file expm.c.

Referenced by dgeMatrix_expm().