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[