35 #ifndef TEMPLATE_LAPACK_LARTG_HEADER
36 #define TEMPLATE_LAPACK_LARTG_HEADER
41 Treal *sn, Treal *r__)
95 Treal f1, g1, safmn2, safmx2;
108 safmx2 = 1. / safmn2;
114 }
else if (*f == 0.) {
124 if (scale >= safmx2) {
133 if (scale >= safmx2) {
144 for (i__ = 1; i__ <= i__1; ++i__) {
148 }
else if (scale <= safmn2) {
157 if (scale <= safmn2) {
168 for (i__ = 1; i__ <= i__1; ++i__) {