35 #ifndef TEMPLATE_LAPACK_SPGST_HEADER
36 #define TEMPLATE_LAPACK_SPGST_HEADER
42 Treal *ap,
const Treal *bp,
integer *info)
131 if (*itype < 1 || *itype > 3) {
153 for (j = 1; j <= i__1; ++j) {
181 for (k = 1; k <= i__1; ++k) {
182 k1k1 = kk + *n - k + 1;
223 for (k = 1; k <= i__1; ++k) {
246 ap[kk] = akk * (d__1 * d__1);
257 for (j = 1; j <= i__1; ++j) {
258 j1j1 = jj + *n - j + 1;
271 c_b11, &ap[jj + 1], &c__1);