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[