35 #ifndef TEMPLATE_LAPACK_GGBAK_HEADER
36 #define TEMPLATE_LAPACK_GGBAK_HEADER
41 const integer *ihi,
const Treal *lscale,
const Treal *rscale,
const integer *m,
118 integer v_dim1, v_offset, i__1;
123 #define v_ref(a_1,a_2) v[(a_2)*v_dim1 + a_1]
128 v_offset = 1 + v_dim1 * 1;
139 }
else if (! rightv && ! leftv) {
143 }
else if (*ilo < 1) {
145 }
else if (*ihi < *ilo || *ihi >
maxMACRO(1,*n)) {
182 for (i__ = *ilo; i__ <= i__1; ++i__) {
192 for (i__ = *ilo; i__ <= i__1; ++i__) {
211 for (i__ = *ilo - 1; i__ >= 1; --i__) {
226 for (i__ = *ihi + 1; i__ <= i__1; ++i__) {
244 for (i__ = *ilo - 1; i__ >= 1; --i__) {
259 for (i__ = *ihi + 1; i__ <= i__1; ++i__) {
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:41
int integer
Definition: template_blas_common.h:38
#define maxMACRO(a, b)
Definition: template_blas_common.h:43
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:144
int template_blas_swap(const integer *n, Treal *dx, const integer *incx, Treal *dy, const integer *incy)
Definition: template_blas_swap.h:40
bool logical
Definition: template_blas_common.h:39
side
Definition: Matrix.h:73
int template_lapack_ggbak(const char *job, const char *side, const integer *n, const integer *ilo, const integer *ihi, const Treal *lscale, const Treal *rscale, const integer *m, Treal *v, const integer *ldv, integer *info)
Definition: template_lapack_ggbak.h:40
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:44