Lapack-etc.h File Reference

#include <Rconfig.h>
#include <R_ext/Lapack.h>
#include <R_ext/Error.h>

Go to the source code of this file.

Macros
#define	USE_FC_LEN_T
#define	FCONE
#define	ERROR_LAPACK_1(_ROUTINE_, _INFO_)
#define	ERROR_LAPACK_2(_ROUTINE_, _INFO_, _WARN_, _LETTER_)
#define	ERROR_LAPACK_3(_ROUTINE_, _INFO_, _WARN_)
#define	ERROR_LAPACK_4(_ROUTINE_, _INFO_, _WARN_, _RANK_)
#define	ERROR_LAPACK_5(_ROUTINE_, _INFO_, _WARN_)

Macro Definition Documentation

ERROR_LAPACK_1

#define ERROR_LAPACK_1	(		_ROUTINE_,
			_INFO_ )

Value:

do { \
    if ((_INFO_) < 0) \
        Rf_error(_("LAPACK routine '%s': argument %d had illegal value"), \
                 #_ROUTINE_, -(_INFO_)); \
} while (0)

Definition at line 18 of file Lapack-etc.h.

Referenced by dense_expm(), denseBunchKaufman_solve(), denseCholesky_solve(), denseLU_solve(), and trMatrix_solve().

ERROR_LAPACK_2

#define ERROR_LAPACK_2	(		_ROUTINE_,
			_INFO_,
			_WARN_,
			_LETTER_ )

Value:

do { \
    ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
    if ((_INFO_) > 0 && (_WARN_) > 0) { \
        if (_WARN_ > 1) \
            Rf_error  (_("LAPACK routine '%s': matrix is exactly singular, %s[i,i]=0, i=%d"), \
                       #_ROUTINE_, #_LETTER_, (_INFO_)); \
        else \
            Rf_warning(_("LAPACK routine '%s': matrix is exactly singular, %s[i,i]=0, i=%d"), \
                       #_ROUTINE_, #_LETTER_, (_INFO_)); \
    } \
} while (0)

Definition at line 25 of file Lapack-etc.h.

Referenced by dense_bunchkaufman(), dense_expm(), dense_lu(), denseBunchKaufman_solve(), denseCholesky_solve(), denseLU_solve(), and trMatrix_solve().

ERROR_LAPACK_3

#define ERROR_LAPACK_3	(		_ROUTINE_,
			_INFO_,
			_WARN_ )

Value:

do { \
    ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
    if ((_INFO_) > 0 && (_WARN_) > 0) { \
        if (_WARN_ > 1) \
            Rf_error  (_("LAPACK routine '%s': leading principal minor of order %d is not positive"), \
                       #_ROUTINE_, (_INFO_)); \
        else \
            Rf_warning(_("LAPACK routine '%s': leading principal minor of order %d is not positive"), \
                       #_ROUTINE_, (_INFO_)); \
    } \
} while (0)

Definition at line 38 of file Lapack-etc.h.

Referenced by dense_cholesky().

ERROR_LAPACK_4

#define ERROR_LAPACK_4	(		_ROUTINE_,
			_INFO_,
			_WARN_,
			_RANK_ )

Value:

    do { \
        ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
        if ((_INFO_) > 0 && (_WARN_) > 0) { \
            if (_WARN_ > 1) \
                Rf_error  (_("LAPACK routine '%s': matrix is rank deficient or not positive definite, the _computed_ rank is %d"), \
                           #_ROUTINE_, (_RANK_)); \
            else \
                Rf_warning(_("LAPACK routine '%s': matrix is rank deficient or not positive definite, the _computed_ rank is %d"), \
                           #_ROUTINE_, (_RANK_)); \
        } \
    } while (0)

Definition at line 51 of file Lapack-etc.h.

Referenced by dense_cholesky().

ERROR_LAPACK_5

#define ERROR_LAPACK_5	(		_ROUTINE_,
			_INFO_,
			_WARN_ )

Value:

    do { \
        ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
        if ((_INFO_) > 0 && (_WARN_) > 0) { \
            if (_WARN_ > 1) \
                Rf_error  (_("LAPACK routine '%s': failed to compute all eigenvalues"), \
                           #_ROUTINE_); \
            else \
                Rf_warning(_("LAPACK routine '%s': failed to compute all eigenvalues"), \
                           #_ROUTINE_); \
        } \
    } while (0)

Definition at line 64 of file Lapack-etc.h.

Referenced by dense_schur().

FCONE

#define FCONE

Definition at line 13 of file Lapack-etc.h.

Referenced by dense_bunchkaufman(), dense_cholesky(), dense_expm(), dense_schur(), denseBunchKaufman_solve(), denseCholesky_solve(), denseLU_solve(), geMatrix_matmult(), geMatrix_norm(), geMatrix_rcond(), poMatrix_rcond(), ppMatrix_rcond(), spMatrix_matmult(), spMatrix_norm(), spMatrix_rcond(), syMatrix_matmult(), syMatrix_norm(), syMatrix_rcond(), tpMatrix_matmult(), tpMatrix_norm(), tpMatrix_rcond(), trMatrix_matmult(), trMatrix_norm(), trMatrix_rcond(), and trMatrix_solve().

USE_FC_LEN_T

#define USE_FC_LEN_T

Definition at line 5 of file Lapack-etc.h.