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__) {