37 #ifndef TEMPLATE_LAPACK_LARNV_HEADER 38 #define TEMPLATE_LAPACK_LARNV_HEADER 103 for (iv = 1; iv <= i__1; iv += 64) {
105 i__2 = 64, i__3 = *n - iv + 1;
123 for (i__ = 1; i__ <= i__2; ++i__) {
124 x[iv + i__ - 1] = u[i__ - 1];
127 }
else if (*idist == 2) {
132 for (i__ = 1; i__ <= i__2; ++i__) {
133 x[iv + i__ - 1] = u[i__ - 1] * 2. - 1.;
136 }
else if (*idist == 3) {
141 for (i__ = 1; i__ <= i__2; ++i__) {
143 i__ << 1) - 1] * 6.2831853071795864769252867663);
Treal template_blas_cos(Treal x)
int template_lapack_larnv(const integer *idist, integer *iseed, const integer *n, Treal *x)
Definition: template_lapack_larnv.h:42
int integer
Definition: template_blas_common.h:40
#define minMACRO(a, b)
Definition: template_blas_common.h:46
Treal template_blas_log(Treal x)
Treal template_blas_sqrt(Treal x)
int dlaruv_(integer *iseed, const integer *n, Treal *x)
Definition: template_lapack_laruv.h:42