{-# LANGUAGE ForeignFunctionInterface #-}
module Torch.FFI.TH.Double.TensorLapack where
import Foreign
import Foreign.C.Types
import Data.Word
import Data.Int
import Torch.Types.TH
foreign import ccall "THTensorLapack.h THDoubleTensor_gesv"
c_gesv_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_gesv :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_gesv = const c_gesv_
foreign import ccall "THTensorLapack.h THDoubleTensor_trtrs"
c_trtrs_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> Ptr CChar -> IO ()
c_trtrs :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> Ptr CChar -> IO ()
c_trtrs = const c_trtrs_
foreign import ccall "THTensorLapack.h THDoubleTensor_gels"
c_gels_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_gels :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_gels = const c_gels_
foreign import ccall "THTensorLapack.h THDoubleTensor_syev"
c_syev_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ()
c_syev :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ()
c_syev = const c_syev_
foreign import ccall "THTensorLapack.h THDoubleTensor_geev"
c_geev_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_geev :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_geev = const c_geev_
foreign import ccall "THTensorLapack.h THDoubleTensor_gesvd"
c_gesvd_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_gesvd :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_gesvd = const c_gesvd_
foreign import ccall "THTensorLapack.h THDoubleTensor_gesvd2"
c_gesvd2_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_gesvd2 :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_gesvd2 = const c_gesvd2_
foreign import ccall "THTensorLapack.h THDoubleTensor_getri"
c_getri_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_getri :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_getri = const c_getri_
foreign import ccall "THTensorLapack.h THDoubleTensor_potrf"
c_potrf_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potrf :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potrf = const c_potrf_
foreign import ccall "THTensorLapack.h THDoubleTensor_potrs"
c_potrs_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potrs :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potrs = const c_potrs_
foreign import ccall "THTensorLapack.h THDoubleTensor_potri"
c_potri_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potri :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ()
c_potri = const c_potri_
foreign import ccall "THTensorLapack.h THDoubleTensor_qr"
c_qr_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_qr :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_qr = const c_qr_
foreign import ccall "THTensorLapack.h THDoubleTensor_geqrf"
c_geqrf_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_geqrf :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_geqrf = const c_geqrf_
foreign import ccall "THTensorLapack.h THDoubleTensor_orgqr"
c_orgqr_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_orgqr :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ()
c_orgqr = const c_orgqr_
foreign import ccall "THTensorLapack.h THDoubleTensor_ormqr"
c_ormqr_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ()
c_ormqr :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ()
c_ormqr = const c_ormqr_
foreign import ccall "THTensorLapack.h THDoubleTensor_pstrf"
c_pstrf_ :: Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> CDouble -> IO ()
c_pstrf :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> CDouble -> IO ()
c_pstrf = const c_pstrf_
foreign import ccall "THTensorLapack.h THDoubleTensor_btrifact"
c_btrifact_ :: Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THIntTensor -> CInt -> Ptr C'THDoubleTensor -> IO ()
c_btrifact :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THIntTensor -> CInt -> Ptr C'THDoubleTensor -> IO ()
c_btrifact = const c_btrifact_
foreign import ccall "THTensorLapack.h THDoubleTensor_btrisolve"
c_btrisolve_ :: Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> IO ()
c_btrisolve :: Ptr C'THState -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> IO ()
c_btrisolve = const c_btrisolve_
foreign import ccall "THTensorLapack.h &THDoubleTensor_gesv"
p_gesv :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_trtrs"
p_trtrs :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_gels"
p_gels :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_syev"
p_syev :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_geev"
p_geev :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_gesvd"
p_gesvd :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_gesvd2"
p_gesvd2 :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_getri"
p_getri :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_potrf"
p_potrf :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_potrs"
p_potrs :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_potri"
p_potri :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_qr"
p_qr :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_geqrf"
p_geqrf :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_orgqr"
p_orgqr :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_ormqr"
p_ormqr :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> Ptr CChar -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_pstrf"
p_pstrf :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THDoubleTensor -> Ptr CChar -> CDouble -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_btrifact"
p_btrifact :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> Ptr C'THIntTensor -> CInt -> Ptr C'THDoubleTensor -> IO ())
foreign import ccall "THTensorLapack.h &THDoubleTensor_btrisolve"
p_btrisolve :: FunPtr (Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THDoubleTensor -> Ptr C'THIntTensor -> IO ())