1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
/* ocamlgsl - OCaml interface to GSL */
/* Copyright () 2002 - Olivier Andrieu */
/* distributed under the terms of the GPL version 2 */
static inline CBLAS_ORDER_t CBLAS_ORDER_val(v)
{
CBLAS_ORDER_t conv[] = { CblasRowMajor, CblasColMajor };
return conv[ Int_val(v) ];
}
static inline CBLAS_TRANSPOSE_t CBLAS_TRANS_val(v)
{
CBLAS_TRANSPOSE_t conv[] = { CblasNoTrans, CblasTrans, CblasConjTrans };
return conv[ Int_val(v) ];
}
static inline CBLAS_UPLO_t CBLAS_UPLO_val(v)
{
CBLAS_UPLO_t conv[] = { CblasUpper, CblasLower };
return conv[ Int_val(v) ];
}
static inline CBLAS_DIAG_t CBLAS_DIAG_val(v)
{
CBLAS_DIAG_t conv[] = { CblasNonUnit, CblasUnit };
return conv[ Int_val(v) ];
}
static inline CBLAS_SIDE_t CBLAS_SIDE_val(v)
{
CBLAS_SIDE_t conv[] = { CblasLeft, CblasRight };
return conv[ Int_val(v) ];
}
|
