Use lapack_sys in rcond.rs

Author: termoshtt

lax/src/rcond.rs

@@ -54,22 +54,22 @@ macro_rules! impl_rcond_complex {
                 let (n, _) = l.size();
                 let mut rcond = Self::Real::zero();
                 let mut info = 0;
-                let mut work = unsafe { vec_uninit(2 * n as usize) };
-                let mut rwork = unsafe { vec_uninit(2 * n as usize) };
+                let mut work: Vec<Self> = unsafe { vec_uninit(2 * n as usize) };
+                let mut rwork: Vec<Self::Real> = unsafe { vec_uninit(2 * n as usize) };
                 let norm_type = match l {
                     MatrixLayout::C { .. } => NormType::Infinity,
                     MatrixLayout::F { .. } => NormType::One,
-                } as u8;
+                };
                 unsafe {
                     $gecon(
-                        norm_type,
-                        n,
-                        a,
-                        l.lda(),
-                        anorm,
+                        norm_type.as_ptr(),
+                        &n,
+                        AsPtr::as_ptr(a),
+                        &l.lda(),
+                        &anorm,
                         &mut rcond,
-                        &mut work,
-                        &mut rwork,
+                        AsPtr::as_mut_ptr(&mut work),
+                        AsPtr::as_mut_ptr(&mut rwork),
                         &mut info,
                     )
                 };
@@ -81,5 +81,5 @@ macro_rules! impl_rcond_complex {
     };
 }
 
-impl_rcond_complex!(c32, lapack::cgecon);
-impl_rcond_complex!(c64, lapack::zgecon);
+impl_rcond_complex!(c32, lapack_sys::cgecon_);
+impl_rcond_complex!(c64, lapack_sys::zgecon_);