#include <Rconfig.h>
#include <R_ext/Lapack.h>
Go to the source code of this file.
|
#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_, _NPROTECT_) |
|
#define | ERROR_LAPACK_4(_ROUTINE_, _INFO_, _RANK_, _WARN_) |
|
◆ ERROR_LAPACK_1
#define ERROR_LAPACK_1 |
( |
|
_ROUTINE_, |
|
|
|
_INFO_ |
|
) |
| |
Value:do { \
if ((_INFO_) < 0) \
error(
_(
"LAPACK routine '%s': argument %d had illegal value"), \
#_ROUTINE_, -(_INFO_)); \
} while (0)
Definition at line 21 of file Lapack-etc.h.
◆ 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) \
error (
_(
"LAPACK routine '%s': matrix is exactly singular, %s[i,i]=0, i=%d"), \
#_ROUTINE_, #_LETTER_, (_INFO_)); \
else \
warning(
_(
"LAPACK routine '%s': matrix is exactly singular, %s[i,i]=0, i=%d"), \
#_ROUTINE_, #_LETTER_, (_INFO_)); \
} \
} while (0)
Definition at line 28 of file Lapack-etc.h.
◆ ERROR_LAPACK_3
#define ERROR_LAPACK_3 |
( |
|
_ROUTINE_, |
|
|
|
_INFO_, |
|
|
|
_WARN_, |
|
|
|
_NPROTECT_ |
|
) |
| |
Value:do { \
ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
if ((_INFO_) > 0 && (_WARN_) > 0) { \
if (_WARN_ > 1) \
error (
_(
"LAPACK routine '%s': leading principal minor of order %d is not positive"), \
#_ROUTINE_, (_INFO_)); \
else { \
warning(
_(
"LAPACK routine '%s': leading principal minor of order %d is not positive"), \
#_ROUTINE_, (_INFO_)); \
UNPROTECT(_NPROTECT_); \
return ScalarInteger(_INFO_); \
} \
} \
} while (0)
Definition at line 41 of file Lapack-etc.h.
◆ ERROR_LAPACK_4
#define ERROR_LAPACK_4 |
( |
|
_ROUTINE_, |
|
|
|
_INFO_, |
|
|
|
_RANK_, |
|
|
|
_WARN_ |
|
) |
| |
Value: do { \
ERROR_LAPACK_1(_ROUTINE_, _INFO_); \
if ((_INFO_) > 0 && (_WARN_) > 0) { \
if (_WARN_ > 1) \
error (
_(
"LAPACK routine '%s': matrix is rank deficient or not positive definite, the _computed_ rank is %d"), \
#_ROUTINE_, (_RANK_)); \
else \
warning(
_(
"LAPACK routine '%s': matrix is rank deficient or not positive definite, the _computed_ rank is %d"), \
#_ROUTINE_, (_RANK_)); \
} \
} while (0)
Definition at line 57 of file Lapack-etc.h.
◆ FCONE
◆ USE_FC_LEN_T