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__) {
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
#define maxMACRO(a, b)
Definition: template_blas_common.h:43
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:40
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:199
double template_lapack_pow_di(Treal *ap, integer *bp)
Definition: template_lapack_lamch.h:165
bool logical
Definition: template_blas_common.h:39
#define TRUE_
Definition: template_lapack_common.h:40
#define FALSE_
Definition: template_lapack_common.h:41
Treal template_blas_sqrt(Treal x)