37 #ifndef TEMPLATE_LAPACK_SPGST_HEADER
38 #define TEMPLATE_LAPACK_SPGST_HEADER
44 Treal *ap,
const Treal *bp,
integer *info)
133 if (*itype < 1 || *itype > 3) {
155 for (j = 1; j <= i__1; ++j) {
183 for (k = 1; k <= i__1; ++k) {
184 k1k1 = kk + *n - k + 1;
225 for (k = 1; k <= i__1; ++k) {
248 ap[kk] = akk * (d__1 * d__1);
259 for (j = 1; j <= i__1; ++j) {
260 j1j1 = jj + *n - j + 1;
273 c_b11, &ap[jj + 1], &c__1);