Go to the source code of this file.
Defines | |
#define | ci (equiv_0) |
#define | cr (equiv_1) |
#define | civ (equiv_0) |
#define | crv (equiv_1) |
#define | a_ref(a_1, a_2) a[(a_2)*a_dim1 + a_1] |
#define | b_ref(a_1, a_2) b[(a_2)*b_dim1 + a_1] |
#define | x_ref(a_1, a_2) x[(a_2)*x_dim1 + a_1] |
#define | ci_ref(a_1, a_2) ci[(a_2)*2 + a_1 - 3] |
#define | cr_ref(a_1, a_2) cr[(a_2)*2 + a_1 - 3] |
#define | ipivot_ref(a_1, a_2) ipivot[(a_2)*4 + a_1 - 5] |
Functions | |
template<class Treal> | |
int | template_lapack_laln2 (const logical *ltrans, const integer *na, const integer *nw, const Treal *smin, const Treal *ca, const Treal *a, const integer *lda, const Treal *d1, const Treal *d2, const Treal *b, const integer *ldb, const Treal *wr, const Treal *wi, Treal *x, const integer *ldx, Treal *scale, Treal *xnorm, integer *info) |
#define a_ref | ( | a_1, | |||
a_2 | ) | a[(a_2)*a_dim1 + a_1] |
#define b_ref | ( | a_1, | |||
a_2 | ) | b[(a_2)*b_dim1 + a_1] |
#define ci (equiv_0) |
#define ci_ref | ( | a_1, | |||
a_2 | ) | ci[(a_2)*2 + a_1 - 3] |
#define civ (equiv_0) |
#define cr (equiv_1) |
#define cr_ref | ( | a_1, | |||
a_2 | ) | cr[(a_2)*2 + a_1 - 3] |
#define crv (equiv_1) |
#define ipivot_ref | ( | a_1, | |||
a_2 | ) | ipivot[(a_2)*4 + a_1 - 5] |
#define x_ref | ( | a_1, | |||
a_2 | ) | x[(a_2)*x_dim1 + a_1] |
int template_lapack_laln2 | ( | const logical * | ltrans, | |
const integer * | na, | |||
const integer * | nw, | |||
const Treal * | smin, | |||
const Treal * | ca, | |||
const Treal * | a, | |||
const integer * | lda, | |||
const Treal * | d1, | |||
const Treal * | d2, | |||
const Treal * | b, | |||
const integer * | ldb, | |||
const Treal * | wr, | |||
const Treal * | wi, | |||
Treal * | x, | |||
const integer * | ldx, | |||
Treal * | scale, | |||
Treal * | xnorm, | |||
integer * | info | |||
) |