module Blas.Primitive.Unsafe (sdsdot, dsdot, sdot, ddot, cdotu_sub, zdotu_sub, cdotc_sub, zdotc_sub, snrm2, dnrm2, scnrm2, dznrm2, sasum, dasum, scasum, dzasum, isamax, idamax, icamax, izamax, sswap, dswap, cswap, zswap, scopy, dcopy, ccopy, zcopy, saxpy, daxpy, caxpy, zaxpy, srotg, drotg, srotmg, drotmg, srot, drot, srotm, drotm, sscal, dscal, cscal, csscal, zscal, zdscal, sgemv, dgemv, cgemv, zgemv, sgbmv, dgbmv, cgbmv, zgbmv, strmv, dtrmv, ctrmv, ztrmv, stbmv, dtbmv, ctbmv, ztbmv, stpmv, dtpmv, ctpmv, ztpmv, strsv, dtrsv, ctrsv, ztrsv, stbsv, dtbsv, ctbsv, ztbsv, stpsv, dtpsv, ctpsv, ztpsv, ssymv, dsymv, ssbmv, dsbmv, sspmv, dspmv, sger, dger, ssyr, dsyr, ssyr2, dsyr2, sspr, dspr, sspr2, dspr2, chemv, zhemv, chbmv, zhbmv, chpmv, zhpmv, cgeru, zgeru, cgerc, zgerc, cher, zher, chpr, zhpr, cher2, zher2, chpr2, zhpr2, sgemm, dgemm, cgemm, zgemm, ssymm, dsymm, csymm, zsymm, ssyrk, dsyrk, csyrk, zsyrk, ssyr2k, dsyr2k, csyr2k, zsyr2k, chemm, zhemm, cherk, zherk, cher2k, zher2k, strmm, dtrmm, ctrmm, ztrmm, strsm, dtrsm, ctrsm, ztrsm) where
import Prelude hiding (Either(Left, Right))
import Data.Complex (Complex)
import Foreign (Ptr, castPtr)
import Foreign.C.Types
import Foreign.Storable.Complex ()
import Blas.Primitive.Types
import BlasCTypes
import FFI
sdsdot :: (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ((Float))
sdsdot a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = CFloat a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
sdsdot'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = fromCFloat res} in
return (res')
dsdot :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ((Double))
dsdot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
dsdot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromCDouble res} in
return (res')
sdot :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ((Float))
sdot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
sdot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromCFloat res} in
return (res')
ddot :: (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ((Double))
ddot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
ddot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = fromCDouble res} in
return (res')
cdotu_sub :: (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> IO ()
cdotu_sub a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
cdotu_sub'_ a1' a2' a3' a4' a5' a6' >>
return ()
zdotu_sub :: (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> IO ()
zdotu_sub a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
zdotu_sub'_ a1' a2' a3' a4' a5' a6' >>
return ()
cdotc_sub :: (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> IO ()
cdotc_sub a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
cdotc_sub'_ a1' a2' a3' a4' a5' a6' >>
return ()
zdotc_sub :: (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> IO ()
zdotc_sub a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
zdotc_sub'_ a1' a2' a3' a4' a5' a6' >>
return ()
snrm2 :: (Int) -> (Ptr Float) -> (Int) -> IO ((Float))
snrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
snrm2'_ a1' a2' a3' >>= \res ->
let {res' = fromCFloat res} in
return (res')
dnrm2 :: (Int) -> (Ptr Double) -> (Int) -> IO ((Double))
dnrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
dnrm2'_ a1' a2' a3' >>= \res ->
let {res' = fromCDouble res} in
return (res')
scnrm2 :: (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ((Float))
scnrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
scnrm2'_ a1' a2' a3' >>= \res ->
let {res' = fromCFloat res} in
return (res')
dznrm2 :: (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ((Double))
dznrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
dznrm2'_ a1' a2' a3' >>= \res ->
let {res' = fromCDouble res} in
return (res')
sasum :: (Int) -> (Ptr Float) -> (Int) -> IO ((Float))
sasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
sasum'_ a1' a2' a3' >>= \res ->
let {res' = fromCFloat res} in
return (res')
dasum :: (Int) -> (Ptr Double) -> (Int) -> IO ((Double))
dasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
dasum'_ a1' a2' a3' >>= \res ->
let {res' = fromCDouble res} in
return (res')
scasum :: (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ((Float))
scasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
scasum'_ a1' a2' a3' >>= \res ->
let {res' = fromCFloat res} in
return (res')
dzasum :: (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ((Double))
dzasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
dzasum'_ a1' a2' a3' >>= \res ->
let {res' = fromCDouble res} in
return (res')
isamax :: (Int) -> (Ptr Float) -> (Int) -> IO ((Int))
isamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
isamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
idamax :: (Int) -> (Ptr Double) -> (Int) -> IO ((Int))
idamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
idamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
icamax :: (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ((Int))
icamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
icamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
izamax :: (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ((Int))
izamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
izamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
sswap :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
sswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
sswap'_ a1' a2' a3' a4' a5' >>
return ()
dswap :: (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
dswap'_ a1' a2' a3' a4' a5' >>
return ()
cswap :: (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
cswap'_ a1' a2' a3' a4' a5' >>
return ()
zswap :: (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
zswap'_ a1' a2' a3' a4' a5' >>
return ()
scopy :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
scopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
scopy'_ a1' a2' a3' a4' a5' >>
return ()
dcopy :: (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dcopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
dcopy'_ a1' a2' a3' a4' a5' >>
return ()
ccopy :: (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ccopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
ccopy'_ a1' a2' a3' a4' a5' >>
return ()
zcopy :: (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zcopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
zcopy'_ a1' a2' a3' a4' a5' >>
return ()
saxpy :: (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
saxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = CFloat a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
saxpy'_ a1' a2' a3' a4' a5' a6' >>
return ()
daxpy :: (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
daxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = CDouble a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
daxpy'_ a1' a2' a3' a4' a5' a6' >>
return ()
caxpy :: (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
caxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
withVoidPtr a2 $ \a2' ->
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
caxpy'_ a1' a2' a3' a4' a5' a6' >>
return ()
zaxpy :: (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zaxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
withVoidPtr a2 $ \a2' ->
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
zaxpy'_ a1' a2' a3' a4' a5' a6' >>
return ()
srotg :: (Ptr Float) -> (Ptr Float) -> (Ptr Float) -> (Ptr Float) -> IO ()
srotg a1 a2 a3 a4 =
let {a1' = castPtr a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = castPtr a4} in
srotg'_ a1' a2' a3' a4' >>
return ()
drotg :: (Ptr Double) -> (Ptr Double) -> (Ptr Double) -> (Ptr Double) -> IO ()
drotg a1 a2 a3 a4 =
let {a1' = castPtr a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = castPtr a4} in
drotg'_ a1' a2' a3' a4' >>
return ()
srotmg :: (Ptr Float) -> (Ptr Float) -> (Ptr Float) -> (Float) -> (Ptr Float) -> IO ()
srotmg a1 a2 a3 a4 a5 =
let {a1' = castPtr a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
srotmg'_ a1' a2' a3' a4' a5' >>
return ()
drotmg :: (Ptr Double) -> (Ptr Double) -> (Ptr Double) -> (Double) -> (Ptr Double) -> IO ()
drotmg a1 a2 a3 a4 a5 =
let {a1' = castPtr a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
drotmg'_ a1' a2' a3' a4' a5' >>
return ()
srot :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Float) -> IO ()
srot a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = CFloat a6} in
let {a7' = CFloat a7} in
srot'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
drot :: (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Double) -> IO ()
drot a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = CDouble a6} in
let {a7' = CDouble a7} in
drot'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
srotm :: (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> IO ()
srotm a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
srotm'_ a1' a2' a3' a4' a5' a6' >>
return ()
drotm :: (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> IO ()
drotm a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
drotm'_ a1' a2' a3' a4' a5' a6' >>
return ()
sscal :: (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
sscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = CFloat a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
sscal'_ a1' a2' a3' a4' >>
return ()
dscal :: (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = CDouble a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
dscal'_ a1' a2' a3' a4' >>
return ()
cscal :: (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
withVoidPtr a2 $ \a2' ->
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
cscal'_ a1' a2' a3' a4' >>
return ()
csscal :: (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
csscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = CFloat a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
csscal'_ a1' a2' a3' a4' >>
return ()
zscal :: (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
withVoidPtr a2 $ \a2' ->
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
zscal'_ a1' a2' a3' a4' >>
return ()
zdscal :: (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zdscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = CDouble a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
zdscal'_ a1' a2' a3' a4' >>
return ()
sgemv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
sgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = CFloat a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = CFloat a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
sgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
dgemv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = CDouble a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = CDouble a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
dgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
cgemv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
withVoidPtr a5 $ \a5' ->
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
withVoidPtr a10 $ \a10' ->
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
cgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
zgemv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
withVoidPtr a5 $ \a5' ->
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
withVoidPtr a10 $ \a10' ->
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
zgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
sgbmv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
sgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = CFloat a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = CFloat a12} in
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
sgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
dgbmv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = CDouble a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = CDouble a12} in
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
dgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
cgbmv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
withVoidPtr a7 $ \a7' ->
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
withVoidPtr a12 $ \a12' ->
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
cgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
zgbmv :: (Order) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
withVoidPtr a7 $ \a7' ->
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
withVoidPtr a12 $ \a12' ->
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
zgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
strmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
strmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
strmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
dtrmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
dtrmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
ctrmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
ctrmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
ztrmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
ztrmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
stbmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
stbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
stbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
dtbmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
dtbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
ctbmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
ctbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
ztbmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
ztbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
stpmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Float) -> (Ptr Float) -> (Int) -> IO ()
stpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
stpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
dtpmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Double) -> (Ptr Double) -> (Int) -> IO ()
dtpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
dtpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ctpmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Float)) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
ctpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ztpmv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Double)) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
ztpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
strsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
strsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
strsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
dtrsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
dtrsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
ctrsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
ctrsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
ztrsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
ztrsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
stbsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
stbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
stbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
dtbsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
dtbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
ctbsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
ctbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
ztbsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
ztbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
stpsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Float) -> (Ptr Float) -> (Int) -> IO ()
stpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
stpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
dtpsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr Double) -> (Ptr Double) -> (Int) -> IO ()
dtpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
dtpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ctpsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Float)) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
ctpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ztpsv :: (Order) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Ptr (Complex Double)) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
ztpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ssymv :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
ssymv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CFloat a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
ssymv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
dsymv :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dsymv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CDouble a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
dsymv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
ssbmv :: (Order) -> (Uplo) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
ssbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = CFloat a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = CFloat a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
ssbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
dsbmv :: (Order) -> (Uplo) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dsbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = CDouble a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = CDouble a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
dsbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
sspmv :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
sspmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = CFloat a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
sspmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
dspmv :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dspmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = CDouble a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
dspmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
sger :: (Order) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
sger a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
sger'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
dger :: (Order) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dger a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
dger'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
ssyr :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
ssyr a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
ssyr'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
dsyr :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dsyr a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
dsyr'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
ssyr2 :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
ssyr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
ssyr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
dsyr2 :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dsyr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
dsyr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
sspr :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> IO ()
sspr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
sspr'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
dspr :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> IO ()
dspr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
dspr'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
sspr2 :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Ptr Float) -> IO ()
sspr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
sspr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
dspr2 :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Ptr Double) -> IO ()
dspr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
dspr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
chemv :: (Order) -> (Uplo) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
chemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
withVoidPtr a9 $ \a9' ->
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
chemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
zhemv :: (Order) -> (Uplo) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zhemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
withVoidPtr a9 $ \a9' ->
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
zhemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
chbmv :: (Order) -> (Uplo) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
chbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
withVoidPtr a5 $ \a5' ->
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
withVoidPtr a10 $ \a10' ->
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
chbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
zhbmv :: (Order) -> (Uplo) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zhbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
withVoidPtr a5 $ \a5' ->
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
withVoidPtr a10 $ \a10' ->
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
zhbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
chpmv :: (Order) -> (Uplo) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
chpmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
chpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
zhpmv :: (Order) -> (Uplo) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zhpmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
zhpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
cgeru :: (Order) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cgeru a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
cgeru'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
zgeru :: (Order) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zgeru a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
zgeru'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
cgerc :: (Order) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cgerc a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
cgerc'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
zgerc :: (Order) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zgerc a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
zgerc'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
cher :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cher a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
cher'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
zher :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zher a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
zher'_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
chpr :: (Order) -> (Uplo) -> (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> IO ()
chpr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CFloat a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
chpr'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
zhpr :: (Order) -> (Uplo) -> (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> IO ()
zhpr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = CDouble a4} in
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
zhpr'_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
cher2 :: (Order) -> (Uplo) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cher2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
cher2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
zher2 :: (Order) -> (Uplo) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zher2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
zher2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>
return ()
chpr2 :: (Order) -> (Uplo) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> IO ()
chpr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
chpr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
zhpr2 :: (Order) -> (Uplo) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> IO ()
zhpr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = fromIntegral a3} in
withVoidPtr a4 $ \a4' ->
let {a5' = castPtr a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
zhpr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
sgemm :: (Order) -> (Transpose) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
sgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = CFloat a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = CFloat a12} in
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
sgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
dgemm :: (Order) -> (Transpose) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = CDouble a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = CDouble a12} in
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
dgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
cgemm :: (Order) -> (Transpose) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
withVoidPtr a7 $ \a7' ->
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
withVoidPtr a12 $ \a12' ->
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
cgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
zgemm :: (Order) -> (Transpose) -> (Transpose) -> (Int) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
withVoidPtr a7 $ \a7' ->
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
withVoidPtr a12 $ \a12' ->
let {a13' = castPtr a13} in
let {a14' = fromIntegral a14} in
zgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>
return ()
ssymm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
ssymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CFloat a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CFloat a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
ssymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
dsymm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dsymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CDouble a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CDouble a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
dsymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
csymm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
csymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
csymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
zsymm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zsymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zsymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
ssyrk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
ssyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CFloat a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CFloat a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
ssyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
dsyrk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dsyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CDouble a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CDouble a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
dsyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
csyrk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
csyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
withVoidPtr a9 $ \a9' ->
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
csyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
zsyrk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zsyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
withVoidPtr a9 $ \a9' ->
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
zsyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
ssyr2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> IO ()
ssyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CFloat a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CFloat a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
ssyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
dsyr2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> IO ()
dsyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CDouble a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CDouble a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
dsyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
csyr2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
csyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
csyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
zsyr2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zsyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zsyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
chemm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
chemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
chemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
zhemm :: (Order) -> (Side) -> (Uplo) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zhemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
withVoidPtr a11 $ \a11' ->
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zhemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
cherk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cherk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CFloat a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CFloat a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
cherk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
zherk :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zherk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = CDouble a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = CDouble a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
zherk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>
return ()
cher2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> (Float) -> (Ptr (Complex Float)) -> (Int) -> IO ()
cher2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CFloat a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
cher2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
zher2k :: (Order) -> (Uplo) -> (Transpose) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> (Double) -> (Ptr (Complex Double)) -> (Int) -> IO ()
zher2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
withVoidPtr a6 $ \a6' ->
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = CDouble a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zher2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>
return ()
strmm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
strmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = CFloat a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
strmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
dtrmm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = CDouble a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
dtrmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
ctrmm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
ctrmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
ztrmm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
ztrmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
strsm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Float) -> (Ptr Float) -> (Int) -> (Ptr Float) -> (Int) -> IO ()
strsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = CFloat a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
strsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
dtrsm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Double) -> (Ptr Double) -> (Int) -> (Ptr Double) -> (Int) -> IO ()
dtrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = CDouble a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
dtrsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
ctrsm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Complex Float) -> (Ptr (Complex Float)) -> (Int) -> (Ptr (Complex Float)) -> (Int) -> IO ()
ctrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
ctrsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
ztrsm :: (Order) -> (Side) -> (Uplo) -> (Transpose) -> (Diag) -> (Int) -> (Int) -> (Complex Double) -> (Ptr (Complex Double)) -> (Int) -> (Ptr (Complex Double)) -> (Int) -> IO ()
ztrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = toCEnum a1} in
let {a2' = toCEnum a2} in
let {a3' = toCEnum a3} in
let {a4' = toCEnum a4} in
let {a5' = toCEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
withVoidPtr a8 $ \a8' ->
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
ztrsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>
return ()
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sdsdot"
sdsdot'_ :: (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO CFloat)))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsdot"
dsdot'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO CDouble))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sdot"
sdot'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO CFloat))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ddot"
ddot'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO CDouble))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cdotu_sub"
cdotu_sub'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zdotu_sub"
zdotu_sub'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cdotc_sub"
cdotc_sub'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zdotc_sub"
zdotc_sub'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_snrm2"
snrm2'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO CFloat))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dnrm2"
dnrm2'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO CDouble))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_scnrm2"
scnrm2'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO CFloat))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dznrm2"
dznrm2'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO CDouble))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sasum"
sasum'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO CFloat))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dasum"
dasum'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO CDouble))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_scasum"
scasum'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO CFloat))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dzasum"
dzasum'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO CDouble))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_isamax"
isamax'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO BlasIndex))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_idamax"
idamax'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO BlasIndex))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_icamax"
icamax'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO BlasIndex))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_izamax"
izamax'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO BlasIndex))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sswap"
sswap'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dswap"
dswap'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cswap"
cswap'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zswap"
zswap'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_scopy"
scopy'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dcopy"
dcopy'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ccopy"
ccopy'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zcopy"
zcopy'_ :: (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_saxpy"
saxpy'_ :: (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_daxpy"
daxpy'_ :: (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_caxpy"
caxpy'_ :: (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zaxpy"
zaxpy'_ :: (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_srotg"
srotg'_ :: ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_drotg"
drotg'_ :: ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_srotmg"
srotmg'_ :: ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (CFloat -> ((Ptr CFloat) -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_drotmg"
drotmg'_ :: ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> (CDouble -> ((Ptr CDouble) -> (IO ()))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_srot"
srot'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> (CFloat -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_drot"
drot'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> (CDouble -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_srotm"
srotm'_ :: (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_drotm"
drotm'_ :: (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (IO ())))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sscal"
sscal'_ :: (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dscal"
dscal'_ :: (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cscal"
cscal'_ :: (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_csscal"
csscal'_ :: (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zscal"
zscal'_ :: (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zdscal"
zdscal'_ :: (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> (IO ())))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sgemv"
sgemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dgemv"
dgemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cgemv"
cgemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zgemv"
zgemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sgbmv"
sgbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dgbmv"
dgbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cgbmv"
cgbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zgbmv"
zgbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_strmv"
strmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtrmv"
dtrmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctrmv"
ctrmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztrmv"
ztrmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_stbmv"
stbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtbmv"
dtbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctbmv"
ctbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztbmv"
ztbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_stpmv"
stpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtpmv"
dtpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctpmv"
ctpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztpmv"
ztpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_strsv"
strsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtrsv"
dtrsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctrsv"
ctrsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztrsv"
ztrsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_stbsv"
stbsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtbsv"
dtbsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctbsv"
ctbsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztbsv"
ztbsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_stpsv"
stpsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CFloat) -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtpsv"
dtpsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr CDouble) -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctpsv"
ctpsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztpsv"
ztpsv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssymv"
ssymv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsymv"
dsymv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssbmv"
ssbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsbmv"
dsbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sspmv"
sspmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dspmv"
dspmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sger"
sger'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dger"
dger'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssyr"
ssyr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsyr"
dsyr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssyr2"
ssyr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsyr2"
dsyr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sspr"
sspr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dspr"
dspr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sspr2"
sspr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dspr2"
dspr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chemv"
chemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhemv"
zhemv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chbmv"
chbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhbmv"
zhbmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chpmv"
chpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhpmv"
zhpmv'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cgeru"
cgeru'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zgeru"
zgeru'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cgerc"
cgerc'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zgerc"
zgerc'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cher"
cher'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zher"
zher'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chpr"
chpr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhpr"
zhpr'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ()))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cher2"
cher2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zher2"
zher2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chpr2"
chpr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhpr2"
zhpr2'_ :: (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (IO ()))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_sgemm"
sgemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dgemm"
dgemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cgemm"
cgemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zgemm"
zgemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssymm"
ssymm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsymm"
dsymm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_csymm"
csymm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zsymm"
zsymm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssyrk"
ssyrk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsyrk"
dsyrk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_csyrk"
csyrk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zsyrk"
zsyrk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ssyr2k"
ssyr2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dsyr2k"
dsyr2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_csyr2k"
csyr2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zsyr2k"
zsyr2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_chemm"
chemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zhemm"
zhemm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cherk"
cherk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zherk"
zherk'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_cher2k"
cher2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (CFloat -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_zher2k"
zher2k'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (CDouble -> ((Ptr ()) -> (BlasInt -> (IO ()))))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_strmm"
strmm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtrmm"
dtrmm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctrmm"
ctrmm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztrmm"
ztrmm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_strsm"
strsm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CFloat -> ((Ptr CFloat) -> (BlasInt -> ((Ptr CFloat) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_dtrsm"
dtrsm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (CDouble -> ((Ptr CDouble) -> (BlasInt -> ((Ptr CDouble) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ctrsm"
ctrsm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))
foreign import ccall unsafe "src/Blas/Primitive/Unsafe_.chs.h cblas_ztrsm"
ztrsm'_ :: (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> (BlasInt -> ((Ptr ()) -> ((Ptr ()) -> (BlasInt -> ((Ptr ()) -> (BlasInt -> (IO ())))))))))))))