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;