skewpart.c File Reference

#include "Mdefines.h"
#include "M5.h"
#include "idz.h"

Go to the source code of this file.

Macros
#define	TEMPLATE(c)
#define	TEMPLATE(c)
#define	TEMPLATE(c)

Functions
SEXP	dense_as_kind (SEXP, const char *, char, int)
SEXP	sparse_as_kind (SEXP, const char *, char)
SEXP	dense_skewpart (SEXP from, const char *class, char op_ct)
SEXP	sparse_skewpart (SEXP from, const char *class, char op_ct)
SEXP	R_dense_skewpart (SEXP s_from, SEXP s_trans)
SEXP	R_sparse_skewpart (SEXP s_from, SEXP s_trans)

Macro Definition Documentation

TEMPLATE [1/3]

#define TEMPLATE

(

c

)

Referenced by dense_skewpart(), and sparse_skewpart().

TEMPLATE [2/3]

#define TEMPLATE

(

c

)

TEMPLATE [3/3]

#define TEMPLATE

(

c

)

Value:

            do { \
                c##TYPE *px0 = c##PTR(x0), *px1 = c##PTR(x1); \
                for (k = 0; k < nnz0; ++k) { \
                    if (*pi0 != *pj0) { \
                        *pi1 = *pi0; \
                        *pj1 = *pj0; \
                        c##ASSIGN_IDEN(*px1, *px0); \
                        c##MULTIPLY(*px1,  0.5); \
                        ++pi1; ++pj1; ++px1; \
                        *pi1 = *pj0; \
                        *pj1 = *pi0; \
                        if (op_ct == 'C') \
                        c##ASSIGN_CONJ(*px1, *px0); \
                        else \
                        c##ASSIGN_IDEN(*px1, *px0); \
                        c##MULTIPLY(*px1, -0.5); \
                        ++pi1; ++pj1; ++px1; \
                    } \
                    ++pi0; ++pj0; ++px0; \
                } \
            } while (0)

Function Documentation

dense_as_kind()

SEXP dense_as_kind	(	SEXP	from,
		const char *	class,
		char	kind,
		int	new )

Definition at line 2000 of file coerce.c.

Referenced by dense_skewpart().

dense_skewpart()

SEXP dense_skewpart	(	SEXP	from,
		const char *	class,
		char	op_ct )

Definition at line 11 of file skewpart.c.

References _, allocZero(), cl, dense_as_kind(), DIAG, DIM, DIMNAMES, GET_SLOT, Matrix_xSym, newObject(), SET_DIM, SET_DIMNAMES, SET_SLOT, SET_TRANS, SET_UPLO, SWITCH2, TEMPLATE, TRANS, TYPEOF, UPLO, and zvimag().

Referenced by R_dense_skewpart().

R_dense_skewpart()

SEXP R_dense_skewpart	(	SEXP	s_from,
		SEXP	s_trans )

Definition at line 482 of file skewpart.c.

References dense_skewpart(), Matrix_class(), valid_dense, and VALID_TRANS.

R_sparse_skewpart()

SEXP R_sparse_skewpart	(	SEXP	s_from,
		SEXP	s_trans )

Definition at line 492 of file skewpart.c.

References Matrix_class(), sparse_skewpart(), valid_sparse, and VALID_TRANS.

sparse_as_kind()

SEXP sparse_as_kind	(	SEXP	from,
		const char *	class,
		char	kind )

Definition at line 2076 of file coerce.c.

Referenced by sparse_skewpart().

sparse_skewpart()

SEXP sparse_skewpart	(	SEXP	from,
		const char *	class,
		char	op_ct )

Definition at line 169 of file skewpart.c.

References _, allocZero(), cl, DIM, DIMNAMES, GET_SLOT, Matrix_Calloc, Matrix_Free, Matrix_iSym, Matrix_jSym, Matrix_pSym, Matrix_xSym, ncsptrans(), newObject(), SET_DIM, SET_DIMNAMES, SET_SLOT, SET_TRANS, SET_UPLO, sparse_as_kind(), SWITCH2, TEMPLATE, TRANS, TYPEOF, UPLO, and zvimag().

Referenced by R_sparse_skewpart().