-- Do not edit! Automatically generated by create-lapack-ffi.
module Numeric.LAPACK.FFI.Complex (
   bbcsd,
   bdsqr,
   gbbrd,
   gbcon,
   gbequ,
   gbequb,
   gbrfs,
   gbsv,
   gbsvx,
   gbtf2,
   gbtrf,
   gbtrs,
   gebak,
   gebal,
   gebd2,
   gebrd,
   gecon,
   geequ,
   geequb,
   gees,
   geesx,
   geev,
   geevx,
   gehd2,
   gehrd,
   gelq2,
   gelqf,
   gels,
   gelsd,
   gelss,
   gelsy,
   geql2,
   geqlf,
   geqp3,
   geqr2,
   geqr2p,
   geqrf,
   geqrfp,
   gerfs,
   gerq2,
   gerqf,
   gesc2,
   gesdd,
   gesv,
   gesvd,
   gesvx,
   getc2,
   getf2,
   getrf,
   getri,
   getrs,
   ggbak,
   ggbal,
   gges,
   ggesx,
   ggev,
   ggevx,
   ggglm,
   gghrd,
   gglse,
   ggqrf,
   ggrqf,
   gtcon,
   gtrfs,
   gtsv,
   gtsvx,
   gttrf,
   gttrs,
   gtts2,
   hbev,
   hbevd,
   hbevx,
   hbgst,
   hbgv,
   hbgvd,
   hbgvx,
   hbtrd,
   hecon,
   heequb,
   heev,
   heevd,
   heevr,
   heevx,
   hegs2,
   hegst,
   hegv,
   hegvd,
   hegvx,
   herfs,
   hesv,
   hesvx,
   heswapr,
   hetd2,
   hetf2,
   hetrd,
   hetrf,
   hetri,
   hetri2,
   hetri2x,
   hetrs,
   hetrs2,
   hfrk,
   hgeqz,
   hpcon,
   hpev,
   hpevd,
   hpevx,
   hpgst,
   hpgv,
   hpgvd,
   hpgvx,
   hprfs,
   hpsv,
   hpsvx,
   hptrd,
   hptrf,
   hptri,
   hptrs,
   hsein,
   hseqr,
   ilalc,
   ilalr,
   imax1,
   labrd,
   lacgv,
   lacn2,
   lacon,
   lacp2,
   lacpy,
   lacrm,
   lacrt,
   laed0,
   laed7,
   laed8,
   laein,
   laesy,
   laev2,
   lags2,
   lagtm,
   lahef,
   lahqr,
   lahr2,
   laic1,
   lals0,
   lalsa,
   lalsd,
   langb,
   lange,
   langt,
   lanhb,
   lanhe,
   lanhf,
   lanhp,
   lanhs,
   lanht,
   lansb,
   lansp,
   lansy,
   lantb,
   lantp,
   lantr,
   lapll,
   lapmr,
   lapmt,
   laqgb,
   laqge,
   laqhb,
   laqhe,
   laqhp,
   laqp2,
   laqps,
   laqr0,
   laqr1,
   laqr2,
   laqr3,
   laqr4,
   laqr5,
   laqsb,
   laqsp,
   laqsy,
   lar1v,
   lar2v,
   larcm,
   larf,
   larfb,
   larfg,
   larfgp,
   larft,
   larfx,
   largv,
   larnv,
   larrv,
   lartg,
   lartv,
   larz,
   larzb,
   larzt,
   lascl,
   laset,
   lasr,
   lassq,
   laswp,
   lasyf,
   latbs,
   latdf,
   latps,
   latrd,
   latrs,
   latrz,
   lauu2,
   lauum,
   pbcon,
   pbequ,
   pbrfs,
   pbstf,
   pbsv,
   pbsvx,
   pbtf2,
   pbtrf,
   pbtrs,
   pftrf,
   pftri,
   pftrs,
   pocon,
   poequ,
   poequb,
   porfs,
   posv,
   posvx,
   potf2,
   potrf,
   potri,
   potrs,
   ppcon,
   ppequ,
   pprfs,
   ppsv,
   ppsvx,
   pptrf,
   pptri,
   pptrs,
   pstf2,
   pstrf,
   ptcon,
   pteqr,
   ptrfs,
   ptsv,
   ptsvx,
   pttrf,
   pttrs,
   ptts2,
   rot,
   rscl,
   spcon,
   spmv,
   spr,
   sprfs,
   spsv,
   spsvx,
   sptrf,
   sptri,
   sptrs,
   stedc,
   stegr,
   stein,
   stemr,
   steqr,
   sum1,
   sycon,
   syconv,
   syequb,
   symv,
   syr,
   syrfs,
   sysv,
   sysvx,
   syswapr,
   sytf2,
   sytrf,
   sytri,
   sytri2,
   sytri2x,
   sytrs,
   sytrs2,
   tbcon,
   tbrfs,
   tbtrs,
   tfsm,
   tftri,
   tfttp,
   tfttr,
   tgevc,
   tgex2,
   tgexc,
   tgsen,
   tgsja,
   tgsna,
   tgsy2,
   tgsyl,
   tpcon,
   tprfs,
   tptri,
   tptrs,
   tpttf,
   tpttr,
   trcon,
   trevc,
   trexc,
   trrfs,
   trsen,
   trsna,
   trsyl,
   trti2,
   trtri,
   trtrs,
   trttf,
   trttp,
   tzrzf,
   unbdb,
   uncsd,
   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.Netlib.Class as Class

import Data.Complex (Complex)
import Foreign.Ptr (FunPtr, Ptr)
import Foreign.C.Types



newtype BBCSD a = BBCSD {BBCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getBBCSD :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

bbcsd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
bbcsd :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
bbcsd = BBCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
BBCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getBBCSD (BBCSD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BBCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ BBCSD Float -> BBCSD Double -> BBCSD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BBCSD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BBCSD a
BBCSD Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.bbcsd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BBCSD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BBCSD a
BBCSD Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.bbcsd)


newtype BDSQR a = BDSQR {BDSQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getBDSQR :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

bdsqr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
bdsqr :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
bdsqr = BDSQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
BDSQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getBDSQR (BDSQR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> BDSQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ BDSQR Float -> BDSQR Double -> BDSQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> BDSQR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> BDSQR a
BDSQR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.bdsqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> BDSQR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> BDSQR a
BDSQR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.bdsqr)


newtype GBBRD a = GBBRD {GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBBRD :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gbbrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gbbrd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gbbrd = GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBBRD (GBBRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBBRD Float -> GBBRD Double -> GBBRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBBRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
GBBRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbbrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBBRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
GBBRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbbrd)


newtype GBCON a = GBCON {GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBCON :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gbcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gbcon :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gbcon = GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBCON (GBCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBCON Float -> GBCON Double -> GBCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBCON a
GBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBCON a
GBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbcon)


newtype GBEQU a = GBEQU {GBEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGBEQU :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

gbequ :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gbequ :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gbequ = GBEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGBEQU (GBEQU a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBEQU Float -> GBEQU Double -> GBEQU a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBEQU Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQU a
GBEQU Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbequ) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBEQU Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQU a
GBEQU Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbequ)


newtype GBEQUB a = GBEQUB {GBEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGBEQUB :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

gbequb :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gbequb :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gbequb = GBEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGBEQUB (GBEQUB a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBEQUB Float -> GBEQUB Double -> GBEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBEQUB Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQUB a
GBEQUB Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbequb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBEQUB Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBEQUB a
GBEQUB Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbequb)


newtype GBRFS a = GBRFS {GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gbrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gbrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gbrfs = GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBRFS (GBRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBRFS Float -> GBRFS Double -> GBRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBRFS a
GBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBRFS a
GBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbrfs)


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

gbsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gbsv :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbsv = GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSV (GBSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBSV Float -> GBSV Double -> GBSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 GBSVX a = GBSVX {GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gbsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gbsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gbsvx = GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGBSVX (GBSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBSVX Float -> GBSVX Double -> GBSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBSVX a
GBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gbsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBSVX a
GBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gbsvx)


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

gbtf2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtf2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtf2 = GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTF2 (GBTF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTF2 Float -> GBTF2 Double -> GBTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

gbtrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrf = GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRF (GBTRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRF Float -> GBTRF Double -> GBTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gbtrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrs = GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRS (GBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRS Float -> GBTRS Double -> GBTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 GEBAK a = GEBAK {GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBAK :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gebak :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gebak :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gebak = GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBAK (GEBAK a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEBAK Float -> GEBAK Double -> GEBAK a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
GEBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gebak) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
GEBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gebak)


newtype GEBAL a = GEBAL {GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEBAL :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

gebal :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gebal :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gebal = GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEBAL (GEBAL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEBAL Float -> GEBAL Double -> GEBAL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEBAL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
GEBAL Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gebal) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEBAL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
GEBAL Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gebal)


newtype GEBD2 a = GEBD2 {GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEBD2 :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

gebd2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
gebd2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gebd2 = GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEBD2 (GEBD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEBD2 Float -> GEBD2 Double -> GEBD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEBD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
GEBD2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gebd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GEBD2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
GEBD2 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gebd2)


newtype GEBRD a = GEBRD {GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBRD :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gebrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gebrd :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gebrd = GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBRD (GEBRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEBRD Float -> GEBRD Double -> GEBRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
GEBRD Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gebrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
GEBRD Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gebrd)


newtype GECON a = GECON {GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGECON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gecon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gecon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gecon = GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGECON (GECON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GECON Float -> GECON Double -> GECON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GECON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GECON a
GECON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gecon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GECON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GECON a
GECON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gecon)


newtype GEEQU a = GEEQU {GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQU :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

geequ :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geequ :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geequ = GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQU (GEEQU a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEEQU Float -> GEEQU Double -> GEEQU a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEEQU Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
GEEQU Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.geequ) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEEQU Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
GEEQU Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.geequ)


newtype GEEQUB a = GEEQUB {GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQUB :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

geequb :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geequb :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geequb = GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQUB (GEEQUB a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEEQUB Float -> GEEQUB Double -> GEEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEEQUB Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
GEEQUB Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.geequb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEEQUB Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
GEEQUB Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.geequb)


newtype GEES a = GEES {GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEES :: Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> IO Bool) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()}

gees :: Class.Real a => Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> IO Bool) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()
gees :: Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
gees = GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEES (GEES a
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEES Float -> GEES Double -> GEES a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Float) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
GEES Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Float) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Bool
-> Ptr CInt
-> IO ()
C.gees) ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Double) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
GEES Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Double) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Bool
-> Ptr CInt
-> IO ()
Z.gees)


newtype GEESX a = GEESX {GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEESX :: Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()}

geesx :: Class.Real a => Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()
geesx :: Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
geesx = GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEESX (GEESX a
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEESX Float -> GEESX Double -> GEESX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Float) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
GEESX Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Float) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Bool
-> Ptr CInt
-> IO ()
C.geesx) ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Double) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
GEESX Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Double) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Bool
-> Ptr CInt
-> IO ()
Z.geesx)


newtype GEEV a = GEEV {GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

geev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
geev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
geev = GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEV (GEEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEEV Float -> GEEV Double -> GEEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEV a
GEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.geev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEV a
GEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.geev)


newtype GEEVX a = GEEVX {GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

geevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
geevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
geevx = GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEVX (GEEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEEVX Float -> GEEVX Double -> GEEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEVX a
GEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.geevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEVX a
GEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.geevx)


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

gehd2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
gehd2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gehd2 = GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEHD2 (GEHD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHD2 Float -> GEHD2 Double -> GEHD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEHD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEHRD :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gehrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gehrd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gehrd = GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEHRD (GEHRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHRD Float -> GEHRD Double -> GEHRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGELQ2 :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

gelq2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
gelq2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gelq2 = GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGELQ2 (GELQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQ2 Float -> GELQ2 Double -> GELQ2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GELQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELQF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gelqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gelqf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelqf = GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELQF (GELQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQF Float -> GELQF Double -> GELQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gels :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gels :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gels = GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELS (GELS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELS Float -> GELS Double -> GELS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 GELSD a = GELSD {GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSD :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gelsd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gelsd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelsd = GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSD (GELSD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELSD Float -> GELSD Double -> GELSD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
GELSD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gelsd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
GELSD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gelsd)


newtype GELSS a = GELSS {GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGELSS :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

gelss :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gelss :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gelss = GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGELSS (GELSS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELSS Float -> GELSS Double -> GELSS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GELSS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSS a
GELSS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gelss) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GELSS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSS a
GELSS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gelss)


newtype GELSY a = GELSY {GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGELSY :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

gelsy :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gelsy :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gelsy = GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGELSY (GELSY a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELSY Float -> GELSY Double -> GELSY a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GELSY Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSY a
GELSY Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gelsy) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GELSY Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELSY a
GELSY Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gelsy)


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

geql2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
geql2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
geql2 = GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEQL2 (GEQL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQL2 Float -> GEQL2 Double -> GEQL2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQLF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

geqlf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
geqlf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqlf = GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQLF (GEQLF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQLF Float -> GEQLF Double -> GEQLF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 GEQP3 a = GEQP3 {GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQP3 :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

geqp3 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
geqp3 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
geqp3 = GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQP3 (GEQP3 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQP3 Float -> GEQP3 Double -> GEQP3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQP3 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
GEQP3 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.geqp3) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQP3 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
GEQP3 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.geqp3)


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

geqr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
geqr2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
geqr2 = GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEQR2 (GEQR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2 Float -> GEQR2 Double -> GEQR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEQR2P :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

geqr2p :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
geqr2p :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
geqr2p = GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGEQR2P (GEQR2P a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2P Float -> GEQR2P Double -> GEQR2P a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GEQR2P Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

geqrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
geqrf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrf = GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRF (GEQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRF Float -> GEQRF Double -> GEQRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRFP :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

geqrfp :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
geqrfp :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrfp = GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRFP (GEQRFP a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRFP Float -> GEQRFP Double -> GEQRFP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 GERFS a = GERFS {GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGERFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gerfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gerfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gerfs = GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGERFS (GERFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERFS Float -> GERFS Double -> GERFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GERFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERFS a
GERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gerfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GERFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERFS a
GERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gerfs)


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

gerq2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
gerq2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gerq2 = GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGERQ2 (GERQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQ2 Float -> GERQ2 Double -> GERQ2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GERQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERQF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gerqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gerqf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gerqf = GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERQF (GERQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQF Float -> GERQF Double -> GERQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 GESC2 a = GESC2 {GESC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
getGESC2 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()}

gesc2 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
gesc2 :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
gesc2 = GESC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
GESC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
getGESC2 (GESC2 a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESC2 Float -> GESC2 Double -> GESC2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> GESC2 Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
GESC2 Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> IO ()
C.gesc2) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> GESC2 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
GESC2 Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> IO ()
Z.gesc2)


newtype GESDD a = GESDD {GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESDD :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gesdd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesdd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesdd = GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESDD (GESDD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESDD Float -> GESDD Double -> GESDD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
GESDD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.gesdd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
GESDD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.gesdd)


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

gesv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gesv :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesv = GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESV (GESV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESV Float -> GESV Double -> GESV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 GESVD a = GESVD {GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGESVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

gesvd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gesvd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gesvd = GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGESVD (GESVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESVD Float -> GESVD Double -> GESVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GESVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVD a
GESVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gesvd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GESVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVD a
GESVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gesvd)


newtype GESVX a = GESVX {GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGESVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gesvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gesvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gesvx = GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGESVX (GESVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESVX Float -> GESVX Double -> GESVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GESVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVX a
GESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gesvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GESVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GESVX a
GESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gesvx)


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

getc2 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getc2 :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getc2 = GETC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETC2 (GETC2 a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETC2 Float -> GETC2 Double -> GETC2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 Float
forall a.
(Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETF2 :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

getf2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getf2 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getf2 = GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETF2 (GETF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETF2 Float -> GETF2 Double -> GETF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

getrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getrf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getrf = GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRF (GETRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRF Float -> GETRF Double -> GETRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRI :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

getri :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
getri :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getri = GETRI a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRI a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRI (GETRI a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRI Float -> GETRI Double -> GETRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

getrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
getrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getrs = GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRS (GETRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRS Float -> GETRS Double -> GETRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 GGBAK a = GGBAK {GGBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGBAK :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ggbak :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ggbak :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggbak = GGBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGBAK (GGBAK a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGBAK Float -> GGBAK Double -> GGBAK a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGBAK Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGBAK a
GGBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ggbak) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGBAK Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGBAK a
GGBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ggbak)


newtype GGBAL a = GGBAL {GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGGBAL :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ggbal :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ggbal :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ggbal = GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGGBAL (GGBAL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGBAL Float -> GGBAL Double -> GGBAL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GGBAL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
GGBAL Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ggbal) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GGBAL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
GGBAL Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ggbal)


newtype GGES a = GGES {GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGES :: Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()}

gges :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr Bool -> Ptr CInt -> IO ()
gges :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
gges = GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGES (GGES a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGES Float -> GGES Double -> GGES a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
GGES Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Bool
-> Ptr CInt
-> IO ()
C.gges) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
GGES Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Bool
-> Ptr CInt
-> IO ()
Z.gges)


newtype GGESX a = GGESX {GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGESX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()}

ggesx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
ggesx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
ggesx = GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGESX (GGESX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGESX Float -> GGESX Double -> GGESX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
GGESX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
C.ggesx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
GGESX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
Z.ggesx)


newtype GGEV a = GGEV {GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGGEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

ggev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
ggev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
ggev = GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGGEV (GGEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGEV Float -> GGEV Double -> GGEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GGEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGEV a
GGEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ggev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GGEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGEV a
GGEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ggev)


newtype GGEVX a = GGEVX {GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()}

ggevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
ggevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
ggevx = GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGEVX (GGEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGEVX Float -> GGEVX Double -> GGEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
GGEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
C.ggevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
GGEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
Z.ggevx)


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

ggglm :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ggglm :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggglm = GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGGLM (GGGLM a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGGLM Float -> GGGLM Double -> GGGLM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGHRD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gghrd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gghrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gghrd = GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGHRD (GGHRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGHRD Float -> GGHRD Double -> GGHRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGLSE :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gglse :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gglse :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gglse = GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGLSE (GGLSE a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGLSE Float -> GGLSE Double -> GGLSE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGQRF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ggqrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ggqrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggqrf = GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGQRF (GGQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGQRF Float -> GGQRF Double -> GGQRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGRQF :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ggrqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ggrqf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggrqf = GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGRQF (GGRQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGRQF Float -> GGRQF Double -> GGRQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 GTCON a = GTCON {GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGTCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

gtcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
gtcon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gtcon = GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGTCON (GTCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTCON Float -> GTCON Double -> GTCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> GTCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GTCON a
GTCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.gtcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> GTCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GTCON a
GTCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.gtcon)


newtype GTRFS a = GTRFS {GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGTRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gtrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gtrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gtrfs = GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGTRFS (GTRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTRFS Float -> GTRFS Double -> GTRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GTRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTRFS a
GTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gtrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GTRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTRFS a
GTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gtrfs)


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

gtsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gtsv :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtsv = GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSV (GTSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTSV Float -> GTSV Double -> GTSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 GTSVX a = GTSVX {GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGTSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

gtsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
gtsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
gtsvx = GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getGTSVX (GTSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTSVX Float -> GTSVX Double -> GTSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GTSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTSVX a
GTSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.gtsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GTSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTSVX a
GTSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.gtsvx)


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

gttrf :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gttrf :: Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrf = GTTRF a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRF a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRF (GTTRF a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRF Float -> GTTRF Double -> GTTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

gttrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
gttrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrs = GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRS (GTTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRS Float -> GTTRS Double -> GTTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGTTS2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

gtts2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
gtts2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
gtts2 = GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getGTTS2 (GTTS2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTS2 Float -> GTTS2 Double -> GTTS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 HBEV a = HBEV {HBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hbev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hbev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hbev = HBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBEV (HBEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBEV Float -> HBEV Double -> HBEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HBEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBEV a
HBEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hbev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HBEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBEV a
HBEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hbev)


newtype HBEVD a = HBEVD {HBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hbevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hbevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hbevd = HBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBEVD (HBEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBEVD Float -> HBEVD Double -> HBEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVD a
HBEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hbevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVD a
HBEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hbevd)


newtype HBEVX a = HBEVX {HBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hbevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hbevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hbevx = HBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBEVX (HBEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBEVX Float -> HBEVX Double -> HBEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVX a
HBEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hbevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBEVX a
HBEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hbevx)


newtype HBGST a = HBGST {HBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBGST :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hbgst :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hbgst :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hbgst = HBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBGST (HBGST a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBGST Float -> HBGST Double -> HBGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr CInt
 -> IO ())
-> HBGST Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGST a
HBGST 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 Float
-> Ptr CInt
-> IO ()
C.hbgst) ((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 Double
 -> Ptr CInt
 -> IO ())
-> HBGST Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGST a
HBGST 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 Double
-> Ptr CInt
-> IO ()
Z.hbgst)


newtype HBGV a = HBGV {HBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBGV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hbgv :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hbgv :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hbgv = HBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHBGV (HBGV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBGV Float -> HBGV Double -> HBGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HBGV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGV a
HBGV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hbgv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HBGV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HBGV a
HBGV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hbgv)


newtype HBGVD a = HBGVD {HBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBGVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hbgvd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hbgvd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hbgvd = HBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBGVD (HBGVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBGVD Float -> HBGVD Double -> HBGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVD a
HBGVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hbgvd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVD a
HBGVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hbgvd)


newtype HBGVX a = HBGVX {HBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBGVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hbgvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hbgvx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hbgvx = HBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHBGVX (HBGVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBGVX Float -> HBGVX Double -> HBGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVX a
HBGVX 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 Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hbgvx) ((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 Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HBGVX a
HBGVX 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 Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hbgvx)


newtype HBTRD a = HBTRD {HBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHBTRD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hbtrd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
hbtrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hbtrd = HBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHBTRD (HBTRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HBTRD Float -> HBTRD Double -> HBTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HBTRD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HBTRD a
HBTRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hbtrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HBTRD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HBTRD a
HBTRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hbtrd)


newtype HECON a = HECON {HECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHECON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hecon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
hecon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hecon = HECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHECON (HECON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HECON Float -> HECON Double -> HECON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HECON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HECON a
HECON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hecon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HECON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HECON a
HECON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hecon)


newtype HEEQUB a = HEEQUB {HEEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHEEQUB :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

heequb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
heequb :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
heequb = HEEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HEEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHEEQUB (HEEQUB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HEEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEEQUB Float -> HEEQUB Double -> HEEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HEEQUB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HEEQUB a
HEEQUB Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.heequb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HEEQUB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HEEQUB a
HEEQUB Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.heequb)


newtype HEEV a = HEEV {HEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHEEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

heev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
heev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
heev = HEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHEEV (HEEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEEV Float -> HEEV Double -> HEEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HEEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEEV a
HEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.heev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HEEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEEV a
HEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.heev)


newtype HEEVD a = HEEVD {HEEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

heevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
heevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
heevd = HEEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVD (HEEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEEVD Float -> HEEVD Double -> HEEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVD a
HEEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.heevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVD a
HEEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.heevd)


newtype HEEVR a = HEEVR {HEEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

heevr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
heevr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
heevr = HEEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVR (HEEVR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEEVR Float -> HEEVR Double -> HEEVR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVR a
HEEVR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.heevr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVR a
HEEVR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.heevr)


newtype HEEVX a = HEEVX {HEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

heevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
heevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
heevx = HEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEEVX (HEEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEEVX Float -> HEEVX Double -> HEEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVX a
HEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.heevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEEVX a
HEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.heevx)


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

hegs2 :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hegs2 :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegs2 = HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGS2 (HEGS2 a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGS2 Float -> HEGS2 Double -> HEGS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGS2 Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGST :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hegst :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hegst :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegst = HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGST (HEGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGST Float -> HEGST Double -> HEGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGST Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 HEGV a = HEGV {HEGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHEGV :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

hegv :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hegv :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
hegv = HEGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HEGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHEGV (HEGV a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGV Float -> HEGV Double -> HEGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HEGV Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEGV a
HEGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hegv) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HEGV Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HEGV a
HEGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hegv)


newtype HEGVD a = HEGVD {HEGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGVD :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hegvd :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hegvd :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegvd = HEGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGVD (HEGVD a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGVD Float -> HEGVD Double -> HEGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVD Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVD a
HEGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hegvd) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVD Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVD a
HEGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hegvd)


newtype HEGVX a = HEGVX {HEGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGVX :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hegvx :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hegvx :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hegvx = HEGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HEGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHEGVX (HEGVX a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HEGVX Float -> HEGVX Double -> HEGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVX Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVX a
HEGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hegvx) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVX Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HEGVX a
HEGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hegvx)


newtype HERFS a = HERFS {HERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHERFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

herfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
herfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
herfs = HERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHERFS (HERFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HERFS Float -> HERFS Double -> HERFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HERFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HERFS a
HERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.herfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HERFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HERFS a
HERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.herfs)


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

hesv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hesv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hesv = HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHESV (HESV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HESV Float -> HESV Double -> HESV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 HESVX a = HESVX {HESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHESVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

hesvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hesvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
hesvx = HESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHESVX (HESVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HESVX Float -> HESVX Double -> HESVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HESVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HESVX a
HESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hesvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HESVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HESVX a
HESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hesvx)


newtype HESWAPR a = HESWAPR {HESWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHESWAPR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

heswapr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
heswapr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
heswapr = HESWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HESWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHESWAPR (HESWAPR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HESWAPR Float -> HESWAPR Double -> HESWAPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESWAPR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESWAPR a
HESWAPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.heswapr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESWAPR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HESWAPR a
HESWAPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.heswapr)


newtype HETD2 a = HETD2 {HETD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETD2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hetd2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
hetd2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hetd2 = HETD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HETD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETD2 (HETD2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETD2 Float -> HETD2 Double -> HETD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HETD2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETD2 a
HETD2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hetd2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HETD2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETD2 a
HETD2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hetd2)


newtype HETF2 a = HETF2 {HETF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETF2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hetf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hetf2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetf2 = HETF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETF2 (HETF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETF2 Float -> HETF2 Double -> HETF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETF2 a
HETF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETF2 a
HETF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetf2)


newtype HETRD a = HETRD {HETRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRD :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hetrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hetrd :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetrd = HETRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRD (HETRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRD Float -> HETRD Double -> HETRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRD a
HETRD Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRD a
HETRD Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetrd)


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

hetrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hetrf :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetrf = HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRF (HETRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRF Float -> HETRF Double -> HETRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hetri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
hetri :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hetri = HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETRI (HETRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRI Float -> HETRI Double -> HETRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HETRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 HETRI2 a = HETRI2 {HETRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRI2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hetri2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hetri2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetri2 = HETRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRI2 (HETRI2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRI2 Float -> HETRI2 Double -> HETRI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2 a
HETRI2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetri2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2 a
HETRI2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetri2)


newtype HETRI2X a = HETRI2X {HETRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRI2X :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hetri2x :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hetri2x :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetri2x = HETRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRI2X (HETRI2X a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRI2X Float -> HETRI2X Double -> HETRI2X a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2X Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2X a
HETRI2X Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hetri2x) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2X Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRI2X a
HETRI2X Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hetri2x)


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

hetrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hetrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hetrs = HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHETRS (HETRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRS Float -> HETRS Double -> HETRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HETRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 HETRS2 a = HETRS2 {HETRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETRS2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hetrs2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
hetrs2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hetrs2 = HETRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HETRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHETRS2 (HETRS2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HETRS2 Float -> HETRS2 Double -> HETRS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HETRS2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETRS2 a
HETRS2 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.hetrs2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HETRS2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HETRS2 a
HETRS2 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.hetrs2)


newtype HFRK a = HFRK {HFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getHFRK :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO ()}

hfrk :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO ()
hfrk :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
hfrk = HFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a.
HFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getHFRK (HFRK a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> HFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ HFRK Float -> HFRK Double -> HFRK a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> IO ())
-> HFRK Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> HFRK a
HFRK Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> IO ()
C.hfrk) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> IO ())
-> HFRK Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> HFRK a
HFRK Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> IO ()
Z.hfrk)


newtype HGEQZ a = HGEQZ {HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHGEQZ :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

hgeqz :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
hgeqz :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
hgeqz = HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getHGEQZ (HGEQZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HGEQZ Float -> HGEQZ Double -> HGEQZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HGEQZ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
HGEQZ 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 (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hgeqz) ((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 (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HGEQZ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
HGEQZ 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 (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hgeqz)


newtype HPCON a = HPCON {HPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hpcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
hpcon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hpcon = HPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPCON (HPCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPCON Float -> HPCON Double -> HPCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPCON a
HPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hpcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HPCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPCON a
HPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hpcon)


newtype HPEV a = HPEV {HPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hpev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hpev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hpev = HPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPEV (HPEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPEV Float -> HPEV Double -> HPEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPEV a
HPEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hpev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPEV a
HPEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hpev)


newtype HPEVD a = HPEVD {HPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hpevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hpevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpevd = HPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPEVD (HPEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPEVD Float -> HPEVD Double -> HPEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVD a
HPEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hpevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVD a
HPEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hpevd)


newtype HPEVX a = HPEVX {HPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hpevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hpevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpevx = HPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPEVX (HPEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPEVX Float -> HPEVX Double -> HPEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVX a
HPEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hpevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPEVX a
HPEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hpevx)


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

hpgst :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
hpgst :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hpgst = HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPGST (HPGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPGST Float -> HPGST Double -> HPGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPGST Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 HPGV a = HPGV {HPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPGV :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hpgv :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hpgv :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hpgv = HPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPGV (HPGV a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPGV Float -> HPGV Double -> HPGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPGV Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPGV a
HPGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hpgv) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPGV Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPGV a
HPGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hpgv)


newtype HPGVD a = HPGVD {HPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPGVD :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hpgvd :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hpgvd :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpgvd = HPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPGVD (HPGVD a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPGVD Float -> HPGVD Double -> HPGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVD Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVD a
HPGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hpgvd) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVD Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVD a
HPGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hpgvd)


newtype HPGVX a = HPGVX {HPGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPGVX :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hpgvx :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hpgvx :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpgvx = HPGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPGVX (HPGVX a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPGVX Float -> HPGVX Double -> HPGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVX Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVX a
HPGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hpgvx) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVX Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPGVX a
HPGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hpgvx)


newtype HPRFS a = HPRFS {HPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hprfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hprfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hprfs = HPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPRFS (HPRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPRFS Float -> HPRFS Double -> HPRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPRFS a
HPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hprfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPRFS a
HPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hprfs)


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

hpsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hpsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hpsv = HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPSV (HPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPSV Float -> HPSV Double -> HPSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 HPSVX a = HPSVX {HPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

hpsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
hpsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
hpsvx = HPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
HPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getHPSVX (HPSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPSVX Float -> HPSVX Double -> HPSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> HPSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPSVX a
HPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.hpsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> HPSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> HPSVX a
HPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.hpsvx)


newtype HPTRD a = HPTRD {HPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPTRD :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hptrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
hptrd :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hptrd = HPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPTRD (HPTRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRD Float -> HPTRD Double -> HPTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPTRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPTRD a
HPTRD Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.hptrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> HPTRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPTRD a
HPTRD Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.hptrd)


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

hptrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hptrf :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hptrf = HPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPTRF (HPTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRF Float -> HPTRF Double -> HPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPTRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

hptri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
hptri :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
hptri = HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getHPTRI (HPTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> HPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRI Float -> HPTRI Double -> HPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> HPTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hptrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hptrs = HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHPTRS (HPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HPTRS Float -> HPTRS Double -> HPTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 HSEIN a = HSEIN {HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEIN :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hsein :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hsein :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hsein = HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEIN (HSEIN a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HSEIN Float -> HSEIN Double -> HSEIN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
HSEIN Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.hsein) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
HSEIN Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.hsein)


newtype HSEQR a = HSEQR {HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEQR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

hseqr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
hseqr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
hseqr = HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEQR (HSEQR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ HSEQR Float -> HSEQR Double -> HSEQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 ())
-> HSEQR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
HSEQR 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.hseqr) ((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 ())
-> HSEQR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
HSEQR 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.hseqr)


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

ilalc :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
ilalc :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
ilalc = ILALC a
-> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
forall a.
ILALC a
-> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
getILALC (ILALC a
 -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt)
-> ILALC a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALC Float -> ILALC Double -> ILALC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt)
-> ILALC Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr (Complex 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 (Complex a) -> Ptr CInt -> IO CInt
getILALR :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt}

ilalr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
ilalr :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
ilalr = ILALR a
-> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
forall a.
ILALR a
-> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
getILALR (ILALR a
 -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt)
-> ILALR a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALR Float -> ILALR Double -> ILALR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt)
-> ILALR Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt)
-> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt
Z.ilalr)


newtype IMAX1 a = IMAX1 {IMAX1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
getIMAX1 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt}

imax1 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
imax1 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
imax1 = IMAX1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
forall a.
IMAX1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
getIMAX1 (IMAX1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt)
-> IMAX1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ IMAX1 Float -> IMAX1 Double -> IMAX1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt)
-> IMAX1 Float
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt) -> IMAX1 a
IMAX1 Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO CInt
C.imax1) ((Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt)
-> IMAX1 Double
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO CInt) -> IMAX1 a
IMAX1 Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO CInt
Z.imax1)


newtype LABRD a = LABRD {LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLABRD :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

labrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
labrd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
labrd = LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLABRD (LABRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LABRD Float -> LABRD Double -> LABRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LABRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LABRD a
LABRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.labrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LABRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LABRD a
LABRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.labrd)


newtype LACGV a = LACGV {LACGV a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
getLACGV :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lacgv :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
lacgv :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
lacgv = LACGV a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a.
LACGV a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
getLACGV (LACGV a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> LACGV a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ LACGV Float -> LACGV Double -> LACGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> LACGV Float
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()) -> LACGV a
LACGV Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ()
C.lacgv) ((Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ())
-> LACGV Double
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()) -> LACGV a
LACGV Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO ()
Z.lacgv)


newtype LACN2 a = LACN2 {LACN2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLACN2 :: Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lacn2 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lacn2 :: Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lacn2 = LACN2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LACN2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLACN2 (LACN2 a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACN2 Float -> LACN2 Double -> LACN2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
LACN2 Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lacn2) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
LACN2 Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lacn2)


newtype LACON a = LACON {LACON a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getLACON :: Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

lacon :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
lacon :: Ptr CInt
-> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
lacon = LACON a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LACON a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getLACON (LACON a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACON a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACON Float -> LACON Double -> LACON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LACON Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACON a
LACON Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.lacon) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LACON Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACON a
LACON Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.lacon)


newtype LACP2 a = LACP2 {LACP2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLACP2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lacp2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
lacp2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lacp2 = LACP2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LACP2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLACP2 (LACP2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LACP2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACP2 Float -> LACP2 Double -> LACP2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LACP2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LACP2 a
LACP2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lacp2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LACP2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LACP2 a
LACP2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lacp2)


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

lacpy :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
lacpy :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lacpy = LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLACPY (LACPY a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACPY Float -> LACPY Double -> LACPY a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LACPY Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 LACRM a = LACRM {LACRM a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLACRM :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()}

lacrm :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()
lacrm :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
lacrm = LACRM a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LACRM a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLACRM (LACRM a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LACRM a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACRM Float -> LACRM Double -> LACRM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LACRM Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LACRM a
LACRM Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO ()
C.lacrm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LACRM Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LACRM a
LACRM Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO ()
Z.lacrm)


newtype LACRT a = LACRT {LACRT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLACRT :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()}

lacrt :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
lacrt :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
lacrt = LACRT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LACRT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLACRT (LACRT a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LACRT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACRT Float -> LACRT Double -> LACRT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LACRT Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LACRT a
LACRT Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.lacrt) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LACRT Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LACRT a
LACRT Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.lacrt)


newtype LAED0 a = LAED0 {LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED0 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

laed0 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed0 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed0 = LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED0 (LAED0 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED0 Float -> LAED0 Double -> LAED0 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
LAED0 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.laed0) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
LAED0 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.laed0)


newtype LAED7 a = LAED7 {LAED7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED7 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

laed7 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed7 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed7 = LAED7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED7 (LAED7 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED7 Float -> LAED7 Double -> LAED7 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED7 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED7 a
LAED7 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.laed7) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED7 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED7 a
LAED7 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.laed7)


newtype LAED8 a = LAED8 {LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED8 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

laed8 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
laed8 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
laed8 = LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED8 (LAED8 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED8 Float -> LAED8 Double -> LAED8 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAED8 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED8 a
LAED8 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.laed8) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAED8 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED8 a
LAED8 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.laed8)


newtype LAEIN a = LAEIN {LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEIN :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laein :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laein :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laein = LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEIN (LAEIN a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAEIN Float -> LAEIN Double -> LAEIN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAEIN Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
LAEIN Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.laein) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAEIN Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
LAEIN Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.laein)


newtype LAESY a = LAESY {LAESY a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAESY :: Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()}

laesy :: Class.Real a => Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
laesy :: Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
laesy = LAESY a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LAESY a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAESY (LAESY a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAESY a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAESY Float -> LAESY Double -> LAESY a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LAESY Float
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAESY a
LAESY Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.laesy) ((Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LAESY Double
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAESY a
LAESY Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.laesy)


newtype LAEV2 a = LAEV2 {LAEV2 a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAEV2 :: Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> IO ()}

laev2 :: Class.Real a => Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> IO ()
laev2 :: Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
laev2 = LAEV2 a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a.
LAEV2 a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAEV2 (LAEV2 a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAEV2 a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAEV2 Float -> LAEV2 Double -> LAEV2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> IO ())
-> LAEV2 Float
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAEV2 a
LAEV2 Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> IO ()
C.laev2) ((Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> IO ())
-> LAEV2 Double
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAEV2 a
LAEV2 Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> IO ()
Z.laev2)


newtype LAGS2 a = LAGS2 {LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAGS2 :: Ptr Bool -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> IO ()}

lags2 :: Class.Real a => Ptr Bool -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> IO ()
lags2 :: Ptr Bool
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> IO ()
lags2 = LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a.
LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAGS2 (LAGS2 a
 -> Ptr Bool
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAGS2 Float -> LAGS2 Double -> LAGS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> IO ())
-> LAGS2 Float
forall a.
(Ptr Bool
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAGS2 a
LAGS2 Ptr Bool
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> IO ()
C.lags2) ((Ptr Bool
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> IO ())
-> LAGS2 Double
forall a.
(Ptr Bool
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAGS2 a
LAGS2 Ptr Bool
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> IO ()
Z.lags2)


newtype LAGTM a = LAGTM {LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAGTM :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lagtm :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
lagtm :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lagtm = LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAGTM (LAGTM a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAGTM Float -> LAGTM Double -> LAGTM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAGTM Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAGTM a
LAGTM Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lagtm) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAGTM Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAGTM a
LAGTM Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lagtm)


newtype LAHEF a = LAHEF {LAHEF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAHEF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lahef :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lahef :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lahef = LAHEF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAHEF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAHEF (LAHEF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHEF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAHEF Float -> LAHEF Double -> LAHEF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHEF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHEF a
LAHEF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lahef) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHEF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHEF a
LAHEF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lahef)


newtype LAHQR a = LAHQR {LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAHQR :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lahqr :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lahqr :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lahqr = LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAHQR (LAHQR a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAHQR Float -> LAHQR Double -> LAHQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
LAHQR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lahqr) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
LAHQR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lahqr)


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

lahr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
lahr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lahr2 = LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAHR2 (LAHR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAHR2 Float -> LAHR2 Double -> LAHR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 LAIC1 a = LAIC1 {LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAIC1 :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()}

laic1 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
laic1 :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
laic1 = LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAIC1 (LAIC1 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAIC1 Float -> LAIC1 Double -> LAIC1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LAIC1 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAIC1 a
LAIC1 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.laic1) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LAIC1 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAIC1 a
LAIC1 Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.laic1)


newtype LALS0 a = LALS0 {LALS0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLALS0 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lals0 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lals0 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lals0 = LALS0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LALS0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLALS0 (LALS0 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALS0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LALS0 Float -> LALS0 Double -> LALS0 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LALS0 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALS0 a
LALS0 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.lals0) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LALS0 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALS0 a
LALS0 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.lals0)


newtype LALSA a = LALSA {LALSA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLALSA :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lalsa :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lalsa :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lalsa = LALSA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LALSA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLALSA (LALSA a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LALSA Float -> LALSA Double -> LALSA a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSA Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSA a
LALSA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lalsa) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSA Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSA a
LALSA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lalsa)


newtype LALSD a = LALSD {LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLALSD :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lalsd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lalsd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lalsd = LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLALSD (LALSD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LALSD Float -> LALSD Double -> LALSD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
LALSD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lalsd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
LALSD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lalsd)


newtype LANGB a = LANGB {LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANGB :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

langb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
langb :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
langb = LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANGB (LANGB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANGB Float -> LANGB Double -> LANGB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANGB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
LANGB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.langb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANGB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
LANGB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.langb)


newtype LANGE a = LANGE {LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANGE :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lange :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lange :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lange = LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANGE (LANGE a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANGE Float -> LANGE Double -> LANGE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANGE Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGE a
LANGE Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lange) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANGE Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGE a
LANGE Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lange)


newtype LANGT a = LANGT {LANGT a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO a
getLANGT :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO a}

langt :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO a
langt :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO a
langt = LANGT a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO a
forall a.
LANGT a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO a
getLANGT (LANGT a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO a)
-> LANGT a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO a
forall a b. (a -> b) -> a -> b
$ LANGT Float -> LANGT Double -> LANGT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO Float)
-> LANGT Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO a)
-> LANGT a
LANGT Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO Float
C.langt) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO Double)
-> LANGT Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO a)
-> LANGT a
LANGT Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO Double
Z.langt)


newtype LANHB a = LANHB {LANHB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHB :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lanhb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lanhb :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lanhb = LANHB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANHB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHB (LANHB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHB Float -> LANHB Double -> LANHB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANHB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHB a
LANHB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lanhb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANHB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHB a
LANHB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lanhb)


newtype LANHE a = LANHE {LANHE a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHE :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lanhe :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lanhe :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lanhe = LANHE a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANHE a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHE (LANHE a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHE a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHE Float -> LANHE Double -> LANHE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANHE Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHE a
LANHE Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lanhe) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANHE Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHE a
LANHE Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lanhe)


newtype LANHF a = LANHF {LANHF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANHF :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a}

lanhf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lanhf :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
lanhf = LANHF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a.
LANHF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANHF (LANHF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANHF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHF Float -> LANHF Double -> LANHF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> IO Float)
-> LANHF Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANHF a
LANHF Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> IO Float
C.lanhf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> IO Double)
-> LANHF Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANHF a
LANHF Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> IO Double
Z.lanhf)


newtype LANHP a = LANHP {LANHP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANHP :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a}

lanhp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lanhp :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lanhp = LANHP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a.
LANHP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANHP (LANHP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANHP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHP Float -> LANHP Double -> LANHP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> IO Float)
-> LANHP Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a)
-> LANHP a
LANHP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> IO Float
C.lanhp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> IO Double)
-> LANHP Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a)
-> LANHP a
LANHP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> IO Double
Z.lanhp)


newtype LANHS a = LANHS {LANHS a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHS :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lanhs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lanhs :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lanhs = LANHS a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANHS a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANHS (LANHS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANHS a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHS Float -> LANHS Double -> LANHS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANHS Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a)
-> LANHS a
LANHS Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lanhs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANHS Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a)
-> LANHS a
LANHS Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lanhs)


newtype LANHT a = LANHT {LANHT a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a
getLANHT :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a}

lanht :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a
lanht :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a
lanht = LANHT a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a
forall a.
LANHT a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a
getLANHT (LANHT a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a)
-> LANHT a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHT Float -> LANHT Double -> LANHT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> IO Float)
-> LANHT Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a)
-> LANHT a
LANHT Ptr CChar
-> Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> IO Float
C.lanht) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr (Complex Double) -> IO Double)
-> LANHT Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO a)
-> LANHT a
LANHT Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr (Complex Double) -> IO Double
Z.lanht)


newtype LANSB a = LANSB {LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANSB :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lansb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lansb :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lansb = LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANSB (LANSB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANSB Float -> LANSB Double -> LANSB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANSB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
LANSB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lansb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANSB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
LANSB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lansb)


newtype LANSP a = LANSP {LANSP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANSP :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a}

lansp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lansp :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lansp = LANSP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a.
LANSP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANSP (LANSP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANSP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANSP Float -> LANSP Double -> LANSP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> IO Float)
-> LANSP Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a)
-> LANSP a
LANSP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> IO Float
C.lansp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> IO Double)
-> LANSP Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a)
-> LANSP a
LANSP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> IO Double
Z.lansp)


newtype LANSY a = LANSY {LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANSY :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lansy :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lansy :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lansy = LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANSY (LANSY a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANSY Float -> LANSY Double -> LANSY a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANSY Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSY a
LANSY Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lansy) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANSY Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSY a
LANSY Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lansy)


newtype LANTB a = LANTB {LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANTB :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lantb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lantb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lantb = LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANTB (LANTB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANTB Float -> LANTB Double -> LANTB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANTB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
LANTB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lantb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANTB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
LANTB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lantb)


newtype LANTP a = LANTP {LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANTP :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a}

lantp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> IO a
lantp :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
lantp = LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a.
LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
getLANTP (LANTP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANTP Float -> LANTP Double -> LANTP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> IO Float)
-> LANTP Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANTP a
LANTP Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> IO Float
C.lantp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> IO Double)
-> LANTP Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> IO a)
-> LANTP a
LANTP Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> IO Double
Z.lantp)


newtype LANTR a = LANTR {LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a}

lantr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO a
lantr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
lantr = LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
getLANTR (LANTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANTR Float -> LANTR Double -> LANTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
LANTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO Float
C.lantr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
LANTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO Double
Z.lantr)


newtype LAPLL a = LAPLL {LAPLL a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLAPLL :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()}

lapll :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()
lapll :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
lapll = LAPLL a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LAPLL a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLAPLL (LAPLL a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LAPLL a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPLL Float -> LAPLL Double -> LAPLL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LAPLL Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LAPLL a
LAPLL Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO ()
C.lapll) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LAPLL Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LAPLL a
LAPLL Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO ()
Z.lapll)


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

lapmr :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lapmr :: Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lapmr = LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMR (LAPMR a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMR Float -> LAPMR Double -> LAPMR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR Float
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMT :: Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lapmt :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lapmt :: Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lapmt = LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMT (LAPMT a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMT Float -> LAPMT Double -> LAPMT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT Float
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 LAQGB a = LAQGB {LAQGB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGB :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqgb :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqgb :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqgb = LAQGB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQGB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGB (LAQGB a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQGB Float -> LAQGB Double -> LAQGB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQGB Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGB a
LAQGB Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqgb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQGB Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGB a
LAQGB Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqgb)


newtype LAQGE a = LAQGE {LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGE :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqge :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqge :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqge = LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGE (LAQGE a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQGE Float -> LAQGE Double -> LAQGE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQGE Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
LAQGE Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqge) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQGE Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
LAQGE Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqge)


newtype LAQHB a = LAQHB {LAQHB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHB :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqhb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqhb :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqhb = LAQHB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQHB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHB (LAQHB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQHB Float -> LAQHB Double -> LAQHB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQHB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHB a
LAQHB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqhb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQHB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHB a
LAQHB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqhb)


newtype LAQHE a = LAQHE {LAQHE a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHE :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqhe :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqhe :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqhe = LAQHE a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQHE a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHE (LAQHE a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHE a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQHE Float -> LAQHE Double -> LAQHE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQHE Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHE a
LAQHE Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqhe) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQHE Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHE a
LAQHE Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqhe)


newtype LAQHP a = LAQHP {LAQHP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHP :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqhp :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqhp :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqhp = LAQHP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQHP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQHP (LAQHP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQHP Float -> LAQHP Double -> LAQHP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQHP Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHP a
LAQHP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqhp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQHP Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQHP a
LAQHP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqhp)


newtype LAQP2 a = LAQP2 {LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAQP2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> IO ()}

laqp2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> IO ()
laqp2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
laqp2 = LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a.
LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getLAQP2 (LAQP2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQP2 Float -> LAQP2 Double -> LAQP2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> IO ())
-> LAQP2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAQP2 a
LAQP2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> IO ()
C.laqp2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> IO ())
-> LAQP2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> LAQP2 a
LAQP2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> IO ()
Z.laqp2)


newtype LAQPS a = LAQPS {LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQPS :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

laqps :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
laqps :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
laqps = LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQPS (LAQPS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQPS Float -> LAQPS Double -> LAQPS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAQPS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQPS a
LAQPS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.laqps) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAQPS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQPS a
LAQPS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.laqps)


newtype LAQR0 a = LAQR0 {LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR0 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

laqr0 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
laqr0 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
laqr0 = LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR0 (LAQR0 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR0 Float -> LAQR0 Double -> LAQR0 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
LAQR0 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.laqr0) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
LAQR0 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.laqr0)


newtype LAQR1 a = LAQR1 {LAQR1 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAQR1 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()}

laqr1 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
laqr1 :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
laqr1 = LAQR1 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LAQR1 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLAQR1 (LAQR1 a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAQR1 a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR1 Float -> LAQR1 Double -> LAQR1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LAQR1 Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAQR1 a
LAQR1 Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.laqr1) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LAQR1 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LAQR1 a
LAQR1 Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.laqr1)


newtype LAQR2 a = LAQR2 {LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR2 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

laqr2 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
laqr2 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
laqr2 = LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR2 (LAQR2 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR2 Float -> LAQR2 Double -> LAQR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAQR2 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
LAQR2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.laqr2) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAQR2 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
LAQR2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.laqr2)


newtype LAQR3 a = LAQR3 {LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR3 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

laqr3 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
laqr3 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
laqr3 = LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR3 (LAQR3 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR3 Float -> LAQR3 Double -> LAQR3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAQR3 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
LAQR3 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.laqr3) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAQR3 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
LAQR3 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.laqr3)


newtype LAQR4 a = LAQR4 {LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR4 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

laqr4 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
laqr4 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
laqr4 = LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR4 (LAQR4 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR4 Float -> LAQR4 Double -> LAQR4 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
LAQR4 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.laqr4) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
LAQR4 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.laqr4)


newtype LAQR5 a = LAQR5 {LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR5 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

laqr5 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
laqr5 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
laqr5 = LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAQR5 (LAQR5 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQR5 Float -> LAQR5 Double -> LAQR5 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAQR5 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
LAQR5 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.laqr5) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAQR5 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
LAQR5 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.laqr5)


newtype LAQSB a = LAQSB {LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSB :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqsb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsb :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsb = LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSB (LAQSB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQSB Float -> LAQSB Double -> LAQSB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
LAQSB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqsb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
LAQSB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqsb)


newtype LAQSP a = LAQSP {LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSP :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqsp :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsp :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsp = LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSP (LAQSP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQSP Float -> LAQSP Double -> LAQSP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSP Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
LAQSP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqsp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSP Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
LAQSP Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqsp)


newtype LAQSY a = LAQSY {LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSY :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()}

laqsy :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsy :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsy = LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSY (LAQSY a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQSY Float -> LAQSY Double -> LAQSY a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSY Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
LAQSY Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
C.laqsy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSY Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
LAQSY Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
Z.laqsy)


newtype LAR1V a = LAR1V {LAR1V a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAR1V :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lar1v :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lar1v :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lar1v = LAR1V a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAR1V a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAR1V (LAR1V a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAR1V a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAR1V Float -> LAR1V Double -> LAR1V a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAR1V Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAR1V a
LAR1V Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
C.lar1v) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAR1V Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAR1V a
LAR1V Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
Z.lar1v)


newtype LAR2V a = LAR2V {LAR2V a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAR2V :: Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lar2v :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
lar2v :: Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lar2v = LAR2V a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LAR2V a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLAR2V (LAR2V a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAR2V a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAR2V Float -> LAR2V Double -> LAR2V a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LAR2V Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAR2V a
LAR2V Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lar2v) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LAR2V Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LAR2V a
LAR2V Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lar2v)


newtype LARCM a = LARCM {LARCM a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLARCM :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()}

larcm :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> IO ()
larcm :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
larcm = LARCM a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARCM a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
getLARCM (LARCM a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARCM a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARCM Float -> LARCM Double -> LARCM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARCM Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARCM a
LARCM Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> IO ()
C.larcm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARCM Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARCM a
LARCM Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> IO ()
Z.larcm)


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

larf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
larf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
larf = LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARF (LARF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARF Float -> LARF Double -> LARF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARFB :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

larfb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
larfb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
larfb = LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARFB (LARFB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFB Float -> LARFB Double -> LARFB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFG :: Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()}

larfg :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
larfg :: Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
larfg = LARFG a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
LARFG a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFG (LARFG a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> LARFG a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFG Float -> LARFG Double -> LARFG a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFG Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFGP :: Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()}

larfgp :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
larfgp :: Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
larfgp = LARFGP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
LARFGP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFGP (LARFGP a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> LARFGP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFGP Float -> LARFGP Double -> LARFGP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFGP Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARFT :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

larft :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
larft :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
larft = LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARFT (LARFT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFT Float -> LARFT Double -> LARFT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARFT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFX :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()}

larfx :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
larfx :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
larfx = LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARFX (LARFX a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFX Float -> LARFX Double -> LARFX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> LARFX Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 LARGV a = LARGV {LARGV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARGV :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

largv :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
largv :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
largv = LARGV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARGV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARGV (LARGV a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARGV Float -> LARGV Double -> LARGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARGV Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
LARGV Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.largv) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARGV Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
LARGV Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.largv)


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

larnv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ()
larnv :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ()
larnv = LARNV a
-> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ()
forall a.
LARNV a
-> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ()
getLARNV (LARNV a
 -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ())
-> LARNV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARNV Float -> LARNV Double -> LARNV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Float) -> IO ())
-> LARNV Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> IO ())
-> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex Double) -> IO ()
Z.larnv)


newtype LARRV a = LARRV {LARRV a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRV :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

larrv :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
larrv :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
larrv = LARRV a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRV a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRV (LARRV a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRV a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRV Float -> LARRV Double -> LARRV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRV Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRV a
LARRV Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.larrv) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRV Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRV a
LARRV Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.larrv)


newtype LARTG a = LARTG {LARTG a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLARTG :: Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()}

lartg :: Class.Real a => Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
lartg :: Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
lartg = LARTG a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LARTG a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLARTG (LARTG a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LARTG a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARTG Float -> LARTG Double -> LARTG a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LARTG Float
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LARTG a
LARTG Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> IO ()
C.lartg) ((Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> IO ())
-> LARTG Double
forall a.
(Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LARTG a
LARTG Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> IO ()
Z.lartg)


newtype LARTV a = LARTV {LARTV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARTV :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lartv :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
lartv :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lartv = LARTV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LARTV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARTV (LARTV a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARTV a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARTV Float -> LARTV Double -> LARTV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARTV Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARTV a
LARTV Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lartv) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LARTV Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARTV a
LARTV Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lartv)


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

larz :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
larz :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
larz = LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getLARZ (LARZ a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZ Float -> LARZ Double -> LARZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARZB :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

larzb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
larzb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
larzb = LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARZB (LARZB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZB Float -> LARZB Double -> LARZB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARZT :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

larzt :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
larzt :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
larzt = LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLARZT (LARZT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZT Float -> LARZT Double -> LARZT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LARZT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 LASCL a = LASCL {LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASCL :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lascl :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lascl :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lascl = LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASCL (LASCL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASCL Float -> LASCL Double -> LASCL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
LASCL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.lascl) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
LASCL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lascl)


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

laset :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
laset :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
laset = LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLASET (LASET a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASET Float -> LASET Double -> LASET a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LASET Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 LASR a = LASR {LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLASR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

lasr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
lasr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
lasr = LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLASR (LASR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASR Float -> LASR Double -> LASR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LASR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LASR a
LASR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.lasr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LASR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LASR a
LASR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.lasr)


newtype LASSQ a = LASSQ {LASSQ a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getLASSQ :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> IO ()}

lassq :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
lassq :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
lassq = LASSQ a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LASSQ a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getLASSQ (LASSQ a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASSQ a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASSQ Float -> LASSQ Double -> LASSQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LASSQ Float
forall a.
(Ptr CInt
 -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> IO ())
-> LASSQ a
LASSQ Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO ()
C.lassq) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LASSQ Double
forall a.
(Ptr CInt
 -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> IO ())
-> LASSQ a
LASSQ Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO ()
Z.lassq)


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

laswp :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
laswp :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
laswp = LASWP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASWP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASWP (LASWP a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASWP Float -> LASWP Double -> LASWP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP Float
forall a.
(Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASYF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lasyf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lasyf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
lasyf = LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASYF (LASYF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASYF Float -> LASYF Double -> LASYF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 LATBS a = LATBS {LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATBS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

latbs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latbs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latbs = LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATBS (LATBS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATBS Float -> LATBS Double -> LATBS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATBS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
LATBS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.latbs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATBS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
LATBS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.latbs)


newtype LATDF a = LATDF {LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLATDF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

latdf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
latdf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
latdf = LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLATDF (LATDF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATDF Float -> LATDF Double -> LATDF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
LATDF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.latdf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
LATDF Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.latdf)


newtype LATPS a = LATPS {LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATPS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

latps :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latps :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latps = LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATPS (LATPS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATPS Float -> LATPS Double -> LATPS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATPS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
LATPS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.latps) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATPS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
LATPS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.latps)


newtype LATRD a = LATRD {LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLATRD :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

latrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
latrd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
latrd = LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getLATRD (LATRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATRD Float -> LATRD Double -> LATRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> LATRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LATRD a
LATRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.latrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> LATRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> LATRD a
LATRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.latrd)


newtype LATRS a = LATRS {LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

latrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latrs = LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATRS (LATRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATRS Float -> LATRS Double -> LATRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
LATRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.latrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
LATRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.latrs)


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

latrz :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> IO ()
latrz :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
latrz = LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a.
LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
getLATRZ (LATRZ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> IO ())
-> LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATRZ Float -> LATRZ Double -> LATRZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> IO ())
-> LATRZ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAUU2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lauu2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 = LAUU2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAUU2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAUU2 (LAUU2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUU2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUU2 Float -> LAUU2 Double -> LAUU2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUU2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAUUM :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

lauum :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lauum :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
lauum = LAUUM a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAUUM a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAUUM (LAUUM a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUUM a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUUM Float -> LAUUM Double -> LAUUM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAUUM Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.lauum)


newtype PBCON a = PBCON {PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBCON :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

pbcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
pbcon :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
pbcon = PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBCON (PBCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBCON Float -> PBCON Double -> PBCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PBCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBCON a
PBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pbcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PBCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBCON a
PBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pbcon)


newtype PBEQU a = PBEQU {PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPBEQU :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

pbequ :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pbequ :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pbequ = PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPBEQU (PBEQU a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBEQU Float -> PBEQU Double -> PBEQU a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PBEQU Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
PBEQU Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pbequ) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PBEQU Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
PBEQU Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pbequ)


newtype PBRFS a = PBRFS {PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

pbrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
pbrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
pbrfs = PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBRFS (PBRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBRFS Float -> PBRFS Double -> PBRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PBRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBRFS a
PBRFS 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 Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pbrfs) ((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 Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PBRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBRFS a
PBRFS 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 Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pbrfs)


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

pbstf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pbstf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbstf = PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSTF (PBSTF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSTF Float -> PBSTF Double -> PBSTF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSV :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pbsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pbsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbsv = PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSV (PBSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSV Float -> PBSV Double -> PBSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 PBSVX a = PBSVX {PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

pbsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
pbsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
pbsvx = PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPBSVX (PBSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSVX Float -> PBSVX Double -> PBSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PBSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBSVX a
PBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pbsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PBSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBSVX a
PBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pbsvx)


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

pbtf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pbtf2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbtf2 = PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTF2 (PBTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTF2 Float -> PBTF2 Double -> PBTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRF :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pbtrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pbtrf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbtrf = PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRF (PBTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRF Float -> PBTRF Double -> PBTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pbtrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbtrs = PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRS (PBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRS Float -> PBTRS Double -> PBTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> IO ()
getPFTRF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

pftrf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pftrf :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pftrf = PFTRF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
PFTRF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getPFTRF (PFTRF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> PFTRF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRF Float -> PFTRF Double -> PFTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> PFTRF Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> IO ()
getPFTRI :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

pftri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pftri :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pftri = PFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
PFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getPFTRI (PFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> PFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRI Float -> PFTRI Double -> PFTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> PFTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPFTRS :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pftrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pftrs :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pftrs = PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPFTRS (PFTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRS Float -> PFTRS Double -> PFTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 POCON a = POCON {POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPOCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

pocon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
pocon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
pocon = POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPOCON (POCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POCON Float -> POCON Double -> POCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POCON a
POCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pocon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POCON a
POCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pocon)


newtype POEQU a = POEQU {POEQU a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQU :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

poequ :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
poequ :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
poequ = POEQU a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POEQU a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQU (POEQU a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POEQU Float -> POEQU Double -> POEQU a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POEQU Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
POEQU Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.poequ) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POEQU Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
POEQU Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.poequ)


newtype POEQUB a = POEQUB {POEQUB a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQUB :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

poequb :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
poequb :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
poequb = POEQUB a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POEQUB a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQUB (POEQUB a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POEQUB Float -> POEQUB Double -> POEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POEQUB Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
POEQUB Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.poequb) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POEQUB Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
POEQUB Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.poequb)


newtype PORFS a = PORFS {PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPORFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

porfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
porfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
porfs = PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPORFS (PORFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PORFS Float -> PORFS Double -> PORFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> 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 Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PORFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PORFS a
PORFS Ptr CChar
-> 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 Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.porfs) ((Ptr CChar
 -> 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 Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PORFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PORFS a
PORFS Ptr CChar
-> 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 Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.porfs)


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

posv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
posv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
posv = POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSV (POSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POSV Float -> POSV Double -> POSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 POSVX a = POSVX {POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPOSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

posvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
posvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
posvx = POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPOSVX (POSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POSVX Float -> POSVX Double -> POSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POSVX a
POSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.posvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POSVX a
POSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.posvx)


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

potf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potf2 :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potf2 = POTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTF2 (POTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTF2 Float -> POTF2 Double -> POTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRF :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

potrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potrf :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potrf = POTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRF (POTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRF Float -> POTRF Double -> POTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

potri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potri :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potri = POTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRI (POTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRI Float -> POTRI Double -> POTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

potrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
potrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
potrs = POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRS (POTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRS Float -> POTRS Double -> POTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 PPCON a = PPCON {PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

ppcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
ppcon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
ppcon = PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPCON (PPCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPCON Float -> PPCON Double -> PPCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PPCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPCON a
PPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ppcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PPCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPCON a
PPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ppcon)


newtype PPEQU a = PPEQU {PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPPEQU :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ppequ :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ppequ :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ppequ = PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPPEQU (PPEQU a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPEQU Float -> PPEQU Double -> PPEQU a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PPEQU Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
PPEQU Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ppequ) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PPEQU Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
PPEQU Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ppequ)


newtype PPRFS a = PPRFS {PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

pprfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
pprfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
pprfs = PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPRFS (PPRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPRFS Float -> PPRFS Double -> PPRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PPRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPRFS a
PPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pprfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PPRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPRFS a
PPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pprfs)


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

ppsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ppsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ppsv = PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSV (PPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPSV Float -> PPSV Double -> PPSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 PPSVX a = PPSVX {PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

ppsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CChar -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
ppsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
ppsvx = PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPPSVX (PPSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CChar
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPSVX Float -> PPSVX Double -> PPSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CChar
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PPSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPSVX a
PPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CChar
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ppsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CChar
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PPSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CChar
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPSVX a
PPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CChar
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ppsvx)


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

pptrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pptrf :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pptrf = PPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a.
PPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
getPPTRF (PPTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> PPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRF Float -> PPTRF Double -> PPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> PPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr (Complex 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 (Complex a) -> Ptr CInt -> IO ()
getPPTRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

pptri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pptri :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
pptri = PPTRI a
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a.
PPTRI a
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
getPPTRI (PPTRI a
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> PPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRI Float -> PPTRI Double -> PPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> PPTRI Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pptrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pptrs = PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPTRS (PPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRS Float -> PPTRS Double -> PPTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 PSTF2 a = PSTF2 {PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTF2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

pstf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pstf2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pstf2 = PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTF2 (PSTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PSTF2 Float -> PSTF2 Double -> PSTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PSTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
PSTF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pstf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PSTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
PSTF2 Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pstf2)


newtype PSTRF a = PSTRF {PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTRF :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

pstrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pstrf :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pstrf = PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTRF (PSTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PSTRF Float -> PSTRF Double -> PSTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PSTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
PSTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pstrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PSTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
PSTRF Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pstrf)


newtype PTCON a = PTCON {PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTCON :: Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

ptcon :: Class.Real a => Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptcon :: Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ptcon = PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTCON (PTCON a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTCON Float -> PTCON Double -> PTCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTCON Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTCON a
PTCON Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ptcon) ((Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTCON Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTCON a
PTCON Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ptcon)


newtype PTEQR a = PTEQR {PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getPTEQR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

pteqr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pteqr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
pteqr = PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getPTEQR (PTEQR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTEQR Float -> PTEQR Double -> PTEQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTEQR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
PTEQR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.pteqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTEQR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
PTEQR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.pteqr)


newtype PTRFS a = PTRFS {PTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPTRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

ptrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
ptrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
ptrfs = PTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPTRFS (PTRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTRFS Float -> PTRFS Double -> PTRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
PTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ptrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
PTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ptrfs)


newtype PTSV a = PTSV {PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTSV :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ptsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ptsv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ptsv = PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTSV (PTSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTSV Float -> PTSV Double -> PTSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
PTSV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.ptsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
PTSV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.ptsv)


newtype PTSVX a = PTSVX {PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPTSVX :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

ptsvx :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
ptsvx :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
ptsvx = PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getPTSVX (PTSVX a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTSVX Float -> PTSVX Double -> PTSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTSVX Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
PTSVX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.ptsvx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTSVX Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
PTSVX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.ptsvx)


newtype PTTRF a = PTTRF {PTTRF a
-> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
getPTTRF :: Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

pttrf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
pttrf :: Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
pttrf = PTTRF a
-> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a.
PTTRF a
-> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
getPTTRF (PTTRF a
 -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> PTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTTRF Float -> PTTRF Double -> PTTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> PTTRF Float
forall a.
(Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> PTTRF a
PTTRF Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> Ptr CInt -> IO ()
C.pttrf) ((Ptr CInt
 -> Ptr Double -> Ptr (Complex Double) -> Ptr CInt -> IO ())
-> PTTRF Double
forall a.
(Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> PTTRF a
PTTRF Ptr CInt -> Ptr Double -> Ptr (Complex Double) -> Ptr CInt -> IO ()
Z.pttrf)


newtype PTTRS a = PTTRS {PTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

pttrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
pttrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
pttrs = PTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTTRS (PTTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTTRS Float -> PTTRS Double -> PTTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
PTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.pttrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
PTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.pttrs)


newtype PTTS2 a = PTTS2 {PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getPTTS2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

ptts2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
ptts2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
ptts2 = PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getPTTS2 (PTTS2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PTTS2 Float -> PTTS2 Double -> PTTS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> PTTS2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> PTTS2 a
PTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.ptts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> PTTS2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> PTTS2 a
PTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.ptts2)


newtype ROT a = ROT {ROT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getROT :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO ()}

rot :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> IO ()
rot :: Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
rot = ROT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a.
ROT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
getROT (ROT a
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> ROT a
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ ROT Float -> ROT Double -> ROT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> IO ())
-> ROT Float
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> ROT a
ROT Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> IO ()
C.rot) ((Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> IO ())
-> ROT Double
forall a.
(Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> IO ())
-> ROT a
ROT Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> IO ()
Z.rot)


newtype RSCL a = RSCL {RSCL a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
getRSCL :: Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

rscl :: Class.Real a => Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
rscl :: Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
rscl = RSCL a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
forall a.
RSCL a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
getRSCL (RSCL a
 -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> RSCL a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ RSCL Float -> RSCL Double -> RSCL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> Ptr CInt -> IO ())
-> RSCL Float
forall a.
(Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> RSCL a
RSCL Ptr CInt -> Ptr Float -> Ptr (Complex Float) -> Ptr CInt -> IO ()
C.rscl) ((Ptr CInt
 -> Ptr Double -> Ptr (Complex Double) -> Ptr CInt -> IO ())
-> RSCL Double
forall a.
(Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ())
-> RSCL a
RSCL Ptr CInt -> Ptr Double -> Ptr (Complex Double) -> Ptr CInt -> IO ()
Z.rscl)


newtype SPCON a = SPCON {SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

spcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
spcon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
spcon = SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPCON (SPCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPCON Float -> SPCON Double -> SPCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SPCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPCON a
SPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.spcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SPCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPCON a
SPCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.spcon)


newtype SPMV a = SPMV {SPMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPMV :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

spmv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
spmv :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
spmv = SPMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SPMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPMV (SPMV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPMV Float -> SPMV Double -> SPMV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SPMV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPMV a
SPMV Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.spmv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SPMV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPMV a
SPMV Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.spmv)


newtype SPR a = SPR {SPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getSPR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()}

spr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> IO ()
spr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
spr = SPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a.
SPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
getSPR (SPR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> SPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPR Float -> SPR Double -> SPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> IO ())
-> SPR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> SPR a
SPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> IO ()
C.spr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> IO ())
-> SPR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> IO ())
-> SPR a
SPR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> IO ()
Z.spr)


newtype SPRFS a = SPRFS {SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSPRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

sprfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
sprfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
sprfs = SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSPRFS (SPRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPRFS Float -> SPRFS Double -> SPRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPRFS a
SPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.sprfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPRFS a
SPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.sprfs)


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

spsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
spsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
spsv = SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSV (SPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPSV Float -> SPSV Double -> SPSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 SPSVX a = SPSVX {SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSPSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

spsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
spsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
spsvx = SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSPSVX (SPSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPSVX Float -> SPSVX Double -> SPSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPSVX a
SPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.spsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPSVX a
SPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.spsvx)


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

sptrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sptrf :: Ptr CChar
-> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sptrf = SPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRF (SPTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRF Float -> SPTRF Double -> SPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPTRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

sptri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
sptri :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
sptri = SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSPTRI (SPTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRI Float -> SPTRI Double -> SPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SPTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

sptrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sptrs = SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRS (SPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRS Float -> SPTRS Double -> SPTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 STEDC a = STEDC {STEDC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEDC :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stedc :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stedc :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stedc = STEDC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEDC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEDC (STEDC a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEDC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEDC Float -> STEDC Double -> STEDC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEDC Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEDC a
STEDC Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.stedc) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEDC Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEDC a
STEDC Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.stedc)


newtype STEGR a = STEGR {STEGR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEGR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stegr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stegr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stegr = STEGR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEGR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEGR (STEGR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEGR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEGR Float -> STEGR Double -> STEGR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEGR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEGR a
STEGR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.stegr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEGR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEGR a
STEGR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.stegr)


newtype STEIN a = STEIN {STEIN a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEIN :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stein :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stein :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stein = STEIN a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEIN a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEIN (STEIN a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEIN a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEIN Float -> STEIN Double -> STEIN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEIN Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEIN a
STEIN Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.stein) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEIN Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEIN a
STEIN Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.stein)


newtype STEMR a = STEMR {STEMR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEMR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stemr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stemr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stemr = STEMR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEMR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEMR (STEMR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEMR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEMR Float -> STEMR Double -> STEMR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEMR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEMR a
STEMR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.stemr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEMR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEMR a
STEMR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.stemr)


newtype STEQR a = STEQR {STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSTEQR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

steqr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
steqr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
steqr = STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSTEQR (STEQR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEQR Float -> STEQR Double -> STEQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> STEQR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
STEQR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.steqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> STEQR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
STEQR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.steqr)


newtype SUM1 a = SUM1 {SUM1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
getSUM1 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a}

sum1 :: Class.Real a => Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
sum1 :: Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
sum1 = SUM1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
forall a. SUM1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
getSUM1 (SUM1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a)
-> SUM1 a -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a
forall a b. (a -> b) -> a -> b
$ SUM1 Float -> SUM1 Double -> SUM1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO Float)
-> SUM1 Float
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a) -> SUM1 a
SUM1 Ptr CInt -> Ptr (Complex Float) -> Ptr CInt -> IO Float
C.sum1) ((Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO Double)
-> SUM1 Double
forall a.
(Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO a) -> SUM1 a
SUM1 Ptr CInt -> Ptr (Complex Double) -> Ptr CInt -> IO Double
Z.sum1)


newtype SYCON a = SYCON {SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYCON :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

sycon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
sycon :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
sycon = SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYCON (SYCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYCON Float -> SYCON Double -> SYCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYCON a
SYCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.sycon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYCON a
SYCON Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.sycon)


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

syconv :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
syconv :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
syconv = SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYCONV (SYCONV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYCONV Float -> SYCONV Double -> SYCONV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYCONV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 SYEQUB a = SYEQUB {SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYEQUB :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()}

syequb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> IO ()
syequb :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
syequb = SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYEQUB (SYEQUB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYEQUB Float -> SYEQUB Double -> SYEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYEQUB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
SYEQUB Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.syequb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYEQUB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
SYEQUB Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.syequb)


newtype SYMV a = SYMV {SYMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYMV :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

symv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
symv :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
symv = SYMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYMV (SYMV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYMV a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYMV Float -> SYMV Double -> SYMV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYMV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYMV a
SYMV Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.symv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYMV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYMV a
SYMV Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.symv)


newtype SYR a = SYR {SYR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

syr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
syr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
syr = SYR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYR (SYR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYR Float -> SYR Double -> SYR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYR a
SYR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> IO ()
C.syr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> IO ())
-> SYR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYR a
SYR Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> IO ()
Z.syr)


newtype SYRFS a = SYRFS {SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSYRFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

syrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
syrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
syrfs = SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getSYRFS (SYRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYRFS Float -> SYRFS Double -> SYRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYRFS a
SYRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.syrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYRFS a
SYRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.syrfs)


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

sysv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sysv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sysv = SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSV (SYSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSV Float -> SYSV Double -> SYSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 SYSVX a = SYSVX {SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sysvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sysvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sysvx = SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYSVX (SYSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSVX Float -> SYSVX Double -> SYSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYSVX a
SYSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.sysvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYSVX a
SYSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.sysvx)


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

syswapr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syswapr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
syswapr = SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSWAPR (SYSWAPR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSWAPR Float -> SYSWAPR Double -> SYSWAPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTF2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sytf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sytf2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytf2 = SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTF2 (SYTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTF2 Float -> SYTF2 Double -> SYTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRF :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

sytrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sytrf :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrf = SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRF (SYTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRF Float -> SYTRF Double -> SYTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYTRI :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

sytri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
sytri :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
sytri = SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYTRI (SYTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI Float -> SYTRI Double -> SYTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> SYTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2 :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

sytri2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sytri2 :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2 = SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2 (SYTRI2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2 Float -> SYTRI2 Double -> SYTRI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2X :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

sytri2x :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sytri2x :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2x = SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2X (SYTRI2X a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2X Float -> SYTRI2X Double -> SYTRI2X a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

sytrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
sytrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrs = SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRS (SYTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS Float -> SYTRS Double -> SYTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYTRS2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

sytrs2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
sytrs2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
sytrs2 = SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getSYTRS2 (SYTRS2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS2 Float -> SYTRS2 Double -> SYTRS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 TBCON a = TBCON {TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTBCON :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

tbcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
tbcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
tbcon = TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTBCON (TBCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TBCON Float -> TBCON Double -> TBCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TBCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBCON a
TBCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tbcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TBCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBCON a
TBCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tbcon)


newtype TBRFS a = TBRFS {TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTBRFS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

tbrfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
tbrfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
tbrfs = TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTBRFS (TBRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TBRFS Float -> TBRFS Double -> TBRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TBRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBRFS a
TBRFS 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 Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tbrfs) ((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 Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TBRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TBRFS a
TBRFS 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 Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tbrfs)


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

tbtrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tbtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tbtrs = TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBTRS (TBTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TBTRS Float -> TBTRS Double -> TBTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTFSM :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

tfsm :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
tfsm :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
tfsm = TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTFSM (TFSM a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFSM Float -> TFSM Double -> TFSM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> IO ()
getTFTRI :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

tftri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
tftri :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
tftri = TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTFTRI (TFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTRI Float -> TFTRI Double -> TFTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TFTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTFTTP :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

tfttp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
tfttp :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
tfttp = TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTFTTP (TFTTP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTP Float -> TFTTP Double -> TFTTP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TFTTP Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTFTTR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

tfttr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tfttr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tfttr = TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTFTTR (TFTTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTR Float -> TFTTR Double -> TFTTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 TGEVC a = TGEVC {TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTGEVC :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

tgevc :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
tgevc :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
tgevc = TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTGEVC (TGEVC a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGEVC Float -> TGEVC Double -> TGEVC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TGEVC Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
TGEVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tgevc) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TGEVC Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
TGEVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tgevc)


newtype TGEX2 a = TGEX2 {TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEX2 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

tgex2 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgex2 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgex2 = TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEX2 (TGEX2 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGEX2 Float -> TGEX2 Double -> TGEX2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
TGEX2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgex2) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
TGEX2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgex2)


newtype TGEXC a = TGEXC {TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEXC :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

tgexc :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgexc :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgexc = TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEXC (TGEXC a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGEXC Float -> TGEXC Double -> TGEXC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
TGEXC Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgexc) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
TGEXC Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgexc)


newtype TGSEN a = TGSEN {TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSEN :: Ptr CInt -> Ptr Bool -> Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

tgsen :: Class.Real a => Ptr CInt -> Ptr Bool -> Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsen :: Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsen = TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSEN (TGSEN a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGSEN Float -> TGSEN Double -> TGSEN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN Float
forall a.
(Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
TGSEN Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgsen) ((Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN Double
forall a.
(Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
TGSEN Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgsen)


newtype TGSJA a = TGSJA {TGSJA a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSJA :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

tgsja :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tgsja :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsja = TGSJA a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSJA a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSJA (TGSJA a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSJA a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGSJA Float -> TGSJA Double -> TGSJA a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSJA Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSJA a
TGSJA Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgsja) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSJA Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSJA a
TGSJA Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgsja)


newtype TGSNA a = TGSNA {TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSNA :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

tgsna :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsna :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsna = TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSNA (TGSNA a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGSNA Float -> TGSNA Double -> TGSNA a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
TGSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgsna) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
TGSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgsna)


newtype TGSY2 a = TGSY2 {TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTGSY2 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

tgsy2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tgsy2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
tgsy2 = TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTGSY2 (TGSY2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGSY2 Float -> TGSY2 Double -> TGSY2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TGSY2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
TGSY2 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 (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tgsy2) ((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 (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TGSY2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
TGSY2 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 (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tgsy2)


newtype TGSYL a = TGSYL {TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSYL :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

tgsyl :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsyl :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsyl = TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSYL (TGSYL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TGSYL Float -> TGSYL Double -> TGSYL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
TGSYL 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 (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.tgsyl) ((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 (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
TGSYL 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 (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.tgsyl)


newtype TPCON a = TPCON {TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTPCON :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

tpcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
tpcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
tpcon = TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTPCON (TPCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPCON Float -> TPCON Double -> TPCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TPCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPCON a
TPCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tpcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TPCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPCON a
TPCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tpcon)


newtype TPRFS a = TPRFS {TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTPRFS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

tprfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
tprfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
tprfs = TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTPRFS (TPRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPRFS Float -> TPRFS Double -> TPRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TPRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPRFS a
TPRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.tprfs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TPRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPRFS a
TPRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.tprfs)


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

tptri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
tptri :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
tptri = TPTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TPTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTPTRI (TPTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TPTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRI Float -> TPTRI Double -> TPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TPTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

tptrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tptrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tptrs = TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTRS (TPTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRS Float -> TPTRS Double -> TPTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTPTTF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

tpttf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
tpttf :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
tpttf = TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTPTTF (TPTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTF Float -> TPTTF Double -> TPTTF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TPTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTTR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

tpttr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tpttr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tpttr = TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTTR (TPTTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTR Float -> TPTTR Double -> TPTTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 TRCON a = TRCON {TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTRCON :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

trcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
trcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
trcon = TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTRCON (TRCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRCON Float -> TRCON Double -> TRCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRCON a
TRCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.trcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRCON a
TRCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.trcon)


newtype TREVC a = TREVC {TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTREVC :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

trevc :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
trevc :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
trevc = TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTREVC (TREVC a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TREVC Float -> TREVC Double -> TREVC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TREVC Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
TREVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.trevc) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TREVC Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
TREVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.trevc)


newtype TREXC a = TREXC {TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTREXC :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

trexc :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
trexc :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
trexc = TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTREXC (TREXC a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TREXC Float -> TREXC Double -> TREXC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TREXC Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TREXC a
TREXC Ptr CChar
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.trexc) ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TREXC Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TREXC a
TREXC Ptr CChar
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.trexc)


newtype TRRFS a = TRRFS {TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTRRFS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()}

trrfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr a -> Ptr CInt -> IO ()
trrfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
trrfs = TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
getTRRFS (TRRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRRFS Float -> TRRFS Double -> TRRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRRFS a
TRRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr Float
-> Ptr CInt
-> IO ()
C.trrfs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRRFS a
TRRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.trrfs)


newtype TRSEN a = TRSEN {TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRSEN :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

trsen :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
trsen :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
trsen = TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRSEN (TRSEN a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRSEN Float -> TRSEN Double -> TRSEN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
TRSEN Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.trsen) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
TRSEN Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.trsen)


newtype TRSNA a = TRSNA {TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRSNA :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

trsna :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trsna :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trsna = TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRSNA (TRSNA a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRSNA Float -> TRSNA Double -> TRSNA a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRSNA Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSNA a
TRSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
C.trsna) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRSNA Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSNA a
TRSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
Z.trsna)


newtype TRSYL a = TRSYL {TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRSYL :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

trsyl :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trsyl :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trsyl = TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRSYL (TRSYL a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRSYL Float -> TRSYL Double -> TRSYL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr CInt
 -> IO ())
-> TRSYL Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
TRSYL 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 Float
-> Ptr CInt
-> IO ()
C.trsyl) ((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 Double
 -> Ptr CInt
 -> IO ())
-> TRSYL Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
TRSYL 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 Double
-> Ptr CInt
-> IO ()
Z.trsyl)


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

trti2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
trti2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
trti2 = TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTI2 (TRTI2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTI2 Float -> TRTI2 Double -> TRTI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRI :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

trtri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
trtri :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
trtri = TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRI (TRTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRI Float -> TRTRI Double -> TRTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

trtrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
trtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
trtrs = TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRS (TRTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRS Float -> TRTRS Double -> TRTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTRTTF :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

trttf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
trttf :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
trttf = TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTRTTF (TRTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTF Float -> TRTTF Double -> TRTTF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TRTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTRTTP :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

trttp :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
trttp :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
trttp = TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getTRTTP (TRTTP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTP Float -> TRTTP Double -> TRTTP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> TRTTP Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTZRZF :: Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

tzrzf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
tzrzf :: Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
tzrzf = TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTZRZF (TZRZF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TZRZF Float -> TZRZF Double -> TZRZF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 UNBDB a = UNBDB {UNBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNBDB :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unbdb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr a -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unbdb :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unbdb = UNBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNBDB (UNBDB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNBDB Float -> UNBDB Double -> UNBDB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNBDB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNBDB a
UNBDB 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 Float
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.unbdb) ((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 Double
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNBDB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNBDB a
UNBDB 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 Double
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.unbdb)


newtype UNCSD a = UNCSD {UNCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNCSD :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

uncsd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
uncsd :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
uncsd = UNCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNCSD (UNCSD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNCSD Float -> UNCSD Double -> UNCSD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> 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
 -> Ptr Float
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNCSD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNCSD a
UNCSD Ptr CChar
-> Ptr CChar
-> 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
-> Ptr Float
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr (Complex Float)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
C.uncsd) ((Ptr CChar
 -> Ptr CChar
 -> 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
 -> Ptr Double
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr (Complex Double)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNCSD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNCSD a
UNCSD Ptr CChar
-> Ptr CChar
-> 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
-> Ptr Double
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr (Complex Double)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
Z.uncsd)


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

ung2l :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
ung2l :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
ung2l = UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNG2L (UNG2L a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNG2L Float -> UNG2L Double -> UNG2L a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNG2L Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNG2R :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

ung2r :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
ung2r :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
ung2r = UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNG2R (UNG2R a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNG2R Float -> UNG2R Double -> UNG2R a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNG2R Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGBR :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ungbr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ungbr :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungbr = UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGBR (UNGBR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGBR Float -> UNGBR Double -> UNGBR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGHR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unghr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unghr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unghr = UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGHR (UNGHR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGHR Float -> UNGHR Double -> UNGHR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGHR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNGL2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

ungl2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
ungl2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
ungl2 = UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNGL2 (UNGL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGL2 Float -> UNGL2 Double -> UNGL2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNGL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGLQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unglq :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unglq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unglq = UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGLQ (UNGLQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGLQ Float -> UNGLQ Double -> UNGLQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGLQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQL :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ungql :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ungql :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungql = UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQL (UNGQL a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGQL Float -> UNGQL Double -> UNGQL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQL Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ungqr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ungqr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungqr = UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGQR (UNGQR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGQR Float -> UNGQR Double -> UNGQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGQR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNGR2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()}

ungr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> IO ()
ungr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
ungr2 = UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNGR2 (UNGR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGR2 Float -> UNGR2 Double -> UNGR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UNGR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGRQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ungrq :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ungrq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungrq = UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGRQ (UNGRQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGRQ Float -> UNGRQ Double -> UNGRQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGRQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGTR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

ungtr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
ungtr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
ungtr = UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNGTR (UNGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNGTR Float -> UNGTR Double -> UNGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNM2L :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

unm2l :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
unm2l :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
unm2l = UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNM2L (UNM2L a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNM2L Float -> UNM2L Double -> UNM2L a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNM2R :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

unm2r :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
unm2r :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
unm2r = UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNM2R (UNM2R a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNM2R Float -> UNM2R Double -> UNM2R a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMBR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmbr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmbr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmbr = UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMBR (UNMBR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMBR Float -> UNMBR Double -> UNMBR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMHR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmhr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmhr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmhr = UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMHR (UNMHR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMHR Float -> UNMHR Double -> UNMHR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNML2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

unml2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
unml2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
unml2 = UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNML2 (UNML2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNML2 Float -> UNML2 Double -> UNML2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMLQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmlq :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmlq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmlq = UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMLQ (UNMLQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMLQ Float -> UNMLQ Double -> UNMLQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQL :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmql :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmql :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmql = UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQL (UNMQL a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMQL Float -> UNMQL Double -> UNMQL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmqr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmqr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmqr = UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMQR (UNMQR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMQR Float -> UNMQR Double -> UNMQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNMR2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

unmr2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
unmr2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
unmr2 = UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNMR2 (UNMR2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMR2 Float -> UNMR2 Double -> UNMR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNMR3 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

unmr3 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
unmr3 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
unmr3 = UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUNMR3 (UNMR3 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UNMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMR3 Float -> UNMR3 Double -> UNMR3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmrq :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmrq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmrq = UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRQ (UNMRQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMRQ Float -> UNMRQ Double -> UNMRQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRZ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmrz :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmrz :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmrz = UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMRZ (UNMRZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMRZ Float -> UNMRZ Double -> UNMRZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()}

unmtr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> Ptr CInt -> IO ()
unmtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
unmtr = UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
getUNMTR (UNMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> UNMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UNMTR Float -> UNMTR Double -> UNMTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUPGTR :: Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

upgtr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
upgtr :: Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
upgtr = UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUPGTR (UPGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UPGTR Float -> UPGTR Double -> UPGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> Ptr (Complex Float)
 -> Ptr CInt
 -> IO ())
-> UPGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUPMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()}

upmtr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr (Complex a) -> Ptr CInt -> Ptr (Complex a) -> Ptr CInt -> IO ()
upmtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
upmtr = UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a.
UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
getUPMTR (UPMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr CInt
 -> IO ())
-> UPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr (Complex a)
-> Ptr CInt
-> Ptr (Complex a)
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ UPMTR Float -> UPMTR Double -> UPMTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((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 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr (Complex a)
 -> Ptr CInt
 -> Ptr (Complex 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)