37 #ifndef TEMPLATE_LAPACK_LASCL_HEADER 38 #define TEMPLATE_LAPACK_LASCL_HEADER 43 const Treal *cfrom,
const Treal *cto,
const integer *m,
const integer *n,
118 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
126 Treal bignum, smlnum, mul, cto1;
127 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 130 a_offset = 1 + a_dim1 * 1;
156 }
else if (*cfrom == 0.) {
160 }
else if (*n < 0 || ( itype == 4 && *n != *m ) || ( itype == 5 && *n != *m ) ) {
162 }
else if (itype <= 3 && *lda <
maxMACRO(1,*m)) {
164 }
else if (itype >= 4) {
167 if (*kl < 0 || *kl >
maxMACRO(i__1,0)) {
172 if (*ku < 0 || *ku >
maxMACRO(i__1,0) || ( (itype == 4 || itype == 5) &&
175 }
else if ( ( itype == 4 && *lda < *kl + 1 ) || ( itype == 5 && *lda < *
176 ku + 1 ) || ( itype == 6 && *lda < (*kl << 1) + *ku + 1 ) ) {
190 if (*n == 0 || *m == 0) {
197 bignum = 1. / smlnum;
203 cfrom1 = cfromc * smlnum;
204 cto1 = ctoc / bignum;
223 for (j = 1; j <= i__1; ++j) {
225 for (i__ = 1; i__ <= i__2; ++i__) {
232 }
else if (itype == 1) {
237 for (j = 1; j <= i__1; ++j) {
239 for (i__ = j; i__ <= i__2; ++i__) {
246 }
else if (itype == 2) {
251 for (j = 1; j <= i__1; ++j) {
253 for (i__ = 1; i__ <= i__2; ++i__) {
260 }
else if (itype == 3) {
265 for (j = 1; j <= i__1; ++j) {
269 for (i__ = 1; i__ <= i__2; ++i__) {
276 }
else if (itype == 4) {
283 for (j = 1; j <= i__1; ++j) {
285 i__3 = k3, i__4 = k4 - j;
287 for (i__ = 1; i__ <= i__2; ++i__) {
294 }
else if (itype == 5) {
301 for (j = 1; j <= i__1; ++j) {
305 for (i__ =
maxMACRO(i__2,1); i__ <= i__3; ++i__) {
312 }
else if (itype == 6) {
318 k3 = (*kl << 1) + *ku + 1;
319 k4 = *kl + *ku + 1 + *m;
321 for (j = 1; j <= i__1; ++j) {
325 i__4 = k3, i__5 = k4 - j;
327 for (i__ =
maxMACRO(i__3,k2); i__ <= i__2; ++i__) {
#define absMACRO(x)
Definition: template_blas_common.h:47
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:42
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
#define minMACRO(a, b)
Definition: template_blas_common.h:46
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202
bool logical
Definition: template_blas_common.h:41
#define TRUE_
Definition: template_lapack_common.h:42
#define FALSE_
Definition: template_lapack_common.h:43
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46