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);
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:43
int template_blas_tpmv(const char *uplo, const char *trans, const char *diag, const integer *n, const Treal *ap, Treal *x, const integer *incx)
Definition: template_blas_tpmv.h:42
int integer
Definition: template_blas_common.h:40
int template_lapack_spgst(const integer *itype, const char *uplo, const integer *n, Treal *ap, const Treal *bp, integer *info)
Definition: template_lapack_spgst.h:43
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
bool logical
Definition: template_blas_common.h:41
int template_blas_spmv(const char *uplo, const integer *n, const Treal *alpha, Treal *ap, const Treal *x, const integer *incx, const Treal *beta, Treal *y, const integer *incy)
Definition: template_blas_spmv.h:42
int template_blas_axpy(const integer *n, const Treal *da, const Treal *dx, const integer *incx, Treal *dy, const integer *incy)
Definition: template_blas_axpy.h:43
int template_blas_spr2(const char *uplo, const integer *n, const Treal *alpha, const Treal *x, const integer *incx, const Treal *y, const integer *incy, Treal *ap)
Definition: template_blas_spr2.h:43
int template_blas_tpsv(const char *uplo, const char *trans, const char *diag, const integer *n, const Treal *ap, Treal *x, const integer *incx)
Definition: template_blas_tpsv.h:42
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46
Treal template_blas_dot(const integer *n, const Treal *dx, const integer *incx, const Treal *dy, const integer *incy)
Definition: template_blas_dot.h:43