37 #ifndef TEMPLATE_LAPACK_LARTG_HEADER 38 #define TEMPLATE_LAPACK_LARTG_HEADER 43 Treal *sn, Treal *r__)
97 Treal f1, g1, safmn2, safmx2;
110 safmx2 = 1. / safmn2;
116 }
else if (*f == 0.) {
126 if (scale >= safmx2) {
135 if (scale >= safmx2) {
146 for (i__ = 1; i__ <= i__1; ++i__) {
150 }
else if (scale <= safmn2) {
159 if (scale <= safmn2) {
170 for (i__ = 1; i__ <= i__1; ++i__) {
#define absMACRO(x)
Definition: template_blas_common.h:47
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
Treal template_blas_log(Treal x)
int template_lapack_lartg(const Treal *f, const Treal *g, Treal *cs, Treal *sn, Treal *r__)
Definition: template_lapack_lartg.h:42
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202
double template_lapack_pow_di(Treal *ap, integer *bp)
Definition: template_lapack_lamch.h:168
bool logical
Definition: template_blas_common.h:41
#define TRUE_
Definition: template_lapack_common.h:42
#define FALSE_
Definition: template_lapack_common.h:43
Treal template_blas_sqrt(Treal x)