ergo
template_lapack_laln2.h File Reference

Go to the source code of this file.

Macros

#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)
 

Macro Definition Documentation

◆ a_ref

#define a_ref ( a_1,
a_2 )   a[(a_2)*a_dim1 + a_1]

◆ b_ref

#define b_ref ( a_1,
a_2 )   b[(a_2)*b_dim1 + a_1]

◆ ci

#define ci   (equiv_0)

◆ ci_ref

#define ci_ref ( a_1,
a_2 )   ci[(a_2)*2 + a_1 - 3]

◆ civ

#define civ   (equiv_0)

◆ cr

#define cr   (equiv_1)

◆ cr_ref

#define cr_ref ( a_1,
a_2 )   cr[(a_2)*2 + a_1 - 3]

◆ crv

#define crv   (equiv_1)

◆ ipivot_ref

#define ipivot_ref ( a_1,
a_2 )   ipivot[(a_2)*4 + a_1 - 5]

◆ x_ref

#define x_ref ( a_1,
a_2 )   x[(a_2)*x_dim1 + a_1]

Function Documentation

◆ template_lapack_laln2()

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 )