module Numeric.Jalla.Foreign.BLAS
where
import Foreign.C.Types
import Foreign.Ptr
import Numeric.Jalla.Types
import Data.Complex
type CblasIndex = Integer
data CblasOrder = CblasRowMajor
| CblasColMajor
deriving (Eq,Show)
instance Enum CblasOrder where
succ CblasRowMajor = CblasColMajor
succ CblasColMajor = error "CblasOrder.succ: CblasColMajor has no successor"
pred CblasColMajor = CblasRowMajor
pred CblasRowMajor = error "CblasOrder.pred: CblasRowMajor has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from CblasColMajor
fromEnum CblasRowMajor = 101
fromEnum CblasColMajor = 102
toEnum 101 = CblasRowMajor
toEnum 102 = CblasColMajor
toEnum unmatched = error ("CblasOrder.toEnum: Cannot match " ++ show unmatched)
data CblasTranspose = CblasNoTrans
| CblasTrans
| CblasConjTrans
instance Enum CblasTranspose where
succ CblasNoTrans = CblasTrans
succ CblasTrans = CblasConjTrans
succ CblasConjTrans = error "CblasTranspose.succ: CblasConjTrans has no successor"
pred CblasTrans = CblasNoTrans
pred CblasConjTrans = CblasTrans
pred CblasNoTrans = error "CblasTranspose.pred: CblasNoTrans has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from CblasConjTrans
fromEnum CblasNoTrans = 111
fromEnum CblasTrans = 112
fromEnum CblasConjTrans = 113
toEnum 111 = CblasNoTrans
toEnum 112 = CblasTrans
toEnum 113 = CblasConjTrans
toEnum unmatched = error ("CblasTranspose.toEnum: Cannot match " ++ show unmatched)
data CblasUplo = CblasUpper
| CblasLower
instance Enum CblasUplo where
succ CblasUpper = CblasLower
succ CblasLower = error "CblasUplo.succ: CblasLower has no successor"
pred CblasLower = CblasUpper
pred CblasUpper = error "CblasUplo.pred: CblasUpper has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from CblasLower
fromEnum CblasUpper = 121
fromEnum CblasLower = 122
toEnum 121 = CblasUpper
toEnum 122 = CblasLower
toEnum unmatched = error ("CblasUplo.toEnum: Cannot match " ++ show unmatched)
data CblasDiag = CblasNonUnit
| CblasUnit
instance Enum CblasDiag where
succ CblasNonUnit = CblasUnit
succ CblasUnit = error "CblasDiag.succ: CblasUnit has no successor"
pred CblasUnit = CblasNonUnit
pred CblasNonUnit = error "CblasDiag.pred: CblasNonUnit has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from CblasUnit
fromEnum CblasNonUnit = 131
fromEnum CblasUnit = 132
toEnum 131 = CblasNonUnit
toEnum 132 = CblasUnit
toEnum unmatched = error ("CblasDiag.toEnum: Cannot match " ++ show unmatched)
data CblasSide = CblasLeft
| CblasRight
instance Enum CblasSide where
succ CblasLeft = CblasRight
succ CblasRight = error "CblasSide.succ: CblasRight has no successor"
pred CblasRight = CblasLeft
pred CblasLeft = error "CblasSide.pred: CblasLeft has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from CblasRight
fromEnum CblasLeft = 141
fromEnum CblasRight = 142
toEnum 141 = CblasLeft
toEnum 142 = CblasRight
toEnum unmatched = error ("CblasSide.toEnum: Cannot match " ++ show unmatched)
c2i :: (Integral i1, Integral i2) => i1 -> i2
c2i = fromIntegral
c2f :: (RealFloat a1, RealFloat a2) => a1 -> a2
c2f = realToFrac
cFromEnum :: (Integral i, Enum e) => e -> i
cFromEnum = fromIntegral . fromEnum
sdsdot :: (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((CFloat))
sdsdot a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
sdsdot'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
dsdot :: (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((CDouble))
dsdot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
dsdot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
sdot :: (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((CFloat))
sdot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
sdot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
ddot :: (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((CDouble))
ddot a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
ddot'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
cdotu_sub :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> 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' >>= \res ->
let {res' = id res} in
return (res')
cdotc_sub :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> 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' >>= \res ->
let {res' = id res} in
return (res')
zdotu_sub :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> 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' >>= \res ->
let {res' = id res} in
return (res')
zdotc_sub :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> 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' >>= \res ->
let {res' = id res} in
return (res')
snrm2 :: (Int) -> (Ptr CFloat) -> (Int) -> IO ((CFloat))
snrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
snrm2'_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
sasum :: (Int) -> (Ptr CFloat) -> (Int) -> IO ((CFloat))
sasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
sasum'_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
dnrm2 :: (Int) -> (Ptr CDouble) -> (Int) -> IO ((CDouble))
dnrm2 a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
dnrm2'_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
dasum :: (Int) -> (Ptr CDouble) -> (Int) -> IO ((CDouble))
dasum a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
dasum'_ a1' a2' a3' >>= \res ->
let {res' = id res} in
return (res')
scnrm2 :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((CFloat))
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' = id res} in
return (res')
scasum :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((CFloat))
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' = id res} in
return (res')
dznrm2 :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((CDouble))
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' = id res} in
return (res')
dzasum :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((CDouble))
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' = id res} in
return (res')
isamax :: (Int) -> (Ptr CFloat) -> (Int) -> IO ((CblasIndex))
isamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
isamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
idamax :: (Int) -> (Ptr CDouble) -> (Int) -> IO ((CblasIndex))
idamax a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
idamax'_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
icamax :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((CblasIndex))
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 CDouble)) -> (Int) -> IO ((CblasIndex))
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 CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
sswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
sswap'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
scopy :: (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
scopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
scopy'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
saxpy :: (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
saxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
saxpy'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
dswap :: (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dswap a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
dswap'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
dcopy :: (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dcopy a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
dcopy'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
daxpy :: (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
daxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
daxpy'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
cswap :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (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' >>= \res ->
let {res' = id res} in
return (res')
ccopy :: (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (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' >>= \res ->
let {res' = id res} in
return (res')
caxpy :: (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
caxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
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' >>= \res ->
let {res' = id res} in
return (res')
zswap :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (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' >>= \res ->
let {res' = id res} in
return (res')
zcopy :: (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (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' >>= \res ->
let {res' = id res} in
return (res')
zaxpy :: (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zaxpy a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
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' >>= \res ->
let {res' = id res} in
return (res')
srotg :: (Ptr CFloat) -> (Ptr CFloat) -> (Ptr CFloat) -> (Ptr CFloat) -> IO ((()))
srotg a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = id a4} in
srotg'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
srotmg :: (Ptr CFloat) -> (Ptr CFloat) -> (Ptr CFloat) -> (CFloat) -> (Ptr CFloat) -> IO ((()))
srotmg a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = id a4} in
let {a5' = id a5} in
srotmg'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
srot :: (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (CFloat) -> IO ((()))
srot a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
srot'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
let {res' = id res} in
return (res')
srotm :: (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> IO ((()))
srotm a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
srotm'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
drotg :: (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO ((()))
drotg a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = id a4} in
drotg'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
drotmg :: (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (CDouble) -> (Ptr CDouble) -> IO ((()))
drotmg a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = id a4} in
let {a5' = id a5} in
drotmg'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = id res} in
return (res')
drot :: (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (CDouble) -> IO ((()))
drot a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
drot'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
let {res' = id res} in
return (res')
drotm :: (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> IO ((()))
drotm a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
drotm'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
sscal :: (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
sscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
sscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
dscal :: (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
dscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
cscal :: (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
cscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
zscal :: (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
zscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
csscal :: (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
csscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
csscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
zdscal :: (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zdscal a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = id a2} in
let {a3' = castPtr a3} in
let {a4' = fromIntegral a4} in
zdscal'_ a1' a2' a3' a4' >>= \res ->
let {res' = id res} in
return (res')
sgemv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
sgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
sgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
sgbmv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
sgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
let {a12' = id a12} in
let {a13' = id a13} in
let {a14' = fromIntegral a14} in
sgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>= \res ->
let {res' = id res} in
return (res')
strmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
strmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
strmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
stbmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
stbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
stbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
stpmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
stpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
stpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
strsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
strsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
strsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
stbsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
stbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
stbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
stpsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
stpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
stpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
dgemv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
dgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
dgbmv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
let {a12' = id a12} in
let {a13' = id a13} in
let {a14' = fromIntegral a14} in
dgbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>= \res ->
let {res' = id res} in
return (res')
dtrmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
dtrmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
dtbmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
dtbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
dtpmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
dtpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
dtrsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
dtrsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
dtbsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
dtbsv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
dtpsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
dtpsv'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
cgemv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
cgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
cgbmv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = castPtr a12} in
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' >>= \res ->
let {res' = id res} in
return (res')
ctrmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ctbmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ctpmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ctrsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ctbsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ctpsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
zgemv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zgemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
zgemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
zgbmv :: (CblasOrder) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zgbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = castPtr a12} in
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' >>= \res ->
let {res' = id res} in
return (res')
ztrmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztrmv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ztbmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ztpmv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztpmv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ztrsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztrsv a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ztbsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztbsv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ztpsv :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztpsv a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum 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' >>= \res ->
let {res' = id res} in
return (res')
ssymv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssymv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
ssymv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
ssbmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
ssbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
sspmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
sspmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
sspmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
sger :: (CblasOrder) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
sger a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
sger'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
ssyr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssyr a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
ssyr'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
sspr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> IO ((()))
sspr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
sspr'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
let {res' = id res} in
return (res')
ssyr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssyr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
ssyr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
sspr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> IO ((()))
sspr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
sspr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
dsymv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsymv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
dsymv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
dsbmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
dsbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
dspmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dspmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
dspmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
dger :: (CblasOrder) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dger a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
dger'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
dsyr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsyr a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
dsyr'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = id res} in
return (res')
dspr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> IO ((()))
dspr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
dspr'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
let {res' = id res} in
return (res')
dsyr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsyr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
dsyr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
dspr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> IO ((()))
dspr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id a4} in
let {a5' = id a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
dspr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
chemv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
chemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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' = castPtr a10} in
let {a11' = fromIntegral a11} in
chemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
chbmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
chbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
chbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
chpmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
chpmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
chpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
cgeru :: (CblasOrder) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cgeru a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
cgeru'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
cgerc :: (CblasOrder) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cgerc a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
cgerc'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
cher :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cher a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id 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' >>= \res ->
let {res' = id res} in
return (res')
chpr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> IO ((()))
chpr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id 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' >>= \res ->
let {res' = id res} in
return (res')
cher2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cher2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
cher2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
chpr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> IO ((()))
chpr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
chpr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
zhemv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zhemv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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' = castPtr a10} in
let {a11' = fromIntegral a11} in
zhemv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
zhbmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zhbmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = castPtr a11} in
let {a12' = fromIntegral a12} in
zhbmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
zhpmv :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zhpmv a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr a4} in
let {a5' = castPtr a5} in
let {a6' = castPtr a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
zhpmv'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
zgeru :: (CblasOrder) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zgeru a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
zgeru'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
zgerc :: (CblasOrder) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zgerc a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
zgerc'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
zher :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zher a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id 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' >>= \res ->
let {res' = id res} in
return (res')
zhpr :: (CblasOrder) -> (CblasUplo) -> (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> IO ((()))
zhpr a1 a2 a3 a4 a5 a6 a7 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = id 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' >>= \res ->
let {res' = id res} in
return (res')
zher2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zher2 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
zher2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
let {res' = id res} in
return (res')
zhpr2 :: (CblasOrder) -> (CblasUplo) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> IO ((()))
zhpr2 a1 a2 a3 a4 a5 a6 a7 a8 a9 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = fromIntegral a3} in
let {a4' = castPtr 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
zhpr2'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>= \res ->
let {res' = id res} in
return (res')
sgemm :: (CblasOrder) -> (CblasTranspose) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
sgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
let {a12' = id a12} in
let {a13' = id a13} in
let {a14' = fromIntegral a14} in
sgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>= \res ->
let {res' = id res} in
return (res')
ssymm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = id a12} in
let {a13' = fromIntegral a13} in
ssymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
ssyrk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
ssyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
ssyr2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> IO ((()))
ssyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = id a12} in
let {a13' = fromIntegral a13} in
ssyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
strmm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
strmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
strmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
strsm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (CFloat) -> (Ptr CFloat) -> (Int) -> (Ptr CFloat) -> (Int) -> IO ((()))
strsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
strsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
dgemm :: (CblasOrder) -> (CblasTranspose) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = id a8} in
let {a9' = fromIntegral a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
let {a12' = id a12} in
let {a13' = id a13} in
let {a14' = fromIntegral a14} in
dgemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' a14' >>= \res ->
let {res' = id res} in
return (res')
dsymm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = id a12} in
let {a13' = fromIntegral a13} in
dsymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
dsyrk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = id a10} in
let {a11' = fromIntegral a11} in
dsyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
dsyr2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> IO ((()))
dsyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = id a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = id a12} in
let {a13' = fromIntegral a13} in
dsyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
dtrmm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
dtrmm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
dtrsm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (CDouble) -> (Ptr CDouble) -> (Int) -> (Ptr CDouble) -> (Int) -> IO ((()))
dtrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = id a8} in
let {a9' = id a9} in
let {a10' = fromIntegral a10} in
let {a11' = id a11} in
let {a12' = fromIntegral a12} in
dtrsm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
let {res' = id res} in
return (res')
cgemm :: (CblasOrder) -> (CblasTranspose) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = castPtr a12} in
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' >>= \res ->
let {res' = id res} in
return (res')
csymm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
csymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
csymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
csyrk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
csyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
csyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
csyr2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
csyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
csyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
ctrmm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
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' >>= \res ->
let {res' = id res} in
return (res')
ctrsm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
ctrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
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' >>= \res ->
let {res' = id res} in
return (res')
zgemm :: (CblasOrder) -> (CblasTranspose) -> (CblasTranspose) -> (Int) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zgemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = castPtr a7} in
let {a8' = castPtr a8} in
let {a9' = fromIntegral a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
let {a12' = castPtr a12} in
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' >>= \res ->
let {res' = id res} in
return (res')
zsymm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zsymm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zsymm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
zsyrk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zsyrk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
zsyrk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
zsyr2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zsyr2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zsyr2k'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
ztrmm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztrmm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
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' >>= \res ->
let {res' = id res} in
return (res')
ztrsm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (CblasTranspose) -> (CblasDiag) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
ztrsm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = cFromEnum a4} in
let {a5' = cFromEnum a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = castPtr a8} in
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' >>= \res ->
let {res' = id res} in
return (res')
chemm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
chemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
chemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
cherk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cherk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
cherk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
cher2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CFloat)) -> (Ptr (Complex CFloat)) -> (Int) -> (Ptr (Complex CFloat)) -> (Int) -> (CFloat) -> (Ptr (Complex CFloat)) -> (Int) -> IO ((()))
cher2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = id 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' >>= \res ->
let {res' = id res} in
return (res')
zhemm :: (CblasOrder) -> (CblasSide) -> (CblasUplo) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zhemm a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = castPtr a11} in
let {a12' = castPtr a12} in
let {a13' = fromIntegral a13} in
zhemm'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' a13' >>= \res ->
let {res' = id res} in
return (res')
zherk :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zherk a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = id a9} in
let {a10' = castPtr a10} in
let {a11' = fromIntegral a11} in
zherk'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' >>= \res ->
let {res' = id res} in
return (res')
zher2k :: (CblasOrder) -> (CblasUplo) -> (CblasTranspose) -> (Int) -> (Int) -> (Ptr (Complex CDouble)) -> (Ptr (Complex CDouble)) -> (Int) -> (Ptr (Complex CDouble)) -> (Int) -> (CDouble) -> (Ptr (Complex CDouble)) -> (Int) -> IO ((()))
zher2k a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 =
let {a1' = cFromEnum a1} in
let {a2' = cFromEnum a2} in
let {a3' = cFromEnum a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = castPtr a6} in
let {a7' = castPtr a7} in
let {a8' = fromIntegral a8} in
let {a9' = castPtr a9} in
let {a10' = fromIntegral a10} in
let {a11' = id 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' >>= \res ->
let {res' = id res} in
return (res')
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sdsdot"
sdsdot'_ :: (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO CFloat)))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsdot"
dsdot'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO CDouble))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sdot"
sdot'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO CFloat))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ddot"
ddot'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO CDouble))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cdotu_sub"
cdotu_sub'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cdotc_sub"
cdotc_sub'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zdotu_sub"
zdotu_sub'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zdotc_sub"
zdotc_sub'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_snrm2"
snrm2'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> (IO CFloat))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sasum"
sasum'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> (IO CFloat))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dnrm2"
dnrm2'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> (IO CDouble))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dasum"
dasum'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> (IO CDouble))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_scnrm2"
scnrm2'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CFloat))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_scasum"
scasum'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CFloat))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dznrm2"
dznrm2'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CDouble))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dzasum"
dzasum'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CDouble))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_isamax"
isamax'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> (IO CULong))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_idamax"
idamax'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> (IO CULong))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_icamax"
icamax'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CULong))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_izamax"
izamax'_ :: (CInt -> ((Ptr ()) -> (CInt -> (IO CULong))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sswap"
sswap'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_scopy"
scopy'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_saxpy"
saxpy'_ :: (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dswap"
dswap'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dcopy"
dcopy'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_daxpy"
daxpy'_ :: (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cswap"
cswap'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ccopy"
ccopy'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_caxpy"
caxpy'_ :: (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zswap"
zswap'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zcopy"
zcopy'_ :: (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zaxpy"
zaxpy'_ :: (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_srotg"
srotg'_ :: ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_srotmg"
srotmg'_ :: ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (CFloat -> ((Ptr CFloat) -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_srot"
srot'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> (CFloat -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_srotm"
srotm'_ :: (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_drotg"
drotg'_ :: ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_drotmg"
drotmg'_ :: ((Ptr CDouble) -> ((Ptr CDouble) -> ((Ptr CDouble) -> (CDouble -> ((Ptr CDouble) -> (IO ()))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_drot"
drot'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> (CDouble -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_drotm"
drotm'_ :: (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (IO ())))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sscal"
sscal'_ :: (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dscal"
dscal'_ :: (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cscal"
cscal'_ :: (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zscal"
zscal'_ :: (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_csscal"
csscal'_ :: (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zdscal"
zdscal'_ :: (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> (IO ())))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sgemv"
sgemv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sgbmv"
sgbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_strmv"
strmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_stbmv"
stbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_stpmv"
stpmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_strsv"
strsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_stbsv"
stbsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_stpsv"
stpsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CFloat) -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dgemv"
dgemv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dgbmv"
dgbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtrmv"
dtrmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtbmv"
dtbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtpmv"
dtpmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtrsv"
dtrsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtbsv"
dtbsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtpsv"
dtpsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr CDouble) -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cgemv"
cgemv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cgbmv"
cgbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctrmv"
ctrmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctbmv"
ctbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctpmv"
ctpmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctrsv"
ctrsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctbsv"
ctbsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctpsv"
ctpsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zgemv"
zgemv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zgbmv"
zgbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztrmv"
ztrmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztbmv"
ztbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztpmv"
ztpmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztrsv"
ztrsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztbsv"
ztbsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztpsv"
ztpsv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssymv"
ssymv'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssbmv"
ssbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sspmv"
sspmv'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sger"
sger'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssyr"
ssyr'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sspr"
sspr'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssyr2"
ssyr2'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sspr2"
sspr2'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsymv"
dsymv'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsbmv"
dsbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dspmv"
dspmv'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dger"
dger'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsyr"
dsyr'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dspr"
dspr'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsyr2"
dsyr2'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dspr2"
dspr2'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chemv"
chemv'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chbmv"
chbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chpmv"
chpmv'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cgeru"
cgeru'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cgerc"
cgerc'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cher"
cher'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chpr"
chpr'_ :: (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cher2"
cher2'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chpr2"
chpr2'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhemv"
zhemv'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhbmv"
zhbmv'_ :: (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhpmv"
zhpmv'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zgeru"
zgeru'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zgerc"
zgerc'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zher"
zher'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhpr"
zhpr'_ :: (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ()))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zher2"
zher2'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhpr2"
zhpr2'_ :: (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (IO ()))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_sgemm"
sgemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssymm"
ssymm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssyrk"
ssyrk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ssyr2k"
ssyr2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_strmm"
strmm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_strsm"
strsm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr CFloat) -> (CInt -> ((Ptr CFloat) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dgemm"
dgemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsymm"
dsymm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsyrk"
dsyrk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dsyr2k"
dsyr2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtrmm"
dtrmm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_dtrsm"
dtrsm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr CDouble) -> (CInt -> ((Ptr CDouble) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cgemm"
cgemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_csymm"
csymm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_csyrk"
csyrk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_csyr2k"
csyr2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctrmm"
ctrmm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ctrsm"
ctrsm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zgemm"
zgemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zsymm"
zsymm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zsyrk"
zsyrk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zsyr2k"
zsyr2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztrmm"
ztrmm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_ztrsm"
ztrsm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (IO ())))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_chemm"
chemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cherk"
cherk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_cher2k"
cher2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (CFloat -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zhemm"
zhemm'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zherk"
zherk'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))
foreign import ccall unsafe "Numeric/Jalla/Foreign/BLAS.chs.h cblas_zher2k"
zher2k'_ :: (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (CInt -> ((Ptr ()) -> (CInt -> (CDouble -> ((Ptr ()) -> (CInt -> (IO ()))))))))))))))