lapack-sys 0.5.0

The package provides bindings to the Linear Algebra PACKage.
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

extern crate lapack_sys;

#[test]
fn link_c() {
    use lapack_sys::c as ffi;

    let matrix_layout = ffi::LAPACK_COL_MAJOR;
    let jobz = b'V' as i8;
    let uplo = b'U' as i8;
    let n = 1;
    let mut a = vec![0.0];
    let lda = 1;
    let mut w = vec![0.0];

    unsafe {
        ffi::LAPACKE_dsyev(matrix_layout, jobz, uplo, n, a.as_mut_ptr(), lda, w.as_mut_ptr());
    }
}

#[test]
fn link_fortran() {
    use lapack_sys::fortran as ffi;

    let jobz = b'V' as i8;
    let uplo = b'U' as i8;
    let n = 1;
    let mut a = vec![0.0];
    let lda = 1;
    let mut w = vec![0.0];
    let mut work = vec![0.0, 0.0];
    let lwork = 2;
    let mut flag = 0;

    unsafe {
        ffi::dsyev_(&jobz, &uplo, &n, a.as_mut_ptr(), &lda, w.as_mut_ptr(), work.as_mut_ptr(),
                    &lwork, &mut flag);
    }
}