37 #ifndef TEMPLATE_LAPACK_LASV2_HEADER 38 #define TEMPLATE_LAPACK_LASV2_HEADER 43 Treal *ssmin, Treal *ssmax, Treal *snr, Treal *
44 csr, Treal *snl, Treal *csl)
126 Treal a, d__, l, m, r__, s, t, tsign, fa, ga, ha;
127 Treal ft, gt, ht, mm;
129 Treal tt, clt, crt, slt, srt;
182 *ssmin = fa / (ga / ha);
184 *ssmin = fa / ga * ha;
246 t = (m / (s + t) + m / (r__ + l)) * (a + 1.);
251 clt = (crt + srt * m) / a;
252 slt = ht / ft * srt / a;
#define absMACRO(x)
Definition: template_blas_common.h:47
int integer
Definition: template_blas_common.h:40
Treal template_lapack_d_sign(const Treal *a, const Treal *b)
Definition: template_lapack_lamch.h:48
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202
bool logical
Definition: template_blas_common.h:41
#define TRUE_
Definition: template_lapack_common.h:42
#define FALSE_
Definition: template_lapack_common.h:43
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:42
Treal template_blas_sqrt(Treal x)