-- Do not edit! Automatically generated by create-lapack-ffi.
module Numeric.LAPACK.FFI.Generic (
   gbsv,
   gbtf2,
   gbtrf,
   gbtrs,
   gehd2,
   gehrd,
   gelq2,
   gelqf,
   gels,
   geql2,
   geqlf,
   geqr2,
   geqr2p,
   geqrf,
   geqrfp,
   gerq2,
   gerqf,
   gesv,
   getc2,
   getf2,
   getrf,
   getri,
   getrs,
   ggglm,
   gghrd,
   gglse,
   ggqrf,
   ggrqf,
   gtsv,
   gttrf,
   gttrs,
   gtts2,
   hegs2,
   hegst,
   hesv,
   hetrf,
   hetri,
   hetrs,
   hpgst,
   hpsv,
   hptrf,
   hptri,
   hptrs,
   ilalc,
   ilalr,
   lacpy,
   lahr2,
   lapmr,
   lapmt,
   larf,
   larfb,
   larfg,
   larfgp,
   larft,
   larfx,
   larnv,
   larz,
   larzb,
   larzt,
   laset,
   laswp,
   lasyf,
   latrz,
   lauu2,
   lauum,
   pbstf,
   pbsv,
   pbtf2,
   pbtrf,
   pbtrs,
   pftrf,
   pftri,
   pftrs,
   posv,
   potf2,
   potrf,
   potri,
   potrs,
   ppsv,
   pptrf,
   pptri,
   pptrs,
   spsv,
   sptrf,
   sptri,
   sptrs,
   syconv,
   sysv,
   syswapr,
   sytf2,
   sytrf,
   sytri,
   sytri2,
   sytri2x,
   sytrs,
   sytrs2,
   tbtrs,
   tfsm,
   tftri,
   tfttp,
   tfttr,
   tptri,
   tptrs,
   tpttf,
   tpttr,
   trti2,
   trtri,
   trtrs,
   trttf,
   trttp,
   tzrzf,
   ung2l,
   ung2r,
   ungbr,
   unghr,
   ungl2,
   unglq,
   ungql,
   ungqr,
   ungr2,
   ungrq,
   ungtr,
   unm2l,
   unm2r,
   unmbr,
   unmhr,
   unml2,
   unmlq,
   unmql,
   unmqr,
   unmr2,
   unmr3,
   unmrq,
   unmrz,
   unmtr,
   upgtr,
   upmtr,
   ) where

import qualified Numeric.LAPACK.FFI.ComplexFloat as C
import qualified Numeric.LAPACK.FFI.ComplexDouble as Z
import qualified Numeric.LAPACK.FFI.Float as S
import qualified Numeric.LAPACK.FFI.Double as D

import qualified Numeric.Netlib.Class as Class

import Foreign.Ptr (Ptr)
import Foreign.C.Types



newtype GBSV a = GBSV {GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSV :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gbsv :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbsv :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbsv = GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSV (GBSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBSV Float
-> GBSV Double
-> GBSV (Complex Float)
-> GBSV (Complex Double)
-> GBSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gbsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gbsv)


newtype GBTF2 a = GBTF2 {GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTF2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

gbtf2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtf2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtf2 = GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTF2 (GBTF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTF2 Float
-> GBTF2 Double
-> GBTF2 (Complex Float)
-> GBTF2 (Complex Double)
-> GBTF2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gbtf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gbtf2)


newtype GBTRF a = GBTRF {GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

gbtrf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrf = GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRF (GBTRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRF Float
-> GBTRF Double
-> GBTRF (Complex Float)
-> GBTRF (Complex Double)
-> GBTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gbtrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gbtrf)


newtype GBTRS a = GBTRS {GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gbtrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrs = GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRS (GBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRS Float
-> GBTRS Double
-> GBTRS (Complex Float)
-> GBTRS (Complex Double)
-> GBTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gbtrs)


newtype GEHD2 a = GEHD2 {GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEHD2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

gehd2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gehd2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gehd2 = GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEHD2 (GEHD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHD2 Float
-> GEHD2 Double
-> GEHD2 (Complex Float)
-> GEHD2 (Complex Double)
-> GEHD2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEHD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gehd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEHD2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gehd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEHD2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gehd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GEHD2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gehd2)


newtype GEHRD a = GEHRD {GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEHRD :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gehrd :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gehrd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gehrd = GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEHRD (GEHRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHRD Float
-> GEHRD Double
-> GEHRD (Complex Float)
-> GEHRD (Complex Double)
-> GEHRD a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gehrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gehrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gehrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gehrd)


newtype GELQ2 a = GELQ2 {GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGELQ2 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

gelq2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gelq2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gelq2 = GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGELQ2 (GELQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQ2 Float
-> GELQ2 Double
-> GELQ2 (Complex Float)
-> GELQ2 (Complex Double)
-> GELQ2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GELQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gelq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GELQ2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gelq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GELQ2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gelq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GELQ2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gelq2)


newtype GELQF a = GELQF {GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELQF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gelqf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gelqf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelqf = GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELQF (GELQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQF Float
-> GELQF Double
-> GELQF (Complex Float)
-> GELQF (Complex Double)
-> GELQF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gelqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gelqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gelqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gelqf)


newtype GELS a = GELS {GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gels :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gels :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gels = GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELS (GELS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELS Float
-> GELS Double
-> GELS (Complex Float)
-> GELS (Complex Double)
-> GELS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gels) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gels) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gels) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gels)


newtype GEQL2 a = GEQL2 {GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQL2 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

geql2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geql2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geql2 = GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQL2 (GEQL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQL2 Float
-> GEQL2 Double
-> GEQL2 (Complex Float)
-> GEQL2 (Complex Double)
-> GEQL2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geql2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQL2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geql2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQL2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.geql2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GEQL2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.geql2)


newtype GEQLF a = GEQLF {GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQLF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

geqlf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqlf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqlf = GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQLF (GEQLF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQLF Float
-> GEQLF Double
-> GEQLF (Complex Float)
-> GEQLF (Complex Double)
-> GEQLF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqlf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqlf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.geqlf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.geqlf)


newtype GEQR2 a = GEQR2 {GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

geqr2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geqr2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geqr2 = GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2 (GEQR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2 Float
-> GEQR2 Double
-> GEQR2 (Complex Float)
-> GEQR2 (Complex Double)
-> GEQR2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geqr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geqr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQR2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.geqr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GEQR2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.geqr2)


newtype GEQR2P a = GEQR2P {GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2P :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

geqr2p :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geqr2p :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geqr2p = GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2P (GEQR2P a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2P Float
-> GEQR2P Double
-> GEQR2P (Complex Float)
-> GEQR2P (Complex Double)
-> GEQR2P a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQR2P Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geqr2p) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQR2P Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geqr2p) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQR2P (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.geqr2p) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GEQR2P (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.geqr2p)


newtype GEQRF a = GEQRF {GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

geqrf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqrf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrf = GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRF (GEQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRF Float
-> GEQRF Double
-> GEQRF (Complex Float)
-> GEQRF (Complex Double)
-> GEQRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.geqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.geqrf)


newtype GEQRFP a = GEQRFP {GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRFP :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

geqrfp :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqrfp :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrfp = GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRFP (GEQRFP a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRFP Float
-> GEQRFP Double
-> GEQRFP (Complex Float)
-> GEQRFP (Complex Double)
-> GEQRFP a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqrfp) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqrfp) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.geqrfp) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.geqrfp)


newtype GERQ2 a = GERQ2 {GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGERQ2 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

gerq2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gerq2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gerq2 = GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGERQ2 (GERQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQ2 Float
-> GERQ2 Double
-> GERQ2 (Complex Float)
-> GERQ2 (Complex Double)
-> GERQ2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GERQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gerq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GERQ2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gerq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GERQ2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gerq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GERQ2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gerq2)


newtype GERQF a = GERQF {GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERQF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gerqf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gerqf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gerqf = GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERQF (GERQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQF Float
-> GERQF Double
-> GERQF (Complex Float)
-> GERQF (Complex Double)
-> GERQF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gerqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gerqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gerqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gerqf)


newtype GESV a = GESV {GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESV :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gesv :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesv = GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESV (GESV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESV Float
-> GESV Double
-> GESV (Complex Float)
-> GESV (Complex Double)
-> GESV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gesv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gesv)


newtype GETC2 a = GETC2 {GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETC2 :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

getc2 :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getc2 :: Ptr CInt
-> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getc2 = GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETC2 (GETC2 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETC2 Float
-> GETC2 Double
-> GETC2 (Complex Float)
-> GETC2 (Complex Double)
-> GETC2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getc2) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getc2) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.getc2) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.getc2)


newtype GETF2 a = GETF2 {GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETF2 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

getf2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getf2 :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getf2 = GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETF2 (GETF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETF2 Float
-> GETF2 Double
-> GETF2 (Complex Float)
-> GETF2 (Complex Double)
-> GETF2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.getf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.getf2)


newtype GETRF a = GETRF {GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

getrf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getrf :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getrf = GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRF (GETRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRF Float
-> GETRF Double
-> GETRF (Complex Float)
-> GETRF (Complex Double)
-> GETRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.getrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.getrf)


newtype GETRI a = GETRI {GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRI :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

getri :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getri :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getri = GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRI (GETRI a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRI Float
-> GETRI Double
-> GETRI (Complex Float)
-> GETRI (Complex Double)
-> GETRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getri) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getri) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI (Complex Float)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.getri) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI (Complex Double)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.getri)


newtype GETRS a = GETRS {GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

getrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getrs = GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRS (GETRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRS Float
-> GETRS Double
-> GETRS (Complex Float)
-> GETRS (Complex Double)
-> GETRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.getrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.getrs)


newtype GGGLM a = GGGLM {GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGGLM :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ggglm :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggglm :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggglm = GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGGLM (GGGLM a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGGLM Float
-> GGGLM Double
-> GGGLM (Complex Float)
-> GGGLM (Complex Double)
-> GGGLM a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggglm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggglm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ggglm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ggglm)


newtype GGHRD a = GGHRD {GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGHRD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gghrd :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gghrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gghrd = GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGHRD (GGHRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGHRD Float
-> GGHRD Double
-> GGHRD (Complex Float)
-> GGHRD (Complex Double)
-> GGHRD a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gghrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gghrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gghrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gghrd)


newtype GGLSE a = GGLSE {GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGLSE :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gglse :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gglse :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gglse = GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGLSE (GGLSE a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGLSE Float
-> GGLSE Double
-> GGLSE (Complex Float)
-> GGLSE (Complex Double)
-> GGLSE a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gglse) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gglse) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gglse) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gglse)


newtype GGQRF a = GGQRF {GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGQRF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ggqrf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggqrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggqrf = GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGQRF (GGQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGQRF Float
-> GGQRF Double
-> GGQRF (Complex Float)
-> GGQRF (Complex Double)
-> GGQRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ggqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ggqrf)


newtype GGRQF a = GGRQF {GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGRQF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ggrqf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggrqf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggrqf = GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGRQF (GGRQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGRQF Float
-> GGRQF Double
-> GGRQF (Complex Float)
-> GGRQF (Complex Double)
-> GGRQF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggrqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggrqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ggrqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ggrqf)


newtype GTSV a = GTSV {GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSV :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gtsv :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gtsv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtsv = GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSV (GTSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTSV Float
-> GTSV Double
-> GTSV (Complex Float)
-> GTSV (Complex Double)
-> GTSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gtsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gtsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gtsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gtsv)


newtype GTTRF a = GTTRF {GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRF :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gttrf :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gttrf :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrf = GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRF (GTTRF a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRF Float
-> GTTRF Double
-> GTTRF (Complex Float)
-> GTTRF (Complex Double)
-> GTTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gttrf) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gttrf) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gttrf) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gttrf)


newtype GTTRS a = GTTRS {GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gttrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gttrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrs = GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRS (GTTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRS Float
-> GTTRS Double
-> GTTRS (Complex Float)
-> GTTRS (Complex Double)
-> GTTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gttrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gttrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gttrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gttrs)


newtype GTTS2 a = GTTS2 {GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGTTS2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

gtts2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gtts2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gtts2 = GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGTTS2 (GTTS2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTS2 Float
-> GTTS2 Double
-> GTTS2 (Complex Float)
-> GTTS2 (Complex Double)
-> GTTS2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GTTS2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gtts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GTTS2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gtts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GTTS2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gtts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GTTS2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gtts2)


newtype HEGS2 a = HEGS2 {HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGS2 :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hegs2 :: Class.Floating a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hegs2 :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegs2 = HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGS2 (HEGS2 a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGS2 Float
-> HEGS2 Double
-> HEGS2 (Complex Float)
-> HEGS2 (Complex Double)
-> HEGS2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
HEGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygs2) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
HEGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygs2) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
HEGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hegs2) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
HEGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hegs2)


newtype HEGST a = HEGST {HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGST :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hegst :: Class.Floating a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hegst :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegst = HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGST (HEGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGST Float
-> HEGST Double
-> HEGST (Complex Float)
-> HEGST (Complex Double)
-> HEGST a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
HEGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
HEGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
HEGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hegst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
HEGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hegst)


newtype HESV a = HESV {HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHESV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hesv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hesv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hesv = HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHESV (HESV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HESV Float
-> HESV Double
-> HESV (Complex Float)
-> HESV (Complex Double)
-> HESV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
HESV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
HESV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
HESV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hesv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
HESV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hesv)


newtype HETRF a = HETRF {HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hetrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hetrf :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetrf = HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRF (HETRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRF Float
-> HETRF Double
-> HETRF (Complex Float)
-> HETRF (Complex Double)
-> HETRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
HETRF Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
HETRF Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
HETRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
HETRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetrf)


newtype HETRI a = HETRI {HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHETRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

hetri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hetri :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
hetri = HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHETRI (HETRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRI Float
-> HETRI Double
-> HETRI (Complex Float)
-> HETRI (Complex Double)
-> HETRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HETRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HETRI a
HETRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HETRI Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HETRI a
HETRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HETRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HETRI a
HETRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hetri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HETRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HETRI a
HETRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hetri)


newtype HETRS a = HETRS {HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hetrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hetrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetrs = HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRS (HETRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRS Float
-> HETRS Double
-> HETRS (Complex Float)
-> HETRS (Complex Double)
-> HETRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
HETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
HETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
HETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
HETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetrs)


newtype HPGST a = HPGST {HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getHPGST :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

hpgst :: Class.Floating a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
hpgst :: Ptr CInt
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
hpgst = HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getHPGST (HPGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPGST Float
-> HPGST Double
-> HPGST (Complex Float)
-> HPGST (Complex Double)
-> HPGST a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPGST Float
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> HPGST a
HPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.spgst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPGST Double
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> HPGST a
HPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.spgst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPGST (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> HPGST a
HPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hpgst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HPGST (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> HPGST a
HPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hpgst)


newtype HPSV a = HPSV {HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hpsv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hpsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpsv = HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPSV (HPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPSV Float
-> HPSV Double
-> HPSV (Complex Float)
-> HPSV (Complex Double)
-> HPSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
HPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
HPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
HPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hpsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
HPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hpsv)


newtype HPTRF a = HPTRF {HPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getHPTRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hptrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hptrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hptrf = HPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
HPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getHPTRF (HPTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRF Float
-> HPTRF Double
-> HPTRF (Complex Float)
-> HPTRF (Complex Double)
-> HPTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF a
HPTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.sptrf) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF a
HPTRF Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.sptrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRF (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF a
HPTRF Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.hptrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRF (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> HPTRF a
HPTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hptrf)


newtype HPTRI a = HPTRI {HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHPTRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

hptri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hptri :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hptri = HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHPTRI (HPTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRI Float
-> HPTRI Double
-> HPTRI (Complex Float)
-> HPTRI (Complex Double)
-> HPTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> HPTRI a
HPTRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPTRI Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> HPTRI a
HPTRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPTRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> HPTRI a
HPTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HPTRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> HPTRI a
HPTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hptri)


newtype HPTRS a = HPTRS {HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

hptrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hptrs = HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPTRS (HPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRS Float
-> HPTRS Double
-> HPTRS (Complex Float)
-> HPTRS (Complex Double)
-> HPTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
HPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
HPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
HPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
HPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hptrs)


newtype ILALC a = ILALC {ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALC :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt}

ilalc :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalc :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalc = ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a.
ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALC (ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt)
-> ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALC Float
-> ILALC Double
-> ILALC (Complex Float)
-> ILALC (Complex Double)
-> ILALC a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt)
-> ILALC Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt
S.ilalc) ((Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt)
-> ILALC Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt
D.ilalc) ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt)
-> ILALC (Complex Float)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt
C.ilalc) ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt)
-> ILALC (Complex Double)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt
Z.ilalc)


newtype ILALR a = ILALR {ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALR :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt}

ilalr :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalr :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalr = ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a.
ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALR (ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt)
-> ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALR Float
-> ILALR Double
-> ILALR (Complex Float)
-> ILALR (Complex Double)
-> ILALR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt)
-> ILALR Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt
S.ilalr) ((Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt)
-> ILALR Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt
D.ilalr) ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt)
-> ILALR (Complex Float)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt
C.ilalr) ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt)
-> ILALR (Complex Double)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt
Z.ilalr)


newtype LACPY a = LACPY {LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLACPY :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lacpy :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lacpy :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lacpy = LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLACPY (LACPY a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACPY Float
-> LACPY Double
-> LACPY (Complex Float)
-> LACPY (Complex Double)
-> LACPY a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LACPY Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lacpy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LACPY Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lacpy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LACPY (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lacpy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LACPY (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lacpy)


newtype LAHR2 a = LAHR2 {LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAHR2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lahr2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lahr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lahr2 = LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAHR2 (LAHR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAHR2 Float
-> LAHR2 Double
-> LAHR2 (Complex Float)
-> LAHR2 (Complex Double)
-> LAHR2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAHR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lahr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAHR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lahr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAHR2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lahr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAHR2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lahr2)


newtype LAPMR a = LAPMR {LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMR :: Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lapmr :: Class.Floating a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmr :: Ptr Bool
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmr = LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMR (LAPMR a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMR Float
-> LAPMR Double
-> LAPMR (Complex Float)
-> LAPMR (Complex Double)
-> LAPMR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR Float
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lapmr) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR Double
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lapmr) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR (Complex Float)
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lapmr) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR (Complex Double)
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lapmr)


newtype LAPMT a = LAPMT {LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMT :: Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lapmt :: Class.Floating a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmt :: Ptr Bool
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmt = LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMT (LAPMT a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMT Float
-> LAPMT Double
-> LAPMT (Complex Float)
-> LAPMT (Complex Double)
-> LAPMT a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT Float
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lapmt) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT Double
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lapmt) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT (Complex Float)
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lapmt) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT (Complex Double)
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lapmt)


newtype LARF a = LARF {LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

larf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larf = LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARF (LARF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARF Float
-> LARF Double
-> LARF (Complex Float)
-> LARF (Complex Double)
-> LARF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.larf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> LARF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.larf)


newtype LARFB a = LARFB {LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFB :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

larfb :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
larfb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
larfb = LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFB (LARFB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFB Float
-> LARFB Double
-> LARFB (Complex Float)
-> LARFB (Complex Double)
-> LARFB a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARFB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larfb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARFB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larfb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARFB (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.larfb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LARFB (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.larfb)


newtype LARFG a = LARFG {LARFG a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFG :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

larfg :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfg :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfg = LARFG a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARFG a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFG (LARFG a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFG Float
-> LARFG Double
-> LARFG (Complex Float)
-> LARFG (Complex Double)
-> LARFG a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ())
-> LARFG Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ()
S.larfg) ((Ptr CInt
 -> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ())
-> LARFG Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ()
D.larfg) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFG (Complex Float)
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.larfg) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> LARFG (Complex Double)
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.larfg)


newtype LARFGP a = LARFGP {LARFGP a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFGP :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

larfgp :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfgp :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfgp = LARFGP a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARFGP a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFGP (LARFGP a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFGP Float
-> LARFGP Double
-> LARFGP (Complex Float)
-> LARFGP (Complex Double)
-> LARFGP a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ())
-> LARFGP Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ()
S.larfgp) ((Ptr CInt
 -> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ())
-> LARFGP Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ()
D.larfgp) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFGP (Complex Float)
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.larfgp) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> LARFGP (Complex Double)
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.larfgp)


newtype LARFT a = LARFT {LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFT :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larft :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larft :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larft = LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFT (LARFT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFT Float
-> LARFT Double
-> LARFT (Complex Float)
-> LARFT (Complex Double)
-> LARFT a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARFT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larft) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARFT Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larft) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARFT (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.larft) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LARFT (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.larft)


newtype LARFX a = LARFX {LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARFX :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

larfx :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfx :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larfx = LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARFX (LARFX a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFX Float
-> LARFX Double
-> LARFX (Complex Float)
-> LARFX (Complex Double)
-> LARFX a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARFX Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larfx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARFX Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larfx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFX (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.larfx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> LARFX (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.larfx)


newtype LARNV a = LARNV {LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
getLARNV :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()}

larnv :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
larnv :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
larnv = LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
getLARNV (LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ())
-> LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LARNV Float
-> LARNV Double
-> LARNV (Complex Float)
-> LARNV (Complex Double)
-> LARNV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Float -> IO ())
-> LARNV Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Float -> IO ()
S.larnv) ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Double -> IO ())
-> LARNV Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Double -> IO ()
D.larnv) ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Float) -> IO ())
-> LARNV (Complex Float)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Float) -> IO ()
C.larnv) ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> IO ())
-> LARNV (Complex Double)
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> IO ()
Z.larnv)


newtype LARZ a = LARZ {LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARZ :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

larz :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larz :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larz = LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARZ (LARZ a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZ Float
-> LARZ Double
-> LARZ (Complex Float)
-> LARZ (Complex Double)
-> LARZ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARZ Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larz) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARZ Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larz) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARZ (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.larz) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> LARZ (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.larz)


newtype LARZB a = LARZB {LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZB :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

larzb :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
larzb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
larzb = LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZB (LARZB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZB Float
-> LARZB Double
-> LARZB (Complex Float)
-> LARZB (Complex Double)
-> LARZB a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARZB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larzb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARZB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larzb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARZB (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.larzb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LARZB (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.larzb)


newtype LARZT a = LARZT {LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZT :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larzt :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larzt :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larzt = LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZT (LARZT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZT Float
-> LARZT Double
-> LARZT (Complex Float)
-> LARZT (Complex Double)
-> LARZT a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARZT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larzt) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARZT Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larzt) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARZT (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.larzt) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LARZT (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.larzt)


newtype LASET a = LASET {LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASET :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laset :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laset :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laset = LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASET (LASET a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASET Float
-> LASET Double
-> LASET (Complex Float)
-> LASET (Complex Double)
-> LASET a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASET Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laset) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASET Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laset) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LASET (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.laset) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LASET (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.laset)


newtype LASWP a = LASWP {LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASWP :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

laswp :: Class.Floating a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
laswp :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
laswp = LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASWP (LASWP a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASWP Float
-> LASWP Double
-> LASWP (Complex Float)
-> LASWP (Complex Double)
-> LASWP a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laswp) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laswp) ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP (Complex Float)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.laswp) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP (Complex Double)
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.laswp)


newtype LASYF a = LASYF {LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASYF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lasyf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lasyf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lasyf = LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASYF (LASYF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASYF Float
-> LASYF Double
-> LASYF (Complex Float)
-> LASYF (Complex Double)
-> LASYF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lasyf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lasyf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lasyf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lasyf)


newtype LATRZ a = LATRZ {LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getLATRZ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()}

latrz :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
latrz :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
latrz = LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getLATRZ (LATRZ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATRZ Float
-> LATRZ Double
-> LATRZ (Complex Float)
-> LATRZ (Complex Double)
-> LATRZ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LATRZ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO ()
S.latrz) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LATRZ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO ()
D.latrz) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LATRZ (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.latrz) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LATRZ (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.latrz)


newtype LAUU2 a = LAUU2 {LAUU2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUU2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lauu2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 = LAUU2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
LAUU2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUU2 (LAUU2 a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUU2 Float
-> LAUU2 Double
-> LAUU2 (Complex Float)
-> LAUU2 (Complex Double)
-> LAUU2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.lauu2) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.lauu2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUU2 (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.lauu2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUU2 (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lauu2)


newtype LAUUM a = LAUUM {LAUUM a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUUM :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lauum :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauum :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauum = LAUUM a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
LAUUM a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUUM (LAUUM a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUUM Float
-> LAUUM Double
-> LAUUM (Complex Float)
-> LAUUM (Complex Double)
-> LAUUM a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.lauum) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.lauum) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUUM (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.lauum) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUUM (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lauum)


newtype PBSTF a = PBSTF {PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSTF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbstf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbstf :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbstf = PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSTF (PBSTF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSTF Float
-> PBSTF Double
-> PBSTF (Complex Float)
-> PBSTF (Complex Double)
-> PBSTF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbstf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbstf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pbstf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pbstf)


newtype PBSV a = PBSV {PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbsv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbsv = PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSV (PBSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSV Float
-> PBSV Double
-> PBSV (Complex Float)
-> PBSV (Complex Double)
-> PBSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pbsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pbsv)


newtype PBTF2 a = PBTF2 {PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTF2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbtf2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtf2 :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtf2 = PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTF2 (PBTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTF2 Float
-> PBTF2 Double
-> PBTF2 (Complex Float)
-> PBTF2 (Complex Double)
-> PBTF2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pbtf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pbtf2)


newtype PBTRF a = PBTRF {PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbtrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrf :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrf = PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRF (PBTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRF Float
-> PBTRF Double
-> PBTRF (Complex Float)
-> PBTRF (Complex Double)
-> PBTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pbtrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pbtrf)


newtype PBTRS a = PBTRS {PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbtrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbtrs = PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRS (PBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRS Float
-> PBTRS Double
-> PBTRS (Complex Float)
-> PBTRS (Complex Double)
-> PBTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pbtrs)


newtype PFTRF a = PFTRF {PFTRF a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

pftrf :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftrf :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftrf = PFTRF a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PFTRF a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRF (PFTRF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PFTRF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRF Float
-> PFTRF Double
-> PFTRF (Complex Float)
-> PFTRF (Complex Double)
-> PFTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PFTRF Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pftrf) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PFTRF Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pftrf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> PFTRF (Complex Float)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.pftrf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> PFTRF (Complex Double)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.pftrf)


newtype PFTRI a = PFTRI {PFTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRI :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

pftri :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftri :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftri = PFTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PFTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRI (PFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRI Float
-> PFTRI Double
-> PFTRI (Complex Float)
-> PFTRI (Complex Double)
-> PFTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PFTRI Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pftri) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PFTRI Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> PFTRI (Complex Float)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.pftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> PFTRI (Complex Double)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.pftri)


newtype PFTRS a = PFTRS {PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPFTRS :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pftrs :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pftrs :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pftrs = PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPFTRS (PFTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRS Float
-> PFTRS Double
-> PFTRS (Complex Float)
-> PFTRS (Complex Double)
-> PFTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pftrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pftrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pftrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pftrs)


newtype POSV a = POSV {POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

posv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
posv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
posv = POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSV (POSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POSV Float
-> POSV Double
-> POSV (Complex Float)
-> POSV (Complex Double)
-> POSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.posv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.posv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.posv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.posv)


newtype POTF2 a = POTF2 {POTF2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTF2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

potf2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potf2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potf2 = POTF2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTF2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTF2 (POTF2 a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTF2 Float
-> POTF2 Double
-> POTF2 (Complex Float)
-> POTF2 (Complex Double)
-> POTF2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potf2) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTF2 (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.potf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTF2 (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.potf2)


newtype POTRF a = POTRF {POTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

potrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrf = POTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRF (POTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRF Float
-> POTRF Double
-> POTRF (Complex Float)
-> POTRF (Complex Double)
-> POTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potrf) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRF (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.potrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRF (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.potrf)


newtype POTRI a = POTRI {POTRI a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

potri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potri :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potri = POTRI a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTRI a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRI (POTRI a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRI Float
-> POTRI Double
-> POTRI (Complex Float)
-> POTRI (Complex Double)
-> POTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potri) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRI (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.potri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRI (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.potri)


newtype POTRS a = POTRS {POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

potrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
potrs = POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRS (POTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRS Float
-> POTRS Double
-> POTRS (Complex Float)
-> POTRS (Complex Double)
-> POTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.potrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.potrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.potrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.potrs)


newtype PPSV a = PPSV {PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ppsv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ppsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ppsv = PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSV (PPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPSV Float
-> PPSV Double
-> PPSV (Complex Float)
-> PPSV (Complex Double)
-> PPSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ppsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ppsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ppsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ppsv)


newtype PPTRF a = PPTRF {PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

pptrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptrf = PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRF (PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRF Float
-> PPTRF Double
-> PPTRF (Complex Float)
-> PPTRF (Complex Double)
-> PPTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pptrf) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PPTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pptrf) ((Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> PPTRF (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ()
C.pptrf) ((Ptr CChar
 -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ())
-> PPTRF (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ()
Z.pptrf)


newtype PPTRI a = PPTRI {PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

pptri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptri :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptri = PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRI (PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRI Float
-> PPTRI Double
-> PPTRI (Complex Float)
-> PPTRI (Complex Double)
-> PPTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PPTRI Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pptri) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PPTRI Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pptri) ((Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> PPTRI (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ()
C.pptri) ((Ptr CChar
 -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ())
-> PPTRI (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ()
Z.pptri)


newtype PPTRS a = PPTRS {PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pptrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pptrs = PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPTRS (PPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRS Float
-> PPTRS Double
-> PPTRS (Complex Float)
-> PPTRS (Complex Double)
-> PPTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pptrs)


newtype SPSV a = SPSV {SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

spsv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
spsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
spsv = SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSV (SPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPSV Float
-> SPSV Double
-> SPSV (Complex Float)
-> SPSV (Complex Double)
-> SPSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.spsv)


newtype SPTRF a = SPTRF {SPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getSPTRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sptrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrf = SPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
SPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getSPTRF (SPTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRF Float
-> SPTRF Double
-> SPTRF (Complex Float)
-> SPTRF (Complex Double)
-> SPTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.sptrf) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.sptrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRF (Complex Float)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar
-> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> Ptr CInt -> IO ()
C.sptrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRF (Complex Double)
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sptrf)


newtype SPTRI a = SPTRI {SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPTRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sptri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sptri :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sptri = SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPTRI (SPTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRI Float
-> SPTRI Double
-> SPTRI (Complex Float)
-> SPTRI (Complex Double)
-> SPTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPTRI Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SPTRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SPTRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.sptri)


newtype SPTRS a = SPTRS {SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sptrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sptrs = SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRS (SPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRS Float
-> SPTRS Double
-> SPTRS (Complex Float)
-> SPTRS (Complex Double)
-> SPTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sptrs)


newtype SYCONV a = SYCONV {SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYCONV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

syconv :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
syconv :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
syconv = SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYCONV (SYCONV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYCONV Float
-> SYCONV Double
-> SYCONV (Complex Float)
-> SYCONV (Complex Double)
-> SYCONV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYCONV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.syconv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYCONV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.syconv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYCONV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.syconv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYCONV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.syconv)


newtype SYSV a = SYSV {SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sysv :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sysv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sysv = SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSV (SYSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSV Float
-> SYSV Double
-> SYSV (Complex Float)
-> SYSV (Complex Double)
-> SYSV a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sysv)


newtype SYSWAPR a = SYSWAPR {SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSWAPR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

syswapr :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syswapr :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syswapr = SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSWAPR (SYSWAPR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSWAPR Float
-> SYSWAPR Double
-> SYSWAPR (Complex Float)
-> SYSWAPR (Complex Double)
-> SYSWAPR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syswapr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syswapr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.syswapr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.syswapr)


newtype SYTF2 a = SYTF2 {SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTF2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sytf2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sytf2 :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sytf2 = SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTF2 (SYTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTF2 Float
-> SYTF2 Double
-> SYTF2 (Complex Float)
-> SYTF2 (Complex Double)
-> SYTF2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sytf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sytf2)


newtype SYTRF a = SYTRF {SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRF :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sytrf :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytrf :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrf = SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRF (SYTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRF Float
-> SYTRF Double
-> SYTRF (Complex Float)
-> SYTRF (Complex Double)
-> SYTRF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sytrf)


newtype SYTRI a = SYTRI {SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRI :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sytri :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sytri :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sytri = SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRI (SYTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI Float
-> SYTRI Double
-> SYTRI (Complex Float)
-> SYTRI (Complex Double)
-> SYTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYTRI Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYTRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYTRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.sytri)


newtype SYTRI2 a = SYTRI2 {SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sytri2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytri2 :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2 = SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2 (SYTRI2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2 Float
-> SYTRI2 Double
-> SYTRI2 (Complex Float)
-> SYTRI2 (Complex Double)
-> SYTRI2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytri2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytri2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sytri2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sytri2)


newtype SYTRI2X a = SYTRI2X {SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2X :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sytri2x :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytri2x :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2x = SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2X (SYTRI2X a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2X Float
-> SYTRI2X Double
-> SYTRI2X (Complex Float)
-> SYTRI2X (Complex Double)
-> SYTRI2X a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytri2x) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytri2x) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sytri2x) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sytri2x)


newtype SYTRS a = SYTRS {SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sytrs :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrs = SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRS (SYTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS Float
-> SYTRS Double
-> SYTRS (Complex Float)
-> SYTRS (Complex Double)
-> SYTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.sytrs)


newtype SYTRS2 a = SYTRS2 {SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRS2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sytrs2 :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sytrs2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sytrs2 = SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRS2 (SYTRS2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS2 Float
-> SYTRS2 Double
-> SYTRS2 (Complex Float)
-> SYTRS2 (Complex Double)
-> SYTRS2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYTRS2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytrs2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYTRS2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytrs2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYTRS2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.sytrs2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYTRS2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.sytrs2)


newtype TBTRS a = TBTRS {TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBTRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tbtrs :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tbtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tbtrs = TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBTRS (TBTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TBTRS Float
-> TBTRS Double
-> TBTRS (Complex Float)
-> TBTRS (Complex Double)
-> TBTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tbtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tbtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tbtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tbtrs)


newtype TFSM a = TFSM {TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFSM :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

tfsm :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfsm :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
tfsm = TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFSM (TFSM a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFSM Float
-> TFSM Double
-> TFSM (Complex Float)
-> TFSM (Complex Double)
-> TFSM a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TFSM Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tfsm) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFSM Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tfsm) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TFSM (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.tfsm) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TFSM (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.tfsm)


newtype TFTRI a = TFTRI {TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTRI :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

tftri :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tftri :: Ptr CChar
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tftri = TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTRI (TFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTRI Float
-> TFTRI Double
-> TFTRI (Complex Float)
-> TFTRI (Complex Double)
-> TFTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TFTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFTRI Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TFTRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.tftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TFTRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.tftri)


newtype TFTTP a = TFTTP {TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTTP :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

tfttp :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfttp :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfttp = TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTTP (TFTTP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTP Float
-> TFTTP Double
-> TFTTP (Complex Float)
-> TFTTP (Complex Double)
-> TFTTP a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TFTTP Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tfttp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFTTP Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tfttp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TFTTP (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.tfttp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TFTTP (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.tfttp)


newtype TFTTR a = TFTTR {TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTFTTR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tfttr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tfttr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tfttr = TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTFTTR (TFTTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTR Float
-> TFTTR Double
-> TFTTR (Complex Float)
-> TFTTR (Complex Double)
-> TFTTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tfttr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tfttr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tfttr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tfttr)


newtype TPTRI a = TPTRI {TPTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getTPTRI :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

tptri :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tptri :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tptri = TPTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
TPTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getTPTRI (TPTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRI Float
-> TPTRI Double
-> TPTRI (Complex Float)
-> TPTRI (Complex Double)
-> TPTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> TPTRI Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.tptri) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> TPTRI Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.tptri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TPTRI (Complex Float)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.tptri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TPTRI (Complex Double)
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.tptri)


newtype TPTRS a = TPTRS {TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tptrs :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tptrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tptrs = TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTRS (TPTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRS Float
-> TPTRS Double
-> TPTRS (Complex Float)
-> TPTRS (Complex Double)
-> TPTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tptrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tptrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tptrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tptrs)


newtype TPTTF a = TPTTF {TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTPTTF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

tpttf :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tpttf :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tpttf = TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTPTTF (TPTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTF Float
-> TPTTF Double
-> TPTTF (Complex Float)
-> TPTTF (Complex Double)
-> TPTTF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TPTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tpttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TPTTF Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tpttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TPTTF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.tpttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TPTTF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.tpttf)


newtype TPTTR a = TPTTR {TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTTR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tpttr :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tpttr :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tpttr = TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTTR (TPTTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTR Float
-> TPTTR Double
-> TPTTR (Complex Float)
-> TPTTR (Complex Double)
-> TPTTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tpttr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tpttr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tpttr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tpttr)


newtype TRTI2 a = TRTI2 {TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTI2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

trti2 :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trti2 :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trti2 = TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTI2 (TRTI2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTI2 Float
-> TRTI2 Double
-> TRTI2 (Complex Float)
-> TRTI2 (Complex Double)
-> TRTI2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trti2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trti2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.trti2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.trti2)


newtype TRTRI a = TRTRI {TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRI :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

trtri :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtri :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtri = TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRI (TRTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRI Float
-> TRTRI Double
-> TRTRI (Complex Float)
-> TRTRI (Complex Double)
-> TRTRI a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trtri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trtri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.trtri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.trtri)


newtype TRTRS a = TRTRS {TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

trtrs :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
trtrs = TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRS (TRTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRS Float
-> TRTRS Double
-> TRTRS (Complex Float)
-> TRTRS (Complex Double)
-> TRTRS a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.trtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.trtrs)


newtype TRTTF a = TRTTF {TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

trttf :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttf :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trttf = TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTF (TRTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTF Float
-> TRTTF Double
-> TRTTF (Complex Float)
-> TRTTF (Complex Double)
-> TRTTF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRTTF Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TRTTF (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.trttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TRTTF (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.trttf)


newtype TRTTP a = TRTTP {TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTP :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

trttp :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttp :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttp = TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTP (TRTTP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTP Float
-> TRTTP Double
-> TRTTP (Complex Float)
-> TRTTP (Complex Double)
-> TRTTP a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRTTP Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trttp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRTTP Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trttp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TRTTP (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.trttp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> TRTTP (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.trttp)


newtype TZRZF a = TZRZF {TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTZRZF :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tzrzf :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tzrzf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tzrzf = TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTZRZF (TZRZF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TZRZF Float
-> TZRZF Double
-> TZRZF (Complex Float)
-> TZRZF (Complex Double)
-> TZRZF a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tzrzf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tzrzf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tzrzf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tzrzf)


newtype UNG2L a = UNG2L {UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNG2L :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ung2l :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ung2l :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ung2l = UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNG2L (UNG2L a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNG2L Float
-> UNG2L Double
-> UNG2L (Complex Float)
-> UNG2L (Complex Double)
-> UNG2L a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNG2L Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2L a
UNG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.org2l) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNG2L Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2L a
UNG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.org2l) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNG2L (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2L a
UNG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.ung2l) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNG2L (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2L a
UNG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.ung2l)


newtype UNG2R a = UNG2R {UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNG2R :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ung2r :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ung2r :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ung2r = UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNG2R (UNG2R a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNG2R Float
-> UNG2R Double
-> UNG2R (Complex Float)
-> UNG2R (Complex Double)
-> UNG2R a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNG2R Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2R a
UNG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.org2r) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNG2R Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2R a
UNG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.org2r) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNG2R (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2R a
UNG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.ung2r) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNG2R (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNG2R a
UNG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.ung2r)


newtype UNGBR a = UNGBR {UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGBR :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ungbr :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ungbr :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungbr = UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGBR (UNGBR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGBR Float
-> UNGBR Double
-> UNGBR (Complex Float)
-> UNGBR (Complex Double)
-> UNGBR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
UNGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgbr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
UNGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgbr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
UNGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ungbr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
UNGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ungbr)


newtype UNGHR a = UNGHR {UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGHR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unghr :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unghr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unghr = UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGHR (UNGHR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGHR Float
-> UNGHR Double
-> UNGHR (Complex Float)
-> UNGHR (Complex Double)
-> UNGHR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
UNGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orghr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
UNGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orghr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
UNGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unghr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
UNGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unghr)


newtype UNGL2 a = UNGL2 {UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNGL2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ungl2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ungl2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ungl2 = UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNGL2 (UNGL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGL2 Float
-> UNGL2 Double
-> UNGL2 (Complex Float)
-> UNGL2 (Complex Double)
-> UNGL2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNGL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
UNGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orgl2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNGL2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
UNGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orgl2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNGL2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
UNGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.ungl2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNGL2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
UNGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.ungl2)


newtype UNGLQ a = UNGLQ {UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGLQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unglq :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unglq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unglq = UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGLQ (UNGLQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGLQ Float
-> UNGLQ Double
-> UNGLQ (Complex Float)
-> UNGLQ (Complex Double)
-> UNGLQ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
UNGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orglq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
UNGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orglq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
UNGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unglq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
UNGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unglq)


newtype UNGQL a = UNGQL {UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQL :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ungql :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ungql :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungql = UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQL (UNGQL a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGQL Float
-> UNGQL Double
-> UNGQL (Complex Float)
-> UNGQL (Complex Double)
-> UNGQL a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
UNGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgql) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
UNGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgql) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
UNGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ungql) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
UNGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ungql)


newtype UNGQR a = UNGQR {UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ungqr :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ungqr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungqr = UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQR (UNGQR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGQR Float
-> UNGQR Double
-> UNGQR (Complex Float)
-> UNGQR (Complex Double)
-> UNGQR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
UNGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgqr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
UNGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgqr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
UNGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ungqr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
UNGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ungqr)


newtype UNGR2 a = UNGR2 {UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNGR2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ungr2 :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ungr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ungr2 = UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getUNGR2 (UNGR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGR2 Float
-> UNGR2 Double
-> UNGR2 (Complex Float)
-> UNGR2 (Complex Double)
-> UNGR2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNGR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
UNGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orgr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNGR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
UNGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orgr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNGR2 (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
UNGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.ungr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNGR2 (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
UNGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.ungr2)


newtype UNGRQ a = UNGRQ {UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGRQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ungrq :: Class.Floating a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ungrq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungrq = UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGRQ (UNGRQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGRQ Float
-> UNGRQ Double
-> UNGRQ (Complex Float)
-> UNGRQ (Complex Double)
-> UNGRQ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
UNGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgrq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
UNGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgrq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ (Complex Float)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
UNGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ungrq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ (Complex Double)
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
UNGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ungrq)


newtype UNGTR a = UNGTR {UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGTR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ungtr :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ungtr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungtr = UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGTR (UNGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGTR Float
-> UNGTR Double
-> UNGTR (Complex Float)
-> UNGTR (Complex Double)
-> UNGTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
UNGTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
UNGTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
UNGTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ungtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
UNGTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ungtr)


newtype UNM2L a = UNM2L {UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNM2L :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

unm2l :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
unm2l :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
unm2l = UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNM2L (UNM2L a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNM2L Float
-> UNM2L Double
-> UNM2L (Complex Float)
-> UNM2L (Complex Double)
-> UNM2L a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNM2L Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2L a
UNM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orm2l) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNM2L Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2L a
UNM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orm2l) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNM2L (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2L a
UNM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.unm2l) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNM2L (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2L a
UNM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.unm2l)


newtype UNM2R a = UNM2R {UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNM2R :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

unm2r :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
unm2r :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
unm2r = UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNM2R (UNM2R a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNM2R Float
-> UNM2R Double
-> UNM2R (Complex Float)
-> UNM2R (Complex Double)
-> UNM2R a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNM2R Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2R a
UNM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orm2r) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNM2R Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2R a
UNM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orm2r) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNM2R (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2R a
UNM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.unm2r) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNM2R (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNM2R a
UNM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.unm2r)


newtype UNMBR a = UNMBR {UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMBR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmbr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmbr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmbr = UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMBR (UNMBR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMBR Float
-> UNMBR Double
-> UNMBR (Complex Float)
-> UNMBR (Complex Double)
-> UNMBR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
UNMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormbr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
UNMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormbr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
UNMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmbr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
UNMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmbr)


newtype UNMHR a = UNMHR {UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMHR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmhr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmhr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmhr = UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMHR (UNMHR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMHR Float
-> UNMHR Double
-> UNMHR (Complex Float)
-> UNMHR (Complex Double)
-> UNMHR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
UNMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormhr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
UNMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormhr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
UNMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmhr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
UNMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmhr)


newtype UNML2 a = UNML2 {UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNML2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

unml2 :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
unml2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
unml2 = UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNML2 (UNML2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNML2 Float
-> UNML2 Double
-> UNML2 (Complex Float)
-> UNML2 (Complex Double)
-> UNML2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNML2 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNML2 a
UNML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orml2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNML2 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNML2 a
UNML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orml2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNML2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNML2 a
UNML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.unml2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNML2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNML2 a
UNML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.unml2)


newtype UNMLQ a = UNMLQ {UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMLQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmlq :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmlq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmlq = UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMLQ (UNMLQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMLQ Float
-> UNMLQ Double
-> UNMLQ (Complex Float)
-> UNMLQ (Complex Double)
-> UNMLQ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
UNMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormlq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
UNMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormlq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
UNMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmlq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
UNMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmlq)


newtype UNMQL a = UNMQL {UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQL :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmql :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmql :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmql = UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQL (UNMQL a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMQL Float
-> UNMQL Double
-> UNMQL (Complex Float)
-> UNMQL (Complex Double)
-> UNMQL a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
UNMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormql) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
UNMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormql) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
UNMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmql) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
UNMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmql)


newtype UNMQR a = UNMQR {UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmqr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmqr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmqr = UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQR (UNMQR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMQR Float
-> UNMQR Double
-> UNMQR (Complex Float)
-> UNMQR (Complex Double)
-> UNMQR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
UNMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormqr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
UNMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormqr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
UNMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmqr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
UNMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmqr)


newtype UNMR2 a = UNMR2 {UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNMR2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

unmr2 :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
unmr2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
unmr2 = UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNMR2 (UNMR2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMR2 Float
-> UNMR2 Double
-> UNMR2 (Complex Float)
-> UNMR2 (Complex Double)
-> UNMR2 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNMR2 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
UNMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ormr2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNMR2 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
UNMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ormr2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNMR2 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
UNMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.unmr2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNMR2 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
UNMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.unmr2)


newtype UNMR3 a = UNMR3 {UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNMR3 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

unmr3 :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
unmr3 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
unmr3 = UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUNMR3 (UNMR3 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMR3 Float
-> UNMR3 Double
-> UNMR3 (Complex Float)
-> UNMR3 (Complex Double)
-> UNMR3 a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UNMR3 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
UNMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ormr3) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UNMR3 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
UNMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ormr3) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNMR3 (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
UNMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.unmr3) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UNMR3 (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
UNMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.unmr3)


newtype UNMRQ a = UNMRQ {UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmrq :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmrq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmrq = UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRQ (UNMRQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMRQ Float
-> UNMRQ Double
-> UNMRQ (Complex Float)
-> UNMRQ (Complex Double)
-> UNMRQ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
UNMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormrq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
UNMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormrq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
UNMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmrq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
UNMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmrq)


newtype UNMRZ a = UNMRZ {UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRZ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmrz :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmrz :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmrz = UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRZ (UNMRZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMRZ Float
-> UNMRZ Double
-> UNMRZ (Complex Float)
-> UNMRZ (Complex Double)
-> UNMRZ a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
UNMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormrz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
UNMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormrz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
UNMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmrz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
UNMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmrz)


newtype UNMTR a = UNMTR {UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

unmtr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
unmtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmtr = UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMTR (UNMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMTR Float
-> UNMTR Double
-> UNMTR (Complex Float)
-> UNMTR (Complex Double)
-> UNMTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
UNMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
UNMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
UNMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unmtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
UNMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unmtr)


newtype UPGTR a = UPGTR {UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUPGTR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

upgtr :: Class.Floating a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
upgtr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
upgtr = UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUPGTR (UPGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UPGTR Float
-> UPGTR Double
-> UPGTR (Complex Float)
-> UPGTR (Complex Double)
-> UPGTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UPGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPGTR a
UPGTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.opgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UPGTR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPGTR a
UPGTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.opgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UPGTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPGTR a
UPGTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.upgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UPGTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPGTR a
UPGTR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.upgtr)


newtype UPMTR a = UPMTR {UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUPMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

upmtr :: Class.Floating a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
upmtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
upmtr = UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getUPMTR (UPMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UPMTR Float
-> UPMTR Double
-> UPMTR (Complex Float)
-> UPMTR (Complex Double)
-> UPMTR a
forall a (f :: * -> *).
Floating a =>
f Float
-> f Double -> f (Complex Float) -> f (Complex Double) -> f a
Class.switchFloating ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> UPMTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPMTR a
UPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.opmtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> UPMTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPMTR a
UPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.opmtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UPMTR (Complex Float)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPMTR a
UPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.upmtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> UPMTR (Complex Double)
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> UPMTR a
UPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.upmtr)