module Bindings.Gsl.BlasSupport where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.Gsl.ComplexNumbers
import Bindings.Gsl.VectorsAndMatrices.DataTypes
type C'CBLAS_INDEX_t = CUInt
type C'CBLAS_ORDER_t = CUInt
type C'CBLAS_TRANSPOSE_t = CUInt
type C'CBLAS_UPLO_t = CUInt
type C'CBLAS_DIAG_t = CUInt
type C'CBLAS_SIDE_t = CUInt
foreign import ccall "gsl_blas_sdsdot" c'gsl_blas_sdsdot
:: CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt
foreign import ccall "&gsl_blas_sdsdot" p'gsl_blas_sdsdot
:: FunPtr (CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt)
foreign import ccall "gsl_blas_dsdot" c'gsl_blas_dsdot
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CDouble -> IO CInt
foreign import ccall "&gsl_blas_dsdot" p'gsl_blas_dsdot
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CDouble -> IO CInt)
foreign import ccall "gsl_blas_sdot" c'gsl_blas_sdot
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt
foreign import ccall "&gsl_blas_sdot" p'gsl_blas_sdot
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt)
foreign import ccall "gsl_blas_ddot" c'gsl_blas_ddot
:: Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr CDouble -> IO CInt
foreign import ccall "&gsl_blas_ddot" p'gsl_blas_ddot
:: FunPtr (Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr CDouble -> IO CInt)
foreign import ccall "gsl_blas_cdotu" c'gsl_blas_cdotu
:: Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_complex_float -> IO CInt
foreign import ccall "&gsl_blas_cdotu" p'gsl_blas_cdotu
:: FunPtr (Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_complex_float -> IO CInt)
foreign import ccall "gsl_blas_cdotc" c'gsl_blas_cdotc
:: Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_complex_float -> IO CInt
foreign import ccall "&gsl_blas_cdotc" p'gsl_blas_cdotc
:: FunPtr (Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_complex_float -> IO CInt)
foreign import ccall "gsl_blas_zdotu" c'gsl_blas_zdotu
:: Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> Ptr C'gsl_complex -> IO CInt
foreign import ccall "&gsl_blas_zdotu" p'gsl_blas_zdotu
:: FunPtr (Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> Ptr C'gsl_complex -> IO CInt)
foreign import ccall "gsl_blas_zdotc" c'gsl_blas_zdotc
:: Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> Ptr C'gsl_complex -> IO CInt
foreign import ccall "&gsl_blas_zdotc" p'gsl_blas_zdotc
:: FunPtr (Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> Ptr C'gsl_complex -> IO CInt)
foreign import ccall "gsl_blas_snrm2" c'gsl_blas_snrm2
:: Ptr C'gsl_vector_float -> IO CFloat
foreign import ccall "&gsl_blas_snrm2" p'gsl_blas_snrm2
:: FunPtr (Ptr C'gsl_vector_float -> IO CFloat)
foreign import ccall "gsl_blas_sasum" c'gsl_blas_sasum
:: Ptr C'gsl_vector_float -> IO CFloat
foreign import ccall "&gsl_blas_sasum" p'gsl_blas_sasum
:: FunPtr (Ptr C'gsl_vector_float -> IO CFloat)
foreign import ccall "gsl_blas_dnrm2" c'gsl_blas_dnrm2
:: Ptr C'gsl_vector -> IO CDouble
foreign import ccall "&gsl_blas_dnrm2" p'gsl_blas_dnrm2
:: FunPtr (Ptr C'gsl_vector -> IO CDouble)
foreign import ccall "gsl_blas_dasum" c'gsl_blas_dasum
:: Ptr C'gsl_vector -> IO CDouble
foreign import ccall "&gsl_blas_dasum" p'gsl_blas_dasum
:: FunPtr (Ptr C'gsl_vector -> IO CDouble)
foreign import ccall "gsl_blas_scnrm2" c'gsl_blas_scnrm2
:: Ptr C'gsl_vector_complex_float -> IO CFloat
foreign import ccall "&gsl_blas_scnrm2" p'gsl_blas_scnrm2
:: FunPtr (Ptr C'gsl_vector_complex_float -> IO CFloat)
foreign import ccall "gsl_blas_scasum" c'gsl_blas_scasum
:: Ptr C'gsl_vector_complex_float -> IO CFloat
foreign import ccall "&gsl_blas_scasum" p'gsl_blas_scasum
:: FunPtr (Ptr C'gsl_vector_complex_float -> IO CFloat)
foreign import ccall "gsl_blas_dznrm2" c'gsl_blas_dznrm2
:: Ptr C'gsl_vector_complex -> IO CDouble
foreign import ccall "&gsl_blas_dznrm2" p'gsl_blas_dznrm2
:: FunPtr (Ptr C'gsl_vector_complex -> IO CDouble)
foreign import ccall "gsl_blas_dzasum" c'gsl_blas_dzasum
:: Ptr C'gsl_vector_complex -> IO CDouble
foreign import ccall "&gsl_blas_dzasum" p'gsl_blas_dzasum
:: FunPtr (Ptr C'gsl_vector_complex -> IO CDouble)
foreign import ccall "gsl_blas_isamax" c'gsl_blas_isamax
:: Ptr C'gsl_vector_float -> IO C'CBLAS_INDEX_t
foreign import ccall "&gsl_blas_isamax" p'gsl_blas_isamax
:: FunPtr (Ptr C'gsl_vector_float -> IO C'CBLAS_INDEX_t)
foreign import ccall "gsl_blas_idamax" c'gsl_blas_idamax
:: Ptr C'gsl_vector -> IO C'CBLAS_INDEX_t
foreign import ccall "&gsl_blas_idamax" p'gsl_blas_idamax
:: FunPtr (Ptr C'gsl_vector -> IO C'CBLAS_INDEX_t)
foreign import ccall "gsl_blas_icamax" c'gsl_blas_icamax
:: Ptr C'gsl_vector_complex_float -> IO C'CBLAS_INDEX_t
foreign import ccall "&gsl_blas_icamax" p'gsl_blas_icamax
:: FunPtr (Ptr C'gsl_vector_complex_float -> IO C'CBLAS_INDEX_t)
foreign import ccall "gsl_blas_izamax" c'gsl_blas_izamax
:: Ptr C'gsl_vector_complex -> IO C'CBLAS_INDEX_t
foreign import ccall "&gsl_blas_izamax" p'gsl_blas_izamax
:: FunPtr (Ptr C'gsl_vector_complex -> IO C'CBLAS_INDEX_t)
foreign import ccall "gsl_blas_sswap" c'gsl_blas_sswap
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_sswap" p'gsl_blas_sswap
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_scopy" c'gsl_blas_scopy
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_scopy" p'gsl_blas_scopy
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_saxpy" c'gsl_blas_saxpy
:: CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_saxpy" p'gsl_blas_saxpy
:: FunPtr (CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_dswap" c'gsl_blas_dswap
:: Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dswap" p'gsl_blas_dswap
:: FunPtr (Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_dcopy" c'gsl_blas_dcopy
:: Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dcopy" p'gsl_blas_dcopy
:: FunPtr (Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_daxpy" c'gsl_blas_daxpy
:: CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_daxpy" p'gsl_blas_daxpy
:: FunPtr (CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_cswap" c'gsl_blas_cswap
:: Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt
foreign import ccall "&gsl_blas_cswap" p'gsl_blas_cswap
:: FunPtr (Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt)
foreign import ccall "gsl_blas_ccopy" c'gsl_blas_ccopy
:: Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt
foreign import ccall "&gsl_blas_ccopy" p'gsl_blas_ccopy
:: FunPtr (Ptr C'gsl_vector_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt)
foreign import ccall "gsl_blas_zswap" c'gsl_blas_zswap
:: Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> IO CInt
foreign import ccall "&gsl_blas_zswap" p'gsl_blas_zswap
:: FunPtr (Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> IO CInt)
foreign import ccall "gsl_blas_zcopy" c'gsl_blas_zcopy
:: Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> IO CInt
foreign import ccall "&gsl_blas_zcopy" p'gsl_blas_zcopy
:: FunPtr (Ptr C'gsl_vector_complex -> Ptr C'gsl_vector_complex -> IO CInt)
foreign import ccall "gsl_blas_srotg" c'gsl_blas_srotg
:: Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> IO CInt
foreign import ccall "&gsl_blas_srotg" p'gsl_blas_srotg
:: FunPtr (Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> IO CInt)
foreign import ccall "gsl_blas_srotmg" c'gsl_blas_srotmg
:: Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> CFloat -> Ptr CFloat -> IO CInt
foreign import ccall "&gsl_blas_srotmg" p'gsl_blas_srotmg
:: FunPtr (Ptr CFloat -> Ptr CFloat -> Ptr CFloat -> CFloat -> Ptr CFloat -> IO CInt)
foreign import ccall "gsl_blas_srot" c'gsl_blas_srot
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> CFloat -> CFloat -> IO CInt
foreign import ccall "&gsl_blas_srot" p'gsl_blas_srot
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> CFloat -> CFloat -> IO CInt)
foreign import ccall "gsl_blas_srotm" c'gsl_blas_srotm
:: Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt
foreign import ccall "&gsl_blas_srotm" p'gsl_blas_srotm
:: FunPtr (Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr CFloat -> IO CInt)
foreign import ccall "gsl_blas_drotg" c'gsl_blas_drotg
:: Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO CInt
foreign import ccall "&gsl_blas_drotg" p'gsl_blas_drotg
:: FunPtr (Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO CInt)
foreign import ccall "gsl_blas_drotmg" c'gsl_blas_drotmg
:: Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> CDouble -> Ptr CDouble -> IO CInt
foreign import ccall "&gsl_blas_drotmg" p'gsl_blas_drotmg
:: FunPtr (Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> CDouble -> Ptr CDouble -> IO CInt)
foreign import ccall "gsl_blas_drot" c'gsl_blas_drot
:: Ptr C'gsl_vector -> Ptr C'gsl_vector -> CDouble -> CDouble -> IO CInt
foreign import ccall "&gsl_blas_drot" p'gsl_blas_drot
:: FunPtr (Ptr C'gsl_vector -> Ptr C'gsl_vector -> CDouble -> CDouble -> IO CInt)
foreign import ccall "gsl_blas_drotm" c'gsl_blas_drotm
:: Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr CDouble -> IO CInt
foreign import ccall "&gsl_blas_drotm" p'gsl_blas_drotm
:: FunPtr (Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr CDouble -> IO CInt)
foreign import ccall "gsl_blas_sscal" c'gsl_blas_sscal
:: CFloat -> Ptr C'gsl_vector_float -> IO ()
foreign import ccall "&gsl_blas_sscal" p'gsl_blas_sscal
:: FunPtr (CFloat -> Ptr C'gsl_vector_float -> IO ())
foreign import ccall "gsl_blas_dscal" c'gsl_blas_dscal
:: CDouble -> Ptr C'gsl_vector -> IO ()
foreign import ccall "&gsl_blas_dscal" p'gsl_blas_dscal
:: FunPtr (CDouble -> Ptr C'gsl_vector -> IO ())
foreign import ccall "gsl_blas_csscal" c'gsl_blas_csscal
:: CFloat -> Ptr C'gsl_vector_complex_float -> IO ()
foreign import ccall "&gsl_blas_csscal" p'gsl_blas_csscal
:: FunPtr (CFloat -> Ptr C'gsl_vector_complex_float -> IO ())
foreign import ccall "gsl_blas_zdscal" c'gsl_blas_zdscal
:: CDouble -> Ptr C'gsl_vector_complex -> IO ()
foreign import ccall "&gsl_blas_zdscal" p'gsl_blas_zdscal
:: FunPtr (CDouble -> Ptr C'gsl_vector_complex -> IO ())
foreign import ccall "gsl_blas_sgemv" c'gsl_blas_sgemv
:: C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> CFloat -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_sgemv" p'gsl_blas_sgemv
:: FunPtr (C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> CFloat -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_strmv" c'gsl_blas_strmv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_strmv" p'gsl_blas_strmv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_strsv" c'gsl_blas_strsv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_strsv" p'gsl_blas_strsv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_dgemv" c'gsl_blas_dgemv
:: C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> CDouble -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dgemv" p'gsl_blas_dgemv
:: FunPtr (C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> CDouble -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_dtrmv" c'gsl_blas_dtrmv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dtrmv" p'gsl_blas_dtrmv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_dtrsv" c'gsl_blas_dtrsv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dtrsv" p'gsl_blas_dtrsv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_ctrmv" c'gsl_blas_ctrmv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt
foreign import ccall "&gsl_blas_ctrmv" p'gsl_blas_ctrmv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt)
foreign import ccall "gsl_blas_ctrsv" c'gsl_blas_ctrsv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt
foreign import ccall "&gsl_blas_ctrsv" p'gsl_blas_ctrsv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex_float -> Ptr C'gsl_vector_complex_float -> IO CInt)
foreign import ccall "gsl_blas_ztrmv" c'gsl_blas_ztrmv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex -> Ptr C'gsl_vector_complex -> IO CInt
foreign import ccall "&gsl_blas_ztrmv" p'gsl_blas_ztrmv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex -> Ptr C'gsl_vector_complex -> IO CInt)
foreign import ccall "gsl_blas_ztrsv" c'gsl_blas_ztrsv
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex -> Ptr C'gsl_vector_complex -> IO CInt
foreign import ccall "&gsl_blas_ztrsv" p'gsl_blas_ztrsv
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> Ptr C'gsl_matrix_complex -> Ptr C'gsl_vector_complex -> IO CInt)
foreign import ccall "gsl_blas_ssymv" c'gsl_blas_ssymv
:: C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> CFloat -> Ptr C'gsl_vector_float -> IO CInt
foreign import ccall "&gsl_blas_ssymv" p'gsl_blas_ssymv
:: FunPtr (C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_vector_float -> CFloat -> Ptr C'gsl_vector_float -> IO CInt)
foreign import ccall "gsl_blas_sger" c'gsl_blas_sger
:: CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_sger" p'gsl_blas_sger
:: FunPtr (CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_ssyr" c'gsl_blas_ssyr
:: C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_ssyr" p'gsl_blas_ssyr
:: FunPtr (C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_ssyr2" c'gsl_blas_ssyr2
:: C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_ssyr2" p'gsl_blas_ssyr2
:: FunPtr (C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_float -> Ptr C'gsl_vector_float -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_dsymv" c'gsl_blas_dsymv
:: C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> CDouble -> Ptr C'gsl_vector -> IO CInt
foreign import ccall "&gsl_blas_dsymv" p'gsl_blas_dsymv
:: FunPtr (C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_vector -> CDouble -> Ptr C'gsl_vector -> IO CInt)
foreign import ccall "gsl_blas_dger" c'gsl_blas_dger
:: CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dger" p'gsl_blas_dger
:: FunPtr (CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dsyr" c'gsl_blas_dsyr
:: C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dsyr" p'gsl_blas_dsyr
:: FunPtr (C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dsyr2" c'gsl_blas_dsyr2
:: C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dsyr2" p'gsl_blas_dsyr2
:: FunPtr (C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector -> Ptr C'gsl_vector -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_cher" c'gsl_blas_cher
:: C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_matrix_complex_float -> IO CInt
foreign import ccall "&gsl_blas_cher" p'gsl_blas_cher
:: FunPtr (C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_vector_complex_float -> Ptr C'gsl_matrix_complex_float -> IO CInt)
foreign import ccall "gsl_blas_zher" c'gsl_blas_zher
:: C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector_complex -> Ptr C'gsl_matrix_complex -> IO CInt
foreign import ccall "&gsl_blas_zher" p'gsl_blas_zher
:: FunPtr (C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_vector_complex -> Ptr C'gsl_matrix_complex -> IO CInt)
foreign import ccall "gsl_blas_sgemm" c'gsl_blas_sgemm
:: C'CBLAS_TRANSPOSE_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_sgemm" p'gsl_blas_sgemm
:: FunPtr (C'CBLAS_TRANSPOSE_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_ssymm" c'gsl_blas_ssymm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_ssymm" p'gsl_blas_ssymm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_ssyrk" c'gsl_blas_ssyrk
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_ssyrk" p'gsl_blas_ssyrk
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_ssyr2k" c'gsl_blas_ssyr2k
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_ssyr2k" p'gsl_blas_ssyr2k
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> CFloat -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_strmm" c'gsl_blas_strmm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_strmm" p'gsl_blas_strmm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_strsm" c'gsl_blas_strsm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> IO CInt
foreign import ccall "&gsl_blas_strsm" p'gsl_blas_strsm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CFloat -> Ptr C'gsl_matrix_float -> Ptr C'gsl_matrix_float -> IO CInt)
foreign import ccall "gsl_blas_dgemm" c'gsl_blas_dgemm
:: C'CBLAS_TRANSPOSE_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dgemm" p'gsl_blas_dgemm
:: FunPtr (C'CBLAS_TRANSPOSE_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dsymm" c'gsl_blas_dsymm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dsymm" p'gsl_blas_dsymm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dsyrk" c'gsl_blas_dsyrk
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dsyrk" p'gsl_blas_dsyrk
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dsyr2k" c'gsl_blas_dsyr2k
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dsyr2k" p'gsl_blas_dsyr2k
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> CDouble -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dtrmm" c'gsl_blas_dtrmm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dtrmm" p'gsl_blas_dtrmm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_dtrsm" c'gsl_blas_dtrsm
:: C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> IO CInt
foreign import ccall "&gsl_blas_dtrsm" p'gsl_blas_dtrsm
:: FunPtr (C'CBLAS_SIDE_t -> C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> C'CBLAS_DIAG_t -> CDouble -> Ptr C'gsl_matrix -> Ptr C'gsl_matrix -> IO CInt)
foreign import ccall "gsl_blas_cherk" c'gsl_blas_cherk
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_complex_float -> CFloat -> Ptr C'gsl_matrix_complex_float -> IO CInt
foreign import ccall "&gsl_blas_cherk" p'gsl_blas_cherk
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CFloat -> Ptr C'gsl_matrix_complex_float -> CFloat -> Ptr C'gsl_matrix_complex_float -> IO CInt)
foreign import ccall "gsl_blas_zherk" c'gsl_blas_zherk
:: C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix_complex -> CDouble -> Ptr C'gsl_matrix_complex -> IO CInt
foreign import ccall "&gsl_blas_zherk" p'gsl_blas_zherk
:: FunPtr (C'CBLAS_UPLO_t -> C'CBLAS_TRANSPOSE_t -> CDouble -> Ptr C'gsl_matrix_complex -> CDouble -> Ptr C'gsl_matrix_complex -> IO CInt)