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);
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:41
Treal template_blas_nrm2(const integer *n, const Treal *x, const integer *incx)
Definition: template_blas_nrm2.h:40
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
Treal template_lapack_lapy2(Treal *x, Treal *y)
Definition: template_lapack_lapy2.h:40
Treal template_lapack_d_sign(const Treal *a, const Treal *b)
Definition: template_lapack_lamch.h:46
int template_lapack_larfg(const integer *n, Treal *alpha, Treal *x, const integer *incx, Treal *tau)
Definition: template_lapack_larfg.h:41
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:199