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;