35 #ifndef TEMPLATE_LAPACK_LANST_HEADER 36 #define TEMPLATE_LAPACK_LANST_HEADER 99 Treal ret_val, d__1, d__2, d__3, d__4, d__5;
119 anorm = (d__1 = d__[*n],
absMACRO(d__1));
121 for (i__ = 1; i__ <= i__1; ++i__) {
123 d__2 = anorm, d__3 = (d__1 = d__[i__],
absMACRO(d__1));
126 d__2 = anorm, d__3 = (d__1 = e[i__],
absMACRO(d__1));
140 d__1)) + (d__2 = d__[*n],
absMACRO(d__2));
143 for (i__ = 2; i__ <= i__1; ++i__) {
145 d__4 = anorm, d__5 = (d__1 = d__[i__],
absMACRO(d__1)) + (d__2 = e[
#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
int template_lapack_lassq(const integer *n, const Treal *x, const integer *incx, Treal *scale, Treal *sumsq)
Definition: template_lapack_lamch.h:70
Treal template_lapack_lanst(const char *norm, const integer *n, const Treal *d__, const Treal *e)
Definition: template_lapack_lanst.h:40
Treal template_blas_sqrt(Treal x)
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:44