lapack-traits 0.4.0

Generic real/complex scalar trait wrappers for BLAS and LAPACK routines
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use crate::Scalar;
use num_complex::Complex32 as c32;
use num_complex::Complex64 as c64;

pub trait RTasum: Scalar {
    unsafe fn asum(n: i32, x: &[Self], incx: i32) -> Self::Real;
}

macro_rules! impl_rtasum (
    ($N: ty, $rtasum: path) => (
        impl RTasum for $N{
            unsafe fn asum(n: i32, x: &[Self], incx: i32) -> Self::Real{
                $rtasum(n, x, incx)
            }
        }
    )
);

impl_rtasum!(f32, cblas::sasum);
impl_rtasum!(f64, cblas::dasum);
impl_rtasum!(c32, cblas::scasum);
impl_rtasum!(c64, cblas::dzasum);