35 #ifndef TEMPLATE_LAPACK_LASV2_HEADER 36 #define TEMPLATE_LAPACK_LASV2_HEADER 41 Treal *ssmin, Treal *ssmax, Treal *snr, Treal *
42 csr, Treal *snl, Treal *csl)
124 Treal a, d__, l, m, r__, s, t, tsign, fa, ga, ha;
125 Treal ft, gt, ht, mm;
127 Treal tt, clt, crt, slt, srt;
180 *ssmin = fa / (ga / ha);
182 *ssmin = fa / ga * ha;
244 t = (m / (s + t) + m / (r__ + l)) * (a + 1.);
249 clt = (crt + srt * m) / a;
250 slt = ht / ft * srt / a;
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
Treal template_lapack_d_sign(const Treal *a, const Treal *b)
Definition: template_lapack_lamch.h:46
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:199
bool logical
Definition: template_blas_common.h:39
#define TRUE_
Definition: template_lapack_common.h:40
#define FALSE_
Definition: template_lapack_common.h:41
int template_lapack_lasv2(const Treal *f, const Treal *g, const Treal *h__, Treal *ssmin, Treal *ssmax, Treal *snr, Treal *csr, Treal *snl, Treal *csl)
Definition: template_lapack_lasv2.h:40
Treal template_blas_sqrt(Treal x)