blas-sys 0.6.0

extern crate blas_sys;

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

    let layout = ffi::CblasColMajor;
    let transa = ffi::CblasNoTrans;
    let m = 1;
    let n = 1;
    let alpha = 0.0;
    let a = vec![0.0];
    let lda = 1;
    let x = vec![0.0];
    let incx = 1;
    let beta = 0.0;
    let mut y = vec![0.0];
    let incy = 1;

    unsafe {
        ffi::cblas_dgemv(layout, transa, m, n, alpha, a.as_ptr(), lda, x.as_ptr(), incx, beta,
                         y.as_mut_ptr(), incy);
    }
}

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

    let trans = b'N' as i8;
    let m = 1;
    let n = 1;
    let alpha = 0.0;
    let a = vec![0.0];
    let lda = 1;
    let x = vec![0.0];
    let incx = 1;
    let beta = 0.0;
    let mut y = vec![0.0];
    let incy = 1;

    unsafe {
        ffi::dgemv_(&trans, &m, &n, &alpha, a.as_ptr(), &lda, x.as_ptr(), &incx, &beta,
                    y.as_mut_ptr(), &incy);
    }
}