35 #ifndef TEMPLATE_LAPACK_LARNV_HEADER
36 #define TEMPLATE_LAPACK_LARNV_HEADER
101 for (iv = 1; iv <= i__1; iv += 64) {
103 i__2 = 64, i__3 = *n - iv + 1;
121 for (i__ = 1; i__ <= i__2; ++i__) {
122 x[iv + i__ - 1] = u[i__ - 1];
125 }
else if (*idist == 2) {
130 for (i__ = 1; i__ <= i__2; ++i__) {
131 x[iv + i__ - 1] = u[i__ - 1] * 2. - 1.;
134 }
else if (*idist == 3) {
139 for (i__ = 1; i__ <= i__2; ++i__) {
141 i__ << 1) - 1] * 6.2831853071795864769252867663);