37 #ifndef TEMPLATE_LAPACK_RSCL_HEADER 38 #define TEMPLATE_LAPACK_RSCL_HEADER 84 Treal cnum, cden1, cnum1;
85 Treal bignum, smlnum, mul;
106 cden1 = cden * smlnum;
107 cnum1 = cnum / bignum;
132 dscal_(n, &mul, &sx[1], incx);
#define absMACRO(x)
Definition: template_blas_common.h:47
int integer
Definition: template_blas_common.h:40
int template_lapack_labad(Treal *small, Treal *large)
Definition: template_lapack_labad.h:42
void dscal_(const int *n, const double *da, double *dx, const int *incx)
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202
int template_lapack_rscl(const integer *n, const Treal *sa, Treal *sx, const integer *incx)
Definition: template_lapack_rscl.h:42
bool logical
Definition: template_blas_common.h:41
#define TRUE_
Definition: template_lapack_common.h:42
#define FALSE_
Definition: template_lapack_common.h:43