37 #ifndef TEMPLATE_LAPACK_GGBAK_HEADER 38 #define TEMPLATE_LAPACK_GGBAK_HEADER 43 const integer *ihi,
const Treal *lscale,
const Treal *rscale,
const integer *m,
120 integer v_dim1, v_offset, i__1;
125 #define v_ref(a_1,a_2) v[(a_2)*v_dim1 + a_1] 130 v_offset = 1 + v_dim1 * 1;
141 }
else if (! rightv && ! leftv) {
145 }
else if (*ilo < 1) {
147 }
else if (*ihi < *ilo || *ihi >
maxMACRO(1,*n)) {
184 for (i__ = *ilo; i__ <= i__1; ++i__) {
194 for (i__ = *ilo; i__ <= i__1; ++i__) {
213 for (i__ = *ilo - 1; i__ >= 1; --i__) {
228 for (i__ = *ihi + 1; i__ <= i__1; ++i__) {
246 for (i__ = *ilo - 1; i__ >= 1; --i__) {
261 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:43
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
int template_blas_swap(const integer *n, Treal *dx, const integer *incx, Treal *dy, const integer *incy)
Definition: template_blas_swap.h:42
bool logical
Definition: template_blas_common.h:41
side
Definition: Matrix.h:75
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:42
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46