37 #ifndef TEMPLATE_LAPACK_LANST_HEADER 38 #define TEMPLATE_LAPACK_LANST_HEADER 101 Treal ret_val, d__1, d__2, d__3, d__4, d__5;
121 anorm = (d__1 = d__[*n],
absMACRO(d__1));
123 for (i__ = 1; i__ <= i__1; ++i__) {
125 d__2 = anorm, d__3 = (d__1 = d__[i__],
absMACRO(d__1));
128 d__2 = anorm, d__3 = (d__1 = e[i__],
absMACRO(d__1));
142 d__1)) + (d__2 = d__[*n],
absMACRO(d__2));
145 for (i__ = 2; i__ <= i__1; ++i__) {
147 d__4 = anorm, d__5 = (d__1 = d__[i__],
absMACRO(d__1)) + (d__2 = e[
#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
int template_lapack_lassq(const integer *n, const Treal *x, const integer *incx, Treal *scale, Treal *sumsq)
Definition: template_lapack_lamch.h:73
Treal template_lapack_lanst(const char *norm, const integer *n, const Treal *d__, const Treal *e)
Definition: template_lapack_lanst.h:42
Treal template_blas_sqrt(Treal x)
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46