ergo
template_lapack_tgevc.h File Reference

Go to the source code of this file.

Macros

#define suma_ref(a_1, a_2)   suma[(a_2)*2 + a_1 - 3]
 
#define sumb_ref(a_1, a_2)   sumb[(a_2)*2 + a_1 - 3]
 
#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 vl_ref(a_1, a_2)   vl[(a_2)*vl_dim1 + a_1]
 
#define vr_ref(a_1, a_2)   vr[(a_2)*vr_dim1 + a_1]
 
#define sum_ref(a_1, a_2)   sum[(a_2)*2 + a_1 - 3]
 

Functions

template<class Treal >
int template_lapack_tgevc (const char *side, const char *howmny, const logical *select, const integer *n, const Treal *a, const integer *lda, const Treal *b, const integer *ldb, Treal *vl, const integer *ldvl, Treal *vr, const integer *ldvr, const integer *mm, integer *m, Treal *work, 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]

◆ sum_ref

#define sum_ref (   a_1,
  a_2 
)    sum[(a_2)*2 + a_1 - 3]

◆ suma_ref

#define suma_ref (   a_1,
  a_2 
)    suma[(a_2)*2 + a_1 - 3]

◆ sumb_ref

#define sumb_ref (   a_1,
  a_2 
)    sumb[(a_2)*2 + a_1 - 3]

◆ vl_ref

#define vl_ref (   a_1,
  a_2 
)    vl[(a_2)*vl_dim1 + a_1]

◆ vr_ref

#define vr_ref (   a_1,
  a_2 
)    vr[(a_2)*vr_dim1 + a_1]

Function Documentation

◆ template_lapack_tgevc()

template<class Treal >
int template_lapack_tgevc ( const char *  side,
const char *  howmny,
const logical select,
const integer n,
const Treal *  a,
const integer lda,
const Treal *  b,
const integer ldb,
Treal *  vl,
const integer ldvl,
Treal *  vr,
const integer ldvr,
const integer mm,
integer m,
Treal *  work,
integer info 
)