Go to the source code of this file.
Defines | |
#define | BLAS_dgemm(transa, transb, m, n, k, alpha, A, lda, B, ldb, beta, C, ldc) |
#define | BLAS_DGEMM dgemm_ |
#define | BLAS_dgemv(trans, m, n, alpha, A, lda, X, incx, beta, Y, incy) |
#define | BLAS_DGEMV dgemv_ |
#define | BLAS_dger(m, n, alpha, X, incx, Y, incy, A, lda) |
#define | BLAS_DGER dger_ |
#define | BLAS_dscal(n, alpha, Y, incy) |
#define | BLAS_DSCAL dscal_ |
#define | BLAS_dsyrk(uplo, trans, n, k, alpha, A, lda, beta, C, ldc) |
#define | BLAS_DSYRK dsyrk_ |
#define | BLAS_dtrsm(side, uplo, transa, diag, m, n, alpha, A, lda, B, ldb) |
#define | BLAS_DTRSM dtrsm_ |
#define | BLAS_dtrsv(uplo, trans, diag, n, A, lda, X, incx) |
#define | BLAS_DTRSV dtrsv_ |
#define | BLAS_INT int |
#define | BLAS_zgemm(transa, transb, m, n, k, alpha, A, lda, B, ldb, beta, C, ldc) |
#define | BLAS_ZGEMM zgemm_ |
#define | BLAS_zgemv(trans, m, n, alpha, A, lda, X, incx, beta, Y, incy) |
#define | BLAS_ZGEMV zgemv_ |
#define | BLAS_ZGER zgeru_ |
#define | BLAS_zgeru(m, n, alpha, X, incx, Y, incy, A, lda) |
#define | BLAS_zherk(uplo, trans, n, k, alpha, A, lda, beta, C, ldc) |
#define | BLAS_ZHERK zherk_ |
#define | BLAS_zscal(n, alpha, Y, incy) |
#define | BLAS_ZSCAL zscal_ |
#define | BLAS_ztrsm(side, uplo, transa, diag, m, n, alpha, A, lda, B, ldb) |
#define | BLAS_ZTRSM ztrsm_ |
#define | BLAS_ztrsv(uplo, trans, diag, n, A, lda, X, incx) |
#define | BLAS_ZTRSV ztrsv_ |
#define | CHECK_BLAS_INT (sizeof (BLAS_INT) < sizeof (Int)) |
#define | CHOLMOD_ARCHITECTURE "unknown" |
#define | EQ(K, k) (((BLAS_INT) K) == ((Int) k)) |
#define | LAPACK_dpotrf(uplo, n, A, lda, info) |
#define | LAPACK_DPOTRF dpotrf_ |
#define | LAPACK_zpotrf(uplo, n, A, lda, info) |
#define | LAPACK_ZPOTRF zpotrf_ |
Functions | |
void | BLAS_DGEMM (char *transa, char *transb, BLAS_INT *m, BLAS_INT *n, BLAS_INT *k, double *alpha, double *A, BLAS_INT *lda, double *B, BLAS_INT *ldb, double *beta, double *C, BLAS_INT *ldc) |
void | BLAS_DGEMV (char *trans, BLAS_INT *m, BLAS_INT *n, double *alpha, double *A, BLAS_INT *lda, double *X, BLAS_INT *incx, double *beta, double *Y, BLAS_INT *incy) |
void | BLAS_DGER (BLAS_INT *m, BLAS_INT *n, double *alpha, double *X, BLAS_INT *incx, double *Y, BLAS_INT *incy, double *A, BLAS_INT *lda) |
void | BLAS_DSCAL (BLAS_INT *n, double *alpha, double *Y, BLAS_INT *incy) |
void | BLAS_DSYRK (char *uplo, char *trans, BLAS_INT *n, BLAS_INT *k, double *alpha, double *A, BLAS_INT *lda, double *beta, double *C, BLAS_INT *ldc) |
void | BLAS_DTRSM (char *side, char *uplo, char *transa, char *diag, BLAS_INT *m, BLAS_INT *n, double *alpha, double *A, BLAS_INT *lda, double *B, BLAS_INT *ldb) |
void | BLAS_DTRSV (char *uplo, char *trans, char *diag, BLAS_INT *n, double *A, BLAS_INT *lda, double *X, BLAS_INT *incx) |
void | BLAS_ZGEMM (char *transa, char *transb, BLAS_INT *m, BLAS_INT *n, BLAS_INT *k, double *alpha, double *A, BLAS_INT *lda, double *B, BLAS_INT *ldb, double *beta, double *C, BLAS_INT *ldc) |
void | BLAS_ZGEMV (char *trans, BLAS_INT *m, BLAS_INT *n, double *alpha, double *A, BLAS_INT *lda, double *X, BLAS_INT *incx, double *beta, double *Y, BLAS_INT *incy) |
void | BLAS_ZGER (BLAS_INT *m, BLAS_INT *n, double *alpha, double *X, BLAS_INT *incx, double *Y, BLAS_INT *incy, double *A, BLAS_INT *lda) |
void | BLAS_ZHERK (char *uplo, char *trans, BLAS_INT *n, BLAS_INT *k, double *alpha, double *A, BLAS_INT *lda, double *beta, double *C, BLAS_INT *ldc) |
void | BLAS_ZSCAL (BLAS_INT *n, double *alpha, double *Y, BLAS_INT *incy) |
void | BLAS_ZTRSM (char *side, char *uplo, char *transa, char *diag, BLAS_INT *m, BLAS_INT *n, double *alpha, double *A, BLAS_INT *lda, double *B, BLAS_INT *ldb) |
void | BLAS_ZTRSV (char *uplo, char *trans, char *diag, BLAS_INT *n, double *A, BLAS_INT *lda, double *X, BLAS_INT *incx) |
void | LAPACK_DPOTRF (char *uplo, BLAS_INT *n, double *A, BLAS_INT *lda, BLAS_INT *info) |
void | LAPACK_ZPOTRF (char *uplo, BLAS_INT *n, double *A, BLAS_INT *lda, BLAS_INT *info) |
#define BLAS_dgemm | ( | transa, | |||
transb, | |||||
m, | |||||
n, | |||||
k, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
B, | |||||
ldb, | |||||
beta, | |||||
C, | |||||
ldc | ) |
{ \ BLAS_INT M = m, N = n, K = k, LDA = lda, LDB = ldb, LDC = ldc ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (K,k) && \ EQ (LDA,lda) && EQ (LDB,ldb) && EQ (LDC,ldc))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DGEMM (transa, transb, &M, &N, &K, alpha, A, &LDA, B, &LDB, beta, \ C, &LDC) ; \ } \ }
Definition at line 285 of file cholmod_blas.h.
#define BLAS_DGEMM dgemm_ |
Definition at line 129 of file cholmod_blas.h.
#define BLAS_dgemv | ( | trans, | |||
m, | |||||
n, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
X, | |||||
incx, | |||||
beta, | |||||
Y, | |||||
incy | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, INCX = incx, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (INCX,incx) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DGEMV (trans, &M, &N, alpha, A, &LDA, X, &INCX, beta, Y, &INCY) ; \ } \ }
Definition at line 181 of file cholmod_blas.h.
#define BLAS_DGEMV dgemv_ |
Definition at line 127 of file cholmod_blas.h.
#define BLAS_dger | ( | m, | |||
n, | |||||
alpha, | |||||
X, | |||||
incx, | |||||
Y, | |||||
incy, | |||||
A, | |||||
lda | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, INCX = incx, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (INCX,incx) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DGER (&M, &N, alpha, X, &INCX, Y, &INCY, A, &LDA) ; \ } \ }
Definition at line 425 of file cholmod_blas.h.
#define BLAS_DGER dger_ |
Definition at line 131 of file cholmod_blas.h.
#define BLAS_dscal | ( | n, | |||
alpha, | |||||
Y, | |||||
incy | ) |
{ \ BLAS_INT N = n, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DSCAL (&N, alpha, Y, &INCY) ; \ } \ }
Definition at line 393 of file cholmod_blas.h.
#define BLAS_DSCAL dscal_ |
Definition at line 132 of file cholmod_blas.h.
#define BLAS_dsyrk | ( | uplo, | |||
trans, | |||||
n, | |||||
k, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
beta, | |||||
C, | |||||
ldc | ) |
{ \ BLAS_INT N = n, K = k, LDA = lda, LDC = ldc ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (K,k) && EQ (LDA,lda) && \ EQ (LDC,ldc))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DSYRK (uplo, trans, &N, &K, alpha, A, &LDA, beta, C, &LDC) ; \ } \ } \
Definition at line 323 of file cholmod_blas.h.
#define BLAS_DSYRK dsyrk_ |
Definition at line 130 of file cholmod_blas.h.
#define BLAS_dtrsm | ( | side, | |||
uplo, | |||||
transa, | |||||
diag, | |||||
m, | |||||
n, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
B, | |||||
ldb | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, LDB = ldb ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (LDB,ldb))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DTRSM (side, uplo, transa, diag, &M, &N, alpha, A, &LDA, B, &LDB);\ } \ }
Definition at line 249 of file cholmod_blas.h.
#define BLAS_DTRSM dtrsm_ |
Definition at line 128 of file cholmod_blas.h.
#define BLAS_dtrsv | ( | uplo, | |||
trans, | |||||
diag, | |||||
n, | |||||
A, | |||||
lda, | |||||
X, | |||||
incx | ) |
{ \ BLAS_INT N = n, LDA = lda, INCX = incx ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (LDA,lda) && EQ (INCX,incx))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_DTRSV (uplo, trans, diag, &N, A, &LDA, X, &INCX) ; \ } \ }
Definition at line 216 of file cholmod_blas.h.
#define BLAS_DTRSV dtrsv_ |
Definition at line 126 of file cholmod_blas.h.
#define BLAS_INT int |
Definition at line 160 of file cholmod_blas.h.
#define BLAS_zgemm | ( | transa, | |||
transb, | |||||
m, | |||||
n, | |||||
k, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
B, | |||||
ldb, | |||||
beta, | |||||
C, | |||||
ldc | ) |
{ \ BLAS_INT M = m, N = n, K = k, LDA = lda, LDB = ldb, LDC = ldc ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (K,k) && \ EQ (LDA,lda) && EQ (LDB,ldb) && EQ (LDC,ldc))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZGEMM (transa, transb, &M, &N, &K, alpha, A, &LDA, B, &LDB, beta, \ C, &LDC) ; \ } \ }
Definition at line 304 of file cholmod_blas.h.
#define BLAS_ZGEMM zgemm_ |
Definition at line 138 of file cholmod_blas.h.
#define BLAS_zgemv | ( | trans, | |||
m, | |||||
n, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
X, | |||||
incx, | |||||
beta, | |||||
Y, | |||||
incy | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, INCX = incx, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (INCX,incx) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZGEMV (trans, &M, &N, alpha, A, &LDA, X, &INCX, beta, Y, &INCY) ; \ } \ }
Definition at line 199 of file cholmod_blas.h.
#define BLAS_ZGEMV zgemv_ |
Definition at line 136 of file cholmod_blas.h.
#define BLAS_ZGER zgeru_ |
Definition at line 140 of file cholmod_blas.h.
#define BLAS_zgeru | ( | m, | |||
n, | |||||
alpha, | |||||
X, | |||||
incx, | |||||
Y, | |||||
incy, | |||||
A, | |||||
lda | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, INCX = incx, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (INCX,incx) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZGER (&M, &N, alpha, X, &INCX, Y, &INCY, A, &LDA) ; \ } \ }
Definition at line 443 of file cholmod_blas.h.
#define BLAS_zherk | ( | uplo, | |||
trans, | |||||
n, | |||||
k, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
beta, | |||||
C, | |||||
ldc | ) |
{ \ BLAS_INT N = n, K = k, LDA = lda, LDC = ldc ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (K,k) && EQ (LDA,lda) && \ EQ (LDC,ldc))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZHERK (uplo, trans, &N, &K, alpha, A, &LDA, beta, C, &LDC) ; \ } \ } \
Definition at line 341 of file cholmod_blas.h.
#define BLAS_ZHERK zherk_ |
Definition at line 139 of file cholmod_blas.h.
#define BLAS_zscal | ( | n, | |||
alpha, | |||||
Y, | |||||
incy | ) |
{ \ BLAS_INT N = n, INCY = incy ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (INCY,incy))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZSCAL (&N, alpha, Y, &INCY) ; \ } \ }
Definition at line 408 of file cholmod_blas.h.
#define BLAS_ZSCAL zscal_ |
Definition at line 141 of file cholmod_blas.h.
#define BLAS_ztrsm | ( | side, | |||
uplo, | |||||
transa, | |||||
diag, | |||||
m, | |||||
n, | |||||
alpha, | |||||
A, | |||||
lda, | |||||
B, | |||||
ldb | ) |
{ \ BLAS_INT M = m, N = n, LDA = lda, LDB = ldb ; \ if (CHECK_BLAS_INT && !(EQ (M,m) && EQ (N,n) && EQ (LDA,lda) && \ EQ (LDB,ldb))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZTRSM (side, uplo, transa, diag, &M, &N, alpha, A, &LDA, B, &LDB);\ } \ }
Definition at line 267 of file cholmod_blas.h.
#define BLAS_ZTRSM ztrsm_ |
Definition at line 137 of file cholmod_blas.h.
#define BLAS_ztrsv | ( | uplo, | |||
trans, | |||||
diag, | |||||
n, | |||||
A, | |||||
lda, | |||||
X, | |||||
incx | ) |
{ \ BLAS_INT N = n, LDA = lda, INCX = incx ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (LDA,lda) && EQ (INCX,incx))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ BLAS_ZTRSV (uplo, trans, diag, &N, A, &LDA, X, &INCX) ; \ } \ }
Definition at line 232 of file cholmod_blas.h.
#define BLAS_ZTRSV ztrsv_ |
Definition at line 135 of file cholmod_blas.h.
#define CHECK_BLAS_INT (sizeof (BLAS_INT) < sizeof (Int)) |
Definition at line 170 of file cholmod_blas.h.
#define CHOLMOD_ARCHITECTURE "unknown" |
Definition at line 69 of file cholmod_blas.h.
#define EQ | ( | K, | |||
k | ) | (((BLAS_INT) K) == ((Int) k)) |
Definition at line 171 of file cholmod_blas.h.
#define LAPACK_dpotrf | ( | uplo, | |||
n, | |||||
A, | |||||
lda, | |||||
info | ) |
{ \ BLAS_INT N = n, LDA = lda, INFO = 1 ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (LDA,lda))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ LAPACK_DPOTRF (uplo, &N, A, &LDA, &INFO) ; \ } \ info = INFO ; \ }
Definition at line 358 of file cholmod_blas.h.
#define LAPACK_DPOTRF dpotrf_ |
Definition at line 133 of file cholmod_blas.h.
#define LAPACK_zpotrf | ( | uplo, | |||
n, | |||||
A, | |||||
lda, | |||||
info | ) |
{ \ BLAS_INT N = n, LDA = lda, INFO = 1 ; \ if (CHECK_BLAS_INT && !(EQ (N,n) && EQ (LDA,lda))) \ { \ Common->blas_ok = FALSE ; \ } \ if (!CHECK_BLAS_INT || Common->blas_ok) \ { \ LAPACK_ZPOTRF (uplo, &N, A, &LDA, &INFO) ; \ } \ info = INFO ; \ }
Definition at line 375 of file cholmod_blas.h.
#define LAPACK_ZPOTRF zpotrf_ |
Definition at line 142 of file cholmod_blas.h.
void BLAS_DGEMM | ( | char * | transa, | |
char * | transb, | |||
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
BLAS_INT * | k, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | B, | |||
BLAS_INT * | ldb, | |||
double * | beta, | |||
double * | C, | |||
BLAS_INT * | ldc | |||
) |
void BLAS_DGEMV | ( | char * | trans, | |
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | X, | |||
BLAS_INT * | incx, | |||
double * | beta, | |||
double * | Y, | |||
BLAS_INT * | incy | |||
) |
void BLAS_DGER | ( | BLAS_INT * | m, | |
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | X, | |||
BLAS_INT * | incx, | |||
double * | Y, | |||
BLAS_INT * | incy, | |||
double * | A, | |||
BLAS_INT * | lda | |||
) |
void BLAS_DSCAL | ( | BLAS_INT * | n, | |
double * | alpha, | |||
double * | Y, | |||
BLAS_INT * | incy | |||
) |
void BLAS_DSYRK | ( | char * | uplo, | |
char * | trans, | |||
BLAS_INT * | n, | |||
BLAS_INT * | k, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | beta, | |||
double * | C, | |||
BLAS_INT * | ldc | |||
) |
void BLAS_DTRSM | ( | char * | side, | |
char * | uplo, | |||
char * | transa, | |||
char * | diag, | |||
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | B, | |||
BLAS_INT * | ldb | |||
) |
void BLAS_DTRSV | ( | char * | uplo, | |
char * | trans, | |||
char * | diag, | |||
BLAS_INT * | n, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | X, | |||
BLAS_INT * | incx | |||
) |
void BLAS_ZGEMM | ( | char * | transa, | |
char * | transb, | |||
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
BLAS_INT * | k, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | B, | |||
BLAS_INT * | ldb, | |||
double * | beta, | |||
double * | C, | |||
BLAS_INT * | ldc | |||
) |
void BLAS_ZGEMV | ( | char * | trans, | |
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | X, | |||
BLAS_INT * | incx, | |||
double * | beta, | |||
double * | Y, | |||
BLAS_INT * | incy | |||
) |
void BLAS_ZGER | ( | BLAS_INT * | m, | |
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | X, | |||
BLAS_INT * | incx, | |||
double * | Y, | |||
BLAS_INT * | incy, | |||
double * | A, | |||
BLAS_INT * | lda | |||
) |
void BLAS_ZHERK | ( | char * | uplo, | |
char * | trans, | |||
BLAS_INT * | n, | |||
BLAS_INT * | k, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | beta, | |||
double * | C, | |||
BLAS_INT * | ldc | |||
) |
void BLAS_ZSCAL | ( | BLAS_INT * | n, | |
double * | alpha, | |||
double * | Y, | |||
BLAS_INT * | incy | |||
) |
void BLAS_ZTRSM | ( | char * | side, | |
char * | uplo, | |||
char * | transa, | |||
char * | diag, | |||
BLAS_INT * | m, | |||
BLAS_INT * | n, | |||
double * | alpha, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | B, | |||
BLAS_INT * | ldb | |||
) |
void BLAS_ZTRSV | ( | char * | uplo, | |
char * | trans, | |||
char * | diag, | |||
BLAS_INT * | n, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
double * | X, | |||
BLAS_INT * | incx | |||
) |
void LAPACK_DPOTRF | ( | char * | uplo, | |
BLAS_INT * | n, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
BLAS_INT * | info | |||
) |
void LAPACK_ZPOTRF | ( | char * | uplo, | |
BLAS_INT * | n, | |||
double * | A, | |||
BLAS_INT * | lda, | |||
BLAS_INT * | info | |||
) |