35 #ifndef TEMPLATE_LAPACK_LARFG_HEADER
36 #define TEMPLATE_LAPACK_LARFG_HEADER
42 const integer *incx, Treal *tau)
105 Treal safmin, rsafmn;
135 rsafmn = 1. / safmin;
153 *tau = (beta - *alpha) / beta;
155 d__1 = 1. / (*alpha - beta);
162 for (j = 1; j <= i__1; ++j) {
167 *tau = (beta - *alpha) / beta;
169 d__1 = 1. / (*alpha - beta);