35 #ifndef TEMPLATE_LAPACK_LASCL_HEADER 36 #define TEMPLATE_LAPACK_LASCL_HEADER 41 const Treal *cfrom,
const Treal *cto,
const integer *m,
const integer *n,
116 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
124 Treal bignum, smlnum, mul, cto1;
125 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 128 a_offset = 1 + a_dim1 * 1;
154 }
else if (*cfrom == 0.) {
158 }
else if (*n < 0 || ( itype == 4 && *n != *m ) || ( itype == 5 && *n != *m ) ) {
160 }
else if (itype <= 3 && *lda <
maxMACRO(1,*m)) {
162 }
else if (itype >= 4) {
165 if (*kl < 0 || *kl >
maxMACRO(i__1,0)) {
170 if (*ku < 0 || *ku >
maxMACRO(i__1,0) || ( (itype == 4 || itype == 5) &&
173 }
else if ( ( itype == 4 && *lda < *kl + 1 ) || ( itype == 5 && *lda < *
174 ku + 1 ) || ( itype == 6 && *lda < (*kl << 1) + *ku + 1 ) ) {
188 if (*n == 0 || *m == 0) {
195 bignum = 1. / smlnum;
201 cfrom1 = cfromc * smlnum;
202 cto1 = ctoc / bignum;
221 for (j = 1; j <= i__1; ++j) {
223 for (i__ = 1; i__ <= i__2; ++i__) {
230 }
else if (itype == 1) {
235 for (j = 1; j <= i__1; ++j) {
237 for (i__ = j; i__ <= i__2; ++i__) {
244 }
else if (itype == 2) {
249 for (j = 1; j <= i__1; ++j) {
251 for (i__ = 1; i__ <= i__2; ++i__) {
258 }
else if (itype == 3) {
263 for (j = 1; j <= i__1; ++j) {
267 for (i__ = 1; i__ <= i__2; ++i__) {
274 }
else if (itype == 4) {
281 for (j = 1; j <= i__1; ++j) {
283 i__3 = k3, i__4 = k4 - j;
285 for (i__ = 1; i__ <= i__2; ++i__) {
292 }
else if (itype == 5) {
299 for (j = 1; j <= i__1; ++j) {
303 for (i__ =
maxMACRO(i__2,1); i__ <= i__3; ++i__) {
310 }
else if (itype == 6) {
316 k3 = (*kl << 1) + *ku + 1;
317 k4 = *kl + *ku + 1 + *m;
319 for (j = 1; j <= i__1; ++j) {
323 i__4 = k3, i__5 = k4 - j;
325 for (i__ =
maxMACRO(i__3,k2); i__ <= i__2; ++i__) {
#define absMACRO(x)
Definition: template_blas_common.h:45
int template_lapack_lascl(const char *type__, const integer *kl, const integer *ku, const Treal *cfrom, const Treal *cto, const integer *m, const integer *n, Treal *a, const integer *lda, integer *info)
Definition: template_lapack_lascl.h:40
int integer
Definition: template_blas_common.h:38
#define maxMACRO(a, b)
Definition: template_blas_common.h:43
#define minMACRO(a, b)
Definition: template_blas_common.h:44
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:144
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:199
bool logical
Definition: template_blas_common.h:39
#define TRUE_
Definition: template_lapack_common.h:40
#define FALSE_
Definition: template_lapack_common.h:41
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:44