oefpil-sys 0.3.1

Rust FFI bindings to statically linked C/Fortran library OEFPIL
Documentation 
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

#ifndef TILED_LA_H
#define TILED_LA_H

enum tile_type {
    TILE_TRANS_FULL = -2,
    TILE_TRANS_DIAG = -1,
    TILE_NULL = 0,
    TILE_DIAG = 1,
    TILE_FULL = 2
};

enum tiling_mode {
    TILING_NOTILES,
    TILING_DIAG,
    TILING_BLOCKDIAG,
    TILING_DIAGS,
    TILING_FULL
};

int *tilemap_n_new(int bn);
int *tilemap_mn_new(int bm, int bn);

double* tiled_matrix_diag_new(int n, int bn, int *tilemap);
double* tiled_matrix_blockdiag_new(int n, int bn, int *tilemap);
double* tiled_matrix_diags_new(int n, int bm, int bn, int *tilemap);
double* tiled_matrix_full_new(int n, int bm, int bn, int *tilemap);

void tiled_matrix_diag_set_tile_diag(int n, int bn, double *A, int *tilemap, int ii, const double *B);

void tiled_matrix_blockdiag_set_tile_diag(int n, int bn, double *A, int *tilemap, int ii, const double *B);
void tiled_matrix_blockdiag_set_tile_full(int n, int bn, double *A, int *tilemap, int ii, const double *B, const char *trans);

void tiled_matrix_diags_set_tile_diag(int n, int bm, int bn, double *A, int *tilemap, int ii, int jj, const double *B);

void tiled_matrix_full_set_tile_diag(int n, int bm, int bn, double *A, int *tilemap, int ii, int jj, const double *B);
void tiled_matrix_full_set_tile_full(int n, int bm, int bn, double *A, int *tilemap, int ii, int jj, const double *B, const char *trans);

/* no trans at the moment */
void dgetmv_diag(int n, int bn,
                 double alpha, const double *a, const int *tma,
                 const double *x,
                 double beta, double *y);
void dgetmv_blockdiag(int n, int bn,
                      double alpha, const double *a, const int *tma,
                      const double *x,
                      double beta, double *y);
void dgetmv_diags(int n, int bm, int bn,
                  double alpha, const double *a, const int *tma,
                  const double *x,
                  double beta, double *y);
void dgetmv_full(int n, int bm, int bn,
                 double alpha, const double *a, const int *tma,
                 const double *x,
                 double beta, double *y);

void dsytmtv(const char *uplo, int n, int bn,
             double alpha, const double *a, const int *tma,
             const double *x,
             double beta, double *y);

void dpottrf_diag(int n, int bn, double *a, const int *tma, int *info);
void dpottrf_blockdiag(int n, int bn, double *a, const int *tma, int *info);
void dpottrf_diags(int n, int bn, double *a, const int *tma, int *info);
void dpottrf_full(int n, int bn, double *a, const int *tma, int *info);

void dtrtsv_diag(int n, int bn, const double *a, const int *tma, double *b, int *info);
void dtrtsv_blockdiag(int n, int bn, const double *a, const int *tma, double *b, int *info);
void dtrtsv_diags(int n, int bn, const double *a, const int *tma, double *b, int *info);
void dtrtsv_full(int n, int bn, const double *a, const int *tma, double *b, int *info);

#endif