Go to the documentation of this file.
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);
Treal template_lapack_lamch(const char *cmach, Treal dummyReal)
Definition: template_lapack_lamch.h:202
#define absMACRO(x)
Definition: template_blas_common.h:47
void dscal_(const int *n, const double *da, double *dx, const int *incx)
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
int template_lapack_labad(Treal *small, Treal *large)
Definition: template_lapack_labad.h:42
#define TRUE_
Definition: template_lapack_common.h:42
int integer
Definition: template_blas_common.h:40
#define FALSE_
Definition: template_lapack_common.h:43