-- Do not edit! Automatically generated by create-lapack-ffi.
module Numeric.LAPACK.FFI.Real (
   bbcsd,
   bdsdc,
   bdsqr,
   disna,
   gbbrd,
   gbcon,
   gbequ,
   gbequb,
   gbrfs,
   gbsv,
   gbsvx,
   gbtf2,
   gbtrf,
   gbtrs,
   gebak,
   gebal,
   gebd2,
   gebrd,
   gecon,
   geequ,
   geequb,
   gees,
   geesx,
   geev,
   geevx,
   gehd2,
   gehrd,
   gejsv,
   gelq2,
   gelqf,
   gels,
   gelsd,
   gelss,
   gelsy,
   geql2,
   geqlf,
   geqp3,
   geqr2,
   geqr2p,
   geqrf,
   geqrfp,
   gerfs,
   gerq2,
   gerqf,
   gesc2,
   gesdd,
   gesv,
   gesvd,
   gesvj,
   gesvx,
   getc2,
   getf2,
   getrf,
   getri,
   getrs,
   ggbak,
   ggbal,
   gges,
   ggesx,
   ggev,
   ggevx,
   ggglm,
   gghrd,
   gglse,
   ggqrf,
   ggrqf,
   gsvj0,
   gsvj1,
   gtcon,
   gtrfs,
   gtsv,
   gtsvx,
   gttrf,
   gttrs,
   gtts2,
   sbev,
   sbevd,
   sbevx,
   sbgst,
   sbgv,
   sbgvd,
   sbgvx,
   sbtrd,
   syev,
   syevd,
   syevr,
   syevx,
   sygs2,
   sygst,
   sygv,
   sygvd,
   sygvx,
   sfrk,
   hgeqz,
   spev,
   spevd,
   spevx,
   spgst,
   spgv,
   spgvd,
   spgvx,
   sptrd,
   hsein,
   hseqr,
   ilalc,
   ilalr,
   isnan,
   labad,
   labrd,
   lacn2,
   lacon,
   lacpy,
   ladiv,
   lae2,
   laebz,
   laed0,
   laed1,
   laed2,
   laed3,
   laed4,
   laed5,
   laed6,
   laed7,
   laed8,
   laed9,
   laeda,
   laein,
   laev2,
   laexc,
   lag2,
   lags2,
   lagtf,
   lagtm,
   lagts,
   lagv2,
   lahqr,
   lahr2,
   laic1,
   laisnan,
   laln2,
   lals0,
   lalsa,
   lalsd,
   lamrg,
   laneg,
   langb,
   lange,
   langt,
   lanhs,
   lansb,
   lansf,
   lansp,
   lanst,
   lansy,
   lantb,
   lantp,
   lantr,
   lanv2,
   lapll,
   lapmr,
   lapmt,
   lapy2,
   lapy3,
   laqgb,
   laqge,
   laqp2,
   laqps,
   laqr0,
   laqr1,
   laqr2,
   laqr3,
   laqr4,
   laqr5,
   laqsb,
   laqsp,
   laqsy,
   laqtr,
   lar1v,
   lar2v,
   larf,
   larfb,
   larfg,
   larfgp,
   larft,
   larfx,
   largv,
   larnv,
   larra,
   larrb,
   larrc,
   larrd,
   larre,
   larrf,
   larrj,
   larrk,
   larrr,
   larrv,
   lartg,
   lartgp,
   lartgs,
   lartv,
   laruv,
   larz,
   larzb,
   larzt,
   las2,
   lascl,
   lasd0,
   lasd1,
   lasd2,
   lasd3,
   lasd4,
   lasd5,
   lasd6,
   lasd7,
   lasd8,
   lasda,
   lasdq,
   laset,
   lasq1,
   lasq2,
   lasq4,
   lasq5,
   lasq6,
   lasr,
   lasrt,
   lassq,
   lasv2,
   laswp,
   lasy2,
   lasyf,
   latbs,
   latdf,
   latps,
   latrd,
   latrs,
   latrz,
   lauu2,
   lauum,
   orbdb,
   orcsd,
   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,
   rscl,
   spcon,
   sprfs,
   spsv,
   spsvx,
   sptrf,
   sptri,
   sptrs,
   stebz,
   stedc,
   stegr,
   stein,
   stemr,
   steqr,
   sterf,
   stev,
   stevd,
   stevr,
   stevx,
   sycon,
   syconv,
   syequb,
   syrfs,
   sysv,
   sysvx,
   syswapr,
   sytd2,
   sytf2,
   sytrd,
   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,
   org2l,
   org2r,
   orgbr,
   orghr,
   orgl2,
   orglq,
   orgql,
   orgqr,
   orgr2,
   orgrq,
   orgtr,
   orm2l,
   orm2r,
   ormbr,
   ormhr,
   orml2,
   ormlq,
   ormql,
   ormqr,
   ormr2,
   ormr3,
   ormrq,
   ormrz,
   ormtr,
   opgtr,
   opmtr,
   ) where

import qualified Numeric.LAPACK.FFI.Float as S
import qualified Numeric.LAPACK.FFI.Double as D

import qualified Numeric.Netlib.Class as Class

import Foreign.Ptr (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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr 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 ()
S.bbcsd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr 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 ()
D.bbcsd)


newtype BDSDC a = BDSDC {BDSDC a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getBDSDC :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

bdsdc :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
bdsdc :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
bdsdc = BDSDC a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
BDSDC a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getBDSDC (BDSDC a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BDSDC a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ BDSDC Float -> BDSDC Double -> BDSDC 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BDSDC Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BDSDC a
BDSDC Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.bdsdc) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BDSDC Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> BDSDC a
BDSDC Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.bdsdc)


newtype BDSQR a = BDSQR {BDSQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getBDSQR :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
bdsqr :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.bdsqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.bdsqr)


newtype DISNA a = DISNA {DISNA a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getDISNA :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

disna :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
disna :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
disna = DISNA a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
DISNA a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getDISNA (DISNA a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> DISNA a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ DISNA Float -> DISNA Double -> DISNA 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
 -> IO ())
-> DISNA Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> DISNA a
DISNA Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.disna) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> DISNA Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> DISNA a
DISNA Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.disna)


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

gbbrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gbbrd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gbbrd = GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGBBRD (GBBRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GBBRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
GBBRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gbbrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GBBRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GBBRD a
GBBRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gbbrd)


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

gbcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbcon :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbcon = GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBCON (GBCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBCON a
GBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBCON a
GBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbcon)


newtype GBEQU a = GBEQU {GBEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gbequ) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gbequ)


newtype GBEQUB a = GBEQUB {GBEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gbequb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gbequb)


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

gbrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbrfs = GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBRFS (GBRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBRFS a
GBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBRFS a
GBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbrfs)


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

gbsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbsv :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbsv = GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSV (GBSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBSV Float -> GBSV Double -> GBSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSV a
GBSV Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbsv)


newtype GBSVX a = GBSVX {GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gbsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbsvx = GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBSVX (GBSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSVX a
GBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBSVX a
GBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbsvx)


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

gbtf2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtf2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtf2 = GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTF2 (GBTF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTF2 Float -> GBTF2 Double -> GBTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTF2 a
GBTF2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtf2)


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

gbtrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gbtrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrf = GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRF (GBTRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRF Float -> GBTRF Double -> GBTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRF a
GBTRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtrf)


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

gbtrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gbtrs = GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGBTRS (GBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GBTRS Float -> GBTRS Double -> GBTRS 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GBTRS a
GBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gbtrs)


newtype GEBAK a = GEBAK {GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBAK :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr CInt -> IO ()
gebak :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gebak = GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBAK (GEBAK a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
GEBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gebak) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBAK a
GEBAK Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gebak)


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

gebal :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gebal :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gebal = GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGEBAL (GEBAL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEBAL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
GEBAL Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gebal) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEBAL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBAL a
GEBAL Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gebal)


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

gebd2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gebd2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gebd2 = GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEBD2 (GEBD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEBD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
GEBD2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gebd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEBD2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEBD2 a
GEBD2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gebd2)


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

gebrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gebrd :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gebrd = GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEBRD (GEBRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
GEBRD Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gebrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEBRD a
GEBRD Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gebrd)


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

gecon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gecon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gecon = GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGECON (GECON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GECON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GECON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GECON a
GECON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gecon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GECON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GECON a
GECON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gecon)


newtype GEEQU a = GEEQU {GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQU :: Ptr CInt -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geequ :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geequ = GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQU (GEEQU a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
GEEQU Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geequ) ((Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQU a
GEEQU Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geequ)


newtype GEEQUB a = GEEQUB {GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQUB :: Ptr CInt -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geequb :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geequb = GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEEQUB (GEEQUB a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
GEEQUB Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geequb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEEQUB a
GEEQUB Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geequb)


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

gees :: Class.Real a => Ptr CChar -> Ptr CChar -> FunPtr (Ptr a -> Ptr a -> IO Bool) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
gees :: Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
gees = GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEES (GEES a
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float -> Ptr Float -> IO Bool)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
GEES Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Float -> Ptr Float -> IO Bool)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
S.gees) ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr Double -> Ptr Double -> IO Bool)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEES a
GEES Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Double -> Ptr Double -> IO Bool)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
D.gees)


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

geesx :: Class.Real a => Ptr CChar -> Ptr CChar -> FunPtr (Ptr a -> Ptr a -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
geesx :: Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
geesx = GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGEESX (GEESX a
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> 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 Float -> Ptr Float -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
GEESX Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Float -> Ptr Float -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
S.geesx) ((Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr Double -> Ptr Double -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GEESX a
GEESX Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Double -> Ptr Double -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
D.geesx)


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

geev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geev = GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEEV (GEEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEV a
GEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEV a
GEEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geev)


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

geevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
geevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
geevx = GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEEVX (GEEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEVX a
GEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEEVX a
GEEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geevx)


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

gehd2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gehd2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gehd2 = GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEHD2 (GEHD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHD2 Float -> GEHD2 Double -> GEHD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEHD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gehd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEHD2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEHD2 a
GEHD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gehd2)


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

gehrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gehrd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gehrd = GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEHRD (GEHRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEHRD Float -> GEHRD Double -> GEHRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gehrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEHRD a
GEHRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gehrd)


newtype GEJSV a = GEJSV {GEJSV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEJSV :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

gejsv :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gejsv :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gejsv = GEJSV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEJSV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEJSV (GEJSV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEJSV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEJSV Float -> GEJSV Double -> GEJSV 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEJSV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEJSV a
GEJSV Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gejsv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEJSV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEJSV a
GEJSV Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gejsv)


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

gelq2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gelq2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gelq2 = GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGELQ2 (GELQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQ2 Float -> GELQ2 Double -> GELQ2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GELQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gelq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GELQ2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GELQ2 a
GELQ2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gelq2)


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

gelqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gelqf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelqf = GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELQF (GELQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELQF Float -> GELQF Double -> GELQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gelqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELQF a
GELQF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gelqf)


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

gels :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gels :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gels = GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELS (GELS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GELS Float -> GELS Double -> GELS 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gels) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELS a
GELS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gels)


newtype GELSD a = GELSD {GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSD :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

gelsd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gelsd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelsd = GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSD (GELSD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
GELSD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gelsd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSD a
GELSD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gelsd)


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

gelss :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gelss :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelss = GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSS (GELSS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSS a
GELSS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gelss) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSS a
GELSS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gelss)


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

gelsy :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gelsy :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gelsy = GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGELSY (GELSY a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSY a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSY Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSY a
GELSY Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gelsy) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSY Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GELSY a
GELSY Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gelsy)


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

geql2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geql2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geql2 = GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQL2 (GEQL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQL2 Float -> GEQL2 Double -> GEQL2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geql2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQL2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQL2 a
GEQL2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geql2)


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

geqlf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqlf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqlf = GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQLF (GEQLF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQLF Float -> GEQLF Double -> GEQLF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqlf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQLF a
GEQLF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqlf)


newtype GEQP3 a = GEQP3 {GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQP3 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

geqp3 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqp3 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqp3 = GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQP3 (GEQP3 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQP3 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
GEQP3 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqp3) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQP3 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQP3 a
GEQP3 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqp3)


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

geqr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geqr2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geqr2 = GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2 (GEQR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2 Float -> GEQR2 Double -> GEQR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geqr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2 a
GEQR2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geqr2)


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

geqr2p :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
geqr2p :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
geqr2p = GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGEQR2P (GEQR2P a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQR2P Float -> GEQR2P Double -> GEQR2P a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GEQR2P Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.geqr2p) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GEQR2P Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GEQR2P a
GEQR2P Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.geqr2p)


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

geqrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqrf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrf = GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRF (GEQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRF Float -> GEQRF Double -> GEQRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRF a
GEQRF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqrf)


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

geqrfp :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
geqrfp :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
geqrfp = GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGEQRFP (GEQRFP a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GEQRFP Float -> GEQRFP Double -> GEQRFP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.geqrfp) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GEQRFP a
GEQRFP Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.geqrfp)


newtype GERFS a = GERFS {GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERFS :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gerfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gerfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gerfs = GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERFS (GERFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERFS a
GERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gerfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERFS a
GERFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gerfs)


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

gerq2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
gerq2 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
gerq2 = GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGERQ2 (GERQ2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQ2 Float -> GERQ2 Double -> GERQ2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GERQ2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gerq2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GERQ2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GERQ2 a
GERQ2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gerq2)


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

gerqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gerqf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gerqf = GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGERQF (GERQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GERQF Float -> GERQF Double -> GERQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gerqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GERQF a
GERQF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gerqf)


newtype GESC2 a = GESC2 {GESC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
getGESC2 :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()}

gesc2 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
gesc2 :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
gesc2 = GESC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
GESC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> IO ()
getGESC2 (GESC2 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> GESC2 Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
GESC2 Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> IO ()
S.gesc2) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> GESC2 Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> GESC2 a
GESC2 Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> IO ()
D.gesc2)


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

gesdd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
gesdd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesdd = GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESDD (GESDD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
GESDD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesdd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESDD a
GESDD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesdd)


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

gesv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesv = GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESV (GESV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESV Float -> GESV Double -> GESV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESV a
GESV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesv)


newtype GESVD a = GESVD {GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gesvd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesvd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesvd = GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESVD (GESVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVD a
GESVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesvd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVD a
GESVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesvd)


newtype GESVJ a = GESVJ {GESVJ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESVJ :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gesvj :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesvj :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesvj = GESVJ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESVJ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESVJ (GESVJ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVJ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GESVJ Float -> GESVJ Double -> GESVJ 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVJ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVJ a
GESVJ Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesvj) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVJ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVJ a
GESVJ Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesvj)


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

gesvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gesvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gesvx = GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGESVX (GESVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVX a
GESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gesvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GESVX a
GESVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gesvx)


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

getc2 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getc2 :: Ptr CInt
-> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getc2 = GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETC2 (GETC2 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETC2 Float -> GETC2 Double -> GETC2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getc2) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETC2 Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETC2 a
GETC2 Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getc2)


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

getf2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getf2 :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getf2 = GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETF2 (GETF2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETF2 Float -> GETF2 Double -> GETF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getf2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETF2 Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETF2 a
GETF2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getf2)


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

getrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getrf :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
getrf = GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRF (GETRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRF Float -> GETRF Double -> GETRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRF Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> GETRF a
GETRF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getrf)


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

getri :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getri :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getri = GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRI (GETRI a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRI Float -> GETRI Double -> GETRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getri) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRI a
GETRI Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getri)


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

getrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getrs = GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGETRS (GETRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GETRS Float -> GETRS Double -> GETRS 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.getrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GETRS a
GETRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.getrs)


newtype GGBAK a = GGBAK {GGBAK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGBAK :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr CInt -> IO ()
ggbak :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggbak) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggbak)


newtype GGBAL a = GGBAL {GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGGBAL :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ggbal :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ggbal = GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getGGBAL (GGBAL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
GGBAL Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ggbal) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GGBAL a
GGBAL Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ggbal)


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

gges :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool) -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
gges :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
gges = GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGES (GGES a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float -> Ptr Float -> Ptr Float -> IO Bool)
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
GGES Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Float -> Ptr Float -> Ptr Float -> IO Bool)
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
S.gges) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr Double -> Ptr Double -> Ptr Double -> IO Bool)
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGES a
GGES Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Double -> Ptr Double -> Ptr Double -> IO Bool)
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
D.gges)


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

ggesx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool) -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
ggesx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
ggesx = GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGESX (GGESX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float -> Ptr Float -> Ptr Float -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
GGESX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Float -> Ptr Float -> Ptr Float -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
S.ggesx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr Double -> Ptr Double -> Ptr Double -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> FunPtr (Ptr a -> Ptr a -> Ptr a -> IO Bool)
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGESX a
GGESX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> FunPtr (Ptr Double -> Ptr Double -> Ptr Double -> IO Bool)
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
D.ggesx)


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

ggev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggev = GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGEV (GGEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGEV a
GGEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGEV a
GGEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggev)


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

ggevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr Bool -> Ptr CInt -> IO ()
ggevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
ggevx = GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
forall a.
GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
getGGEVX (GGEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
GGEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
S.ggevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr CInt
 -> IO ())
-> GGEVX a
GGEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr CInt
-> IO ()
D.ggevx)


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

ggglm :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggglm :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggglm = GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGGLM (GGGLM a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGGLM Float -> GGGLM Double -> GGGLM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggglm) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGGLM a
GGGLM Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggglm)


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

gghrd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gghrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gghrd = GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGHRD (GGHRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGHRD Float -> GGHRD Double -> GGHRD 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gghrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGHRD a
GGHRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gghrd)


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

gglse :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gglse :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gglse = GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGLSE (GGLSE a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGLSE Float -> GGLSE Double -> GGLSE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gglse) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGLSE a
GGLSE Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gglse)


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

ggqrf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggqrf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggqrf = GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGQRF (GGQRF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGQRF Float -> GGQRF Double -> GGQRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggqrf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGQRF a
GGQRF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggqrf)


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

ggrqf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ggrqf :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ggrqf = GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGGRQF (GGRQF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GGRQF Float -> GGRQF Double -> GGRQF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ggrqf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GGRQF a
GGRQF Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ggrqf)


newtype GSVJ0 a = GSVJ0 {GSVJ0 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGSVJ0 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gsvj0 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gsvj0 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gsvj0 = GSVJ0 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GSVJ0 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGSVJ0 (GSVJ0 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ0 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GSVJ0 Float -> GSVJ0 Double -> GSVJ0 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ0 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ0 a
GSVJ0 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gsvj0) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ0 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ0 a
GSVJ0 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gsvj0)


newtype GSVJ1 a = GSVJ1 {GSVJ1 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGSVJ1 :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gsvj1 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gsvj1 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gsvj1 = GSVJ1 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GSVJ1 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGSVJ1 (GSVJ1 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ1 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GSVJ1 Float -> GSVJ1 Double -> GSVJ1 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ1 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ1 a
GSVJ1 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gsvj1) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ1 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GSVJ1 a
GSVJ1 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gsvj1)


newtype GTCON a = GTCON {GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTCON :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gtcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gtcon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtcon = GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTCON (GTCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTCON a
GTCON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gtcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTCON a
GTCON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gtcon)


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

gtrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gtrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtrfs = GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTRFS (GTRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTRFS a
GTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gtrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTRFS a
GTRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gtrfs)


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

gtsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gtsv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtsv = GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSV (GTSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTSV Float -> GTSV Double -> GTSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gtsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSV a
GTSV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gtsv)


newtype GTSVX a = GTSVX {GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

gtsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gtsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gtsvx = GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTSVX (GTSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSVX a
GTSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gtsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTSVX a
GTSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gtsvx)


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

gttrf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gttrf :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrf = GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRF (GTTRF a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRF Float -> GTTRF Double -> GTTRF 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 CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gttrf) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRF a
GTTRF Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gttrf)


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

gttrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
gttrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
gttrs = GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getGTTRS (GTTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTRS Float -> GTTRS Double -> GTTRS 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.gttrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> GTTRS a
GTTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.gttrs)


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

gtts2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
gtts2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
gtts2 = GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getGTTS2 (GTTS2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ GTTS2 Float -> GTTS2 Double -> GTTS2 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> GTTS2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.gtts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> GTTS2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> GTTS2 a
GTTS2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.gtts2)


newtype SBEV a = SBEV {SBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sbev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sbev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sbev = SBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBEV (SBEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBEV Float -> SBEV Double -> SBEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SBEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBEV a
SBEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sbev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SBEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBEV a
SBEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sbev)


newtype SBEVD a = SBEVD {SBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sbevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sbevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sbevd = SBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBEVD (SBEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBEVD Float -> SBEVD Double -> SBEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVD a
SBEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sbevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVD a
SBEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sbevd)


newtype SBEVX a = SBEVX {SBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sbevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sbevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sbevx = SBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBEVX (SBEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBEVX Float -> SBEVX Double -> SBEVX 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVX a
SBEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sbevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBEVX a
SBEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sbevx)


newtype SBGST a = SBGST {SBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBGST :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sbgst :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sbgst :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sbgst = SBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBGST (SBGST a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGST a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBGST Float -> SBGST Double -> SBGST 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SBGST Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGST a
SBGST Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sbgst) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SBGST Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGST a
SBGST Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sbgst)


newtype SBGV a = SBGV {SBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBGV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sbgv :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sbgv :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sbgv = SBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBGV (SBGV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBGV Float -> SBGV Double -> SBGV 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SBGV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGV a
SBGV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sbgv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SBGV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBGV a
SBGV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sbgv)


newtype SBGVD a = SBGVD {SBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBGVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sbgvd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sbgvd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sbgvd = SBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBGVD (SBGVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBGVD Float -> SBGVD Double -> SBGVD 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVD a
SBGVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sbgvd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVD a
SBGVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sbgvd)


newtype SBGVX a = SBGVX {SBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBGVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sbgvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sbgvx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sbgvx = SBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSBGVX (SBGVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBGVX Float -> SBGVX Double -> SBGVX 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVX a
SBGVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sbgvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SBGVX a
SBGVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sbgvx)


newtype SBTRD a = SBTRD {SBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBTRD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

sbtrd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sbtrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sbtrd = SBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSBTRD (SBTRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBTRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SBTRD Float -> SBTRD Double -> SBTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SBTRD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBTRD a
SBTRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sbtrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SBTRD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SBTRD a
SBTRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sbtrd)


newtype SYEV a = SYEV {SYEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

syev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
syev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
syev = SYEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEV (SYEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYEV Float -> SYEV Double -> SYEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEV a
SYEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEV a
SYEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syev)


newtype SYEVD a = SYEVD {SYEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

syevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
syevd = SYEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVD (SYEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYEVD Float -> SYEVD Double -> SYEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVD a
SYEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVD a
SYEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syevd)


newtype SYEVR a = SYEVR {SYEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

syevr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syevr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
syevr = SYEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVR (SYEVR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYEVR Float -> SYEVR Double -> SYEVR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVR a
SYEVR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syevr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVR a
SYEVR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syevr)


newtype SYEVX a = SYEVX {SYEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

syevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
syevx = SYEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYEVX (SYEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYEVX Float -> SYEVX Double -> SYEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVX a
SYEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYEVX a
SYEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syevx)


newtype SYGS2 a = SYGS2 {SYGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGS2 :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sygs2 :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sygs2 :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sygs2 = SYGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGS2 (SYGS2 a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGS2 a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYGS2 Float -> SYGS2 Double -> SYGS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGS2 Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGS2 a
SYGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygs2) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGS2 Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGS2 a
SYGS2 Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygs2)


newtype SYGST a = SYGST {SYGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGST :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sygst :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sygst :: Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sygst = SYGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGST (SYGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYGST Float -> SYGST Double -> SYGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGST Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGST a
SYGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGST Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGST a
SYGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygst)


newtype SYGV a = SYGV {SYGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGV :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sygv :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sygv :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sygv = SYGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGV (SYGV a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYGV Float -> SYGV Double -> SYGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGV Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGV a
SYGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygv) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGV Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGV a
SYGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygv)


newtype SYGVD a = SYGVD {SYGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGVD :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sygvd :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sygvd :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sygvd = SYGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGVD (SYGVD a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYGVD Float -> SYGVD Double -> SYGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVD Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVD a
SYGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygvd) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVD Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVD a
SYGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygvd)


newtype SYGVX a = SYGVX {SYGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGVX :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sygvx :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sygvx :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sygvx = SYGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYGVX (SYGVX a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVX a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYGVX Float -> SYGVX Double -> SYGVX 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVX Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVX a
SYGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sygvx) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVX Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYGVX a
SYGVX Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sygvx)


newtype SFRK a = SFRK {SFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getSFRK :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()}

sfrk :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
sfrk :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
sfrk = SFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a.
SFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getSFRK (SFRK a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> SFRK a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ SFRK Float -> SFRK Double -> SFRK 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> SFRK Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> SFRK a
SFRK Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO ()
S.sfrk) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> SFRK Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> SFRK a
SFRK Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO ()
D.sfrk)


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

hgeqz :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hgeqz :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hgeqz = HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHGEQZ (HGEQZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HGEQZ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
HGEQZ Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.hgeqz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HGEQZ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HGEQZ a
HGEQZ Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.hgeqz)


newtype SPEV a = SPEV {SPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPEV :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

spev :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
spev :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
spev = SPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPEV (SPEV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPEV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPEV Float -> SPEV Double -> SPEV 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPEV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPEV a
SPEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.spev) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPEV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPEV a
SPEV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.spev)


newtype SPEVD a = SPEVD {SPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPEVD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

spevd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
spevd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
spevd = SPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPEVD (SPEVD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPEVD Float -> SPEVD Double -> SPEVD 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVD a
SPEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spevd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVD a
SPEVD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spevd)


newtype SPEVX a = SPEVX {SPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPEVX :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

spevx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
spevx :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
spevx = SPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPEVX (SPEVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPEVX Float -> SPEVX Double -> SPEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVX a
SPEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spevx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPEVX a
SPEVX Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spevx)


newtype SPGST a = SPGST {SPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSPGST :: Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

spgst :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
spgst :: Ptr CInt
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
spgst = SPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSPGST (SPGST a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPGST a
-> Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPGST Float -> SPGST Double -> SPGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPGST Float
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> SPGST a
SPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.spgst) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPGST Double
forall a.
(Ptr CInt
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> SPGST a
SPGST Ptr CInt
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.spgst)


newtype SPGV a = SPGV {SPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPGV :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

spgv :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
spgv :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
spgv = SPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPGV (SPGV a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPGV a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPGV Float -> SPGV Double -> SPGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPGV Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPGV a
SPGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.spgv) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPGV Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPGV a
SPGV Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.spgv)


newtype SPGVD a = SPGVD {SPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPGVD :: Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

spgvd :: Class.Real a => Ptr CInt -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
spgvd :: Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
spgvd = SPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPGVD (SPGVD a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVD a
-> Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPGVD Float -> SPGVD Double -> SPGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVD Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVD a
SPGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spgvd) ((Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVD Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVD a
SPGVD Ptr CInt
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spgvd)


newtype SPGVX a = SPGVX {SPGVX a
-> Ptr CInt
-> Ptr CChar
-> 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPGVX :: Ptr CInt -> Ptr CChar -> 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

spgvx :: Class.Real a => Ptr CInt -> Ptr CChar -> 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
spgvx :: Ptr CInt
-> Ptr CChar
-> 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
spgvx = SPGVX a
-> Ptr CInt
-> Ptr CChar
-> 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPGVX a
-> Ptr CInt
-> Ptr CChar
-> 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPGVX (SPGVX a
 -> Ptr CInt
 -> Ptr CChar
 -> 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVX a
-> Ptr CInt
-> Ptr CChar
-> 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPGVX Float -> SPGVX Double -> SPGVX 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVX Float
forall a.
(Ptr CInt
 -> Ptr CChar
 -> 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVX a
SPGVX Ptr CInt
-> Ptr CChar
-> 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spgvx) ((Ptr CInt
 -> Ptr CChar
 -> 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 Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVX Double
forall a.
(Ptr CInt
 -> Ptr CChar
 -> 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPGVX a
SPGVX Ptr CInt
-> Ptr CChar
-> 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spgvx)


newtype SPTRD a = SPTRD {SPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSPTRD :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

sptrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
sptrd :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
sptrd = SPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSPTRD (SPTRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRD Float -> SPTRD Double -> SPTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPTRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPTRD a
SPTRD Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sptrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPTRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPTRD a
SPTRD Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sptrd)


newtype HSEIN a = HSEIN {HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEIN :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

hsein :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
hsein :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
hsein = HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEIN (HSEIN a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
HSEIN Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.hsein) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEIN a
HSEIN Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.hsein)


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

hseqr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
hseqr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
hseqr = HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getHSEQR (HSEQR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
HSEQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.hseqr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> HSEQR a
HSEQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.hseqr)


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

ilalc :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalc :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalc = ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a.
ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALC (ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt)
-> ILALC a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALC Float -> ILALC Double -> ILALC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt)
-> ILALC Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt
S.ilalc) ((Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt)
-> ILALC Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALC a
ILALC Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt
D.ilalc)


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

ilalr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalr :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
ilalr = ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a.
ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
getILALR (ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt)
-> ILALR a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt
forall a b. (a -> b) -> a -> b
$ ILALR Float -> ILALR Double -> ILALR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt)
-> ILALR Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO CInt
S.ilalr) ((Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt)
-> ILALR Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO CInt) -> ILALR a
ILALR Ptr CInt -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO CInt
D.ilalr)


newtype ISNAN a = ISNAN {ISNAN a -> Ptr a -> IO Bool
getISNAN :: Ptr a -> IO Bool}

isnan :: Class.Real a => Ptr a -> IO Bool
isnan :: Ptr a -> IO Bool
isnan = ISNAN a -> Ptr a -> IO Bool
forall a. ISNAN a -> Ptr a -> IO Bool
getISNAN (ISNAN a -> Ptr a -> IO Bool) -> ISNAN a -> Ptr a -> IO Bool
forall a b. (a -> b) -> a -> b
$ ISNAN Float -> ISNAN Double -> ISNAN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float -> IO Bool) -> ISNAN Float
forall a. (Ptr a -> IO Bool) -> ISNAN a
ISNAN Ptr Float -> IO Bool
S.isnan) ((Ptr Double -> IO Bool) -> ISNAN Double
forall a. (Ptr a -> IO Bool) -> ISNAN a
ISNAN Ptr Double -> IO Bool
D.isnan)


newtype LABAD a = LABAD {LABAD a -> Ptr a -> Ptr a -> IO ()
getLABAD :: Ptr a -> Ptr a -> IO ()}

labad :: Class.Real a => Ptr a -> Ptr a -> IO ()
labad :: Ptr a -> Ptr a -> IO ()
labad = LABAD a -> Ptr a -> Ptr a -> IO ()
forall a. LABAD a -> Ptr a -> Ptr a -> IO ()
getLABAD (LABAD a -> Ptr a -> Ptr a -> IO ())
-> LABAD a -> Ptr a -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LABAD Float -> LABAD Double -> LABAD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float -> Ptr Float -> IO ()) -> LABAD Float
forall a. (Ptr a -> Ptr a -> IO ()) -> LABAD a
LABAD Ptr Float -> Ptr Float -> IO ()
S.labad) ((Ptr Double -> Ptr Double -> IO ()) -> LABAD Double
forall a. (Ptr a -> Ptr a -> IO ()) -> LABAD a
LABAD Ptr Double -> Ptr Double -> IO ()
D.labad)


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

labrd :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
labrd :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
labrd = LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLABRD (LABRD a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LABRD a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LABRD Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LABRD a
LABRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.labrd) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LABRD Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LABRD a
LABRD Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.labrd)


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

lacn2 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lacn2 :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lacn2 = LACN2 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LACN2 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLACN2 (LACN2 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
LACN2 Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lacn2) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LACN2 a
LACN2 Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lacn2)


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

lacon :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lacon :: Ptr CInt
-> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lacon = LACON a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LACON a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLACON (LACON a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACON a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LACON Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> LACON a
LACON Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lacon) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LACON Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> LACON a
LACON Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lacon)


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

lacpy :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lacpy :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lacpy = LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLACPY (LACPY a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LACPY Float -> LACPY Double -> LACPY 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 Float
 -> Ptr CInt
 -> IO ())
-> LACPY Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lacpy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LACPY Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LACPY a
LACPY Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lacpy)


newtype LADIV a = LADIV {LADIV a
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLADIV :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

ladiv :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
ladiv :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
ladiv = LADIV a
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LADIV a
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLADIV (LADIV a
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LADIV a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LADIV Float -> LADIV Double -> LADIV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LADIV Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LADIV a
LADIV Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.ladiv) ((Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LADIV Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LADIV a
LADIV Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.ladiv)


newtype LAE2 a = LAE2 {LAE2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAE2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lae2 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lae2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lae2 = LAE2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LAE2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAE2 (LAE2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAE2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LAE2 Float -> LAE2 Double -> LAE2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ())
-> LAE2 Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LAE2 a
LAE2 Ptr Float
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ()
S.lae2) ((Ptr Double
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ())
-> LAE2 Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LAE2 a
LAE2 Ptr Double
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ()
D.lae2)


newtype LAEBZ a = LAEBZ {LAEBZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAEBZ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

laebz :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laebz :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laebz = LAEBZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAEBZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAEBZ (LAEBZ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAEBZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAEBZ Float -> LAEBZ Double -> LAEBZ 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAEBZ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAEBZ a
LAEBZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laebz) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAEBZ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAEBZ a
LAEBZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laebz)


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

laed0 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed0 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed0 = LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED0 (LAED0 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
LAED0 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed0) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED0 a
LAED0 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed0)


newtype LAED1 a = LAED1 {LAED1 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED1 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

laed1 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed1 :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed1 = LAED1 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED1 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED1 (LAED1 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED1 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED1 Float -> LAED1 Double -> LAED1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED1 Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED1 a
LAED1 Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed1) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED1 Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED1 a
LAED1 Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed1)


newtype LAED2 a = LAED2 {LAED2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

laed2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
laed2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed2 = LAED2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED2 (LAED2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED2 Float -> LAED2 Double -> LAED2 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED2 a
LAED2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED2 a
LAED2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed2)


newtype LAED3 a = LAED3 {LAED3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED3 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laed3 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laed3 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laed3 = LAED3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAED3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED3 (LAED3 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED3 Float -> LAED3 Double -> LAED3 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAED3 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED3 a
LAED3 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laed3) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAED3 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED3 a
LAED3 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laed3)


newtype LAED4 a = LAED4 {LAED4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED4 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laed4 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laed4 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laed4 = LAED4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAED4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED4 (LAED4 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED4 Float -> LAED4 Double -> LAED4 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAED4 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED4 a
LAED4 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laed4) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAED4 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED4 a
LAED4 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laed4)


newtype LAED5 a = LAED5 {LAED5 a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAED5 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

laed5 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laed5 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laed5 = LAED5 a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LAED5 a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAED5 (LAED5 a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAED5 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED5 Float -> LAED5 Double -> LAED5 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
 -> IO ())
-> LAED5 Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAED5 a
LAED5 Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.laed5) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAED5 Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAED5 a
LAED5 Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.laed5)


newtype LAED6 a = LAED6 {LAED6 a
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED6 :: Ptr CInt -> Ptr Bool -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laed6 :: Class.Real a => Ptr CInt -> Ptr Bool -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laed6 :: Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laed6 = LAED6 a
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAED6 a
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAED6 (LAED6 a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED6 a
-> Ptr CInt
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED6 Float -> LAED6 Double -> LAED6 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Bool
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAED6 Float
forall a.
(Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED6 a
LAED6 Ptr CInt
-> Ptr Bool
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laed6) ((Ptr CInt
 -> Ptr Bool
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAED6 Double
forall a.
(Ptr CInt
 -> Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAED6 a
LAED6 Ptr CInt
-> Ptr Bool
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laed6)


newtype LAED7 a = LAED7 {LAED7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED7 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed7 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed7) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed7)


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

laed8 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
laed8 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed8 = LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED8 (LAED8 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED8 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED8 a
LAED8 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed8) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED8 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED8 a
LAED8 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed8)


newtype LAED9 a = LAED9 {LAED9 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED9 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

laed9 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laed9 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laed9 = LAED9 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAED9 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAED9 (LAED9 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED9 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAED9 Float -> LAED9 Double -> LAED9 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED9 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED9 a
LAED9 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laed9) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED9 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAED9 a
LAED9 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laed9)


newtype LAEDA a = LAEDA {LAEDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEDA :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laeda :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laeda :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laeda = LAEDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAEDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEDA (LAEDA a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAEDA Float -> LAEDA Double -> LAEDA 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAEDA Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEDA a
LAEDA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laeda) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAEDA Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEDA a
LAEDA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laeda)


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

laein :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laein :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laein = LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEIN (LAEIN a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAEIN Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
LAEIN Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laein) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAEIN Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEIN a
LAEIN Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laein)


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

laev2 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laev2 :: Ptr a
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laev2 = LAEV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAEV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAEV2 (LAEV2 a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAEV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAEV2 Float
forall a.
(Ptr a
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAEV2 a
LAEV2 Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.laev2) ((Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAEV2 Double
forall a.
(Ptr a
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAEV2 a
LAEV2 Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.laev2)


newtype LAEXC a = LAEXC {LAEXC a
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEXC :: Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

laexc :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
laexc :: Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
laexc = LAEXC a
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAEXC a
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAEXC (LAEXC a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEXC a
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAEXC Float -> LAEXC Double -> LAEXC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAEXC Float
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEXC a
LAEXC Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laexc) ((Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAEXC Double
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAEXC a
LAEXC Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laexc)


newtype LAG2 a = LAG2 {LAG2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAG2 :: Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lag2 :: Class.Real a => Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lag2 :: Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lag2 = LAG2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAG2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAG2 (LAG2 a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAG2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAG2 Float -> LAG2 Double -> LAG2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAG2 Float
forall a.
(Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAG2 a
LAG2 Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lag2) ((Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAG2 Double
forall a.
(Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAG2 a
LAG2 Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lag2)


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

lags2 :: Class.Real a => Ptr Bool -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lags2 :: Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lags2 = LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAGS2 (LAGS2 a
 -> Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGS2 a
-> Ptr Bool
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAGS2 Float
forall a.
(Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGS2 a
LAGS2 Ptr Bool
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lags2) ((Ptr Bool
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAGS2 Double
forall a.
(Ptr Bool
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGS2 a
LAGS2 Ptr Bool
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lags2)


newtype LAGTF a = LAGTF {LAGTF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAGTF :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

lagtf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lagtf :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lagtf = LAGTF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAGTF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAGTF (LAGTF a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAGTF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAGTF Float -> LAGTF Double -> LAGTF 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAGTF Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAGTF a
LAGTF Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lagtf) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAGTF Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAGTF a
LAGTF Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lagtf)


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

lagtm :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lagtm :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lagtm = LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAGTM (LAGTM a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTM a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAGTM Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTM a
LAGTM Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lagtm) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAGTM Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTM a
LAGTM Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lagtm)


newtype LAGTS a = LAGTS {LAGTS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAGTS :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lagts :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lagts :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lagts = LAGTS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAGTS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAGTS (LAGTS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAGTS Float -> LAGTS Double -> LAGTS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAGTS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTS a
LAGTS Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lagts) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAGTS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAGTS a
LAGTS Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lagts)


newtype LAGV2 a = LAGV2 {LAGV2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAGV2 :: Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lagv2 :: Class.Real a => Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lagv2 :: Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lagv2 = LAGV2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAGV2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAGV2 (LAGV2 a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGV2 a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAGV2 Float -> LAGV2 Double -> LAGV2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAGV2 Float
forall a.
(Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGV2 a
LAGV2 Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lagv2) ((Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAGV2 Double
forall a.
(Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAGV2 a
LAGV2 Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lagv2)


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

lahqr :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lahqr :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lahqr = LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAHQR (LAHQR a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
LAHQR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lahqr) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAHQR a
LAHQR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lahqr)


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

lahr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lahr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lahr2 = LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAHR2 (LAHR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAHR2 Float -> LAHR2 Double -> LAHR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAHR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lahr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAHR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAHR2 a
LAHR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lahr2)


newtype LAIC1 a = LAIC1 {LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAIC1 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

laic1 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laic1 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
laic1 = LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAIC1 (LAIC1 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAIC1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAIC1 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAIC1 a
LAIC1 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.laic1) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAIC1 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAIC1 a
LAIC1 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.laic1)


newtype LAISNAN a = LAISNAN {LAISNAN a -> Ptr a -> Ptr a -> IO Bool
getLAISNAN :: Ptr a -> Ptr a -> IO Bool}

laisnan :: Class.Real a => Ptr a -> Ptr a -> IO Bool
laisnan :: Ptr a -> Ptr a -> IO Bool
laisnan = LAISNAN a -> Ptr a -> Ptr a -> IO Bool
forall a. LAISNAN a -> Ptr a -> Ptr a -> IO Bool
getLAISNAN (LAISNAN a -> Ptr a -> Ptr a -> IO Bool)
-> LAISNAN a -> Ptr a -> Ptr a -> IO Bool
forall a b. (a -> b) -> a -> b
$ LAISNAN Float -> LAISNAN Double -> LAISNAN a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float -> Ptr Float -> IO Bool) -> LAISNAN Float
forall a. (Ptr a -> Ptr a -> IO Bool) -> LAISNAN a
LAISNAN Ptr Float -> Ptr Float -> IO Bool
S.laisnan) ((Ptr Double -> Ptr Double -> IO Bool) -> LAISNAN Double
forall a. (Ptr a -> Ptr a -> IO Bool) -> LAISNAN a
LAISNAN Ptr Double -> Ptr Double -> IO Bool
D.laisnan)


newtype LALN2 a = LALN2 {LALN2 a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLALN2 :: Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laln2 :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laln2 :: Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laln2 = LALN2 a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LALN2 a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLALN2 (LALN2 a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALN2 a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LALN2 Float -> LALN2 Double -> LALN2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LALN2 Float
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALN2 a
LALN2 Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laln2) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LALN2 Double
forall a.
(Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LALN2 a
LALN2 Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laln2)


newtype LALS0 a = LALS0 {LALS0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr 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 ()
S.lals0) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr 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 ()
D.lals0)


newtype LALSA a = LALSA {LALSA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr 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 ()
S.lalsa) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr 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 ()
D.lalsa)


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

lalsd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lalsd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lalsd = LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLALSD (LALSD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
LALSD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lalsd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LALSD a
LALSD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lalsd)


newtype LAMRG a = LAMRG {LAMRG a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAMRG :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

lamrg :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
lamrg :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
lamrg = LAMRG a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAMRG a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAMRG (LAMRG a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAMRG a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAMRG Float -> LAMRG Double -> LAMRG a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAMRG Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> LAMRG a
LAMRG Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lamrg) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAMRG Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> LAMRG a
LAMRG Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lamrg)


newtype LANEG a = LANEG {LANEG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO CInt
getLANEG :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO CInt}

laneg :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO CInt
laneg :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO CInt
laneg = LANEG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO CInt
forall a.
LANEG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO CInt
getLANEG (LANEG a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO CInt)
-> LANEG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO CInt
forall a b. (a -> b) -> a -> b
$ LANEG Float -> LANEG Double -> LANEG 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 CInt
 -> IO CInt)
-> LANEG Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO CInt)
-> LANEG a
LANEG Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO CInt
S.laneg) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO CInt)
-> LANEG Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO CInt)
-> LANEG a
LANEG Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO CInt
D.laneg)


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

langb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
langb :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
langb = LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANGB (LANGB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANGB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
LANGB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.langb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANGB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGB a
LANGB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.langb)


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

lange :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lange :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lange = LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANGE (LANGE a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANGE a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANGE Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANGE a
LANGE Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.lange) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANGE Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANGE a
LANGE Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.lange)


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

langt :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a
langt :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a
langt = LANGT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a
forall a.
LANGT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a
getLANGT (LANGT a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a)
-> LANGT a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float -> Ptr Float -> Ptr Float -> IO Float)
-> LANGT Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a)
-> LANGT a
LANGT Ptr CChar
-> Ptr CInt -> Ptr Float -> Ptr Float -> Ptr Float -> IO Float
S.langt) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr Double -> Ptr Double -> IO Double)
-> LANGT Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> IO a)
-> LANGT a
LANGT Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr Double -> Ptr Double -> IO Double
D.langt)


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

lanhs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lanhs :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lanhs = LANHS a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
forall a.
LANHS a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
getLANHS (LANHS a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANHS a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float -> Ptr CInt -> Ptr Float -> IO Float)
-> LANHS Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANHS a
LANHS Ptr CChar
-> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr Float -> IO Float
S.lanhs) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr Double -> IO Double)
-> LANHS Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANHS a
LANHS Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr Double -> IO Double
D.lanhs)


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

lansb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lansb :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
lansb = LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANSB (LANSB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANSB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
LANSB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.lansb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANSB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSB a
LANSB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.lansb)


newtype LANSF a = LANSF {LANSF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
getLANSF :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a}

lansf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lansf :: Ptr CChar
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lansf = LANSF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
forall a.
LANSF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
getLANSF (LANSF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO a)
-> LANSF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
forall a b. (a -> b) -> a -> b
$ LANSF Float -> LANSF Double -> LANSF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> IO Float)
-> LANSF Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANSF a
LANSF Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO Float
S.lansf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO Double)
-> LANSF Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANSF a
LANSF Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO Double
D.lansf)


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

lansp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lansp :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lansp = LANSP a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
forall a.
LANSP a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
getLANSP (LANSP a
 -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANSP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float -> Ptr Float -> IO Float)
-> LANSP Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANSP a
LANSP Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr Float -> IO Float
S.lansp) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr Double -> IO Double)
-> LANSP Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANSP a
LANSP Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr Double -> IO Double
D.lansp)


newtype LANST a = LANST {LANST a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
getLANST :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a}

lanst :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lanst :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lanst = LANST a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
forall a.
LANST a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
getLANST (LANST a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANST a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
forall a b. (a -> b) -> a -> b
$ LANST Float -> LANST Double -> LANST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr Float -> IO Float)
-> LANST Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a) -> LANST a
LANST Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr Float -> IO Float
S.lanst) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr Double -> IO Double)
-> LANST Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a) -> LANST a
LANST Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr Double -> IO Double
D.lanst)


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

lansy :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lansy :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lansy = LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANSY (LANSY a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANSY a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANSY Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANSY a
LANSY Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.lansy) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANSY Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a)
-> LANSY a
LANSY Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.lansy)


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

lantb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lantb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
lantb = LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANTB (LANTB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANTB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
LANTB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.lantb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANTB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTB a
LANTB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.lantb)


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

lantp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lantp :: Ptr CChar
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a
lantp = LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
forall a.
LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO a
getLANTP (LANTP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO a)
-> LANTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr Float
 -> IO Float)
-> LANTP Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANTP a
LANTP Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO Float
S.lantp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO Double)
-> LANTP Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> IO a)
-> LANTP a
LANTP Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO Double
D.lantp)


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

lantr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO a
lantr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
lantr = LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
forall a.
LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO a
getLANTR (LANTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO Float)
-> LANTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
LANTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO Float
S.lantr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO Double)
-> LANTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO a)
-> LANTR a
LANTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO Double
D.lantr)


newtype LANV2 a = LANV2 {LANV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLANV2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lanv2 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lanv2 :: Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lanv2 = LANV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LANV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLANV2 (LANV2 a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LANV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LANV2 Float -> LANV2 Double -> LANV2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LANV2 Float
forall a.
(Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LANV2 a
LANV2 Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lanv2) ((Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LANV2 Double
forall a.
(Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LANV2 a
LANV2 Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lanv2)


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

lapll :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
lapll :: Ptr CInt
-> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
lapll = LAPLL a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LAPLL a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLAPLL (LAPLL a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LAPLL a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LAPLL Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LAPLL a
LAPLL Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.lapll) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LAPLL Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LAPLL a
LAPLL Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.lapll)


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

lapmr :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmr :: Ptr Bool
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmr = LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMR (LAPMR a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMR Float -> LAPMR Double -> LAPMR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR Float
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lapmr) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMR Double
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMR a
LAPMR Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lapmr)


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

lapmt :: Class.Real a => Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmt :: Ptr Bool
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lapmt = LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAPMT (LAPMT a
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT a
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAPMT Float -> LAPMT Double -> LAPMT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT Float
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lapmt) ((Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAPMT Double
forall a.
(Ptr Bool
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAPMT a
LAPMT Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lapmt)


newtype LAPY2 a = LAPY2 {LAPY2 a -> Ptr a -> Ptr a -> IO a
getLAPY2 :: Ptr a -> Ptr a -> IO a}

lapy2 :: Class.Real a => Ptr a -> Ptr a -> IO a
lapy2 :: Ptr a -> Ptr a -> IO a
lapy2 = LAPY2 a -> Ptr a -> Ptr a -> IO a
forall a. LAPY2 a -> Ptr a -> Ptr a -> IO a
getLAPY2 (LAPY2 a -> Ptr a -> Ptr a -> IO a)
-> LAPY2 a -> Ptr a -> Ptr a -> IO a
forall a b. (a -> b) -> a -> b
$ LAPY2 Float -> LAPY2 Double -> LAPY2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float -> Ptr Float -> IO Float) -> LAPY2 Float
forall a. (Ptr a -> Ptr a -> IO a) -> LAPY2 a
LAPY2 Ptr Float -> Ptr Float -> IO Float
S.lapy2) ((Ptr Double -> Ptr Double -> IO Double) -> LAPY2 Double
forall a. (Ptr a -> Ptr a -> IO a) -> LAPY2 a
LAPY2 Ptr Double -> Ptr Double -> IO Double
D.lapy2)


newtype LAPY3 a = LAPY3 {LAPY3 a -> Ptr a -> Ptr a -> Ptr a -> IO a
getLAPY3 :: Ptr a -> Ptr a -> Ptr a -> IO a}

lapy3 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> IO a
lapy3 :: Ptr a -> Ptr a -> Ptr a -> IO a
lapy3 = LAPY3 a -> Ptr a -> Ptr a -> Ptr a -> IO a
forall a. LAPY3 a -> Ptr a -> Ptr a -> Ptr a -> IO a
getLAPY3 (LAPY3 a -> Ptr a -> Ptr a -> Ptr a -> IO a)
-> LAPY3 a -> Ptr a -> Ptr a -> Ptr a -> IO a
forall a b. (a -> b) -> a -> b
$ LAPY3 Float -> LAPY3 Double -> LAPY3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float -> Ptr Float -> Ptr Float -> IO Float) -> LAPY3 Float
forall a. (Ptr a -> Ptr a -> Ptr a -> IO a) -> LAPY3 a
LAPY3 Ptr Float -> Ptr Float -> Ptr Float -> IO Float
S.lapy3) ((Ptr Double -> Ptr Double -> Ptr Double -> IO Double)
-> LAPY3 Double
forall a. (Ptr a -> Ptr a -> Ptr a -> IO a) -> LAPY3 a
LAPY3 Ptr Double -> Ptr Double -> Ptr Double -> IO Double
D.lapy3)


newtype LAQGB a = LAQGB {LAQGB a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
S.laqgb) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
D.laqgb)


newtype LAQGE a = LAQGE {LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGE :: Ptr CInt -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqge :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqge = LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQGE (LAQGE a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
LAQGE Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
S.laqge) ((Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQGE a
LAQGE Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
D.laqge)


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

laqp2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laqp2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
laqp2 = LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAQP2 (LAQP2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQP2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAQP2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQP2 a
LAQP2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.laqp2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAQP2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQP2 a
LAQP2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.laqp2)


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

laqps :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laqps :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laqps = LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQPS (LAQPS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQPS a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAQPS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQPS a
LAQPS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laqps) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAQPS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQPS a
LAQPS Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laqps)


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

laqr0 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laqr0 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laqr0 = LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR0 (LAQR0 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
LAQR0 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laqr0) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR0 a
LAQR0 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laqr0)


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

laqr1 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
laqr1 :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
laqr1 = LAQR1 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LAQR1 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLAQR1 (LAQR1 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQR1 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LAQR1 Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQR1 a
LAQR1 Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.laqr1) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LAQR1 Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LAQR1 a
LAQR1 Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.laqr1)


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

laqr2 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
laqr2 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
laqr2 = LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQR2 (LAQR2 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAQR2 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
LAQR2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laqr2) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAQR2 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR2 a
LAQR2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laqr2)


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

laqr3 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
laqr3 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
laqr3 = LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQR3 (LAQR3 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAQR3 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
LAQR3 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laqr3) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAQR3 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR3 a
LAQR3 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laqr3)


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

laqr4 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
laqr4 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
laqr4 = LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLAQR4 (LAQR4 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
LAQR4 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laqr4) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LAQR4 a
LAQR4 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laqr4)


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

laqr5 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
laqr5 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
laqr5 = LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQR5 (LAQR5 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAQR5 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
LAQR5 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laqr5) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAQR5 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQR5 a
LAQR5 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laqr5)


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

laqsb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsb :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsb = LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSB (LAQSB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
LAQSB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
S.laqsb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSB a
LAQSB Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
D.laqsb)


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

laqsp :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsp :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsp = LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSP (LAQSP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSP Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
LAQSP Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
S.laqsp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSP Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSP a
LAQSP Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
D.laqsp)


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

laqsy :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CChar -> IO ()
laqsy :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
laqsy = LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
forall a.
LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CChar
-> IO ()
getLAQSY (LAQSY a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CChar
 -> IO ())
-> LAQSY Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
LAQSY Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> IO ()
S.laqsy) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> IO ())
-> LAQSY Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> IO ())
-> LAQSY a
LAQSY Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> IO ()
D.laqsy)


newtype LAQTR a = LAQTR {LAQTR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQTR :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

laqtr :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laqtr :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laqtr = LAQTR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAQTR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAQTR (LAQTR a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQTR a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAQTR Float -> LAQTR Double -> LAQTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAQTR Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQTR a
LAQTR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laqtr) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAQTR Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAQTR a
LAQTR Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laqtr)


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 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lar1v) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr 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 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 Double
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lar1v)


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

lar2v :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lar2v :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lar2v = LAR2V a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LAR2V a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLAR2V (LAR2V a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAR2V a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LAR2V Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAR2V a
LAR2V Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lar2v) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LAR2V Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LAR2V a
LAR2V Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lar2v)


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

larf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larf = LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARF (LARF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARF Float -> LARF Double -> LARF 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARF a
LARF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larf)


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

larfb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
larfb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
larfb = LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFB (LARFB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFB Float -> LARFB Double -> LARFB 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARFB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larfb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARFB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFB a
LARFB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larfb)


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

larfg :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfg :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfg = LARFG a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARFG a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFG (LARFG a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFG Float -> LARFG Double -> LARFG a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ())
-> LARFG Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ()
S.larfg) ((Ptr CInt
 -> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ())
-> LARFG Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFG a
LARFG Ptr CInt
-> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ()
D.larfg)


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

larfgp :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfgp :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfgp = LARFGP a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARFGP a
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
getLARFGP (LARFGP a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFGP Float -> LARFGP Double -> LARFGP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ())
-> LARFGP Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr Float -> Ptr Float -> Ptr CInt -> Ptr Float -> IO ()
S.larfgp) ((Ptr CInt
 -> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ())
-> LARFGP Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ())
-> LARFGP a
LARFGP Ptr CInt
-> Ptr Double -> Ptr Double -> Ptr CInt -> Ptr Double -> IO ()
D.larfgp)


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

larft :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larft :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larft = LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARFT (LARFT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFT Float -> LARFT Double -> LARFT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARFT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larft) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARFT Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARFT a
LARFT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larft)


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

larfx :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larfx :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larfx = LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARFX (LARFX a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARFX Float -> LARFX Double -> LARFX 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARFX Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larfx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARFX Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARFX a
LARFX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larfx)


newtype LARGV a = LARGV {LARGV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARGV :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

largv :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
largv :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
largv = LARGV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARGV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARGV (LARGV a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARGV Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
LARGV Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.largv) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARGV Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARGV a
LARGV Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.largv)


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

larnv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
larnv :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
larnv = LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a.
LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
getLARNV (LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ())
-> LARNV a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LARNV Float -> LARNV Double -> LARNV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Float -> IO ())
-> LARNV Float
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Float -> IO ()
S.larnv) ((Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Double -> IO ())
-> LARNV Double
forall a.
(Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARNV a
LARNV Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr Double -> IO ()
D.larnv)


newtype LARRA a = LARRA {LARRA a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRA :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

larra :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
larra :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
larra = LARRA a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRA a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRA (LARRA a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRA a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRA Float -> LARRA Double -> LARRA 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
 -> IO ())
-> LARRA Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRA a
LARRA Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.larra) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRA Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRA a
LARRA Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larra)


newtype LARRB a = LARRB {LARRB a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRB :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

larrb :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
larrb :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
larrb = LARRB a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRB a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRB (LARRB a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRB a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRB Float -> LARRB Double -> LARRB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRB Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRB a
LARRB Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.larrb) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRB Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRB a
LARRB Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larrb)


newtype LARRC a = LARRC {LARRC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRC :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

larrc :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
larrc :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
larrc = LARRC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRC (LARRC a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRC Float -> LARRC Double -> LARRC a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRC Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRC a
LARRC Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.larrc) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRC Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRC a
LARRC Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larrc)


newtype LARRD a = LARRD {LARRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRD :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

larrd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
larrd :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
larrd = LARRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRD (LARRD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRD Float -> LARRD Double -> LARRD 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRD a
LARRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.larrd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRD a
LARRD Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larrd)


newtype LARRE a = LARRE {LARRE a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRE :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

larre :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
larre :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
larre = LARRE a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LARRE a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLARRE (LARRE a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRE a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRE Float -> LARRE Double -> LARRE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRE Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRE a
LARRE Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.larre) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRE Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LARRE a
LARRE Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larre)


newtype LARRF a = LARRF {LARRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRF :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larrf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larrf :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larrf = LARRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRF (LARRF a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRF a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRF Float -> LARRF Double -> LARRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARRF Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRF a
LARRF Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larrf) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARRF Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRF a
LARRF Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larrf)


newtype LARRJ a = LARRJ {LARRJ a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRJ :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larrj :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larrj :: Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larrj = LARRJ a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARRJ a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRJ (LARRJ a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRJ a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRJ Float -> LARRJ Double -> LARRJ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARRJ Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRJ a
LARRJ Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larrj) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARRJ Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRJ a
LARRJ Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larrj)


newtype LARRK a = LARRK {LARRK a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRK :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larrk :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larrk :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larrk = LARRK a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARRK a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARRK (LARRK a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRK a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARRK Float -> LARRK Double -> LARRK a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARRK Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRK a
LARRK Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larrk) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARRK Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARRK a
LARRK Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larrk)


newtype LARRR a = LARRR {LARRR a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getLARRR :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

larrr :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larrr :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larrr = LARRR a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a.
LARRR a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getLARRR (LARRR a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> LARRR a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ LARRR Float -> LARRR Double -> LARRR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ())
-> LARRR Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> LARRR a
LARRR Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ()
S.larrr) ((Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ())
-> LARRR Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> LARRR a
LARRR Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ()
D.larrr)


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 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.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 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 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 Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.larrv)


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

lartg :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartg :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartg = LARTG a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LARTG a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLARTG (LARTG a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LARTG a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr 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 Float
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ())
-> LARTG Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTG a
LARTG Ptr Float
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ()
S.lartg) ((Ptr Double
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ())
-> LARTG Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTG a
LARTG Ptr Double
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ()
D.lartg)


newtype LARTGP a = LARTGP {LARTGP a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLARTGP :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lartgp :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartgp :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartgp = LARTGP a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LARTGP a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLARTGP (LARTGP a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LARTGP a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LARTGP Float -> LARTGP Double -> LARTGP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ())
-> LARTGP Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTGP a
LARTGP Ptr Float
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ()
S.lartgp) ((Ptr Double
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ())
-> LARTGP Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTGP a
LARTGP Ptr Double
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ()
D.lartgp)


newtype LARTGS a = LARTGS {LARTGS a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLARTGS :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lartgs :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartgs :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lartgs = LARTGS a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LARTGS a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLARTGS (LARTGS a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LARTGS a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LARTGS Float -> LARTGS Double -> LARTGS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ())
-> LARTGS Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTGS a
LARTGS Ptr Float
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ()
S.lartgs) ((Ptr Double
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ())
-> LARTGS Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LARTGS a
LARTGS Ptr Double
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ()
D.lartgs)


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

lartv :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lartv :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lartv = LARTV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARTV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARTV (LARTV a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARTV a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARTV Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARTV a
LARTV Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lartv) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARTV Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARTV a
LARTV Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lartv)


newtype LARUV a = LARUV {LARUV a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
getLARUV :: Ptr CInt -> Ptr CInt -> Ptr a -> IO ()}

laruv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
laruv :: Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
laruv = LARUV a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a. LARUV a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
getLARUV (LARUV a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ())
-> LARUV a -> Ptr CInt -> Ptr CInt -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LARUV Float -> LARUV Double -> LARUV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr CInt -> Ptr Float -> IO ()) -> LARUV Float
forall a. (Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARUV a
LARUV Ptr CInt -> Ptr CInt -> Ptr Float -> IO ()
S.laruv) ((Ptr CInt -> Ptr CInt -> Ptr Double -> IO ()) -> LARUV Double
forall a. (Ptr CInt -> Ptr CInt -> Ptr a -> IO ()) -> LARUV a
LARUV Ptr CInt -> Ptr CInt -> Ptr Double -> IO ()
D.laruv)


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

larz :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
larz :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
larz = LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLARZ (LARZ a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZ Float -> LARZ Double -> LARZ 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LARZ Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.larz) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LARZ Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LARZ a
LARZ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.larz)


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

larzb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
larzb :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
larzb = LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZB (LARZB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZB Float -> LARZB Double -> LARZB 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARZB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larzb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARZB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZB a
LARZB Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larzb)


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

larzt :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
larzt :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
larzt = LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLARZT (LARZT a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LARZT Float -> LARZT Double -> LARZT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LARZT Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.larzt) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LARZT Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LARZT a
LARZT Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.larzt)


newtype LAS2 a = LAS2 {LAS2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAS2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

las2 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
las2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
las2 = LAS2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a.
LAS2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
getLAS2 (LAS2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LAS2 a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
forall a b. (a -> b) -> a -> b
$ LAS2 Float -> LAS2 Double -> LAS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ())
-> LAS2 Float
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LAS2 a
LAS2 Ptr Float
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr Float -> IO ()
S.las2) ((Ptr Double
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ())
-> LAS2 Double
forall a.
(Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()) -> LAS2 a
LAS2 Ptr Double
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> IO ()
D.las2)


newtype LASCL a = LASCL {LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASCL :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr CInt -> IO ()
lascl :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lascl = LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASCL (LASCL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
LASCL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lascl) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASCL a
LASCL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lascl)


newtype LASD0 a = LASD0 {LASD0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD0 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasd0 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasd0 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lasd0 = LASD0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD0 (LASD0 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD0 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD0 Float -> LASD0 Double -> LASD0 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD0 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD0 a
LASD0 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd0) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD0 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD0 a
LASD0 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd0)


newtype LASD1 a = LASD1 {LASD1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD1 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasd1 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasd1 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lasd1 = LASD1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD1 (LASD1 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD1 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD1 Float -> LASD1 Double -> LASD1 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD1 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD1 a
LASD1 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd1) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD1 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD1 a
LASD1 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd1)


newtype LASD2 a = LASD2 {LASD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASD2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

lasd2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
lasd2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
lasd2 = LASD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASD2 (LASD2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASD2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD2 Float -> LASD2 Double -> LASD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASD2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASD2 a
LASD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lasd2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASD2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASD2 a
LASD2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lasd2)


newtype LASD3 a = LASD3 {LASD3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD3 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasd3 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasd3 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lasd3 = LASD3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD3 (LASD3 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD3 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD3 Float -> LASD3 Double -> LASD3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD3 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD3 a
LASD3 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd3) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD3 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD3 a
LASD3 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd3)


newtype LASD4 a = LASD4 {LASD4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD4 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lasd4 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasd4 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lasd4 = LASD4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD4 (LASD4 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD4 Float -> LASD4 Double -> LASD4 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD4 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD4 a
LASD4 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd4) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD4 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD4 a
LASD4 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd4)


newtype LASD5 a = LASD5 {LASD5 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASD5 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lasd5 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lasd5 :: Ptr CInt
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lasd5 = LASD5 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LASD5 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASD5 (LASD5 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASD5 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD5 Float -> LASD5 Double -> LASD5 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 Float
 -> IO ())
-> LASD5 Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LASD5 a
LASD5 Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lasd5) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LASD5 Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ())
-> LASD5 a
LASD5 Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lasd5)


newtype LASD6 a = LASD6 {LASD6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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
-> Ptr CInt
-> IO ()
getLASD6 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr 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 -> Ptr CInt -> IO ()}

lasd6 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr 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 -> Ptr CInt -> IO ()
lasd6 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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
-> Ptr CInt
-> IO ()
lasd6 = LASD6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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
-> Ptr CInt
-> IO ()
forall a.
LASD6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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
-> Ptr CInt
-> IO ()
getLASD6 (LASD6 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr 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
 -> Ptr CInt
 -> IO ())
-> LASD6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD6 Float -> LASD6 Double -> LASD6 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr 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
 -> Ptr CInt
 -> IO ())
-> LASD6 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr 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
 -> Ptr CInt
 -> IO ())
-> LASD6 a
LASD6 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr 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
-> Ptr CInt
-> IO ()
S.lasd6) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr 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
 -> Ptr CInt
 -> IO ())
-> LASD6 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr 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
 -> Ptr CInt
 -> IO ())
-> LASD6 a
LASD6 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr 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
-> Ptr CInt
-> IO ()
D.lasd6)


newtype LASD7 a = LASD7 {LASD7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD7 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lasd7 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasd7 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lasd7 = LASD7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD7 (LASD7 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD7 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD7 Float -> LASD7 Double -> LASD7 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD7 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD7 a
LASD7 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd7) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD7 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD7 a
LASD7 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd7)


newtype LASD8 a = LASD8 {LASD8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD8 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lasd8 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasd8 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lasd8 = LASD8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASD8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASD8 (LASD8 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD8 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASD8 Float -> LASD8 Double -> LASD8 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASD8 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD8 a
LASD8 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasd8) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASD8 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASD8 a
LASD8 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasd8)


newtype LASDA a = LASDA {LASDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> 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 ()
getLASDA :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> 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 ()}

lasda :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> 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 ()
lasda :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> 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 ()
lasda = LASDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> 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.
LASDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> 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 ()
getLASDA (LASDA a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> 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 ())
-> LASDA a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> 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
$ LASDA Float -> LASDA Double -> LASDA a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> 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 ())
-> LASDA Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> 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 ())
-> LASDA a
LASDA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> 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 ()
S.lasda) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> 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 ())
-> LASDA Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> 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 ())
-> LASDA a
LASDA Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> 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 ()
D.lasda)


newtype LASDQ a = LASDQ {LASDQ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASDQ :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasdq :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasdq :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lasdq = LASDQ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASDQ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASDQ (LASDQ a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASDQ a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASDQ Float -> LASDQ Double -> LASDQ 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASDQ Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASDQ a
LASDQ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasdq) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASDQ Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASDQ a
LASDQ Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasdq)


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

laset :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
laset :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
laset = LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASET (LASET a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASET Float -> LASET Double -> LASET 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 Float
 -> Ptr CInt
 -> IO ())
-> LASET Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.laset) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASET Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASET a
LASET Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.laset)


newtype LASQ1 a = LASQ1 {LASQ1 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getLASQ1 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lasq1 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasq1 :: Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasq1 = LASQ1 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a.
LASQ1 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getLASQ1 (LASQ1 a
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> LASQ1 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASQ1 Float -> LASQ1 Double -> LASQ1 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ())
-> LASQ1 Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> LASQ1 a
LASQ1 Ptr CInt
-> Ptr Float -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ()
S.lasq1) ((Ptr CInt
 -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ())
-> LASQ1 Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> LASQ1 a
LASQ1 Ptr CInt
-> Ptr Double -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ()
D.lasq1)


newtype LASQ2 a = LASQ2 {LASQ2 a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getLASQ2 :: Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasq2 :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasq2 :: Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasq2 = LASQ2 a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a. LASQ2 a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getLASQ2 (LASQ2 a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> LASQ2 a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ LASQ2 Float -> LASQ2 Double -> LASQ2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()) -> LASQ2 Float
forall a. (Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> LASQ2 a
LASQ2 Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.lasq2) ((Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()) -> LASQ2 Double
forall a. (Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> LASQ2 a
LASQ2 Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.lasq2)


newtype LASQ4 a = LASQ4 {LASQ4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLASQ4 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()}

lasq4 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> IO ()
lasq4 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
lasq4 = LASQ4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a.
LASQ4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
getLASQ4 (LASQ4 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LASQ4 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASQ4 Float -> LASQ4 Double -> LASQ4 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> IO ())
-> LASQ4 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LASQ4 a
LASQ4 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> IO ()
S.lasq4) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> IO ())
-> LASQ4 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> IO ())
-> LASQ4 a
LASQ4 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> IO ()
D.lasq4)


newtype LASQ5 a = LASQ5 {LASQ5 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr Bool
-> Ptr a
-> IO ()
getLASQ5 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr Bool -> Ptr a -> IO ()}

lasq5 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr Bool -> Ptr a -> IO ()
lasq5 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr Bool
-> Ptr a
-> IO ()
lasq5 = LASQ5 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr Bool
-> Ptr a
-> IO ()
forall a.
LASQ5 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr Bool
-> Ptr a
-> IO ()
getLASQ5 (LASQ5 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr Bool
 -> Ptr a
 -> IO ())
-> LASQ5 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr Bool
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASQ5 Float -> LASQ5 Double -> LASQ5 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Bool
 -> Ptr Float
 -> IO ())
-> LASQ5 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr Bool
 -> Ptr a
 -> IO ())
-> LASQ5 a
LASQ5 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Bool
-> Ptr Float
-> IO ()
S.lasq5) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Bool
 -> Ptr Double
 -> IO ())
-> LASQ5 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr Bool
 -> Ptr a
 -> IO ())
-> LASQ5 a
LASQ5 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Bool
-> Ptr Double
-> IO ()
D.lasq5)


newtype LASQ6 a = LASQ6 {LASQ6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASQ6 :: Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lasq6 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lasq6 :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lasq6 = LASQ6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LASQ6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASQ6 (LASQ6 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASQ6 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASQ6 Float -> LASQ6 Double -> LASQ6 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LASQ6 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASQ6 a
LASQ6 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lasq6) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LASQ6 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASQ6 a
LASQ6 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lasq6)


newtype LASR a = LASR {LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

lasr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
lasr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
lasr = LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLASR (LASR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> IO ())
-> LASR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASR a
LASR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASR a
LASR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasr)


newtype LASRT a = LASRT {LASRT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getLASRT :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasrt :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasrt :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasrt = LASRT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
LASRT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getLASRT (LASRT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> LASRT a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ LASRT Float -> LASRT Double -> LASRT a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> LASRT Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> LASRT a
LASRT Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.lasrt) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> LASRT Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> LASRT a
LASRT Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.lasrt)


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

lassq :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
lassq :: Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
lassq = LASSQ a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
forall a.
LASSQ a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
getLASSQ (LASSQ a
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ())
-> LASSQ a
-> Ptr CInt
-> Ptr 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 Float -> Ptr CInt -> Ptr Float -> Ptr Float -> IO ())
-> LASSQ Float
forall a.
(Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ())
-> LASSQ a
LASSQ Ptr CInt
-> Ptr Float -> Ptr CInt -> Ptr Float -> Ptr Float -> IO ()
S.lassq) ((Ptr CInt
 -> Ptr Double -> Ptr CInt -> Ptr Double -> Ptr Double -> IO ())
-> LASSQ Double
forall a.
(Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ())
-> LASSQ a
LASSQ Ptr CInt
-> Ptr Double -> Ptr CInt -> Ptr Double -> Ptr Double -> IO ()
D.lassq)


newtype LASV2 a = LASV2 {LASV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASV2 :: Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()}

lasv2 :: Class.Real a => Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> IO ()
lasv2 :: Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
lasv2 = LASV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LASV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
getLASV2 (LASV2 a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASV2 a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASV2 Float -> LASV2 Double -> LASV2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LASV2 Float
forall a.
(Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASV2 a
LASV2 Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> IO ()
S.lasv2) ((Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LASV2 Double
forall a.
(Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LASV2 a
LASV2 Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> IO ()
D.lasv2)


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

laswp :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
laswp :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
laswp = LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASWP (LASWP a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASWP Float -> LASWP Double -> LASWP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.laswp) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASWP a
LASWP Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.laswp)


newtype LASY2 a = LASY2 {LASY2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASY2 :: Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

lasy2 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
lasy2 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
lasy2 = LASY2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LASY2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getLASY2 (LASY2 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASY2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASY2 Float -> LASY2 Double -> LASY2 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LASY2 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASY2 a
LASY2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.lasy2) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LASY2 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LASY2 a
LASY2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.lasy2)


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

lasyf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lasyf :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
lasyf = LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLASYF (LASYF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LASYF Float -> LASYF Double -> LASYF 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.lasyf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LASYF a
LASYF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.lasyf)


newtype LATBS a = LATBS {LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATBS :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latbs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latbs = LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATBS (LATBS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
LATBS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.latbs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATBS a
LATBS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.latbs)


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

latdf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
latdf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
latdf = LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getLATDF (LATDF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
LATDF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.latdf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> LATDF a
LATDF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.latdf)


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

latps :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latps :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latps = LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATPS (LATPS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATPS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
LATPS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.latps) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATPS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATPS a
LATPS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.latps)


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

latrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latrd :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latrd = LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATRD (LATRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRD a
LATRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.latrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRD a
LATRD Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.latrd)


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

latrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
latrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
latrs = LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getLATRS (LATRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> LATRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
LATRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.latrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> LATRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> LATRS a
LATRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.latrs)


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

latrz :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> IO ()
latrz :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
latrz = LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a.
LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
getLATRZ (LATRZ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> IO ()
forall a b. (a -> b) -> a -> b
$ LATRZ Float -> LATRZ Double -> LATRZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> IO ())
-> LATRZ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> IO ()
S.latrz) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> IO ())
-> LATRZ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> IO ())
-> LATRZ a
LATRZ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> IO ()
D.latrz)


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

lauu2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauu2 = LAUU2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
LAUU2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUU2 (LAUU2 a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUU2 Float -> LAUU2 Double -> LAUU2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.lauu2) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUU2 a
LAUU2 Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.lauu2)


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

lauum :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauum :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
lauum = LAUUM a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
LAUUM a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getLAUUM (LAUUM a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ LAUUM Float -> LAUUM Double -> LAUUM a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.lauum) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> LAUUM a
LAUUM Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.lauum)


newtype ORBDB a = ORBDB {ORBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORBDB :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orbdb :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orbdb :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orbdb = ORBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORBDB (ORBDB a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORBDB a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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
$ ORBDB Float -> ORBDB Double -> ORBDB 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORBDB Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORBDB a
ORBDB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orbdb) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORBDB Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORBDB a
ORBDB Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orbdb)


newtype ORCSD a = ORCSD {ORCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORCSD :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

orcsd :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
orcsd :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
orcsd = ORCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORCSD (ORCSD a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORCSD a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORCSD Float -> ORCSD Double -> ORCSD 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORCSD Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORCSD a
ORCSD Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orcsd) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORCSD Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORCSD a
ORCSD Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orcsd)


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

pbcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbcon :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbcon = PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBCON (PBCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBCON a
PBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBCON a
PBCON Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbcon)


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

pbequ :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pbequ :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pbequ = PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPBEQU (PBEQU a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PBEQU Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
PBEQU Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.pbequ) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PBEQU Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PBEQU a
PBEQU Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.pbequ)


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

pbrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbrfs = PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBRFS (PBRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBRFS a
PBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBRFS a
PBRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbrfs)


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

pbstf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbstf :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbstf = PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSTF (PBSTF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSTF Float -> PBSTF Double -> PBSTF 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 CInt
 -> IO ())
-> PBSTF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbstf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSTF Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBSTF a
PBSTF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbstf)


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

pbsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbsv = PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSV (PBSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBSV Float -> PBSV Double -> PBSV 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSV a
PBSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbsv)


newtype PBSVX a = PBSVX {PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pbsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbsvx = PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBSVX (PBSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSVX a
PBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBSVX a
PBSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbsvx)


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

pbtf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtf2 :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtf2 = PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTF2 (PBTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTF2 Float -> PBTF2 Double -> PBTF2 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 CInt
 -> IO ())
-> PBTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTF2 a
PBTF2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtf2)


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

pbtrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrf :: Ptr CChar
-> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrf = PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRF (PBTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRF Float -> PBTRF Double -> PBTRF 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 CInt
 -> IO ())
-> PBTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> PBTRF a
PBTRF Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtrf)


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

pbtrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pbtrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pbtrs = PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPBTRS (PBTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PBTRS Float -> PBTRS Double -> PBTRS 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pbtrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PBTRS a
PBTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pbtrs)


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

pftrf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftrf :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftrf = PFTRF a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PFTRF a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRF (PFTRF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PFTRF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRF Float -> PFTRF Double -> PFTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PFTRF Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pftrf) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PFTRF Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRF a
PFTRF Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pftrf)


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

pftri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftri :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pftri = PFTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PFTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPFTRI (PFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRI Float -> PFTRI Double -> PFTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PFTRI Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pftri) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PFTRI Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PFTRI a
PFTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pftri)


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

pftrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pftrs :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pftrs = PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPFTRS (PFTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PFTRS Float -> PFTRS Double -> PFTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pftrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PFTRS a
PFTRS Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pftrs)


newtype POCON a = POCON {POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOCON :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

pocon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pocon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pocon = POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOCON (POCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POCON a
POCON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pocon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POCON a
POCON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pocon)


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

poequ :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
poequ :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
poequ = POEQU a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POEQU a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQU (POEQU a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POEQU Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
POEQU Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.poequ) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POEQU Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQU a
POEQU Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.poequ)


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

poequb :: Class.Real a => Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
poequb :: Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
poequb = POEQUB a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
POEQUB a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPOEQUB (POEQUB a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> POEQUB Float
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
POEQUB Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.poequb) ((Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> POEQUB Double
forall a.
(Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> POEQUB a
POEQUB Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.poequb)


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

porfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
porfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
porfs = PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPORFS (PORFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PORFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PORFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PORFS a
PORFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.porfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PORFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PORFS a
PORFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.porfs)


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

posv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
posv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
posv = POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSV (POSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POSV Float -> POSV Double -> POSV 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.posv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSV a
POSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.posv)


newtype POSVX a = POSVX {POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

posvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
posvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
posvx = POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOSVX (POSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSVX a
POSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.posvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POSVX a
POSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.posvx)


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

potf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potf2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potf2 = POTF2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTF2 a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTF2 (POTF2 a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTF2 Float -> POTF2 Double -> POTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potf2) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTF2 a
POTF2 Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potf2)


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

potrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrf = POTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRF (POTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRF Float -> POTRF Double -> POTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potrf) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRF a
POTRF Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potrf)


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

potri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potri :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potri = POTRI a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
POTRI a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getPOTRI (POTRI a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRI Float -> POTRI Double -> POTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.potri) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> POTRI a
POTRI Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.potri)


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

potrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
potrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
potrs = POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPOTRS (POTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ POTRS Float -> POTRS Double -> POTRS 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.potrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> POTRS a
POTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.potrs)


newtype PPCON a = PPCON {PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPCON :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ppcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ppcon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ppcon = PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPCON (PPCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPCON a
PPCON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ppcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPCON a
PPCON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ppcon)


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

ppequ :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ppequ :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ppequ = PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPPEQU (PPEQU a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PPEQU Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
PPEQU Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ppequ) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PPEQU Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PPEQU a
PPEQU Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ppequ)


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

pprfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pprfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pprfs = PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPRFS (PPRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPRFS a
PPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pprfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPRFS a
PPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pprfs)


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

ppsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ppsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ppsv = PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSV (PPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPSV Float -> PPSV Double -> PPSV 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
 -> IO ())
-> PPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ppsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSV a
PPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ppsv)


newtype PPSVX a = PPSVX {PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ppsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CChar -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ppsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ppsvx = PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPSVX (PPSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CChar
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr Float
 -> Ptr CChar
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSVX a
PPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CChar
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ppsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CChar
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CChar
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPSVX a
PPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CChar
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ppsvx)


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

pptrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptrf = PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRF (PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PPTRF a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRF Float -> PPTRF Double -> PPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pptrf) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PPTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRF a
PPTRF Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pptrf)


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

pptri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptri :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pptri = PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getPPTRI (PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> PPTRI a -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRI Float -> PPTRI Double -> PPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> PPTRI Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.pptri) ((Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> PPTRI Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()) -> PPTRI a
PPTRI Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.pptri)


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

pptrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pptrs = PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPPTRS (PPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ PPTRS Float -> PPTRS Double -> PPTRS 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
 -> IO ())
-> PPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PPTRS a
PPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pptrs)


newtype PSTF2 a = PSTF2 {PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTF2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

pstf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pstf2 :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pstf2 = PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTF2 (PSTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PSTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
PSTF2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.pstf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PSTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTF2 a
PSTF2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.pstf2)


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

pstrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pstrf :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
pstrf = PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPSTRF (PSTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PSTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
PSTRF Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.pstrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PSTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PSTRF a
PSTRF Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.pstrf)


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

ptcon :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptcon :: Ptr CInt
-> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptcon = PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTCON (PTCON a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTCON a
-> Ptr CInt
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTCON Float
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> PTCON a
PTCON Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ptcon) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTCON Double
forall a.
(Ptr CInt
 -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> PTCON a
PTCON Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ptcon)


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

pteqr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
pteqr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
pteqr = PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getPTEQR (PTEQR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTEQR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
PTEQR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.pteqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTEQR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTEQR a
PTEQR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.pteqr)


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

ptrfs :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptrfs :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ptrfs = PTRFS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTRFS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTRFS (PTRFS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTRFS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
PTRFS Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ptrfs) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTRFS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTRFS a
PTRFS Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ptrfs)


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

ptsv :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ptsv :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ptsv = PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTSV (PTSV a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
PTSV Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ptsv) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTSV a
PTSV Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ptsv)


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

ptsvx :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptsvx :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
ptsvx = PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTSVX (PTSVX a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTSVX Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
PTSVX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ptsvx) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTSVX Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTSVX a
PTSVX Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ptsvx)


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

pttrf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pttrf :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
pttrf = PTTRF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a.
PTTRF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getPTTRF (PTTRF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> PTTRF a -> Ptr CInt -> Ptr a -> Ptr 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 Float -> Ptr CInt -> IO ())
-> PTTRF Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> PTTRF a
PTTRF Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ()
S.pttrf) ((Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ())
-> PTTRF Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> PTTRF a
PTTRF Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ()
D.pttrf)


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

pttrs :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
pttrs :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
pttrs = PTTRS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
PTTRS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getPTTRS (PTTRS a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
PTTRS Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.pttrs) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> PTTRS a
PTTRS Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.pttrs)


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

ptts2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptts2 :: Ptr CInt
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
ptts2 = PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getPTTS2 (PTTS2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> PTTS2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> PTTS2 Float
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> PTTS2 a
PTTS2 Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ptts2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> PTTS2 Double
forall a.
(Ptr CInt
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> PTTS2 a
PTTS2 Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ptts2)


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

rscl :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
rscl :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
rscl = RSCL a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a. RSCL a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getRSCL (RSCL a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> RSCL a -> Ptr CInt -> Ptr a -> Ptr 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 Float -> Ptr CInt -> IO ())
-> RSCL Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> RSCL a
RSCL Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ()
S.rscl) ((Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ())
-> RSCL Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> RSCL a
RSCL Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ()
D.rscl)


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

spcon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
spcon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
spcon = SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPCON (SPCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPCON a
SPCON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spcon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPCON a
SPCON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spcon)


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

sprfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sprfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sprfs = SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPRFS (SPRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPRFS a
SPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sprfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPRFS a
SPRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sprfs)


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

spsv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
spsv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
spsv = SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSV (SPSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPSV Float -> SPSV Double -> SPSV 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spsv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSV a
SPSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spsv)


newtype SPSVX a = SPSVX {SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

spsvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
spsvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
spsvx = SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPSVX (SPSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSVX a
SPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.spsvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPSVX a
SPSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.spsvx)


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

sptrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrf :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrf = SPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
forall a.
SPTRF a
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
getSPTRF (SPTRF a
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRF Float -> SPTRF Double -> SPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF Float
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> Ptr CInt -> IO ()
S.sptrf) ((Ptr CChar
 -> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF Double
forall a.
(Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> SPTRF a
SPTRF Ptr CChar
-> Ptr CInt -> Ptr Double -> Ptr CInt -> Ptr CInt -> IO ()
D.sptrf)


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

sptri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sptri :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sptri = SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSPTRI (SPTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SPTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRI Float -> SPTRI Double -> SPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SPTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sptri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SPTRI Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> SPTRI a
SPTRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sptri)


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

sptrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sptrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sptrs = SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSPTRS (SPTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPTRS Float -> SPTRS Double -> SPTRS 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sptrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SPTRS a
SPTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sptrs)


newtype STEBZ a = STEBZ {STEBZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEBZ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

stebz :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
stebz :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
stebz = STEBZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEBZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEBZ (STEBZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEBZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEBZ Float -> STEBZ Double -> STEBZ 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 CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEBZ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEBZ a
STEBZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stebz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEBZ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEBZ a
STEBZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stebz)


newtype STEDC a = STEDC {STEDC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEDC :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stedc :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stedc) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.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 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.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 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 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 Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stegr)


newtype STEIN a = STEIN {STEIN a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stein) ((Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.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 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 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 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 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 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 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 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 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 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 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 Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stemr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr 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 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 Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Bool
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stemr)


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

steqr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
steqr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
steqr = STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSTEQR (STEQR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> STEQR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
STEQR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.steqr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> STEQR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEQR a
STEQR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.steqr)


newtype STERF a = STERF {STERF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getSTERF :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

sterf :: Class.Real a => Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
sterf :: Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
sterf = STERF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a.
STERF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
getSTERF (STERF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> STERF a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
forall a b. (a -> b) -> a -> b
$ STERF Float -> STERF Double -> STERF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ())
-> STERF Float
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> STERF a
STERF Ptr CInt -> Ptr Float -> Ptr Float -> Ptr CInt -> IO ()
S.sterf) ((Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ())
-> STERF Double
forall a.
(Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()) -> STERF a
STERF Ptr CInt -> Ptr Double -> Ptr Double -> Ptr CInt -> IO ()
D.sterf)


newtype STEV a = STEV {STEV a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSTEV :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

stev :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
stev :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
stev = STEV a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
STEV a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSTEV (STEV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEV a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEV Float -> STEV Double -> STEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> STEV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEV a
STEV Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.stev) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> STEV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> STEV a
STEV Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.stev)


newtype STEVD a = STEVD {STEVD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVD :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stevd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stevd :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stevd = STEVD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEVD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVD (STEVD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEVD Float -> STEVD Double -> STEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVD a
STEVD Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stevd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVD a
STEVD Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stevd)


newtype STEVR a = STEVR {STEVR 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVR :: 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 a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stevr :: 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 a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stevr :: 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stevr = STEVR 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEVR 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVR (STEVR 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVR 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 a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEVR Float -> STEVR Double -> STEVR 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVR 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVR a
STEVR 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 Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stevr) ((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 Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVR 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 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVR a
STEVR 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 Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stevr)


newtype STEVX a = STEVX {STEVX 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVX :: 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

stevx :: 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
stevx :: 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
stevx = STEVX 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
STEVX 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSTEVX (STEVX 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVX 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ STEVX Float -> STEVX Double -> STEVX 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVX 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVX a
STEVX 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.stevx) ((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 Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVX 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> STEVX a
STEVX 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.stevx)


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

sycon :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sycon :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sycon = SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYCON (SYCON a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYCON a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYCON Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYCON a
SYCON Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sycon) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYCON Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYCON a
SYCON Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sycon)


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

syconv :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
syconv :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
syconv = SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYCONV (SYCONV a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYCONV Float -> SYCONV Double -> SYCONV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYCONV Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.syconv) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYCONV Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYCONV a
SYCONV Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.syconv)


newtype SYEQUB a = SYEQUB {SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSYEQUB :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

syequb :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
syequb :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
syequb = SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSYEQUB (SYEQUB a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYEQUB Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
SYEQUB Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.syequb) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYEQUB Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYEQUB a
SYEQUB Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.syequb)


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

syrfs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
syrfs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
syrfs = SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYRFS (SYRFS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYRFS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYRFS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYRFS a
SYRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syrfs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYRFS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYRFS a
SYRFS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syrfs)


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

sysv :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sysv :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sysv = SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSV (SYSV a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSV Float -> SYSV Double -> SYSV 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sysv) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSV a
SYSV Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sysv)


newtype SYSVX a = SYSVX {SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSVX :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()}

sysvx :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sysvx :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
sysvx = SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSVX (SYSVX a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSVX a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSVX Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSVX a
SYSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sysvx) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSVX Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSVX a
SYSVX Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sysvx)


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

syswapr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syswapr :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
syswapr = SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYSWAPR (SYSWAPR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYSWAPR Float -> SYSWAPR Double -> SYSWAPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.syswapr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYSWAPR Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYSWAPR a
SYSWAPR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.syswapr)


newtype SYTD2 a = SYTD2 {SYTD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTD2 :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

sytd2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
sytd2 :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
sytd2 = SYTD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYTD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTD2 (SYTD2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTD2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTD2 Float -> SYTD2 Double -> SYTD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYTD2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTD2 a
SYTD2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytd2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYTD2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTD2 a
SYTD2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytd2)


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

sytf2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sytf2 :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
sytf2 = SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTF2 (SYTF2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTF2 Float -> SYTF2 Double -> SYTF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytf2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTF2 Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ())
-> SYTF2 a
SYTF2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytf2)


newtype SYTRD a = SYTRD {SYTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRD :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

sytrd :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytrd :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrd = SYTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRD (SYTRD a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRD a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRD Float -> SYTRD Double -> SYTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRD Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRD a
SYTRD Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrd) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRD Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRD a
SYTRD Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrd)


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

sytrf :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytrf :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrf = SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRF (SYTRF a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRF Float -> SYTRF Double -> SYTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrf) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRF a
SYTRF Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrf)


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

sytri :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sytri :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sytri = SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRI (SYTRI a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI Float -> SYTRI Double -> SYTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYTRI Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytri) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYTRI Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRI a
SYTRI Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytri)


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

sytri2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytri2 :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2 = SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2 (SYTRI2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2 Float -> SYTRI2 Double -> SYTRI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytri2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2 a
SYTRI2 Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytri2)


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

sytri2x :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytri2x :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytri2x = SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRI2X (SYTRI2X a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRI2X Float -> SYTRI2X Double -> SYTRI2X a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytri2x) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRI2X a
SYTRI2X Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytri2x)


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

sytrs :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
sytrs :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
sytrs = SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getSYTRS (SYTRS a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS Float -> SYTRS Double -> SYTRS 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.sytrs) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> SYTRS a
SYTRS Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.sytrs)


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

sytrs2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
sytrs2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
sytrs2 = SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getSYTRS2 (SYTRS2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYTRS2 Float -> SYTRS2 Double -> SYTRS2 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> SYTRS2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.sytrs2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> SYTRS2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> SYTRS2 a
SYTRS2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.sytrs2)


newtype TBCON a = TBCON {TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBCON :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

tbcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tbcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tbcon = TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBCON (TBCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBCON a
TBCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tbcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBCON a
TBCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tbcon)


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

tbrfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tbrfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tbrfs = TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBRFS (TBRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBRFS a
TBRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tbrfs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBRFS a
TBRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tbrfs)


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

tbtrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tbtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tbtrs = TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTBTRS (TBTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TBTRS Float -> TBTRS Double -> TBTRS 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tbtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TBTRS a
TBTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tbtrs)


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

tfsm :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfsm :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
tfsm = TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFSM (TFSM a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFSM Float -> TFSM Double -> TFSM 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TFSM Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tfsm) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFSM Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFSM a
TFSM Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tfsm)


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

tftri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tftri :: Ptr CChar
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tftri = TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTRI (TFTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTRI Float -> TFTRI Double -> TFTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TFTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tftri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFTRI Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTRI a
TFTRI Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tftri)


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

tfttp :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfttp :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tfttp = TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTFTTP (TFTTP a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TFTTP a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTP Float -> TFTTP Double -> TFTTP 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 CInt
 -> IO ())
-> TFTTP Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tfttp) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TFTTP Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TFTTP a
TFTTP Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tfttp)


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

tfttr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tfttr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tfttr = TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTFTTR (TFTTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TFTTR Float -> TFTTR Double -> TFTTR 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 CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tfttr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TFTTR a
TFTTR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tfttr)


newtype TGEVC a = TGEVC {TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTGEVC :: Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

tgevc :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tgevc :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
tgevc = TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTGEVC (TGEVC a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TGEVC Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
TGEVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tgevc) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TGEVC Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TGEVC a
TGEVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tgevc)


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

tgex2 :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tgex2 :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgex2 = TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEX2 (TGEX2 a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
TGEX2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgex2) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEX2 a
TGEX2 Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgex2)


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

tgexc :: Class.Real a => Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tgexc :: Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgexc = TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGEXC (TGEXC a
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC Float
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
TGEXC Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgexc) ((Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC Double
forall a.
(Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGEXC a
TGEXC Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgexc)


newtype TGSEN a = TGSEN {TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSEN :: Ptr CInt -> Ptr Bool -> Ptr Bool -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsen :: Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsen = TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSEN (TGSEN a
 -> Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
-> Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
TGSEN Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgsen) ((Ptr CInt
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSEN a
TGSEN Ptr CInt
-> Ptr Bool
-> Ptr Bool
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgsen)


newtype TGSJA a = TGSJA {TGSJA a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSJA :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr 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 a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tgsja :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgsja) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr 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 a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr 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 Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgsja)


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

tgsna :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsna :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsna = TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSNA (TGSNA a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
TGSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgsna) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSNA a
TGSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgsna)


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

tgsy2 :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsy2 :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsy2 = TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSY2 (TGSY2 a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSY2 Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
TGSY2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgsy2) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSY2 Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSY2 a
TGSY2 Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgsy2)


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

tgsyl :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
tgsyl :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
tgsyl = TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTGSYL (TGSYL a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
TGSYL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tgsyl) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TGSYL a
TGSYL Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tgsyl)


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

tpcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tpcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tpcon = TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPCON (TPCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPCON a
TPCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tpcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPCON a
TPCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tpcon)


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

tprfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tprfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tprfs = TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPRFS (TPRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPRFS a
TPRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tprfs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPRFS a
TPRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tprfs)


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

tptri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tptri :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
tptri = TPTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
forall a.
TPTRI a
-> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
getTPTRI (TPTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRI Float -> TPTRI Double -> TPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ())
-> TPTRI Float
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Float -> Ptr CInt -> IO ()
S.tptri) ((Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ())
-> TPTRI Double
forall a.
(Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TPTRI a
TPTRI Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr Double -> Ptr CInt -> IO ()
D.tptri)


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

tptrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tptrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tptrs = TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTRS (TPTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTRS Float -> TPTRS Double -> TPTRS 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 CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tptrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTRS a
TPTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tptrs)


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

tpttf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tpttf :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
tpttf = TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getTPTTF (TPTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TPTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTF Float -> TPTTF Double -> TPTTF 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 CInt
 -> IO ())
-> TPTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.tpttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TPTTF Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ())
-> TPTTF a
TPTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.tpttf)


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

tpttr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tpttr :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tpttr = TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTPTTR (TPTTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TPTTR Float -> TPTTR Double -> TPTTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tpttr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TPTTR Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TPTTR a
TPTTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tpttr)


newtype TRCON a = TRCON {TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRCON :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

trcon :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trcon :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
trcon = TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRCON (TRCON a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRCON a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRCON Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRCON a
TRCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trcon) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRCON Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRCON a
TRCON Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trcon)


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

trevc :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trevc :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trevc = TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTREVC (TREVC a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TREVC Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
TREVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trevc) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TREVC Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREVC a
TREVC Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trevc)


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

trexc :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trexc :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trexc = TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTREXC (TREXC a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREXC a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TREXC Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREXC a
TREXC Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trexc) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TREXC Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TREXC a
TREXC Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trexc)


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

trrfs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trrfs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
trrfs = TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRRFS (TRRFS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRRFS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRRFS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRRFS a
TRRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trrfs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRRFS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRRFS a
TRRFS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trrfs)


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

trsen :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
trsen :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
trsen = TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRSEN (TRSEN a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
TRSEN Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trsen) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSEN a
TRSEN Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trsen)


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

trsna :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr Bool -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
trsna :: Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
trsna = TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRSNA (TRSNA a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSNA a
-> Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSNA Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSNA a
TRSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trsna) ((Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSNA Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr Bool
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRSNA a
TRSNA Ptr CChar
-> Ptr CChar
-> Ptr Bool
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trsna)


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

trsyl :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trsyl :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trsyl = TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRSYL (TRSYL a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRSYL Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
TRSYL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trsyl) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRSYL Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRSYL a
TRSYL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trsyl)


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

trti2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trti2 :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trti2 = TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTI2 (TRTI2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTI2 Float -> TRTI2 Double -> TRTI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trti2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTI2 Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTI2 a
TRTI2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trti2)


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

trtri :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtri :: Ptr CChar
-> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtri = TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRI (TRTRI a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRI Float -> TRTRI Double -> TRTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI Float
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trtri) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRI Double
forall a.
(Ptr CChar
 -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ())
-> TRTRI a
TRTRI Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trtri)


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

trtrs :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
trtrs :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
trtrs = TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTRTRS (TRTRS a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTRS Float -> TRTRS Double -> TRTRS 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 CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.trtrs) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TRTRS a
TRTRS Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.trtrs)


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

trttf :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttf :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
trttf = TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTF (TRTTF a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTF Float -> TRTTF Double -> TRTTF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRTTF Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trttf) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRTTF Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTF a
TRTTF Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trttf)


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

trttp :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttp :: Ptr CChar
-> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
trttp = TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getTRTTP (TRTTP a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> TRTTP a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TRTTP Float -> TRTTP Double -> TRTTP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> TRTTP Float
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.trttp) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> TRTTP Double
forall a.
(Ptr CChar
 -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ())
-> TRTTP a
TRTTP Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.trttp)


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

tzrzf :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
tzrzf :: Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
tzrzf = TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getTZRZF (TZRZF a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ TZRZF Float -> TZRZF Double -> TZRZF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.tzrzf) ((Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> TZRZF a
TZRZF Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.tzrzf)


newtype ORG2L a = ORG2L {ORG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORG2L :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

org2l :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
org2l :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
org2l = ORG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORG2L (ORG2L a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2L a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORG2L Float -> ORG2L Double -> ORG2L a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORG2L Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2L a
ORG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.org2l) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORG2L Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2L a
ORG2L Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.org2l)


newtype ORG2R a = ORG2R {ORG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORG2R :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

org2r :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
org2r :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
org2r = ORG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORG2R (ORG2R a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2R a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORG2R Float -> ORG2R Double -> ORG2R a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORG2R Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2R a
ORG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.org2r) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORG2R Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORG2R a
ORG2R Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.org2r)


newtype ORGBR a = ORGBR {ORGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGBR :: Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orgbr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orgbr :: Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orgbr = ORGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGBR (ORGBR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGBR a
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGBR Float -> ORGBR Double -> ORGBR 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGBR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGBR a
ORGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgbr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGBR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGBR a
ORGBR Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgbr)


newtype ORGHR a = ORGHR {ORGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGHR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orghr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orghr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orghr = ORGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGHR (ORGHR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGHR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGHR Float -> ORGHR Double -> ORGHR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGHR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGHR a
ORGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orghr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGHR Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGHR a
ORGHR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orghr)


newtype ORGL2 a = ORGL2 {ORGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORGL2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

orgl2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
orgl2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
orgl2 = ORGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORGL2 (ORGL2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGL2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGL2 Float -> ORGL2 Double -> ORGL2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORGL2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGL2 a
ORGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orgl2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORGL2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGL2 a
ORGL2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orgl2)


newtype ORGLQ a = ORGLQ {ORGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGLQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orglq :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orglq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orglq = ORGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGLQ (ORGLQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGLQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGLQ Float -> ORGLQ Double -> ORGLQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGLQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGLQ a
ORGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orglq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGLQ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGLQ a
ORGLQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orglq)


newtype ORGQL a = ORGQL {ORGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGQL :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orgql :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orgql :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orgql = ORGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGQL (ORGQL a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQL a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGQL Float -> ORGQL Double -> ORGQL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQL Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQL a
ORGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgql) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQL Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQL a
ORGQL Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgql)


newtype ORGQR a = ORGQR {ORGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGQR :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orgqr :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orgqr :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orgqr = ORGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGQR (ORGQR a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQR a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGQR Float -> ORGQR Double -> ORGQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQR Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQR a
ORGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgqr) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQR Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGQR a
ORGQR Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgqr)


newtype ORGR2 a = ORGR2 {ORGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORGR2 :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()}

orgr2 :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> IO ()
orgr2 :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
orgr2 = ORGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
getORGR2 (ORGR2 a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGR2 a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGR2 Float -> ORGR2 Double -> ORGR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORGR2 Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGR2 a
ORGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orgr2) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORGR2 Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORGR2 a
ORGR2 Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orgr2)


newtype ORGRQ a = ORGRQ {ORGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGRQ :: Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orgrq :: Class.Real a => Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orgrq :: Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orgrq = ORGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGRQ (ORGRQ a
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGRQ a
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGRQ Float -> ORGRQ Double -> ORGRQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGRQ Float
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGRQ a
ORGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgrq) ((Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGRQ Double
forall a.
(Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGRQ a
ORGRQ Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgrq)


newtype ORGTR a = ORGTR {ORGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGTR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

orgtr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
orgtr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
orgtr = ORGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORGTR (ORGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORGTR Float -> ORGTR Double -> ORGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGTR a
ORGTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.orgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGTR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORGTR a
ORGTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.orgtr)


newtype ORM2L a = ORM2L {ORM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORM2L :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

orm2l :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
orm2l :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
orm2l = ORM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORM2L (ORM2L a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2L a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORM2L Float -> ORM2L Double -> ORM2L 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORM2L Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2L a
ORM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orm2l) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORM2L Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2L a
ORM2L Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orm2l)


newtype ORM2R a = ORM2R {ORM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORM2R :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

orm2r :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
orm2r :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
orm2r = ORM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORM2R (ORM2R a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2R a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORM2R Float -> ORM2R Double -> ORM2R 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORM2R Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2R a
ORM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orm2r) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORM2R Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORM2R a
ORM2R Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orm2r)


newtype ORMBR a = ORMBR {ORMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMBR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormbr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormbr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormbr = ORMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMBR (ORMBR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMBR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMBR Float -> ORMBR Double -> ORMBR 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMBR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMBR a
ORMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormbr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMBR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMBR a
ORMBR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormbr)


newtype ORMHR a = ORMHR {ORMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMHR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormhr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormhr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormhr = ORMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMHR (ORMHR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMHR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMHR Float -> ORMHR Double -> ORMHR 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMHR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMHR a
ORMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormhr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMHR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMHR a
ORMHR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormhr)


newtype ORML2 a = ORML2 {ORML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORML2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

orml2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
orml2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
orml2 = ORML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORML2 (ORML2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORML2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORML2 Float -> ORML2 Double -> ORML2 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORML2 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORML2 a
ORML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.orml2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORML2 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORML2 a
ORML2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.orml2)


newtype ORMLQ a = ORMLQ {ORMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMLQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormlq :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormlq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormlq = ORMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMLQ (ORMLQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMLQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMLQ Float -> ORMLQ Double -> ORMLQ 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMLQ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMLQ a
ORMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormlq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMLQ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMLQ a
ORMLQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormlq)


newtype ORMQL a = ORMQL {ORMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMQL :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormql :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormql :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormql = ORMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMQL (ORMQL a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQL a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMQL Float -> ORMQL Double -> ORMQL 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQL Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQL a
ORMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormql) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQL Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQL a
ORMQL Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormql)


newtype ORMQR a = ORMQR {ORMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMQR :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormqr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormqr :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormqr = ORMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMQR (ORMQR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMQR Float -> ORMQR Double -> ORMQR 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQR a
ORMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormqr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMQR a
ORMQR Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormqr)


newtype ORMR2 a = ORMR2 {ORMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORMR2 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

ormr2 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
ormr2 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
ormr2 = ORMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORMR2 (ORMR2 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR2 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMR2 Float -> ORMR2 Double -> ORMR2 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORMR2 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR2 a
ORMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ormr2) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORMR2 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR2 a
ORMR2 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ormr2)


newtype ORMR3 a = ORMR3 {ORMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORMR3 :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

ormr3 :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
ormr3 :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
ormr3 = ORMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
ORMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getORMR3 (ORMR3 a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR3 a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMR3 Float -> ORMR3 Double -> ORMR3 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> ORMR3 Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR3 a
ORMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.ormr3) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> ORMR3 Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> ORMR3 a
ORMR3 Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.ormr3)


newtype ORMRQ a = ORMRQ {ORMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMRQ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormrq :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormrq :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormrq = ORMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMRQ (ORMRQ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRQ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMRQ Float -> ORMRQ Double -> ORMRQ 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 Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRQ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRQ a
ORMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormrq) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRQ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRQ a
ORMRQ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormrq)


newtype ORMRZ a = ORMRZ {ORMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMRZ :: Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormrz :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormrz :: Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormrz = ORMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMRZ (ORMRZ a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRZ a
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMRZ Float -> ORMRZ Double -> ORMRZ 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRZ Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRZ a
ORMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormrz) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRZ Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMRZ a
ORMRZ Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormrz)


newtype ORMTR a = ORMTR {ORMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()}

ormtr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> Ptr CInt -> IO ()
ormtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
ormtr = ORMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a.
ORMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
getORMTR (ORMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ ORMTR Float -> ORMTR Double -> ORMTR 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 CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMTR a
ORMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> Ptr CInt
-> IO ()
S.ormtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> Ptr CInt
 -> IO ())
-> ORMTR a
ORMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> Ptr CInt
-> IO ()
D.ormtr)


newtype OPGTR a = OPGTR {OPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getOPGTR :: Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

opgtr :: Class.Real a => Ptr CChar -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
opgtr :: Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
opgtr = OPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
OPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getOPGTR (OPGTR a
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPGTR a
-> Ptr CChar
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ OPGTR Float -> OPGTR Double -> OPGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Ptr CChar
 -> Ptr CInt
 -> Ptr Float
 -> Ptr Float
 -> Ptr Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> OPGTR Float
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPGTR a
OPGTR Ptr CChar
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.opgtr) ((Ptr CChar
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> OPGTR Double
forall a.
(Ptr CChar
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPGTR a
OPGTR Ptr CChar
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.opgtr)


newtype OPMTR a = OPMTR {OPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getOPMTR :: Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()}

opmtr :: Class.Real a => Ptr CChar -> Ptr CChar -> Ptr CChar -> Ptr CInt -> Ptr CInt -> Ptr a -> Ptr a -> Ptr a -> Ptr CInt -> Ptr a -> Ptr CInt -> IO ()
opmtr :: Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
opmtr = OPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a.
OPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
getOPMTR (OPMTR a
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPMTR a
-> Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr a
-> Ptr a
-> Ptr a
-> Ptr CInt
-> Ptr a
-> Ptr CInt
-> IO ()
forall a b. (a -> b) -> a -> b
$ OPMTR Float -> OPMTR Double -> OPMTR 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 Float
 -> Ptr CInt
 -> Ptr Float
 -> Ptr CInt
 -> IO ())
-> OPMTR Float
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPMTR a
OPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Float
-> Ptr Float
-> Ptr Float
-> Ptr CInt
-> Ptr Float
-> Ptr CInt
-> IO ()
S.opmtr) ((Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr Double
 -> Ptr Double
 -> Ptr Double
 -> Ptr CInt
 -> Ptr Double
 -> Ptr CInt
 -> IO ())
-> OPMTR Double
forall a.
(Ptr CChar
 -> Ptr CChar
 -> Ptr CChar
 -> Ptr CInt
 -> Ptr CInt
 -> Ptr a
 -> Ptr a
 -> Ptr a
 -> Ptr CInt
 -> Ptr a
 -> Ptr CInt
 -> IO ())
-> OPMTR a
OPMTR Ptr CChar
-> Ptr CChar
-> Ptr CChar
-> Ptr CInt
-> Ptr CInt
-> Ptr Double
-> Ptr Double
-> Ptr Double
-> Ptr CInt
-> Ptr Double
-> Ptr CInt
-> IO ()
D.opmtr)