37 #ifndef TEMPLATE_LAPACK_LARFG_HEADER 38 #define TEMPLATE_LAPACK_LARFG_HEADER 44 const integer *incx, Treal *tau)
107 Treal safmin, rsafmn;
137 rsafmn = 1. / safmin;
155 *tau = (beta - *alpha) / beta;
157 d__1 = 1. / (*alpha - beta);
164 for (j = 1; j <= i__1; ++j) {
169 *tau = (beta - *alpha) / beta;
171 d__1 = 1. / (*alpha - beta);
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:43
Treal template_blas_nrm2(const integer *n, const Treal *x, const integer *incx)
Definition: template_blas_nrm2.h:42
#define absMACRO(x)
Definition: template_blas_common.h:47
int integer
Definition: template_blas_common.h:40
Treal template_lapack_lapy2(Treal *x, Treal *y)
Definition: template_lapack_lapy2.h:42
Treal template_lapack_d_sign(const Treal *a, const Treal *b)
Definition: template_lapack_lamch.h:48
int template_lapack_larfg(const integer *n, Treal *alpha, Treal *x, const integer *incx, Treal *tau)
Definition: template_lapack_larfg.h:43
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202