module Numerical.HBLAS.BLAS.FFI.Level2 where
import Foreign.Ptr
import Foreign()
import Foreign.C.Types
import Data.Complex
import Numerical.HBLAS.BLAS.FFI
type GbmvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_TRANSPOSET -> CInt -> CInt
-> CInt -> CInt -> sc -> Ptr el -> CInt -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_sgbmv"
cblas_sgbmv_unsafe :: GbmvFunFFI Float Float
foreign import ccall unsafe "cblas_dgbmv"
cblas_dgbmv_unsafe :: GbmvFunFFI Double Double
foreign import ccall unsafe "cblas_cgbmv"
cblas_cgbmv_unsafe :: GbmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zgbmv"
cblas_zgbmv_unsafe :: GbmvFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall "cblas_sgbmv"
cblas_sgbmv_safe :: GbmvFunFFI Float Float
foreign import ccall "cblas_dgbmv"
cblas_dgbmv_safe :: GbmvFunFFI Double Double
foreign import ccall "cblas_cgbmv"
cblas_cgbmv_safe :: GbmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall "cblas_zgbmv"
cblas_zgbmv_safe :: GbmvFunFFI (Ptr (Complex Double)) (Complex Double)
type GemvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_TRANSPOSET -> CInt -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_sgemv"
cblas_sgemv_unsafe :: GemvFunFFI Float Float
foreign import ccall safe "cblas_sgemv"
cblas_sgemv_safe :: GemvFunFFI Float Float
foreign import ccall unsafe "cblas_dgemv"
cblas_dgemv_unsafe :: GemvFunFFI Double Double
foreign import ccall safe "cblas_dgemv"
cblas_dgemv_safe :: GemvFunFFI Double Double
foreign import ccall unsafe "cblas_cgemv"
cblas_cgemv_unsafe :: GemvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_cgemv"
cblas_cgemv_safe :: GemvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zgemv"
cblas_zgemv_unsafe :: GemvFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zgemv"
cblas_zgemv_safe :: GemvFunFFI (Ptr (Complex Double)) (Complex Double)
type GerxFunFFI scale el = CBLAS_ORDERT -> CInt -> CInt -> scale -> Ptr el -> CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_sger" cblas_sger_unsafe ::
GerxFunFFI Float Float
foreign import ccall safe "cblas_sger" cblas_sger_safe ::
GerxFunFFI Float Float
foreign import ccall unsafe "cblas_dger" cblas_dger_unsafe ::
GerxFunFFI Double Double
foreign import ccall safe "cblas_dger" cblas_dger_safe ::
GerxFunFFI Double Double
foreign import ccall unsafe "cblas_cgerc" cblas_cgerc_unsafe ::
GerxFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zgerc" cblas_zgerc_unsafe ::
GerxFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_cgerc" cblas_cgerc_safe ::
GerxFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_zgerc" cblas_zgerc_safe ::
GerxFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall unsafe "cblas_cgeru" cblas_cgeru_unsafe ::
GerxFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zgeru" cblas_zgeru_unsafe ::
GerxFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_cgeru" cblas_cgeru_safe ::
GerxFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_zgeru" cblas_zgeru_safe ::
GerxFunFFI (Ptr (Complex Double)) (Complex Double)
type HbmvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_chbmv"
cblas_chbmv_unsafe :: HbmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_chbmv"
cblas_chbmv_safe :: HbmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zhbmv"
cblas_zhbmv_unsafe :: HbmvFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zhbmv"
cblas_zhbmv_safe :: HbmvFunFFI (Ptr (Complex Double)) (Complex Double)
type HemvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_chemv"
cblas_chemv_unsafe :: HemvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_chemv"
cblas_chemv_safe :: HemvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zhemv"
cblas_zhemv_unsafe :: HemvFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zhemv"
cblas_zhemv_safe :: HemvFunFFI (Ptr (Complex Double)) (Complex Double)
type HerFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_cher"
cblas_cher_unsafe :: HerFunFFI Float (Complex Float)
foreign import ccall safe "cblas_cher"
cblas_cher_safe :: HerFunFFI Float (Complex Float)
foreign import ccall unsafe "cblas_zher"
cblas_zher_unsafe :: HerFunFFI Double (Complex Double)
foreign import ccall safe "cblas_zher"
cblas_zher_safe :: HerFunFFI Double (Complex Double)
type Her2FunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_cher2"
cblas_cher2_unsafe :: Her2FunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_cher2"
cblas_cher2_safe :: Her2FunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zher2"
cblas_zher2_unsafe :: Her2FunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zher2"
cblas_zher2_safe :: Her2FunFFI (Ptr (Complex Double)) (Complex Double)
type HpmvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_chpmv"
cblas_chpmv_unsafe :: HpmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_chpmv"
cblas_chpmv_safe :: HpmvFunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zhpmv"
cblas_zhpmv_unsafe :: HpmvFunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zhpmv"
cblas_zhpmv_safe :: HpmvFunFFI (Ptr (Complex Double)) (Complex Double)
type HprFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> IO ()
foreign import ccall unsafe "cblas_chpr"
cblas_chpr_unsafe :: HprFunFFI Float (Complex Float)
foreign import ccall safe "cblas_chpr"
cblas_chpr_safe :: HprFunFFI Float (Complex Float)
foreign import ccall unsafe "cblas_zhpr"
cblas_zhpr_unsafe :: HprFunFFI Double (Complex Double)
foreign import ccall safe "cblas_zhpr"
cblas_zhpr_safe :: HprFunFFI Double (Complex Double)
type Hpr2FunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> Ptr el -> IO ()
foreign import ccall unsafe "cblas_chpr2"
cblas_chpr2_unsafe :: Hpr2FunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall safe "cblas_chpr2"
cblas_chpr2_safe :: Hpr2FunFFI (Ptr (Complex Float)) (Complex Float)
foreign import ccall unsafe "cblas_zhpr2"
cblas_zhpr2_unsafe :: Hpr2FunFFI (Ptr (Complex Double)) (Complex Double)
foreign import ccall safe "cblas_zhpr2"
cblas_zhpr2_safe :: Hpr2FunFFI (Ptr (Complex Double)) (Complex Double)
type SbmvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_ssbmv"
cblas_ssbmv_unsafe :: SbmvFunFFI Float Float
foreign import ccall safe "cblas_ssbmv"
cblas_ssbmv_safe :: SbmvFunFFI Float Float
foreign import ccall unsafe "cblas_dsbmv"
cblas_dsbmv_unsafe :: SbmvFunFFI Double Double
foreign import ccall safe "cblas_dsbmv"
cblas_dsbmv_safe :: SbmvFunFFI Double Double
type SpmvFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> Ptr el -> CInt -> sc -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_sspmv"
cblas_sspmv_unsafe :: SpmvFunFFI Float Float
foreign import ccall safe "cblas_sspmv"
cblas_sspmv_safe :: SpmvFunFFI Float Float
foreign import ccall unsafe "cblas_dspmv"
cblas_dspmv_unsafe :: SpmvFunFFI Double Double
foreign import ccall safe "cblas_dspmv"
cblas_dspmv_safe :: SpmvFunFFI Double Double
type SprFunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> IO ()
foreign import ccall unsafe "cblas_sspr"
cblas_sspr_unsafe :: SprFunFFI Float Float
foreign import ccall safe "cblas_sspr"
cblas_sspr_safe :: SprFunFFI Float Float
foreign import ccall unsafe "cblas_dspr"
cblas_dspr_unsafe :: SprFunFFI Double Double
foreign import ccall safe "cblas_dspr"
cblas_dspr_safe :: SprFunFFI Double Double
type Spr2FunFFI sc el =
CBLAS_ORDERT -> CBLAS_UPLOT -> CInt
-> sc -> Ptr el -> CInt -> Ptr el -> CInt -> Ptr el -> IO ()
foreign import ccall unsafe "cblas_sspr2"
cblas_sspr2_unsafe :: Spr2FunFFI Float Float
foreign import ccall safe "cblas_sspr2"
cblas_sspr2_safe :: Spr2FunFFI Float Float
foreign import ccall unsafe "cblas_dspr2"
cblas_dspr2_unsafe :: Spr2FunFFI Double Double
foreign import ccall safe "cblas_dspr2"
cblas_dspr2_safe :: Spr2FunFFI Double Double
type SymvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CInt -> el -> Ptr el -> CInt ->
Ptr el -> CInt -> el -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_ssymv"
cblas_ssymv_unsafe :: SymvFunFFI Float
foreign import ccall safe "cblas_ssymv"
cblas_ssymv_safe :: SymvFunFFI Float
foreign import ccall unsafe "cblas_dsymv"
cblas_dsymv_unsafe :: SymvFunFFI Double
foreign import ccall safe "cblas_dsymv"
cblas_dsymv_safe :: SymvFunFFI Double
type SyrFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CInt -> el -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_ssyr"
cblas_ssyr_unsafe :: SyrFunFFI Float
foreign import ccall safe "cblas_ssyr"
cblas_ssyr_safe :: SyrFunFFI Float
foreign import ccall unsafe "cblas_dsyr"
cblas_dsyr_unsafe :: SyrFunFFI Double
foreign import ccall safe "cblas_dsyr"
cblas_dsyr_safe :: SyrFunFFI Double
type Syr2FunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CInt -> el -> Ptr el -> CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_ssyr2"
cblas_ssyr2_unsafe :: Syr2FunFFI Float
foreign import ccall safe "cblas_ssyr2"
cblas_ssyr2_safe :: Syr2FunFFI Float
foreign import ccall unsafe "cblas_dsyr2"
cblas_dsyr2_unsafe :: Syr2FunFFI Double
foreign import ccall safe "cblas_dsyr2"
cblas_dsyr2_safe :: Syr2FunFFI Double
type TbmvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_stbmv"
cblas_stbmv_unsafe :: TbmvFunFFI Float
foreign import ccall safe "cblas_stbmv"
cblas_stbmv_safe :: TbmvFunFFI Float
foreign import ccall unsafe "cblas_dtbmv"
cblas_dtbmv_unsafe :: TbmvFunFFI Double
foreign import ccall safe "cblas_dtbmv"
cblas_dtbmv_safe :: TbmvFunFFI Double
foreign import ccall unsafe "cblas_ctbmv"
cblas_ctbmv_unsafe :: TbmvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctbmv"
cblas_ctbmv_safe :: TbmvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztbmv"
cblas_ztbmv_unsafe :: TbmvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztbmv"
cblas_ztbmv_safe :: TbmvFunFFI (Complex Double)
type TbsvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_stbsv"
cblas_stbsv_unsafe :: TbsvFunFFI Float
foreign import ccall safe "cblas_stbsv"
cblas_stbsv_safe :: TbsvFunFFI Float
foreign import ccall unsafe "cblas_dtbsv"
cblas_dtbsv_unsafe :: TbsvFunFFI Double
foreign import ccall safe "cblas_dtbsv"
cblas_dtbsv_safe :: TbsvFunFFI Double
foreign import ccall unsafe "cblas_ctbsv"
cblas_ctbsv_unsafe :: TbsvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctbsv"
cblas_ctbsv_safe :: TbsvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztbsv"
cblas_ztbsv_unsafe :: TbsvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztbsv"
cblas_ztbsv_safe :: TbsvFunFFI (Complex Double)
type TpmvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> Ptr el -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_stpmv"
cblas_stpmv_unsafe :: TpmvFunFFI Float
foreign import ccall safe "cblas_stpmv"
cblas_stpmv_safe :: TpmvFunFFI Float
foreign import ccall unsafe "cblas_dtpmv"
cblas_dtpmv_unsafe :: TpmvFunFFI Double
foreign import ccall safe "cblas_dtpmv"
cblas_dtpmv_safe :: TpmvFunFFI Double
foreign import ccall unsafe "cblas_ctpmv"
cblas_ctpmv_unsafe :: TpmvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctpmv"
cblas_ctpmv_safe :: TpmvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztpmv"
cblas_ztpmv_unsafe :: TpmvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztpmv"
cblas_ztpmv_safe :: TpmvFunFFI (Complex Double)
type TpsvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> Ptr el -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_stpsv"
cblas_stpsv_unsafe :: TpsvFunFFI Float
foreign import ccall safe "cblas_stpsv"
cblas_stpsv_safe :: TpsvFunFFI Float
foreign import ccall unsafe "cblas_dtpsv"
cblas_dtpsv_unsafe :: TpsvFunFFI Double
foreign import ccall safe "cblas_dtpsv"
cblas_dtpsv_safe :: TpsvFunFFI Double
foreign import ccall unsafe "cblas_ctpsv"
cblas_ctpsv_unsafe :: TpsvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctpsv"
cblas_ctpsv_safe :: TpsvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztpsv"
cblas_ztpsv_unsafe :: TpsvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztpsv"
cblas_ztpsv_safe :: TpsvFunFFI (Complex Double)
type TrmvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_strmv"
cblas_strmv_unsafe :: TrmvFunFFI Float
foreign import ccall safe "cblas_strmv"
cblas_strmv_safe :: TrmvFunFFI Float
foreign import ccall unsafe "cblas_dtrmv"
cblas_dtrmv_unsafe :: TrmvFunFFI Double
foreign import ccall safe "cblas_dtrmv"
cblas_dtrmv_safe :: TrmvFunFFI Double
foreign import ccall unsafe "cblas_ctrmv"
cblas_ctrmv_unsafe :: TrmvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctrmv"
cblas_ctrmv_safe :: TrmvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztrmv"
cblas_ztrmv_unsafe :: TrmvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztrmv"
cblas_ztrmv_safe :: TrmvFunFFI (Complex Double)
type TrsvFunFFI el = CBLAS_ORDERT -> CBLAS_UPLOT -> CBLAS_TRANSPOSET -> CBLAS_DIAGT ->
CInt -> Ptr el -> CInt -> Ptr el -> CInt -> IO ()
foreign import ccall unsafe "cblas_strsv"
cblas_strsv_unsafe :: TrsvFunFFI Float
foreign import ccall safe "cblas_strsv"
cblas_strsv_safe :: TrsvFunFFI Float
foreign import ccall unsafe "cblas_dtrsv"
cblas_dtrsv_unsafe :: TrsvFunFFI Double
foreign import ccall safe "cblas_dtrsv"
cblas_dtrsv_safe :: TrsvFunFFI Double
foreign import ccall unsafe "cblas_ctrsv"
cblas_ctrsv_unsafe :: TrsvFunFFI (Complex Float)
foreign import ccall safe "cblas_ctrsv"
cblas_ctrsv_safe :: TrsvFunFFI (Complex Float)
foreign import ccall unsafe "cblas_ztrsv"
cblas_ztrsv_unsafe :: TrsvFunFFI (Complex Double)
foreign import ccall safe "cblas_ztrsv"
cblas_ztrsv_safe :: TrsvFunFFI (Complex Double)