35 #ifndef TEMPLATE_LAPACK_RSCL_HEADER
36 #define TEMPLATE_LAPACK_RSCL_HEADER
82 Treal cnum, cden1, cnum1;
83 Treal bignum, smlnum, mul;
104 cden1 = cden * smlnum;
105 cnum1 = cnum / bignum;
130 dscal_(n, &mul, &sx[1], incx);
#define absMACRO(x)
Definition: template_blas_common.h:45
int integer
Definition: template_blas_common.h:38
int template_lapack_labad(Treal *small, Treal *large)
Definition: template_lapack_labad.h:40
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:199
int template_lapack_rscl(const integer *n, const Treal *sa, Treal *sx, const integer *incx)
Definition: template_lapack_rscl.h:40
bool logical
Definition: template_blas_common.h:39
#define TRUE_
Definition: template_lapack_common.h:40
#define FALSE_
Definition: template_lapack_common.h:41