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

import qualified Numeric.LAPACK.ComfortArray.ComplexDouble as Z
import qualified Numeric.LAPACK.ComfortArray.ComplexFloat as C
import qualified Numeric.Netlib.Class as Class
import Numeric.Netlib.ComfortArray.Utility (ZeroInt)

import Data.Complex (Complex)

import Data.Array.Comfort.Storable.Mutable (IOArray)
import Data.Array.Comfort.Storable (Array)

import Foreign.Ptr (Ptr, FunPtr)
import Foreign.C.Types (CInt)



newtype BBCSD a = BBCSD {BBCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Int)
getBBCSD :: Char -> Char -> Char -> Char -> Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Int)}

bbcsd :: Class.Real a => Char -> Char -> Char -> Char -> Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Int)
bbcsd :: Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Int)
bbcsd = BBCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
BBCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Int)
getBBCSD (BBCSD a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> BBCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt Float, Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> BBCSD Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> BBCSD a
BBCSD Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt Float, Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.bbcsd) ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt Double, Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> BBCSD Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Array ZeroInt a, Array ZeroInt a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> BBCSD a
BBCSD Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt Double, Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.bbcsd)


newtype BDSQR a = BDSQR {BDSQR a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getBDSQR :: Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

bdsqr :: Class.Real a => Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
bdsqr :: Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
bdsqr = BDSQR a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
BDSQR a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getBDSQR (BDSQR a
 -> Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> BDSQR a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> BDSQR Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> BDSQR a
BDSQR Char
-> Int
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.bdsqr) ((Char
 -> Int
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> BDSQR Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> BDSQR a
BDSQR Char
-> Int
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.bdsqr)


newtype GBBRD a = GBBRD {GBBRD a
-> Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGBBRD :: Char -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

gbbrd :: Class.Real a => Char -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
gbbrd :: Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
gbbrd = GBBRD a
-> Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GBBRD a
-> Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGBBRD (GBBRD a
 -> Char
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GBBRD a
-> Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GBBRD Float
forall a.
(Char
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GBBRD a
GBBRD Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.gbbrd) ((Char
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GBBRD Double
forall a.
(Char
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GBBRD a
GBBRD Char
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.gbbrd)


newtype GBCON a = GBCON {GBCON a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getGBCON :: Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

gbcon :: Class.Real a => Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
gbcon :: Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
gbcon = GBCON a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
GBCON a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getGBCON (GBCON a
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GBCON a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
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 ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> GBCON Float
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GBCON a
GBCON Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.gbcon) ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> GBCON Double
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GBCON a
GBCON Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.gbcon)


newtype GBEQU a = GBEQU {GBEQU a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGBEQU :: Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)}

gbequ :: Class.Real a => Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
gbequ :: Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
gbequ = GBEQU a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
forall a.
GBEQU a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGBEQU (GBEQU a
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQU a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
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 ((Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
       Int))
-> GBEQU Float
forall a.
(Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQU a
GBEQU Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
      Int)
C.gbequ) ((Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
       Double, Int))
-> GBEQU Double
forall a.
(Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQU a
GBEQU Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
      Double, Int)
Z.gbequ)


newtype GBEQUB a = GBEQUB {GBEQUB a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGBEQUB :: Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)}

gbequb :: Class.Real a => Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
gbequb :: Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
gbequb = GBEQUB a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
forall a.
GBEQUB a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGBEQUB (GBEQUB a
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQUB a
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
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 ((Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
       Int))
-> GBEQUB Float
forall a.
(Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQUB a
GBEQUB Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
      Int)
C.gbequb) ((Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
       Double, Int))
-> GBEQUB Double
forall a.
(Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GBEQUB a
GBEQUB Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
      Double, Int)
Z.gbequb)


newtype GBRFS a = GBRFS {GBRFS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGBRFS :: Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

gbrfs :: Class.Real a => Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
gbrfs :: Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
gbrfs = GBRFS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GBRFS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGBRFS (GBRFS a
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GBRFS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> GBRFS Float
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GBRFS a
GBRFS Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.gbrfs) ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> GBRFS Double
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GBRFS a
GBRFS Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gbrfs)


newtype GBSV a = GBSV {GBSV a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBSV :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

gbsv :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
gbsv :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
gbsv = GBSV a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GBSV a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBSV (GBSV a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBSV a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GBSV Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBSV a
GBSV Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.gbsv) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GBSV Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBSV a
GBSV Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.gbsv)


newtype GBSVX a = GBSVX {GBSVX a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGBSVX :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

gbsvx :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
gbsvx :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
gbsvx = GBSVX a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
GBSVX a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGBSVX (GBSVX a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GBSVX a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> GBSVX Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GBSVX a
GBSVX Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.gbsvx) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> GBSVX Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GBSVX a
GBSVX Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gbsvx)


newtype GBTF2 a = GBTF2 {GBTF2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBTF2 :: Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

gbtf2 :: Class.Real a => Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
gbtf2 :: Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
gbtf2 = GBTF2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GBTF2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBTF2 (GBTF2 a
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTF2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GBTF2 Float
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTF2 a
GBTF2 Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.gbtf2) ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GBTF2 Double
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTF2 a
GBTF2 Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.gbtf2)


newtype GBTRF a = GBTRF {GBTRF a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBTRF :: Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

gbtrf :: Class.Real a => Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
gbtrf :: Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
gbtrf = GBTRF a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GBTRF a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGBTRF (GBTRF a
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTRF a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GBTRF Float
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTRF a
GBTRF Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.gbtrf) ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GBTRF Double
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GBTRF a
GBTRF Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.gbtrf)


newtype GBTRS a = GBTRS {GBTRS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGBTRS :: Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

gbtrs :: Class.Real a => Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
gbtrs :: Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
gbtrs = GBTRS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GBTRS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGBTRS (GBTRS a
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GBTRS a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GBTRS Float
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GBTRS a
GBTRS Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.gbtrs) ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GBTRS Double
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GBTRS a
GBTRS Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.gbtrs)


newtype GEBAK a = GEBAK {GEBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGEBAK :: Char -> Char -> Int -> Int -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

gebak :: Class.Real a => Char -> Char -> Int -> Int -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
gebak :: Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
gebak = GEBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GEBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGEBAK (GEBAK a
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GEBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GEBAK Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GEBAK a
GEBAK Char
-> Char
-> Int
-> Int
-> Array ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.gebak) ((Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GEBAK Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GEBAK a
GEBAK Char
-> Char
-> Int
-> Int
-> Array ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.gebak)


newtype GEBAL a = GEBAL {GEBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int, Array ZeroInt a, Int)
getGEBAL :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int, Array ZeroInt a, Int)}

gebal :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int, Array ZeroInt a, Int)
gebal :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int, Array ZeroInt a, Int)
gebal = GEBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int, Array ZeroInt a, Int)
forall a.
GEBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int, Array ZeroInt a, Int)
getGEBAL (GEBAL a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int, Array ZeroInt a, Int))
-> GEBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int, Array ZeroInt a, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Int, Int, Array ZeroInt Float, Int))
-> GEBAL Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int, Array ZeroInt a, Int))
-> GEBAL a
GEBAL Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Int, Int, Array ZeroInt Float, Int)
C.gebal) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Int, Int, Array ZeroInt Double, Int))
-> GEBAL Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int, Array ZeroInt a, Int))
-> GEBAL a
GEBAL Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Int, Int, Array ZeroInt Double, Int)
Z.gebal)


newtype GEBD2 a = GEBD2 {GEBD2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getGEBD2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

gebd2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
gebd2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
gebd2 = GEBD2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
forall a.
GEBD2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getGEBD2 (GEBD2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBD2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int))
-> GEBD2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBD2 a
GEBD2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.gebd2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> GEBD2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBD2 a
GEBD2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.gebd2)


newtype GEBRD a = GEBRD {GEBRD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getGEBRD :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

gebrd :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
gebrd :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
gebrd = GEBRD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
forall a.
GEBRD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getGEBRD (GEBRD a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBRD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int))
-> GEBRD Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBRD a
GEBRD Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.gebrd) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> GEBRD Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> GEBRD a
GEBRD Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.gebrd)


newtype GECON a = GECON {GECON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
getGECON :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)}

gecon :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)
gecon :: Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
gecon = GECON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
forall a.
GECON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
getGECON (GECON a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (a, Int))
-> GECON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IO (Float, Int))
-> GECON Float
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> GECON a
GECON Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IO (Float, Int)
C.gecon) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IO (Double, Int))
-> GECON Double
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> GECON a
GECON Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IO (Double, Int)
Z.gecon)


newtype GEEQU a = GEEQU {GEEQU a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGEEQU :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)}

geequ :: Class.Real a => Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
geequ :: Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
geequ = GEEQU a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
forall a.
GEEQU a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGEEQU (GEEQU a
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQU a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
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 ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
       Int))
-> GEEQU Float
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQU a
GEEQU Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
      Int)
C.geequ) ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
       Double, Int))
-> GEEQU Double
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQU a
GEEQU Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
      Double, Int)
Z.geequ)


newtype GEEQUB a = GEEQUB {GEEQUB a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGEEQUB :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)}

geequb :: Class.Real a => Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
geequb :: Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
geequb = GEEQUB a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
forall a.
GEEQUB a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
getGEEQUB (GEEQUB a
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQUB a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int)
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 ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
       Int))
-> GEEQUB Float
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQUB a
GEEQUB Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float, Float, Float, Float,
      Int)
C.geequb) ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
       Double, Int))
-> GEEQUB Double
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, a, a, a, Int))
-> GEEQUB a
GEEQUB Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double, Double, Double,
      Double, Int)
Z.geequb)


newtype GEES a = GEES {GEES a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGEES :: Char -> Char -> FunPtr (Ptr (Complex a) -> IO Bool) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

gees :: Class.Real a => Char -> Char -> FunPtr (Ptr (Complex a) -> IO Bool) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
gees :: Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
gees = GEES a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GEES a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGEES (GEES a
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEES a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> FunPtr (Ptr (Complex Float) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GEES Float
forall a.
(Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEES a
GEES Char
-> Char
-> FunPtr (Ptr (Complex Float) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.gees) ((Char
 -> Char
 -> FunPtr (Ptr (Complex Double) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GEES Double
forall a.
(Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEES a
GEES Char
-> Char
-> FunPtr (Ptr (Complex Double) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.gees)


newtype GEESX a = GEESX {GEESX a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), a, a, Int)
getGEESX :: Char -> Char -> FunPtr (Ptr (Complex a) -> IO Bool) -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), a, a, Int)}

geesx :: Class.Real a => Char -> Char -> FunPtr (Ptr (Complex a) -> IO Bool) -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), a, a, Int)
geesx :: Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), a, a, Int)
geesx = GEESX a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), a, a, Int)
forall a.
GEESX a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), a, a, Int)
getGEESX (GEESX a
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), a, a, Int))
-> GEESX a
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), a, a, Int)
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 ((Char
 -> Char
 -> FunPtr (Ptr (Complex Float) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Float, Float, Int))
-> GEESX Float
forall a.
(Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), a, a, Int))
-> GEESX a
GEESX Char
-> Char
-> FunPtr (Ptr (Complex Float) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Float, Float, Int)
C.geesx) ((Char
 -> Char
 -> FunPtr (Ptr (Complex Double) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Double, Double, Int))
-> GEESX Double
forall a.
(Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), a, a, Int))
-> GEESX a
GEESX Char
-> Char
-> FunPtr (Ptr (Complex Double) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Double, Double, Int)
Z.geesx)


newtype GEEV a = GEEV {GEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGEEV :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

geev :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
geev :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
geev = GEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGEEV (GEEV a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GEEV Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEEV a
GEEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.geev) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GEEV Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GEEV a
GEEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.geev)


newtype GEEVX a = GEEVX {GEEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
      Array ZeroInt a, Array ZeroInt a, Int)
getGEEVX :: Char -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a, Array ZeroInt a, Array ZeroInt a, Int)}

geevx :: Class.Real a => Char -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a, Array ZeroInt a, Array ZeroInt a, Int)
geevx :: Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
      Array ZeroInt a, Array ZeroInt a, Int)
geevx = GEEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
      Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GEEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
      Array ZeroInt a, Array ZeroInt a, Int)
getGEEVX (GEEVX a
 -> Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
       Array ZeroInt a, Array ZeroInt a, Int))
-> GEEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
      Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int, Int,
       Array ZeroInt Float, Float, Array ZeroInt Float,
       Array ZeroInt Float, Int))
-> GEEVX Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
       Array ZeroInt a, Array ZeroInt a, Int))
-> GEEVX a
GEEVX Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int, Int,
      Array ZeroInt Float, Float, Array ZeroInt Float,
      Array ZeroInt Float, Int)
C.geevx) ((Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int, Int,
       Array ZeroInt Double, Double, Array ZeroInt Double,
       Array ZeroInt Double, Int))
-> GEEVX Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a, a,
       Array ZeroInt a, Array ZeroInt a, Int))
-> GEEVX a
GEEVX Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int, Int,
      Array ZeroInt Double, Double, Array ZeroInt Double,
      Array ZeroInt Double, Int)
Z.geevx)


newtype GEHD2 a = GEHD2 {GEHD2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEHD2 :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

gehd2 :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
gehd2 :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
gehd2 = GEHD2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEHD2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEHD2 (GEHD2 a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHD2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEHD2 Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHD2 a
GEHD2 Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.gehd2) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEHD2 Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHD2 a
GEHD2 Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.gehd2)


newtype GEHRD a = GEHRD {GEHRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEHRD :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

gehrd :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
gehrd :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
gehrd = GEHRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEHRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEHRD (GEHRD a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEHRD Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHRD a
GEHRD Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.gehrd) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEHRD Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEHRD a
GEHRD Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.gehrd)


newtype GELQ2 a = GELQ2 {GELQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGELQ2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

gelq2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
gelq2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
gelq2 = GELQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GELQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGELQ2 (GELQ2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GELQ2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQ2 a
GELQ2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.gelq2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GELQ2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQ2 a
GELQ2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.gelq2)


newtype GELQF a = GELQF {GELQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGELQF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

gelqf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
gelqf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
gelqf = GELQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GELQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGELQF (GELQF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GELQF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQF a
GELQF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.gelqf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GELQF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GELQF a
GELQF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.gelqf)


newtype GELS a = GELS {GELS a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getGELS :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

gels :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
gels :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
gels = GELS a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
GELS a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getGELS (GELS a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> GELS a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> GELS Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> GELS a
GELS Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.gels) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> GELS Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> GELS a
GELS Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.gels)


newtype GELSD a = GELSD {GELSD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int, Int)
getGELSD :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> Int -> Int -> IO (Array ZeroInt a, Int, Int)}

gelsd :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> Int -> Int -> IO (Array ZeroInt a, Int, Int)
gelsd :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int, Int)
gelsd = GELSD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int, Int)
forall a.
GELSD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int, Int)
getGELSD (GELSD a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSD a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Float, Int, Int))
-> GELSD Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSD a
GELSD Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Float, Int, Int)
C.gelsd) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Double, Int, Int))
-> GELSD Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSD a
GELSD Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Double, Int, Int)
Z.gelsd)


newtype GELSS a = GELSS {GELSS a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> IO (Array ZeroInt a, Int, Int)
getGELSS :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> IO (Array ZeroInt a, Int, Int)}

gelss :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> IO (Array ZeroInt a, Int, Int)
gelss :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> IO (Array ZeroInt a, Int, Int)
gelss = GELSS a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> IO (Array ZeroInt a, Int, Int)
forall a.
GELSS a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> IO (Array ZeroInt a, Int, Int)
getGELSS (GELSS a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSS a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> IO (Array ZeroInt a, Int, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Int
 -> IO (Array ZeroInt Float, Int, Int))
-> GELSS Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSS a
GELSS Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Int
-> IO (Array ZeroInt Float, Int, Int)
C.gelss) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Int
 -> IO (Array ZeroInt Double, Int, Int))
-> GELSS Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> IO (Array ZeroInt a, Int, Int))
-> GELSS a
GELSS Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Int
-> IO (Array ZeroInt Double, Int, Int)
Z.gelss)


newtype GELSY a = GELSY {GELSY a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> a
-> Int
-> IO (Int, Int)
getGELSY :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> a -> Int -> IO (Int, Int)}

gelsy :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> a -> Int -> IO (Int, Int)
gelsy :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> a
-> Int
-> IO (Int, Int)
gelsy = GELSY a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> a
-> Int
-> IO (Int, Int)
forall a.
GELSY a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> a
-> Int
-> IO (Int, Int)
getGELSY (GELSY a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> a
 -> Int
 -> IO (Int, Int))
-> GELSY a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> a
-> Int
-> IO (Int, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Float
 -> Int
 -> IO (Int, Int))
-> GELSY Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> a
 -> Int
 -> IO (Int, Int))
-> GELSY a
GELSY Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Float
-> Int
-> IO (Int, Int)
C.gelsy) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Double
 -> Int
 -> IO (Int, Int))
-> GELSY Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> a
 -> Int
 -> IO (Int, Int))
-> GELSY a
GELSY Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Double
-> Int
-> IO (Int, Int)
Z.gelsy)


newtype GEQL2 a = GEQL2 {GEQL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQL2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

geql2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
geql2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
geql2 = GEQL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQL2 (GEQL2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQL2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQL2 a
GEQL2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.geql2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQL2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQL2 a
GEQL2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.geql2)


newtype GEQLF a = GEQLF {GEQLF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQLF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

geqlf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
geqlf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
geqlf = GEQLF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQLF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQLF (GEQLF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQLF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQLF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQLF a
GEQLF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.geqlf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQLF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQLF a
GEQLF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqlf)


newtype GEQP3 a = GEQP3 {GEQP3 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQP3 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a), Int)}

geqp3 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a), Int)
geqp3 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a), Int)
geqp3 = GEQP3 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQP3 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQP3 (GEQP3 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQP3 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQP3 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQP3 a
GEQP3 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.geqp3) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQP3 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQP3 a
GEQP3 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqp3)


newtype GEQR2 a = GEQR2 {GEQR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQR2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

geqr2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
geqr2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
geqr2 = GEQR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQR2 (GEQR2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQR2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2 a
GEQR2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.geqr2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQR2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2 a
GEQR2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqr2)


newtype GEQR2P a = GEQR2P {GEQR2P a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQR2P :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

geqr2p :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
geqr2p :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
geqr2p = GEQR2P a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQR2P a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGEQR2P (GEQR2P a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2P a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQR2P Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2P a
GEQR2P Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.geqr2p) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQR2P Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQR2P a
GEQR2P Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqr2p)


newtype GEQRF a = GEQRF {GEQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQRF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

geqrf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
geqrf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
geqrf = GEQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQRF (GEQRF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQRF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRF a
GEQRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.geqrf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQRF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRF a
GEQRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqrf)


newtype GEQRFP a = GEQRFP {GEQRFP a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQRFP :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

geqrfp :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
geqrfp :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
geqrfp = GEQRFP a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GEQRFP a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGEQRFP (GEQRFP a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRFP a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GEQRFP Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRFP a
GEQRFP Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.geqrfp) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GEQRFP Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GEQRFP a
GEQRFP Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.geqrfp)


newtype GERFS a = GERFS {GERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGERFS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

gerfs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
gerfs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
gerfs = GERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGERFS (GERFS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> GERFS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GERFS a
GERFS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.gerfs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> GERFS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GERFS a
GERFS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gerfs)


newtype GERQ2 a = GERQ2 {GERQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGERQ2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

gerq2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
gerq2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
gerq2 = GERQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GERQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getGERQ2 (GERQ2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQ2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> GERQ2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQ2 a
GERQ2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.gerq2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> GERQ2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQ2 a
GERQ2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.gerq2)


newtype GERQF a = GERQF {GERQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGERQF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

gerqf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
gerqf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
gerqf = GERQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GERQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGERQF (GERQF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GERQF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQF a
GERQF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.gerqf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GERQF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GERQF a
GERQF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.gerqf)


newtype GESC2 a = GESC2 {GESC2 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO a
getGESC2 :: Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> Array ZeroInt CInt -> IO (a)}

gesc2 :: Class.Real a => Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> Array ZeroInt CInt -> IO (a)
gesc2 :: Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO a
gesc2 = GESC2 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO a
forall a.
GESC2 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO a
getGESC2 (GESC2 a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO a)
-> GESC2 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO a
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 ((Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO Float)
-> GESC2 Float
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO a)
-> GESC2 a
GESC2 Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO Float
C.gesc2) ((Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO Double)
-> GESC2 Double
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO a)
-> GESC2 a
GESC2 Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO Double
Z.gesc2)


newtype GESDD a = GESDD {GESDD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGESDD :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

gesdd :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
gesdd :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
gesdd = GESDD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GESDD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGESDD (GESDD a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESDD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GESDD Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESDD a
GESDD Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.gesdd) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GESDD Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESDD a
GESDD Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.gesdd)


newtype GESV a = GESV {GESV a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGESV :: IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

gesv :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
gesv :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
gesv = GESV a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GESV a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGESV (GESV a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GESV a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GESV Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GESV a
GESV IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.gesv) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GESV Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GESV a
GESV IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.gesv)


newtype GESVD a = GESVD {GESVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGESVD :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

gesvd :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
gesvd :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
gesvd = GESVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GESVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGESVD (GESVD a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GESVD Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESVD a
GESVD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.gesvd) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GESVD Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GESVD a
GESVD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.gesvd)


newtype GESVX a = GESVX {GESVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGESVX :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

gesvx :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
gesvx :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
gesvx = GESVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
GESVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGESVX (GESVX a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GESVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> GESVX Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GESVX a
GESVX Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.gesvx) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> GESVX Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GESVX a
GESVX Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gesvx)


newtype GETC2 a = GETC2 {GETC2 a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
getGETC2 :: IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)}

getc2 :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
getc2 :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
getc2 = GETC2 a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
forall a.
GETC2 a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
getGETC2 (GETC2 a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> GETC2 a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> GETC2 Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> GETC2 a
GETC2 IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
C.getc2) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> GETC2 Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> GETC2 a
GETC2 IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Array ZeroInt CInt, Int)
Z.getc2)


newtype GETF2 a = GETF2 {GETF2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGETF2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

getf2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
getf2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getf2 = GETF2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GETF2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGETF2 (GETF2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETF2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GETF2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETF2 a
GETF2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.getf2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GETF2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETF2 a
GETF2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.getf2)


newtype GETRF a = GETRF {GETRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGETRF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

getrf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
getrf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getrf = GETRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
GETRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getGETRF (GETRF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> GETRF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETRF a
GETRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.getrf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> GETRF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> GETRF a
GETRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.getrf)


newtype GETRI a = GETRI {GETRI a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getGETRI :: IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)}

getri :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)
getri :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt -> Int -> IO Int
getri = GETRI a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
forall a.
GETRI a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getGETRI (GETRI a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> GETRI a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt -> Int -> IO Int)
-> GETRI Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt -> Int -> IO Int)
-> GETRI a
GETRI IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt -> Int -> IO Int
C.getri) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt -> Int -> IO Int)
-> GETRI Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt -> Int -> IO Int)
-> GETRI a
GETRI IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt -> Int -> IO Int
Z.getri)


newtype GETRS a = GETRS {GETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGETRS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

getrs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
getrs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getrs = GETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGETRS (GETRS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GETRS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GETRS a
GETRS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.getrs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GETRS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GETRS a
GETRS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.getrs)


newtype GGBAK a = GGBAK {GGBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGGBAK :: Char -> Char -> Int -> Int -> Array ZeroInt a -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

ggbak :: Class.Real a => Char -> Char -> Int -> Int -> Array ZeroInt a -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
ggbak :: Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
ggbak = GGBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GGBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGGBAK (GGBAK a
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGBAK a
-> Char
-> Char
-> Int
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GGBAK Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGBAK a
GGBAK Char
-> Char
-> Int
-> Int
-> Array ZeroInt Float
-> Array ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.ggbak) ((Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GGBAK Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGBAK a
GGBAK Char
-> Char
-> Int
-> Int
-> Array ZeroInt Double
-> Array ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.ggbak)


newtype GGBAL a = GGBAL {GGBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
getGGBAL :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)}

ggbal :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
ggbal :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
ggbal = GGBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GGBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
getGGBAL (GGBAL a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int))
-> GGBAL a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Int, Int, Array ZeroInt Float, Array ZeroInt Float, Int))
-> GGBAL Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int))
-> GGBAL a
GGBAL Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Int, Int, Array ZeroInt Float, Array ZeroInt Float, Int)
C.ggbal) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Int, Int, Array ZeroInt Double, Array ZeroInt Double, Int))
-> GGBAL Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Int, Int, Array ZeroInt a, Array ZeroInt a, Int))
-> GGBAL a
GGBAL Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Int, Int, Array ZeroInt Double, Array ZeroInt Double, Int)
Z.ggbal)


newtype GGES a = GGES {GGES a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGGES :: Char -> Char -> Char -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

gges :: Class.Real a => Char -> Char -> Char -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
gges :: Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
gges = GGES a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GGES a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGGES (GGES a
 -> Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGES a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GGES Float
forall a.
(Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGES a
GGES Char
-> Char
-> Char
-> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.gges) ((Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Double),
       Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GGES Double
forall a.
(Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGES a
GGES Char
-> Char
-> Char
-> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Double),
      Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.gges)


newtype GGESX a = GGESX {GGESX a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
      Array ZeroInt a, Int)
getGGESX :: Char -> Char -> Char -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt a, Array ZeroInt a, Int)}

ggesx :: Class.Real a => Char -> Char -> Char -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool) -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt a, Array ZeroInt a, Int)
ggesx :: Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
      Array ZeroInt a, Int)
ggesx = GGESX a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
GGESX a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
      Array ZeroInt a, Int)
getGGESX (GGESX a
 -> Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
       Array ZeroInt a, Int))
-> GGESX a
-> Char
-> Char
-> Char
-> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt Float,
       Array ZeroInt Float, Int))
-> GGESX Float
forall a.
(Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
       Array ZeroInt a, Int))
-> GGESX a
GGESX Char
-> Char
-> Char
-> FunPtr (Ptr (Complex Float) -> Ptr (Complex Float) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt Float,
      Array ZeroInt Float, Int)
C.ggesx) ((Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex Double),
       Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt Double,
       Array ZeroInt Double, Int))
-> GGESX Double
forall a.
(Char
 -> Char
 -> Char
 -> FunPtr (Ptr (Complex a) -> Ptr (Complex a) -> IO Bool)
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt a,
       Array ZeroInt a, Int))
-> GGESX a
GGESX Char
-> Char
-> Char
-> FunPtr (Ptr (Complex Double) -> Ptr (Complex Double) -> IO Bool)
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt (Complex Double),
      Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt Double,
      Array ZeroInt Double, Int)
Z.ggesx)


newtype GGEV a = GGEV {GGEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGGEV :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

ggev :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
ggev :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
ggev = GGEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
GGEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getGGEV (GGEV a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> GGEV Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGEV a
GGEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.ggev) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> GGEV Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> GGEV a
GGEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.ggev)


newtype GGEVX a = GGEVX {GGEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
      Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
getGGEVX :: Char -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int, Int, Array ZeroInt a, Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)}

ggevx :: Class.Real a => Char -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int, Int, Array ZeroInt a, Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
ggevx :: Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
      Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
ggevx = GGEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
      Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GGEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
      Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
getGGEVX (GGEVX a
 -> Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
       Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int))
-> GGEVX a
-> Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
      Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int, Int,
       Array ZeroInt Float, Array ZeroInt Float, Float, Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> GGEVX Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
       Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int))
-> GGEVX a
GGEVX Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int, Int,
      Array ZeroInt Float, Array ZeroInt Float, Float, Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.ggevx) ((Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int, Int,
       Array ZeroInt Double, Array ZeroInt Double, Double, Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> GGEVX Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int, Int, Array ZeroInt a,
       Array ZeroInt a, a, a, Array ZeroInt a, Array ZeroInt a, Int))
-> GGEVX a
GGEVX Char
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int, Int,
      Array ZeroInt Double, Array ZeroInt Double, Double, Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.ggevx)


newtype GGGLM a = GGGLM {GGGLM a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGGLM :: IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

ggglm :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggglm :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggglm = GGGLM a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
forall a.
GGGLM a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGGLM (GGGLM a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGGLM a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Int))
-> GGGLM Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGGLM a
GGGLM IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.ggglm) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> GGGLM Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGGLM a
GGGLM IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.ggglm)


newtype GGHRD a = GGHRD {GGHRD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGGHRD :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

gghrd :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
gghrd :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
gghrd = GGHRD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GGHRD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGGHRD (GGHRD a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGHRD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GGHRD Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGHRD a
GGHRD Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.gghrd) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GGHRD Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GGHRD a
GGHRD Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.gghrd)


newtype GGLSE a = GGLSE {GGLSE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGGLSE :: IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

gglse :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
gglse :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
gglse = GGLSE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
GGLSE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getGGLSE (GGLSE a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GGLSE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> GGLSE Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GGLSE a
GGLSE IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.gglse) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> GGLSE Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> GGLSE a
GGLSE IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.gglse)


newtype GGQRF a = GGQRF {GGQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGQRF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

ggqrf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggqrf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggqrf = GGQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
forall a.
GGQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGQRF (GGQRF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGQRF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Int))
-> GGQRF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGQRF a
GGQRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.ggqrf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> GGQRF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGQRF a
GGQRF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.ggqrf)


newtype GGRQF a = GGRQF {GGRQF a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGRQF :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

ggrqf :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggrqf :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
ggrqf = GGRQF a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
forall a.
GGRQF a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getGGRQF (GGRQF a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGRQF a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Int))
-> GGRQF Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGRQF a
GGRQF Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.ggrqf) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> GGRQF Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> GGRQF a
GGRQF Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.ggrqf)


newtype GTCON a = GTCON {GTCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getGTCON :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

gtcon :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
gtcon :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
gtcon = GTCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
GTCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getGTCON (GTCON a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GTCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> GTCON Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GTCON a
GTCON Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.gtcon) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> GTCON Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> GTCON a
GTCON Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.gtcon)


newtype GTRFS a = GTRFS {GTRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGTRFS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

gtrfs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
gtrfs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
gtrfs = GTRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
GTRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getGTRFS (GTRFS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GTRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> GTRFS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GTRFS a
GTRFS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.gtrfs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> GTRFS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> GTRFS a
GTRFS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gtrfs)


newtype GTSV a = GTSV {GTSV a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGTSV :: IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

gtsv :: Class.Real a => IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
gtsv :: IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
gtsv = GTSV a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GTSV a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGTSV (GTSV a
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTSV a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GTSV Float
forall a.
(IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTSV a
GTSV IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.gtsv) ((IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GTSV Double
forall a.
(IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTSV a
GTSV IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.gtsv)


newtype GTSVX a = GTSVX {GTSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGTSVX :: Char -> Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

gtsvx :: Class.Real a => Char -> Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
gtsvx :: Char
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
gtsvx = GTSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
GTSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getGTSVX (GTSVX a
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GTSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> GTSVX Float
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GTSVX a
GTSVX Char
-> Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.gtsvx) ((Char
 -> Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> GTSVX Double
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> GTSVX a
GTSVX Char
-> Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.gtsvx)


newtype GTTRF a = GTTRF {GTTRF a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
getGTTRF :: IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)}

gttrf :: Class.Real a => IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
gttrf :: IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
gttrf = GTTRF a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
forall a.
GTTRF a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
getGTTRF (GTTRF a
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int))
-> GTTRF a
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int)
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 ((IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Array ZeroInt CInt, Int))
-> GTTRF Float
forall a.
(IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int))
-> GTTRF a
GTTRF IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IO (Array ZeroInt (Complex Float), Array ZeroInt CInt, Int)
C.gttrf) ((IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Array ZeroInt CInt, Int))
-> GTTRF Double
forall a.
(IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Array ZeroInt CInt, Int))
-> GTTRF a
GTTRF IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IO (Array ZeroInt (Complex Double), Array ZeroInt CInt, Int)
Z.gttrf)


newtype GTTRS a = GTTRS {GTTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGTTRS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

gttrs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
gttrs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
gttrs = GTTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
GTTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getGTTRS (GTTRS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> GTTRS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTTRS a
GTTRS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.gttrs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> GTTRS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> GTTRS a
GTTRS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.gttrs)


newtype GTTS2 a = GTTS2 {GTTS2 a
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getGTTS2 :: Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

gtts2 :: Class.Real a => Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
gtts2 :: Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
gtts2 = GTTS2 a
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
GTTS2 a
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getGTTS2 (GTTS2 a
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> GTTS2 a
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Int
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> GTTS2 Float
forall a.
(Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> GTTS2 a
GTTS2 Int
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.gtts2) ((Int
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> GTTS2 Double
forall a.
(Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> GTTS2 a
GTTS2 Int
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.gtts2)


newtype HBEV a = HBEV {HBEV a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBEV :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hbev :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hbev :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hbev = HBEV a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HBEV a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBEV (HBEV a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEV a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HBEV Float -> HBEV Double -> HBEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HBEV Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEV a
HBEV Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hbev) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HBEV Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEV a
HBEV Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hbev)


newtype HBEVD a = HBEVD {HBEVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBEVD :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hbevd :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hbevd :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hbevd = HBEVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HBEVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBEVD (HBEVD a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEVD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HBEVD Float -> HBEVD Double -> HBEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HBEVD Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEVD a
HBEVD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hbevd) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HBEVD Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBEVD a
HBEVD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hbevd)


newtype HBEVX a = HBEVX {HBEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getHBEVX :: Char -> Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> a -> a -> Int -> Int -> a -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

hbevx :: Class.Real a => Char -> Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> a -> a -> Int -> Int -> a -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hbevx :: Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hbevx = HBEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a.
HBEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getHBEVX (HBEVX a
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HBEVX Float -> HBEVX Double -> HBEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Int,
       Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Array ZeroInt CInt, Int))
-> HBEVX Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBEVX a
HBEVX Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Int,
      Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Array ZeroInt CInt, Int)
C.hbevx) ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Int,
       Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Array ZeroInt CInt, Int))
-> HBEVX Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBEVX a
HBEVX Char
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Int,
      Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Array ZeroInt CInt, Int)
Z.hbevx)


newtype HBGST a = HBGST {HBGST a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGST :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

hbgst :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
hbgst :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
hbgst = HBGST a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HBGST a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGST (HBGST a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGST a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HBGST Float -> HBGST Double -> HBGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> HBGST Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGST a
HBGST Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.hbgst) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> HBGST Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGST a
HBGST Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.hbgst)


newtype HBGV a = HBGV {HBGV a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGV :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hbgv :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hbgv :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hbgv = HBGV a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HBGV a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGV (HBGV a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGV a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HBGV Float -> HBGV Double -> HBGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HBGV Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGV a
HBGV Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hbgv) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HBGV Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGV a
HBGV Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hbgv)


newtype HBGVD a = HBGVD {HBGVD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGVD :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hbgvd :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hbgvd :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hbgvd = HBGVD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HBGVD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHBGVD (HBGVD a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGVD a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HBGVD Float -> HBGVD Double -> HBGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HBGVD Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGVD a
HBGVD Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hbgvd) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HBGVD Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HBGVD a
HBGVD Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hbgvd)


newtype HBGVX a = HBGVX {HBGVX a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getHBGVX :: Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> a -> a -> Int -> Int -> a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

hbgvx :: Class.Real a => Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> a -> a -> Int -> Int -> a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hbgvx :: Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hbgvx = HBGVX a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a.
HBGVX a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getHBGVX (HBGVX a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBGVX a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
      Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HBGVX Float -> HBGVX Double -> HBGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Int,
       Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Array ZeroInt CInt, Int))
-> HBGVX Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBGVX a
HBGVX Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Int,
      Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Array ZeroInt CInt, Int)
C.hbgvx) ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Int,
       Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Array ZeroInt CInt, Int))
-> HBGVX Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Int, Array ZeroInt a,
       Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> HBGVX a
HBGVX Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Int,
      Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Array ZeroInt CInt, Int)
Z.hbgvx)


newtype HBTRD a = HBTRD {HBTRD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHBTRD :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

hbtrd :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
hbtrd :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
hbtrd = HBTRD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
HBTRD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHBTRD (HBTRD a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HBTRD a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HBTRD Float -> HBTRD Double -> HBTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> HBTRD Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HBTRD a
HBTRD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.hbtrd) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> HBTRD Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HBTRD a
HBTRD Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.hbtrd)


newtype HECON a = HECON {HECON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getHECON :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

hecon :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
hecon :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
hecon = HECON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
HECON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getHECON (HECON a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HECON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a b. (a -> b) -> a -> b
$ HECON Float -> HECON Double -> HECON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> HECON Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HECON a
HECON Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.hecon) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> HECON Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HECON a
HECON Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.hecon)


newtype HEEQUB a = HEEQUB {HEEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getHEEQUB :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

heequb :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)
heequb :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
heequb = HEEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
HEEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getHEEQUB (HEEQUB a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> HEEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a b. (a -> b) -> a -> b
$ HEEQUB Float -> HEEQUB Double -> HEEQUB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> HEEQUB Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> HEEQUB a
HEEQUB Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.heequb) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> HEEQUB Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> HEEQUB a
HEEQUB Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.heequb)


newtype HEEV a = HEEV {HEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
getHEEV :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Int)}

heev :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Int)
heev :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
heev = HEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
forall a.
HEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
getHEEV (HEEV a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HEEV Float -> HEEV Double -> HEEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt Float, Int))
-> HEEV Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEV a
HEEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt Float, Int)
C.heev) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt Double, Int))
-> HEEV Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEV a
HEEV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt Double, Int)
Z.heev)


newtype HEEVD a = HEEVD {HEEVD a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
getHEEVD :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Int)}

heevd :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Int)
heevd :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
heevd = HEEVD a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
forall a.
HEEVD a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
getHEEVD (HEEVD a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEVD a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HEEVD Float -> HEEVD Double -> HEEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Float, Int))
-> HEEVD Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEVD a
HEEVD Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Float, Int)
C.heevd) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Double, Int))
-> HEEVD Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEEVD a
HEEVD Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Double, Int)
Z.heevd)


newtype HEEVR a = HEEVR {HEEVR a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEEVR :: Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

heevr :: Class.Real a => Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
heevr :: Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
heevr = HEEVR a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
HEEVR a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEEVR (HEEVR a
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVR a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HEEVR Float -> HEEVR Double -> HEEVR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> HEEVR Float
forall a.
(Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVR a
HEEVR Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.heevr) ((Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> HEEVR Double
forall a.
(Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVR a
HEEVR Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.heevr)


newtype HEEVX a = HEEVX {HEEVX a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEEVX :: Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

heevx :: Class.Real a => Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
heevx :: Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
heevx = HEEVX a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
HEEVX a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEEVX (HEEVX a
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVX a
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HEEVX Float -> HEEVX Double -> HEEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> HEEVX Float
forall a.
(Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVX a
HEEVX Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.heevx) ((Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> HEEVX Double
forall a.
(Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEEVX a
HEEVX Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.heevx)


newtype HEGS2 a = HEGS2 {HEGS2 a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHEGS2 :: Int -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

hegs2 :: Class.Real a => Int -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
hegs2 :: Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
hegs2 = HEGS2 a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
HEGS2 a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHEGS2 (HEGS2 a
 -> Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGS2 a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HEGS2 Float -> HEGS2 Double -> HEGS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> HEGS2 Float
forall a.
(Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGS2 a
HEGS2 Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.hegs2) ((Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> HEGS2 Double
forall a.
(Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGS2 a
HEGS2 Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.hegs2)


newtype HEGST a = HEGST {HEGST a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHEGST :: Int -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

hegst :: Class.Real a => Int -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
hegst :: Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
hegst = HEGST a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
HEGST a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHEGST (HEGST a
 -> Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGST a
-> Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HEGST Float -> HEGST Double -> HEGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> HEGST Float
forall a.
(Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGST a
HEGST Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.hegst) ((Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> HEGST Double
forall a.
(Int
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HEGST a
HEGST Int
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.hegst)


newtype HEGV a = HEGV {HEGV a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
getHEGV :: Int -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Int)}

hegv :: Class.Real a => Int -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Int)
hegv :: Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
hegv = HEGV a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
forall a.
HEGV a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
getHEGV (HEGV a
 -> Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGV a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HEGV Float -> HEGV Double -> HEGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt Float, Int))
-> HEGV Float
forall a.
(Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGV a
HEGV Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt Float, Int)
C.hegv) ((Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt Double, Int))
-> HEGV Double
forall a.
(Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGV a
HEGV Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt Double, Int)
Z.hegv)


newtype HEGVD a = HEGVD {HEGVD a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
getHEGVD :: Int -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt a, Int)}

hegvd :: Class.Real a => Int -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array ZeroInt a, Int)
hegvd :: Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
hegvd = HEGVD a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
forall a.
HEGVD a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
getHEGVD (HEGVD a
 -> Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGVD a
-> Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HEGVD Float -> HEGVD Double -> HEGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Float, Int))
-> HEGVD Float
forall a.
(Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGVD a
HEGVD Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Float, Int)
C.hegvd) ((Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt Double, Int))
-> HEGVD Double
forall a.
(Int
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Int))
-> HEGVD a
HEGVD Int
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO (Array ZeroInt Double, Int)
Z.hegvd)


newtype HEGVX a = HEGVX {HEGVX a
-> Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEGVX :: Int -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

hegvx :: Class.Real a => Int -> Char -> Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hegvx :: Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
hegvx = HEGVX a
-> Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
HEGVX a
-> Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHEGVX (HEGVX a
 -> Int
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEGVX a
-> Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HEGVX Float -> HEGVX Double -> HEGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> HEGVX Float
forall a.
(Int
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEGVX a
HEGVX Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.hegvx) ((Int
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> HEGVX Double
forall a.
(Int
 -> Char
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HEGVX a
HEGVX Int
-> Char
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.hegvx)


newtype HERFS a = HERFS {HERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHERFS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

herfs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
herfs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
herfs = HERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
HERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHERFS (HERFS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HERFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HERFS Float -> HERFS Double -> HERFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> HERFS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HERFS a
HERFS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.herfs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> HERFS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HERFS a
HERFS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.herfs)


newtype HESV a = HESV {HESV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getHESV :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)}

hesv :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)
hesv :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
hesv = HESV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a.
HESV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getHESV (HESV a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HESV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HESV Float -> HESV Double -> HESV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HESV Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HESV a
HESV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt CInt, Int)
C.hesv) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HESV Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HESV a
HESV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt CInt, Int)
Z.hesv)


newtype HESVX a = HESVX {HESVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getHESVX :: Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

hesvx :: Class.Real a => Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
hesvx :: Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
hesvx = HESVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
HESVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getHESVX (HESVX a
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HESVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HESVX Float -> HESVX Double -> HESVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> HESVX Float
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HESVX a
HESVX Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.hesvx) ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> HESVX Double
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HESVX a
HESVX Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.hesvx)


newtype HESWAPR a = HESWAPR {HESWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
getHESWAPR :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO ()}

heswapr :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO ()
heswapr :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ()
heswapr = HESWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
forall a.
HESWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
getHESWAPR (HESWAPR a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO ())
-> HESWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
forall a b. (a -> b) -> a -> b
$ HESWAPR Float -> HESWAPR Double -> HESWAPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO ())
-> HESWAPR Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ())
-> HESWAPR a
HESWAPR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO ()
C.heswapr) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO ())
-> HESWAPR Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ())
-> HESWAPR a
HESWAPR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO ()
Z.heswapr)


newtype HETD2 a = HETD2 {HETD2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHETD2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)}

hetd2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hetd2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hetd2 = HETD2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a.
HETD2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHETD2 (HETD2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETD2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HETD2 Float -> HETD2 Double -> HETD2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Int))
-> HETD2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETD2 a
HETD2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Int)
C.hetd2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Int))
-> HETD2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETD2 a
HETD2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Int)
Z.hetd2)


newtype HETF2 a = HETF2 {HETF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHETF2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

hetf2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
hetf2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
hetf2 = HETF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
HETF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHETF2 (HETF2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HETF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HETF2 Float -> HETF2 Double -> HETF2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> HETF2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HETF2 a
HETF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.hetf2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> HETF2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HETF2 a
HETF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.hetf2)


newtype HETRD a = HETRD {HETRD a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHETRD :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)}

hetrd :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hetrd :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hetrd = HETRD a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a.
HETRD a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHETRD (HETRD a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETRD a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HETRD Float -> HETRD Double -> HETRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Int))
-> HETRD Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETRD a
HETRD Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Int)
C.hetrd) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Int))
-> HETRD Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HETRD a
HETRD Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Int)
Z.hetrd)


newtype HETRF a = HETRF {HETRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getHETRF :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)}

hetrf :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)
hetrf :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
hetrf = HETRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a.
HETRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getHETRF (HETRF a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HETRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HETRF Float -> HETRF Double -> HETRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HETRF Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HETRF a
HETRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt CInt, Int)
C.hetrf) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HETRF Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> HETRF a
HETRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt CInt, Int)
Z.hetrf)


newtype HETRI a = HETRI {HETRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
getHETRI :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Int)}

hetri :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Int)
hetri :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
hetri = HETRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a.
HETRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
getHETRI (HETRI a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> HETRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a b. (a -> b) -> a -> b
$ HETRI Float -> HETRI Double -> HETRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IO Int)
-> HETRI Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> HETRI a
HETRI Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IO Int
C.hetri) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IO Int)
-> HETRI Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> HETRI a
HETRI Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IO Int
Z.hetri)


newtype HETRI2 a = HETRI2 {HETRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
getHETRI2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> Int -> IO (Int)}

hetri2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> Int -> IO (Int)
hetri2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
hetri2 = HETRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
forall a.
HETRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
getHETRI2 (HETRI2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> HETRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ HETRI2 Float -> HETRI2 Double -> HETRI2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> HETRI2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> HETRI2 a
HETRI2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
C.hetri2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> HETRI2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> HETRI2 a
HETRI2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
Z.hetri2)


newtype HETRI2X a = HETRI2X {HETRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getHETRI2X :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)}

hetri2x :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)
hetri2x :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
hetri2x = HETRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
forall a.
HETRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getHETRI2X (HETRI2X a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> HETRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ HETRI2X Float -> HETRI2X Double -> HETRI2X a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> HETRI2X Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> HETRI2X a
HETRI2X Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Int
-> IO Int
C.hetri2x) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> HETRI2X Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> HETRI2X a
HETRI2X Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Int
-> IO Int
Z.hetri2x)


newtype HETRS a = HETRS {HETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHETRS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

hetrs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
hetrs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
hetrs = HETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
HETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHETRS (HETRS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HETRS Float -> HETRS Double -> HETRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> HETRS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS a
HETRS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.hetrs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> HETRS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS a
HETRS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.hetrs)


newtype HETRS2 a = HETRS2 {HETRS2 a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHETRS2 :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

hetrs2 :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
hetrs2 :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
hetrs2 = HETRS2 a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
HETRS2 a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHETRS2 (HETRS2 a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS2 a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HETRS2 Float -> HETRS2 Double -> HETRS2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> HETRS2 Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS2 a
HETRS2 Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.hetrs2) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> HETRS2 Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HETRS2 a
HETRS2 Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.hetrs2)


newtype HFRK a = HFRK {HFRK a
-> Char
-> Char
-> Char
-> Int
-> Int
-> a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt (Complex a)
-> IO ()
getHFRK :: Char -> Char -> Char -> Int -> Int -> a -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray ZeroInt (Complex a) -> IO ()}

hfrk :: Class.Real a => Char -> Char -> Char -> Int -> Int -> a -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray ZeroInt (Complex a) -> IO ()
hfrk :: Char
-> Char
-> Char
-> Int
-> Int
-> a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt (Complex a)
-> IO ()
hfrk = HFRK a
-> Char
-> Char
-> Char
-> Int
-> Int
-> a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt (Complex a)
-> IO ()
forall a.
HFRK a
-> Char
-> Char
-> Char
-> Int
-> Int
-> a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt (Complex a)
-> IO ()
getHFRK (HFRK a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> HFRK a
-> Char
-> Char
-> Char
-> Int
-> Int
-> a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ HFRK Float -> HFRK Double -> HFRK a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Float
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IOArray ZeroInt (Complex Float)
 -> IO ())
-> HFRK Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> HFRK a
HFRK Char
-> Char
-> Char
-> Int
-> Int
-> Float
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IOArray ZeroInt (Complex Float)
-> IO ()
C.hfrk) ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Double
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IOArray ZeroInt (Complex Double)
 -> IO ())
-> HFRK Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> HFRK a
HFRK Char
-> Char
-> Char
-> Int
-> Int
-> Double
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IOArray ZeroInt (Complex Double)
-> IO ()
Z.hfrk)


newtype HGEQZ a = HGEQZ {HGEQZ a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getHGEQZ :: Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

hgeqz :: Class.Real a => Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
hgeqz :: Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
hgeqz = HGEQZ a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
forall a.
HGEQZ a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
getHGEQZ (HGEQZ a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> HGEQZ a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Int))
-> HGEQZ Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> HGEQZ a
HGEQZ Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.hgeqz) ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> HGEQZ Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int))
-> HGEQZ a
HGEQZ Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.hgeqz)


newtype HPCON a = HPCON {HPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getHPCON :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

hpcon :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
hpcon :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
hpcon = HPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
HPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getHPCON (HPCON a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a b. (a -> b) -> a -> b
$ HPCON Float -> HPCON Double -> HPCON a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> HPCON Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HPCON a
HPCON Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.hpcon) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> HPCON Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> HPCON a
HPCON Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.hpcon)


newtype HPEV a = HPEV {HPEV a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPEV :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hpev :: Class.Real a => Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hpev :: Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hpev = HPEV a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HPEV a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPEV (HPEV a
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEV a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HPEV Float -> HPEV Double -> HPEV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HPEV Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEV a
HPEV Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hpev) ((Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HPEV Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEV a
HPEV Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hpev)


newtype HPEVD a = HPEVD {HPEVD a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPEVD :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hpevd :: Class.Real a => Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hpevd :: Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hpevd = HPEVD a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HPEVD a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPEVD (HPEVD a
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEVD a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HPEVD Float -> HPEVD Double -> HPEVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HPEVD Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEVD a
HPEVD Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hpevd) ((Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HPEVD Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPEVD a
HPEVD Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hpevd)


newtype HPEVX a = HPEVX {HPEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHPEVX :: Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

hpevx :: Class.Real a => Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> a -> a -> Int -> Int -> a -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hpevx :: Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
hpevx = HPEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
HPEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHPEVX (HPEVX a
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPEVX a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HPEVX Float -> HPEVX Double -> HPEVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> HPEVX Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPEVX a
HPEVX Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.hpevx) ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> HPEVX Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPEVX a
HPEVX Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.hpevx)


newtype HPGST a = HPGST {HPGST a
-> Int
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getHPGST :: Int -> Char -> Int -> IOArray ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)}

hpgst :: Class.Real a => Int -> Char -> Int -> IOArray ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)
hpgst :: Int
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
hpgst = HPGST a
-> Int
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a.
HPGST a
-> Int
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getHPGST (HPGST a
 -> Int
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> HPGST a
-> Int
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HPGST Float -> HPGST Double -> HPGST a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IO Int)
-> HPGST Float
forall a.
(Int
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> HPGST a
HPGST Int
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> IO Int
C.hpgst) ((Int
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IO Int)
-> HPGST Double
forall a.
(Int
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> HPGST a
HPGST Int
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> IO Int
Z.hpgst)


newtype HPGV a = HPGV {HPGV a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPGV :: Int -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hpgv :: Class.Real a => Int -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hpgv :: Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hpgv = HPGV a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HPGV a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPGV (HPGV a
 -> Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGV a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HPGV Float -> HPGV Double -> HPGV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HPGV Float
forall a.
(Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGV a
HPGV Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hpgv) ((Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HPGV Double
forall a.
(Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGV a
HPGV Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hpgv)


newtype HPGVD a = HPGVD {HPGVD a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPGVD :: Int -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)}

hpgvd :: Class.Real a => Int -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Int)
hpgvd :: Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
hpgvd = HPGVD a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
HPGVD a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
getHPGVD (HPGVD a
 -> Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGVD a
-> Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> Int
-> Int
-> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HPGVD Float -> HPGVD Double -> HPGVD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> HPGVD Float
forall a.
(Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGVD a
HPGVD Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.hpgvd) ((Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Int))
-> HPGVD Double
forall a.
(Int
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a), Int))
-> HPGVD a
HPGVD Int
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Int)
Z.hpgvd)


newtype HPGVX a = HPGVX {HPGVX a
-> Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHPGVX :: Int -> Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> a -> a -> Int -> Int -> a -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

hpgvx :: Class.Real a => Int -> Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> a -> a -> Int -> Int -> a -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
hpgvx :: Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
hpgvx = HPGVX a
-> Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
HPGVX a
-> Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getHPGVX (HPGVX a
 -> Int
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPGVX a
-> Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HPGVX Float -> HPGVX Double -> HPGVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> HPGVX Float
forall a.
(Int
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPGVX a
HPGVX Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.hpgvx) ((Int
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> HPGVX Double
forall a.
(Int
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> HPGVX a
HPGVX Int
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.hpgvx)


newtype HPRFS a = HPRFS {HPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHPRFS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

hprfs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
hprfs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
hprfs = HPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
HPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getHPRFS (HPRFS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HPRFS Float -> HPRFS Double -> HPRFS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> HPRFS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HPRFS a
HPRFS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.hprfs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> HPRFS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> HPRFS a
HPRFS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.hprfs)


newtype HPSV a = HPSV {HPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHPSV :: Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

hpsv :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
hpsv :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
hpsv = HPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
HPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHPSV (HPSV a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HPSV Float -> HPSV Double -> HPSV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> HPSV Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPSV a
HPSV Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.hpsv) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> HPSV Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPSV a
HPSV Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.hpsv)


newtype HPSVX a = HPSVX {HPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getHPSVX :: Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

hpsvx :: Class.Real a => Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
hpsvx :: Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
hpsvx = HPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
HPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getHPSVX (HPSVX a
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a b. (a -> b) -> a -> b
$ HPSVX Float -> HPSVX Double -> HPSVX a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Array ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> HPSVX Float
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HPSVX a
HPSVX Char
-> Char
-> Array ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.hpsvx) ((Char
 -> Char
 -> Array ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> HPSVX Double
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> HPSVX a
HPSVX Char
-> Char
-> Array ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.hpsvx)


newtype HPTRD a = HPTRD {HPTRD a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHPTRD :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)}

hptrd :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hptrd :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
hptrd = HPTRD a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a.
HPTRD a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
getHPTRD (HPTRD a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HPTRD a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ HPTRD Float -> HPTRD Double -> HPTRD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Int))
-> HPTRD Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HPTRD a
HPTRD Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Int)
C.hptrd) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Int))
-> HPTRD Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Int))
-> HPTRD a
HPTRD Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Int)
Z.hptrd)


newtype HPTRF a = HPTRF {HPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHPTRF :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt CInt, Int)}

hptrf :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt CInt, Int)
hptrf :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
hptrf = HPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
HPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
getHPTRF (HPTRF a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a b. (a -> b) -> a -> b
$ HPTRF Float -> HPTRF Double -> HPTRF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> HPTRF Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPTRF a
HPTRF Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.hptrf) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> HPTRF Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> HPTRF a
HPTRF Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.hptrf)


newtype HPTRI a = HPTRI {HPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
getHPTRI :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO (Int)}

hptri :: Class.Real a => Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO (Int)
hptri :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int
hptri = HPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a.
HPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
getHPTRI (HPTRI a
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> HPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a b. (a -> b) -> a -> b
$ HPTRI Float -> HPTRI Double -> HPTRI a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray ZeroInt (Complex Float) -> Array ZeroInt CInt -> IO Int)
-> HPTRI Float
forall a.
(Char
 -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int)
-> HPTRI a
HPTRI Char
-> IOArray ZeroInt (Complex Float) -> Array ZeroInt CInt -> IO Int
C.hptri) ((Char
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IO Int)
-> HPTRI Double
forall a.
(Char
 -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int)
-> HPTRI a
HPTRI Char
-> IOArray ZeroInt (Complex Double) -> Array ZeroInt CInt -> IO Int
Z.hptri)


newtype HPTRS a = HPTRS {HPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHPTRS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

hptrs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
hptrs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
hptrs = HPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
HPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getHPTRS (HPTRS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ HPTRS Float -> HPTRS Double -> HPTRS a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> HPTRS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HPTRS a
HPTRS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.hptrs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> HPTRS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> HPTRS a
HPTRS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.hptrs)


newtype HSEIN a = HSEIN {HSEIN a
-> Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
getHSEIN :: Char -> Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)}

hsein :: Class.Real a => Char -> Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
hsein :: Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
hsein = HSEIN a
-> Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
forall a.
HSEIN a
-> Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
getHSEIN (HSEIN a
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> HSEIN a
-> Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
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 ((Char
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> HSEIN Float
forall a.
(Char
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> HSEIN a
HSEIN Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
C.hsein) ((Char
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> HSEIN Double
forall a.
(Char
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int))
-> HSEIN a
HSEIN Char
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Int, Array ZeroInt CInt, Array ZeroInt CInt, Int)
Z.hsein)


newtype HSEQR a = HSEQR {HSEQR a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getHSEQR :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

hseqr :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
hseqr :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
hseqr = HSEQR a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
HSEQR a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getHSEQR (HSEQR a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> HSEQR a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> HSEQR Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> HSEQR a
HSEQR Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.hseqr) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> HSEQR Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> HSEQR a
HSEQR Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.hseqr)


newtype ILALC a = ILALC {ILALC a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
getILALC :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO CInt}

ilalc :: Class.Real a => Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO CInt
ilalc :: Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
ilalc = ILALC a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
forall a.
ILALC a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
getILALC (ILALC a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt)
-> ILALC a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Int -> Array (ZeroInt, ZeroInt) (Complex Float) -> IO CInt)
-> ILALC Float
forall a.
(Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt) -> ILALC a
ILALC Int -> Array (ZeroInt, ZeroInt) (Complex Float) -> IO CInt
C.ilalc) ((Int -> Array (ZeroInt, ZeroInt) (Complex Double) -> IO CInt)
-> ILALC Double
forall a.
(Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt) -> ILALC a
ILALC Int -> Array (ZeroInt, ZeroInt) (Complex Double) -> IO CInt
Z.ilalc)


newtype ILALR a = ILALR {ILALR a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
getILALR :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO CInt}

ilalr :: Class.Real a => Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO CInt
ilalr :: Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
ilalr = ILALR a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
forall a.
ILALR a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt
getILALR (ILALR a -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt)
-> ILALR a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Int -> Array (ZeroInt, ZeroInt) (Complex Float) -> IO CInt)
-> ILALR Float
forall a.
(Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt) -> ILALR a
ILALR Int -> Array (ZeroInt, ZeroInt) (Complex Float) -> IO CInt
C.ilalr) ((Int -> Array (ZeroInt, ZeroInt) (Complex Double) -> IO CInt)
-> ILALR Double
forall a.
(Int -> Array (ZeroInt, ZeroInt) (Complex a) -> IO CInt) -> ILALR a
ILALR Int -> Array (ZeroInt, ZeroInt) (Complex Double) -> IO CInt
Z.ilalr)


newtype IMAX1 a = IMAX1 {IMAX1 a -> Array ZeroInt (Complex a) -> Int -> IO CInt
getIMAX1 :: Array ZeroInt (Complex a) -> Int -> IO CInt}

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


newtype LABRD a = LABRD {LABRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLABRD :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

labrd :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
labrd :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
labrd = LABRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LABRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLABRD (LABRD a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LABRD a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LABRD Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LABRD a
LABRD Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.labrd) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LABRD Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LABRD a
LABRD Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.labrd)


newtype LACGV a = LACGV {LACGV a -> Int -> IOArray ZeroInt (Complex a) -> Int -> IO ()
getLACGV :: Int -> IOArray ZeroInt (Complex a) -> Int -> IO ()}

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


newtype LACN2 a = LACN2 {LACN2 a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex a), a, Int)
getLACN2 :: IOArray ZeroInt (Complex a) -> a -> Int -> IOArray ZeroInt CInt -> IO (Array ZeroInt (Complex a), a, Int)}

lacn2 :: Class.Real a => IOArray ZeroInt (Complex a) -> a -> Int -> IOArray ZeroInt CInt -> IO (Array ZeroInt (Complex a), a, Int)
lacn2 :: IOArray ZeroInt (Complex a)
-> a
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex a), a, Int)
lacn2 = LACN2 a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex a), a, Int)
forall a.
LACN2 a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex a), a, Int)
getLACN2 (LACN2 a
 -> IOArray ZeroInt (Complex a)
 -> a
 -> Int
 -> IOArray ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), a, Int))
-> LACN2 a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex a), a, Int)
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 ((IOArray ZeroInt (Complex Float)
 -> Float
 -> Int
 -> IOArray ZeroInt CInt
 -> IO (Array ZeroInt (Complex Float), Float, Int))
-> LACN2 Float
forall a.
(IOArray ZeroInt (Complex a)
 -> a
 -> Int
 -> IOArray ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), a, Int))
-> LACN2 a
LACN2 IOArray ZeroInt (Complex Float)
-> Float
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex Float), Float, Int)
C.lacn2) ((IOArray ZeroInt (Complex Double)
 -> Double
 -> Int
 -> IOArray ZeroInt CInt
 -> IO (Array ZeroInt (Complex Double), Double, Int))
-> LACN2 Double
forall a.
(IOArray ZeroInt (Complex a)
 -> a
 -> Int
 -> IOArray ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), a, Int))
-> LACN2 a
LACN2 IOArray ZeroInt (Complex Double)
-> Double
-> Int
-> IOArray ZeroInt CInt
-> IO (Array ZeroInt (Complex Double), Double, Int)
Z.lacn2)


newtype LACON a = LACON {LACON a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IO (Array ZeroInt (Complex a), a, Int)
getLACON :: IOArray ZeroInt (Complex a) -> a -> Int -> IO (Array ZeroInt (Complex a), a, Int)}

lacon :: Class.Real a => IOArray ZeroInt (Complex a) -> a -> Int -> IO (Array ZeroInt (Complex a), a, Int)
lacon :: IOArray ZeroInt (Complex a)
-> a -> Int -> IO (Array ZeroInt (Complex a), a, Int)
lacon = LACON a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IO (Array ZeroInt (Complex a), a, Int)
forall a.
LACON a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IO (Array ZeroInt (Complex a), a, Int)
getLACON (LACON a
 -> IOArray ZeroInt (Complex a)
 -> a
 -> Int
 -> IO (Array ZeroInt (Complex a), a, Int))
-> LACON a
-> IOArray ZeroInt (Complex a)
-> a
-> Int
-> IO (Array ZeroInt (Complex a), a, Int)
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 ((IOArray ZeroInt (Complex Float)
 -> Float -> Int -> IO (Array ZeroInt (Complex Float), Float, Int))
-> LACON Float
forall a.
(IOArray ZeroInt (Complex a)
 -> a -> Int -> IO (Array ZeroInt (Complex a), a, Int))
-> LACON a
LACON IOArray ZeroInt (Complex Float)
-> Float -> Int -> IO (Array ZeroInt (Complex Float), Float, Int)
C.lacon) ((IOArray ZeroInt (Complex Double)
 -> Double
 -> Int
 -> IO (Array ZeroInt (Complex Double), Double, Int))
-> LACON Double
forall a.
(IOArray ZeroInt (Complex a)
 -> a -> Int -> IO (Array ZeroInt (Complex a), a, Int))
-> LACON a
LACON IOArray ZeroInt (Complex Double)
-> Double
-> Int
-> IO (Array ZeroInt (Complex Double), Double, Int)
Z.lacon)


newtype LACP2 a = LACP2 {LACP2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLACP2 :: Char -> Int -> Array (ZeroInt,ZeroInt) a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

lacp2 :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))
lacp2 :: Char
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
lacp2 = LACP2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LACP2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLACP2 (LACP2 a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACP2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a b. (a -> b) -> a -> b
$ LACP2 Float -> LACP2 Double -> LACP2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) Float
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float)))
-> LACP2 Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACP2 a
LACP2 Char
-> Int
-> Array (ZeroInt, ZeroInt) Float
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float))
C.lacp2) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) Double
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double)))
-> LACP2 Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACP2 a
LACP2 Char
-> Int
-> Array (ZeroInt, ZeroInt) Double
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double))
Z.lacp2)


newtype LACPY a = LACPY {LACPY a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLACPY :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

lacpy :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))
lacpy :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
lacpy = LACPY a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LACPY a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLACPY (LACPY a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACPY a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float)))
-> LACPY Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACPY a
LACPY Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float))
C.lacpy) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double)))
-> LACPY Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LACPY a
LACPY Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double))
Z.lacpy)


newtype LACRM a = LACRM {LACRM a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLACRM :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

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


newtype LACRT a = LACRT {LACRT a
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Complex a
-> Complex a
-> IO ()
getLACRT :: IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> (Complex a) -> (Complex a) -> IO ()}

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


newtype LAED0 a = LAED0 {LAED0 a
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLAED0 :: Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

laed0 :: Class.Real a => Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
laed0 :: Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
laed0 = LAED0 a
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
LAED0 a
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLAED0 (LAED0 a
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAED0 a
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Int
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> LAED0 Float
forall a.
(Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAED0 a
LAED0 Int
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.laed0) ((Int
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LAED0 Double
forall a.
(Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAED0 a
LAED0 Int
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.laed0)


newtype LAED7 a = LAED7 {LAED7 a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array ZeroInt CInt, Int)
getLAED7 :: Int -> Int -> Int -> Int -> Int -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray ZeroInt a -> IOArray ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Int -> IO (Array ZeroInt CInt, Int)}

laed7 :: Class.Real a => Int -> Int -> Int -> Int -> Int -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray ZeroInt a -> IOArray ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Int -> IO (Array ZeroInt CInt, Int)
laed7 :: Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array ZeroInt CInt, Int)
laed7 = LAED7 a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a.
LAED7 a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array ZeroInt CInt, Int)
getLAED7 (LAED7 a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> LAED7 a
-> Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Int
-> IO (Array ZeroInt CInt, Int)
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 ((Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Float
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> LAED7 Float
forall a.
(Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> LAED7 a
LAED7 Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IOArray ZeroInt Float
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Float
-> Int
-> IO (Array ZeroInt CInt, Int)
C.laed7) ((Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Double
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> LAED7 Double
forall a.
(Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> LAED7 a
LAED7 Int
-> Int
-> Int
-> Int
-> Int
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IOArray ZeroInt Double
-> IOArray ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Double
-> Int
-> IO (Array ZeroInt CInt, Int)
Z.laed7)


newtype LAED8 a = LAED8 {LAED8 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt a
-> a
-> Int
-> Array ZeroInt a
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
      Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
      Array (ZeroInt, ZeroInt) a, Int)
getLAED8 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt a -> a -> Int -> Array ZeroInt a -> Int -> Array ZeroInt CInt -> IO (Int, a, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int, Array (ZeroInt,ZeroInt) CInt, Array (ZeroInt,ZeroInt) a, Int)}

laed8 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt a -> a -> Int -> Array ZeroInt a -> Int -> Array ZeroInt CInt -> IO (Int, a, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int, Array (ZeroInt,ZeroInt) CInt, Array (ZeroInt,ZeroInt) a, Int)
laed8 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt a
-> a
-> Int
-> Array ZeroInt a
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
      Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
      Array (ZeroInt, ZeroInt) a, Int)
laed8 = LAED8 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt a
-> a
-> Int
-> Array ZeroInt a
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
      Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
      Array (ZeroInt, ZeroInt) a, Int)
forall a.
LAED8 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt a
-> a
-> Int
-> Array ZeroInt a
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
      Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
      Array (ZeroInt, ZeroInt) a, Int)
getLAED8 (LAED8 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt a
 -> a
 -> Int
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt CInt
 -> IO
      (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
       Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
       Array (ZeroInt, ZeroInt) a, Int))
-> LAED8 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt a
-> a
-> Int
-> Array ZeroInt a
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
      Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
      Array (ZeroInt, ZeroInt) a, Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt Float
 -> Float
 -> Int
 -> Array ZeroInt Float
 -> Int
 -> Array ZeroInt CInt
 -> IO
      (Int, Float, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt Float,
       Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int,
       Array (ZeroInt, ZeroInt) CInt, Array (ZeroInt, ZeroInt) Float,
       Int))
-> LAED8 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt a
 -> a
 -> Int
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt CInt
 -> IO
      (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
       Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
       Array (ZeroInt, ZeroInt) a, Int))
-> LAED8 a
LAED8 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt Float
-> Float
-> Int
-> Array ZeroInt Float
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, Float, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt Float,
      Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int,
      Array (ZeroInt, ZeroInt) CInt, Array (ZeroInt, ZeroInt) Float, Int)
C.laed8) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt Double
 -> Double
 -> Int
 -> Array ZeroInt Double
 -> Int
 -> Array ZeroInt CInt
 -> IO
      (Int, Double, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt Double,
       Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int,
       Array (ZeroInt, ZeroInt) CInt, Array (ZeroInt, ZeroInt) Double,
       Int))
-> LAED8 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt a
 -> a
 -> Int
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt CInt
 -> IO
      (Int, a, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt a, Array ZeroInt CInt, Array ZeroInt CInt,
       Array ZeroInt CInt, Int, Array (ZeroInt, ZeroInt) CInt,
       Array (ZeroInt, ZeroInt) a, Int))
-> LAED8 a
LAED8 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt Double
-> Double
-> Int
-> Array ZeroInt Double
-> Int
-> Array ZeroInt CInt
-> IO
     (Int, Double, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt Double,
      Array ZeroInt CInt, Array ZeroInt CInt, Array ZeroInt CInt, Int,
      Array (ZeroInt, ZeroInt) CInt, Array (ZeroInt, ZeroInt) Double,
      Int)
Z.laed8)


newtype LAEIN a = LAEIN {LAEIN a
-> Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLAEIN :: Bool -> Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> a -> a -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

laein :: Class.Real a => Bool -> Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> a -> a -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
laein :: Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
laein = LAEIN a
-> Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
LAEIN a
-> Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLAEIN (LAEIN a
 -> Bool
 -> Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> a
 -> a
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAEIN a
-> Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Bool
 -> Bool
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Complex Float
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Float
 -> Float
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> LAEIN Float
forall a.
(Bool
 -> Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> a
 -> a
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAEIN a
LAEIN Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Complex Float
-> IOArray ZeroInt (Complex Float)
-> Int
-> Float
-> Float
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.laein) ((Bool
 -> Bool
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Complex Double
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Double
 -> Double
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LAEIN Double
forall a.
(Bool
 -> Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> a
 -> a
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LAEIN a
LAEIN Bool
-> Bool
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Complex Double
-> IOArray ZeroInt (Complex Double)
-> Int
-> Double
-> Double
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.laein)


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

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


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

laev2 :: Class.Real a => (Complex a) -> (Complex a) -> (Complex a) -> IO (a, a, a, (Complex a))
laev2 :: Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a)
laev2 = LAEV2 a
-> Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a)
forall a.
LAEV2 a
-> Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a)
getLAEV2 (LAEV2 a
 -> Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a))
-> LAEV2 a
-> Complex a
-> Complex a
-> Complex a
-> IO (a, a, a, Complex a)
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 ((Complex Float
 -> Complex Float
 -> Complex Float
 -> IO (Float, Float, Float, Complex Float))
-> LAEV2 Float
forall a.
(Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a))
-> LAEV2 a
LAEV2 Complex Float
-> Complex Float
-> Complex Float
-> IO (Float, Float, Float, Complex Float)
C.laev2) ((Complex Double
 -> Complex Double
 -> Complex Double
 -> IO (Double, Double, Double, Complex Double))
-> LAEV2 Double
forall a.
(Complex a -> Complex a -> Complex a -> IO (a, a, a, Complex a))
-> LAEV2 a
LAEV2 Complex Double
-> Complex Double
-> Complex Double
-> IO (Double, Double, Double, Complex Double)
Z.laev2)


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

lags2 :: Class.Real a => Bool -> a -> (Complex a) -> a -> a -> (Complex a) -> a -> IO (a, (Complex a), a, (Complex a), a, (Complex a))
lags2 :: Bool
-> a
-> Complex a
-> a
-> a
-> Complex a
-> a
-> IO (a, Complex a, a, Complex a, a, Complex a)
lags2 = LAGS2 a
-> Bool
-> a
-> Complex a
-> a
-> a
-> Complex a
-> a
-> IO (a, Complex a, a, Complex a, a, Complex a)
forall a.
LAGS2 a
-> Bool
-> a
-> Complex a
-> a
-> a
-> Complex a
-> a
-> IO (a, Complex a, a, Complex a, a, Complex a)
getLAGS2 (LAGS2 a
 -> Bool
 -> a
 -> Complex a
 -> a
 -> a
 -> Complex a
 -> a
 -> IO (a, Complex a, a, Complex a, a, Complex a))
-> LAGS2 a
-> Bool
-> a
-> Complex a
-> a
-> a
-> Complex a
-> a
-> IO (a, Complex a, a, Complex a, a, Complex a)
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 ((Bool
 -> Float
 -> Complex Float
 -> Float
 -> Float
 -> Complex Float
 -> Float
 -> IO
      (Float, Complex Float, Float, Complex Float, Float, Complex Float))
-> LAGS2 Float
forall a.
(Bool
 -> a
 -> Complex a
 -> a
 -> a
 -> Complex a
 -> a
 -> IO (a, Complex a, a, Complex a, a, Complex a))
-> LAGS2 a
LAGS2 Bool
-> Float
-> Complex Float
-> Float
-> Float
-> Complex Float
-> Float
-> IO
     (Float, Complex Float, Float, Complex Float, Float, Complex Float)
C.lags2) ((Bool
 -> Double
 -> Complex Double
 -> Double
 -> Double
 -> Complex Double
 -> Double
 -> IO
      (Double, Complex Double, Double, Complex Double, Double,
       Complex Double))
-> LAGS2 Double
forall a.
(Bool
 -> a
 -> Complex a
 -> a
 -> a
 -> Complex a
 -> a
 -> IO (a, Complex a, a, Complex a, a, Complex a))
-> LAGS2 a
LAGS2 Bool
-> Double
-> Complex Double
-> Double
-> Double
-> Complex Double
-> Double
-> IO
     (Double, Complex Double, Double, Complex Double, Double,
      Complex Double)
Z.lags2)


newtype LAGTM a = LAGTM {LAGTM a
-> Char
-> a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getLAGTM :: Char -> a -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

lagtm :: Class.Real a => Char -> a -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
lagtm :: Char
-> a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
lagtm = LAGTM a
-> Char
-> a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
LAGTM a
-> Char
-> a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getLAGTM (LAGTM a
 -> Char
 -> a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LAGTM a
-> Char
-> a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Char
 -> Float
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> LAGTM Float
forall a.
(Char
 -> a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LAGTM a
LAGTM Char
-> Float
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.lagtm) ((Char
 -> Double
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> LAGTM Double
forall a.
(Char
 -> a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LAGTM a
LAGTM Char
-> Double
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.lagtm)


newtype LAHEF a = LAHEF {LAHEF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
getLAHEF :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Array ZeroInt CInt, Array (ZeroInt,ZeroInt) (Complex a), Int)}

lahef :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Array ZeroInt CInt, Array (ZeroInt,ZeroInt) (Complex a), Int)
lahef :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
lahef = LAHEF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
forall a.
LAHEF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
getLAHEF (LAHEF a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LAHEF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
forall a b. (a -> b) -> a -> b
$ LAHEF Float -> LAHEF Double -> LAHEF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> LAHEF Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LAHEF a
LAHEF Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.lahef) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt,
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LAHEF Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LAHEF a
LAHEF Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Int, Array ZeroInt CInt,
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.lahef)


newtype LAHQR a = LAHQR {LAHQR a
-> Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getLAHQR :: Bool -> Bool -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

lahqr :: Class.Real a => Bool -> Bool -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
lahqr :: Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
lahqr = LAHQR a
-> Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
LAHQR a
-> Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getLAHQR (LAHQR a
 -> Bool
 -> Bool
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> LAHQR a
-> Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Bool
 -> Bool
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> LAHQR Float
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> LAHQR a
LAHQR Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.lahqr) ((Bool
 -> Bool
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> LAHQR Double
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> LAHQR a
LAHQR Bool
-> Bool
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.lahqr)


newtype LAHR2 a = LAHR2 {LAHR2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAHR2 :: Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

lahr2 :: Class.Real a => Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
lahr2 :: Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
lahr2 = LAHR2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LAHR2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAHR2 (LAHR2 a
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAHR2 a
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LAHR2 Float
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAHR2 a
LAHR2 Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.lahr2) ((Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LAHR2 Double
forall a.
(Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAHR2 a
LAHR2 Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.lahr2)


newtype LAIC1 a = LAIC1 {LAIC1 a
-> Int
-> Array ZeroInt (Complex a)
-> a
-> Array ZeroInt (Complex a)
-> Complex a
-> IO (a, Complex a, Complex a)
getLAIC1 :: Int -> Array ZeroInt (Complex a) -> a -> Array ZeroInt (Complex a) -> (Complex a) -> IO (a, (Complex a), (Complex a))}

laic1 :: Class.Real a => Int -> Array ZeroInt (Complex a) -> a -> Array ZeroInt (Complex a) -> (Complex a) -> IO (a, (Complex a), (Complex a))
laic1 :: Int
-> Array ZeroInt (Complex a)
-> a
-> Array ZeroInt (Complex a)
-> Complex a
-> IO (a, Complex a, Complex a)
laic1 = LAIC1 a
-> Int
-> Array ZeroInt (Complex a)
-> a
-> Array ZeroInt (Complex a)
-> Complex a
-> IO (a, Complex a, Complex a)
forall a.
LAIC1 a
-> Int
-> Array ZeroInt (Complex a)
-> a
-> Array ZeroInt (Complex a)
-> Complex a
-> IO (a, Complex a, Complex a)
getLAIC1 (LAIC1 a
 -> Int
 -> Array ZeroInt (Complex a)
 -> a
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IO (a, Complex a, Complex a))
-> LAIC1 a
-> Int
-> Array ZeroInt (Complex a)
-> a
-> Array ZeroInt (Complex a)
-> Complex a
-> IO (a, Complex a, Complex a)
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 ((Int
 -> Array ZeroInt (Complex Float)
 -> Float
 -> Array ZeroInt (Complex Float)
 -> Complex Float
 -> IO (Float, Complex Float, Complex Float))
-> LAIC1 Float
forall a.
(Int
 -> Array ZeroInt (Complex a)
 -> a
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IO (a, Complex a, Complex a))
-> LAIC1 a
LAIC1 Int
-> Array ZeroInt (Complex Float)
-> Float
-> Array ZeroInt (Complex Float)
-> Complex Float
-> IO (Float, Complex Float, Complex Float)
C.laic1) ((Int
 -> Array ZeroInt (Complex Double)
 -> Double
 -> Array ZeroInt (Complex Double)
 -> Complex Double
 -> IO (Double, Complex Double, Complex Double))
-> LAIC1 Double
forall a.
(Int
 -> Array ZeroInt (Complex a)
 -> a
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IO (a, Complex a, Complex a))
-> LAIC1 a
LAIC1 Int
-> Array ZeroInt (Complex Double)
-> Double
-> Array ZeroInt (Complex Double)
-> Complex Double
-> IO (Double, Complex Double, Complex Double)
Z.laic1)


newtype LALS0 a = LALS0 {LALS0 a
-> Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> a
-> a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLALS0 :: Int -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Array ZeroInt CInt -> Int -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> a -> a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

lals0 :: Class.Real a => Int -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Array ZeroInt CInt -> Int -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> a -> a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
lals0 :: Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> a
-> a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
lals0 = LALS0 a
-> Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> a
-> a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
LALS0 a
-> Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> a
-> a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLALS0 (LALS0 a
 -> Int
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> a
 -> a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALS0 a
-> Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> a
-> a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Int
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array ZeroInt Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> LALS0 Float
forall a.
(Int
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> a
 -> a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALS0 a
LALS0 Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Float
-> Array (ZeroInt, ZeroInt) Float
-> Array ZeroInt Float
-> Array (ZeroInt, ZeroInt) Float
-> Array ZeroInt Float
-> Float
-> Float
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.lals0) ((Int
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array ZeroInt Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LALS0 Double
forall a.
(Int
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> a
 -> a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALS0 a
LALS0 Int
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Array ZeroInt CInt
-> Int
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Double
-> Array (ZeroInt, ZeroInt) Double
-> Array ZeroInt Double
-> Array (ZeroInt, ZeroInt) Double
-> Array ZeroInt Double
-> Double
-> Double
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.lals0)


newtype LALSA a = LALSA {LALSA a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLALSA :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> Array ZeroInt a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

lalsa :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) CInt -> Array (ZeroInt,ZeroInt) a -> Array ZeroInt a -> Array ZeroInt a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
lalsa :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
lalsa = LALSA a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
LALSA a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getLALSA (LALSA a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALSA a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Array (ZeroInt, ZeroInt) Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array (ZeroInt, ZeroInt) Float
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Float
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> LALSA Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALSA a
LALSA Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Array (ZeroInt, ZeroInt) Float
-> Array (ZeroInt, ZeroInt) Float
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) Float
-> Array (ZeroInt, ZeroInt) Float
-> Array (ZeroInt, ZeroInt) Float
-> Array (ZeroInt, ZeroInt) Float
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Float
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.lalsa) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Array (ZeroInt, ZeroInt) Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array (ZeroInt, ZeroInt) Double
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) Double
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LALSA Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) CInt
 -> Array (ZeroInt, ZeroInt) a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> LALSA a
LALSA Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Array (ZeroInt, ZeroInt) Double
-> Array (ZeroInt, ZeroInt) Double
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) Double
-> Array (ZeroInt, ZeroInt) Double
-> Array (ZeroInt, ZeroInt) Double
-> Array (ZeroInt, ZeroInt) Double
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) CInt
-> Array (ZeroInt, ZeroInt) Double
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.lalsa)


newtype LALSD a = LALSD {LALSD a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> IO (Int, Int)
getLALSD :: Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> Int -> IO (Int, Int)}

lalsd :: Class.Real a => Char -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> Int -> Int -> IO (Int, Int)
lalsd :: Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> IO (Int, Int)
lalsd = LALSD a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> IO (Int, Int)
forall a.
LALSD a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> IO (Int, Int)
getLALSD (LALSD a
 -> Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> IO (Int, Int))
-> LALSD a
-> Char
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> Int
-> Int
-> IO (Int, Int)
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 ((Char
 -> Int
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Int
 -> Int
 -> IO (Int, Int))
-> LALSD Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> IO (Int, Int))
-> LALSD a
LALSD Char
-> Int
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Int
-> Int
-> IO (Int, Int)
C.lalsd) ((Char
 -> Int
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Int
 -> Int
 -> IO (Int, Int))
-> LALSD Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> Int
 -> Int
 -> IO (Int, Int))
-> LALSD a
LALSD Char
-> Int
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Int
-> Int
-> IO (Int, Int)
Z.lalsd)


newtype LANGB a = LANGB {LANGB a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANGB :: Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

langb :: Class.Real a => Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
langb :: Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
langb = LANGB a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANGB a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANGB (LANGB a
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANGB a
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANGB Float
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANGB a
LANGB Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.langb) ((Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANGB Double
forall a.
(Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANGB a
LANGB Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.langb)


newtype LANGE a = LANGE {LANGE a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANGE :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lange :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lange :: Char -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
lange = LANGE a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANGE a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANGE (LANGE a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANGE a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANGE Float
forall a.
(Char
 -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANGE a
LANGE Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lange) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANGE Double
forall a.
(Char
 -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANGE a
LANGE Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lange)


newtype LANGT a = LANGT {LANGT a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IO a
getLANGT :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IO a}

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


newtype LANHB a = LANHB {LANHB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANHB :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lanhb :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lanhb :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
lanhb = LANHB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANHB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANHB (LANHB a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANHB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHB Float -> LANHB Double -> LANHB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANHB Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANHB a
LANHB Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lanhb) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANHB Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANHB a
LANHB Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lanhb)


newtype LANHE a = LANHE {LANHE a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANHE :: Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lanhe :: Class.Real a => Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lanhe :: Char -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
lanhe = LANHE a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANHE a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANHE (LANHE a
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANHE a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHE Float -> LANHE Double -> LANHE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANHE Float
forall a.
(Char
 -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANHE a
LANHE Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lanhe) ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANHE Double
forall a.
(Char
 -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANHE a
LANHE Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lanhe)


newtype LANHF a = LANHF {LANHF a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
getLANHF :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a}

lanhf :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lanhf :: Char
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lanhf = LANHF a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
forall a.
LANHF a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
getLANHF (LANHF a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO a)
-> LANHF a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHF Float -> LANHF Double -> LANHF a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Float)
-> LANHF Float
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANHF a
LANHF Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> IO Float
C.lanhf) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Double)
-> LANHF Double
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANHF a
LANHF Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO Double
Z.lanhf)


newtype LANHP a = LANHP {LANHP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
getLANHP :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a}

lanhp :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lanhp :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lanhp = LANHP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
forall a.
LANHP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
getLANHP (LANHP a
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANHP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
forall a b. (a -> b) -> a -> b
$ LANHP Float -> LANHP Double -> LANHP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char -> Int -> Array ZeroInt (Complex Float) -> Int -> IO Float)
-> LANHP Float
forall a.
(Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANHP a
LANHP Char
-> Char -> Int -> Array ZeroInt (Complex Float) -> Int -> IO Float
C.lanhp) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Double)
-> LANHP Double
forall a.
(Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANHP a
LANHP Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO Double
Z.lanhp)


newtype LANHS a = LANHS {LANHS a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
getLANHS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lanhs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lanhs :: Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
lanhs = LANHS a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
forall a.
LANHS a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
getLANHS (LANHS a
 -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANHS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float) -> Int -> IO Float)
-> LANHS Float
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANHS a
LANHS Char -> Array (ZeroInt, ZeroInt) (Complex Float) -> Int -> IO Float
C.lanhs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double) -> Int -> IO Double)
-> LANHS Double
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANHS a
LANHS Char
-> Array (ZeroInt, ZeroInt) (Complex Double) -> Int -> IO Double
Z.lanhs)


newtype LANHT a = LANHT {LANHT a
-> Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IO a
getLANHT :: Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IO a}

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


newtype LANSB a = LANSB {LANSB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANSB :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lansb :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lansb :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
lansb = LANSB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANSB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANSB (LANSB a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANSB a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANSB Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANSB a
LANSB Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lansb) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANSB Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANSB a
LANSB Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lansb)


newtype LANSP a = LANSP {LANSP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
getLANSP :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a}

lansp :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lansp :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lansp = LANSP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
forall a.
LANSP a
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
getLANSP (LANSP a
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANSP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> 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 ((Char
 -> Char -> Int -> Array ZeroInt (Complex Float) -> Int -> IO Float)
-> LANSP Float
forall a.
(Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANSP a
LANSP Char
-> Char -> Int -> Array ZeroInt (Complex Float) -> Int -> IO Float
C.lansp) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Double)
-> LANSP Double
forall a.
(Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANSP a
LANSP Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO Double
Z.lansp)


newtype LANSY a = LANSY {LANSY a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANSY :: Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lansy :: Class.Real a => Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lansy :: Char -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a
lansy = LANSY a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANSY a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANSY (LANSY a
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANSY a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANSY Float
forall a.
(Char
 -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANSY a
LANSY Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lansy) ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANSY Double
forall a.
(Char
 -> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> Int -> IO a)
-> LANSY a
LANSY Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lansy)


newtype LANTB a = LANTB {LANTB a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANTB :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lantb :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lantb :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
lantb = LANTB a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANTB a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANTB (LANTB a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTB a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANTB Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTB a
LANTB Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lantb) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANTB Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTB a
LANTB Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lantb)


newtype LANTP a = LANTP {LANTP a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
getLANTP :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a}

lantp :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lantp :: Char
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a
lantp = LANTP a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
forall a.
LANTP a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO a
getLANTP (LANTP a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO a)
-> LANTP a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Float)
-> LANTP Float
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANTP a
LANTP Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> IO Float
C.lantp) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Double)
-> LANTP Double
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO a)
-> LANTP a
LANTP Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO Double
Z.lantp)


newtype LANTR a = LANTR {LANTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANTR :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a}

lantr :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO a
lantr :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
lantr = LANTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
forall a.
LANTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO a
getLANTR (LANTR a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Float)
-> LANTR Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTR a
LANTR Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Float
C.lantr) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Double)
-> LANTR Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO a)
-> LANTR a
LANTR Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Double
Z.lantr)


newtype LAPLL a = LAPLL {LAPLL a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO a
getLAPLL :: Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> IO (a)}

lapll :: Class.Real a => Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> IO (a)
lapll :: Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO a
lapll = LAPLL a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO a
forall a.
LAPLL a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO a
getLAPLL (LAPLL a
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO a)
-> LAPLL a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IO a
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 ((Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO Float)
-> LAPLL Float
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO a)
-> LAPLL a
LAPLL Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO Float
C.lapll) ((Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO Double)
-> LAPLL Double
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO a)
-> LAPLL a
LAPLL Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO Double
Z.lapll)


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

lapmr :: Class.Real a => Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> IO ()
lapmr :: Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
lapmr = LAPMR a
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
forall a.
LAPMR a
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
getLAPMR (LAPMR a
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMR a
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt 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 ((Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMR Float
forall a.
(Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMR a
LAPMR Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> IO ()
C.lapmr) ((Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMR Double
forall a.
(Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMR a
LAPMR Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> IO ()
Z.lapmr)


newtype LAPMT a = LAPMT {LAPMT a
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
getLAPMT :: Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> IO ()}

lapmt :: Class.Real a => Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> IO ()
lapmt :: Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
lapmt = LAPMT a
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
forall a.
LAPMT a
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IO ()
getLAPMT (LAPMT a
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMT a
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt 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 ((Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMT Float
forall a.
(Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMT a
LAPMT Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> IO ()
C.lapmt) ((Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMT Double
forall a.
(Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IO ())
-> LAPMT a
LAPMT Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> IO ()
Z.lapmt)


newtype LAQGB a = LAQGB {LAQGB a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
getLAQGB :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO (Char)}

laqgb :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO (Char)
laqgb :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
laqgb = LAQGB a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
forall a.
LAQGB a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
getLAQGB (LAQGB a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> a
 -> IO Char)
-> LAQGB a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> Float
 -> IO Char)
-> LAQGB Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> a
 -> IO Char)
-> LAQGB a
LAQGB Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Float
-> Float
-> Float
-> IO Char
C.laqgb) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> Double
 -> IO Char)
-> LAQGB Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> a
 -> IO Char)
-> LAQGB a
LAQGB Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Double
-> Double
-> Double
-> IO Char
Z.laqgb)


newtype LAQGE a = LAQGE {LAQGE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
getLAQGE :: IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO (Char)}

laqge :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO (Char)
laqge :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO Char
laqge = LAQGE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
forall a.
LAQGE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
getLAQGE (LAQGE a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> a
 -> IO Char)
-> LAQGE a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> a
-> IO Char
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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> Float
 -> IO Char)
-> LAQGE Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO Char)
-> LAQGE a
LAQGE IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Float
-> Float
-> Float
-> IO Char
C.laqge) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> Double
 -> IO Char)
-> LAQGE Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> a -> IO Char)
-> LAQGE a
LAQGE IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Double
-> Double
-> Double
-> IO Char
Z.laqge)


newtype LAQHB a = LAQHB {LAQHB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (Array ZeroInt a, Char)
getLAQHB :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IO (Array ZeroInt a, Char)}

laqhb :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IO (Array ZeroInt a, Char)
laqhb :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (Array ZeroInt a, Char)
laqhb = LAQHB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (Array ZeroInt a, Char)
forall a.
LAQHB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (Array ZeroInt a, Char)
getLAQHB (LAQHB a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (Array ZeroInt a, Char))
-> LAQHB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (Array ZeroInt a, Char)
forall a b. (a -> b) -> a -> b
$ LAQHB Float -> LAQHB Double -> LAQHB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> IO (Array ZeroInt Float, Char))
-> LAQHB Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (Array ZeroInt a, Char))
-> LAQHB a
LAQHB Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> IO (Array ZeroInt Float, Char)
C.laqhb) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> IO (Array ZeroInt Double, Char))
-> LAQHB Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (Array ZeroInt a, Char))
-> LAQHB a
LAQHB Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> IO (Array ZeroInt Double, Char)
Z.laqhb)


newtype LAQHE a = LAQHE {LAQHE a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQHE :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)}

laqhe :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)
laqhe :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
laqhe = LAQHE a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a.
LAQHE a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQHE (LAQHE a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHE a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a b. (a -> b) -> a -> b
$ LAQHE Float -> LAQHE Double -> LAQHE a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IO Char)
-> LAQHE Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHE a
LAQHE Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt Float
-> Float
-> Float
-> IO Char
C.laqhe) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IO Char)
-> LAQHE Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHE a
LAQHE Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt Double
-> Double
-> Double
-> IO Char
Z.laqhe)


newtype LAQHP a = LAQHP {LAQHP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQHP :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)}

laqhp :: Class.Real a => Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)
laqhp :: Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
laqhp = LAQHP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a.
LAQHP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQHP (LAQHP a
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a b. (a -> b) -> a -> b
$ LAQHP Float -> LAQHP Double -> LAQHP a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray ZeroInt (Complex Float)
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IO Char)
-> LAQHP Float
forall a.
(Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHP a
LAQHP Char
-> IOArray ZeroInt (Complex Float)
-> Array ZeroInt Float
-> Float
-> Float
-> IO Char
C.laqhp) ((Char
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IO Char)
-> LAQHP Double
forall a.
(Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQHP a
LAQHP Char
-> IOArray ZeroInt (Complex Double)
-> Array ZeroInt Double
-> Double
-> Double
-> IO Char
Z.laqhp)


newtype LAQP2 a = LAQP2 {LAQP2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IO (Array ZeroInt (Complex a))
getLAQP2 :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> IOArray ZeroInt a -> IOArray ZeroInt a -> IO (Array ZeroInt (Complex a))}

laqp2 :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> IOArray ZeroInt a -> IOArray ZeroInt a -> IO (Array ZeroInt (Complex a))
laqp2 :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IO (Array ZeroInt (Complex a))
laqp2 = LAQP2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IO (Array ZeroInt (Complex a))
forall a.
LAQP2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IO (Array ZeroInt (Complex a))
getLAQP2 (LAQP2 a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IO (Array ZeroInt (Complex a)))
-> LAQP2 a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IO (Array ZeroInt (Complex a))
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IO (Array ZeroInt (Complex Float)))
-> LAQP2 Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IO (Array ZeroInt (Complex a)))
-> LAQP2 a
LAQP2 Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IO (Array ZeroInt (Complex Float))
C.laqp2) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IO (Array ZeroInt (Complex Double)))
-> LAQP2 Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IO (Array ZeroInt (Complex a)))
-> LAQP2 a
LAQP2 Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IO (Array ZeroInt (Complex Double))
Z.laqp2)


newtype LAQPS a = LAQPS {LAQPS a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt (Complex a))
getLAQPS :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Array ZeroInt (Complex a))}

laqps :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Int -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Array ZeroInt (Complex a))
laqps :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt (Complex a))
laqps = LAQPS a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt (Complex a))
forall a.
LAQPS a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt (Complex a))
getLAQPS (LAQPS a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt (Complex a)))
-> LAQPS a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Array ZeroInt (Complex a))
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Int
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Int, Array ZeroInt (Complex Float)))
-> LAQPS Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt (Complex a)))
-> LAQPS a
LAQPS Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Int, Array ZeroInt (Complex Float))
C.laqps) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Int
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Int, Array ZeroInt (Complex Double)))
-> LAQPS Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Int
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Array ZeroInt (Complex a)))
-> LAQPS a
LAQPS Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Int
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Int, Array ZeroInt (Complex Double))
Z.laqps)


newtype LAQR0 a = LAQR0 {LAQR0 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getLAQR0 :: Bool -> Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Int)}

laqr0 :: Class.Real a => Bool -> Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Int)
laqr0 :: Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
laqr0 = LAQR0 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
LAQR0 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getLAQR0 (LAQR0 a
 -> Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR0 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> LAQR0 Float
forall a.
(Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR0 a
LAQR0 Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.laqr0) ((Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> LAQR0 Double
forall a.
(Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR0 a
LAQR0 Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.laqr0)


newtype LAQR1 a = LAQR1 {LAQR1 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> Complex a
-> IO (Array ZeroInt (Complex a))
getLAQR1 :: Array (ZeroInt,ZeroInt) (Complex a) -> (Complex a) -> (Complex a) -> IO (Array ZeroInt (Complex a))}

laqr1 :: Class.Real a => Array (ZeroInt,ZeroInt) (Complex a) -> (Complex a) -> (Complex a) -> IO (Array ZeroInt (Complex a))
laqr1 :: Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a -> Complex a -> IO (Array ZeroInt (Complex a))
laqr1 = LAQR1 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> Complex a
-> IO (Array ZeroInt (Complex a))
forall a.
LAQR1 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> Complex a
-> IO (Array ZeroInt (Complex a))
getLAQR1 (LAQR1 a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a
 -> Complex a
 -> IO (Array ZeroInt (Complex a)))
-> LAQR1 a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Complex a
-> Complex a
-> IO (Array ZeroInt (Complex a))
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 ((Array (ZeroInt, ZeroInt) (Complex Float)
 -> Complex Float
 -> Complex Float
 -> IO (Array ZeroInt (Complex Float)))
-> LAQR1 Float
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a -> Complex a -> IO (Array ZeroInt (Complex a)))
-> LAQR1 a
LAQR1 Array (ZeroInt, ZeroInt) (Complex Float)
-> Complex Float
-> Complex Float
-> IO (Array ZeroInt (Complex Float))
C.laqr1) ((Array (ZeroInt, ZeroInt) (Complex Double)
 -> Complex Double
 -> Complex Double
 -> IO (Array ZeroInt (Complex Double)))
-> LAQR1 Double
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> Complex a -> Complex a -> IO (Array ZeroInt (Complex a)))
-> LAQR1 a
LAQR1 Array (ZeroInt, ZeroInt) (Complex Double)
-> Complex Double
-> Complex Double
-> IO (Array ZeroInt (Complex Double))
Z.laqr1)


newtype LAQR2 a = LAQR2 {LAQR2 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR2 :: Bool -> Bool -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Int, Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

laqr2 :: Class.Real a => Bool -> Bool -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Int, Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
laqr2 :: Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
laqr2 = LAQR2 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LAQR2 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR2 (LAQR2 a
 -> Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR2 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LAQR2 Float
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR2 a
LAQR2 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.laqr2) ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LAQR2 Double
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR2 a
LAQR2 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.laqr2)


newtype LAQR3 a = LAQR3 {LAQR3 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR3 :: Bool -> Bool -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Int, Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

laqr3 :: Class.Real a => Bool -> Bool -> Int -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Int, Int, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
laqr3 :: Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
laqr3 = LAQR3 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LAQR3 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR3 (LAQR3 a
 -> Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR3 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LAQR3 Float
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR3 a
LAQR3 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.laqr3) ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LAQR3 Double
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Int, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR3 a
LAQR3 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Int, Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.laqr3)


newtype LAQR4 a = LAQR4 {LAQR4 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getLAQR4 :: Bool -> Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Int)}

laqr4 :: Class.Real a => Bool -> Bool -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Int)
laqr4 :: Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
laqr4 = LAQR4 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
LAQR4 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getLAQR4 (LAQR4 a
 -> Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR4 a
-> Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> LAQR4 Float
forall a.
(Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR4 a
LAQR4 Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.laqr4) ((Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> LAQR4 Double
forall a.
(Bool
 -> Bool
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> LAQR4 a
LAQR4 Bool
-> Bool
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.laqr4)


newtype LAQR5 a = LAQR5 {LAQR5 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR5 :: Bool -> Bool -> Int -> Int -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

laqr5 :: Class.Real a => Bool -> Bool -> Int -> Int -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
laqr5 :: Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
laqr5 = LAQR5 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LAQR5 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLAQR5 (LAQR5 a
 -> Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR5 a
-> Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LAQR5 Float
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR5 a
LAQR5 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.laqr5) ((Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LAQR5 Double
forall a.
(Bool
 -> Bool
 -> Int
 -> Int
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LAQR5 a
LAQR5 Bool
-> Bool
-> Int
-> Int
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.laqr5)


newtype LAQSB a = LAQSB {LAQSB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSB :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)}

laqsb :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)
laqsb :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
laqsb = LAQSB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a.
LAQSB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSB (LAQSB a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSB a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IO Char)
-> LAQSB Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSB a
LAQSB Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt Float
-> Float
-> Float
-> IO Char
C.laqsb) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IO Char)
-> LAQSB Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSB a
LAQSB Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt Double
-> Double
-> Double
-> IO Char
Z.laqsb)


newtype LAQSP a = LAQSP {LAQSP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSP :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)}

laqsp :: Class.Real a => Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)
laqsp :: Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
laqsp = LAQSP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a.
LAQSP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSP (LAQSP a
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSP a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
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 ((Char
 -> IOArray ZeroInt (Complex Float)
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IO Char)
-> LAQSP Float
forall a.
(Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSP a
LAQSP Char
-> IOArray ZeroInt (Complex Float)
-> Array ZeroInt Float
-> Float
-> Float
-> IO Char
C.laqsp) ((Char
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IO Char)
-> LAQSP Double
forall a.
(Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSP a
LAQSP Char
-> IOArray ZeroInt (Complex Double)
-> Array ZeroInt Double
-> Double
-> Double
-> IO Char
Z.laqsp)


newtype LAQSY a = LAQSY {LAQSY a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSY :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)}

laqsy :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt a -> a -> a -> IO (Char)
laqsy :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
laqsy = LAQSY a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
forall a.
LAQSY a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
getLAQSY (LAQSY a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSY a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt a
-> a
-> a
-> IO Char
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IO Char)
-> LAQSY Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSY a
LAQSY Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt Float
-> Float
-> Float
-> IO Char
C.laqsy) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IO Char)
-> LAQSY Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt a
 -> a
 -> a
 -> IO Char)
-> LAQSY a
LAQSY Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt Double
-> Double
-> Double
-> IO Char
Z.laqsy)


newtype LAR1V a = LAR1V {LAR1V a
-> Int
-> Int
-> a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> IOArray ZeroInt (Complex a)
-> Bool
-> Int
-> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
getLAR1V :: Int -> Int -> a -> Array ZeroInt a -> Array ZeroInt a -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> IOArray ZeroInt (Complex a) -> Bool -> Int -> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)}

lar1v :: Class.Real a => Int -> Int -> a -> Array ZeroInt a -> Array ZeroInt a -> Array ZeroInt a -> Array ZeroInt a -> a -> a -> IOArray ZeroInt (Complex a) -> Bool -> Int -> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
lar1v :: Int
-> Int
-> a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> IOArray ZeroInt (Complex a)
-> Bool
-> Int
-> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
lar1v = LAR1V a
-> Int
-> Int
-> a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> IOArray ZeroInt (Complex a)
-> Bool
-> Int
-> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
forall a.
LAR1V a
-> Int
-> Int
-> a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> IOArray ZeroInt (Complex a)
-> Bool
-> Int
-> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
getLAR1V (LAR1V a
 -> Int
 -> Int
 -> a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> IOArray ZeroInt (Complex a)
 -> Bool
 -> Int
 -> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a))
-> LAR1V a
-> Int
-> Int
-> a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> Array ZeroInt a
-> a
-> a
-> IOArray ZeroInt (Complex a)
-> Bool
-> Int
-> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a)
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 ((Int
 -> Int
 -> Float
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> Float
 -> Float
 -> IOArray ZeroInt (Complex Float)
 -> Bool
 -> Int
 -> IO
      (Int, Float, Float, Int, Array ZeroInt CInt, Float, Float, Float))
-> LAR1V Float
forall a.
(Int
 -> Int
 -> a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> IOArray ZeroInt (Complex a)
 -> Bool
 -> Int
 -> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a))
-> LAR1V a
LAR1V Int
-> Int
-> Float
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Array ZeroInt Float
-> Float
-> Float
-> IOArray ZeroInt (Complex Float)
-> Bool
-> Int
-> IO
     (Int, Float, Float, Int, Array ZeroInt CInt, Float, Float, Float)
C.lar1v) ((Int
 -> Int
 -> Double
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> Double
 -> Double
 -> IOArray ZeroInt (Complex Double)
 -> Bool
 -> Int
 -> IO
      (Int, Double, Double, Int, Array ZeroInt CInt, Double, Double,
       Double))
-> LAR1V Double
forall a.
(Int
 -> Int
 -> a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> a
 -> a
 -> IOArray ZeroInt (Complex a)
 -> Bool
 -> Int
 -> IO (Int, a, a, Int, Array ZeroInt CInt, a, a, a))
-> LAR1V a
LAR1V Int
-> Int
-> Double
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Array ZeroInt Double
-> Double
-> Double
-> IOArray ZeroInt (Complex Double)
-> Bool
-> Int
-> IO
     (Int, Double, Double, Int, Array ZeroInt CInt, Double, Double,
      Double)
Z.lar1v)


newtype LAR2V a = LAR2V {LAR2V a
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
getLAR2V :: Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Int -> IO ()}

lar2v :: Class.Real a => Int -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Int -> IO ()
lar2v :: Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
lar2v = LAR2V a
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
forall a.
LAR2V a
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
getLAR2V (LAR2V a
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LAR2V a
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> 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 ((Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO ())
-> LAR2V Float
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LAR2V a
LAR2V Int
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Int
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> Int
-> IO ()
C.lar2v) ((Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO ())
-> LAR2V Double
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LAR2V a
LAR2V Int
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Int
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> Int
-> IO ()
Z.lar2v)


newtype LARCM a = LARCM {LARCM a
-> Array (ZeroInt, ZeroInt) a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLARCM :: Array (ZeroInt,ZeroInt) a -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

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


newtype LARF a = LARF {LARF a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARF :: Char -> Int -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()}

larf :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()
larf :: Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
larf = LARF a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
forall a.
LARF a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARF (LARF a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARF a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> Complex Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO ())
-> LARF Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARF a
LARF Char
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> Complex Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO ()
C.larf) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> Complex Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO ())
-> LARF Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARF a
LARF Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> Complex Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO ()
Z.larf)


newtype LARFB a = LARFB {LARFB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARFB :: Char -> Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()}

larfb :: Class.Real a => Char -> Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()
larfb :: Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
larfb = LARFB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
forall a.
LARFB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARFB (LARFB a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO ())
-> LARFB Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFB a
LARFB Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO ()
C.larfb) ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO ())
-> LARFB Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFB a
LARFB Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO ()
Z.larfb)


newtype LARFG a = LARFG {LARFG a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
getLARFG :: Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ((Complex a), (Complex a))}

larfg :: Class.Real a => Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ((Complex a), (Complex a))
larfg :: Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
larfg = LARFG a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
forall a.
LARFG a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
getLARFG (LARFG a
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFG a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
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 ((Int
 -> Complex Float
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO (Complex Float, Complex Float))
-> LARFG Float
forall a.
(Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFG a
LARFG Int
-> Complex Float
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO (Complex Float, Complex Float)
C.larfg) ((Int
 -> Complex Double
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO (Complex Double, Complex Double))
-> LARFG Double
forall a.
(Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFG a
LARFG Int
-> Complex Double
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO (Complex Double, Complex Double)
Z.larfg)


newtype LARFGP a = LARFGP {LARFGP a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
getLARFGP :: Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ((Complex a), (Complex a))}

larfgp :: Class.Real a => Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ((Complex a), (Complex a))
larfgp :: Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
larfgp = LARFGP a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
forall a.
LARFGP a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
getLARFGP (LARFGP a
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFGP a
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO (Complex a, Complex a)
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 ((Int
 -> Complex Float
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO (Complex Float, Complex Float))
-> LARFGP Float
forall a.
(Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFGP a
LARFGP Int
-> Complex Float
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO (Complex Float, Complex Float)
C.larfgp) ((Int
 -> Complex Double
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO (Complex Double, Complex Double))
-> LARFGP Double
forall a.
(Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO (Complex a, Complex a))
-> LARFGP a
LARFGP Int
-> Complex Double
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO (Complex Double, Complex Double)
Z.larfgp)


newtype LARFT a = LARFT {LARFT a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLARFT :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

larft :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))
larft :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
larft = LARFT a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LARFT a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLARFT (LARFT a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARFT a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
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 ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float)))
-> LARFT Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARFT a
LARFT Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float))
C.larft) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double)))
-> LARFT Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARFT a
LARFT Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double))
Z.larft)


newtype LARFX a = LARFX {LARFX a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARFX :: Char -> Int -> Array ZeroInt (Complex a) -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()}

larfx :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()
larfx :: Char
-> Int
-> Array ZeroInt (Complex a)
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
larfx = LARFX a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
forall a.
LARFX a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARFX (LARFX a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFX a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Complex Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO ())
-> LARFX Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFX a
LARFX Char
-> Int
-> Array ZeroInt (Complex Float)
-> Complex Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO ()
C.larfx) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Complex Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO ())
-> LARFX Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARFX a
LARFX Char
-> Int
-> Array ZeroInt (Complex Double)
-> Complex Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO ()
Z.larfx)


newtype LARGV a = LARGV {LARGV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a)
getLARGV :: Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> Int -> IO (Array ZeroInt a)}

largv :: Class.Real a => Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> Int -> IO (Array ZeroInt a)
largv :: Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a)
largv = LARGV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a)
forall a.
LARGV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a)
getLARGV (LARGV a
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a))
-> LARGV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a)
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 ((Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Int
 -> IO (Array ZeroInt Float))
-> LARGV Float
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a))
-> LARGV a
LARGV Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> Int
-> IO (Array ZeroInt Float)
C.largv) ((Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Int
 -> IO (Array ZeroInt Double))
-> LARGV Double
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a))
-> LARGV a
LARGV Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> Int
-> IO (Array ZeroInt Double)
Z.largv)


newtype LARNV a = LARNV {LARNV a
-> Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a))
getLARNV :: Int -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a))}

larnv :: Class.Real a => Int -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a))
larnv :: Int
-> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a))
larnv = LARNV a
-> Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a))
forall a.
LARNV a
-> Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a))
getLARNV (LARNV a
 -> Int
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex a)))
-> LARNV a
-> Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex a))
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 ((Int
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex Float)))
-> LARNV Float
forall a.
(Int
 -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a)))
-> LARNV a
LARNV Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex Float))
C.larnv) ((Int
 -> IOArray ZeroInt CInt
 -> Int
 -> IO (Array ZeroInt (Complex Double)))
-> LARNV Double
forall a.
(Int
 -> IOArray ZeroInt CInt -> Int -> IO (Array ZeroInt (Complex a)))
-> LARNV a
LARNV Int
-> IOArray ZeroInt CInt
-> Int
-> IO (Array ZeroInt (Complex Double))
Z.larnv)


newtype LARRV a = LARRV {LARRV a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getLARRV :: a -> a -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> Array ZeroInt CInt -> Int -> Int -> Int -> a -> a -> a -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray ZeroInt a -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

larrv :: Class.Real a => a -> a -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> Array ZeroInt CInt -> Int -> Int -> Int -> a -> a -> a -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray ZeroInt a -> Array ZeroInt CInt -> Array ZeroInt CInt -> Array ZeroInt a -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
larrv :: a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
larrv = LARRV a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a.
LARRV a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getLARRV (LARRV a
 -> a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> Int
 -> a
 -> a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> LARRV a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> a
-> a
-> a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt a
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
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 ((Float
 -> Float
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> Float
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> Int
 -> Float
 -> Float
 -> Float
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt Float
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt,
       Int))
-> LARRV Float
forall a.
(a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> Int
 -> a
 -> a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> LARRV a
LARRV Float
-> Float
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> Float
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> Float
-> Float
-> Float
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt Float
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.larrv) ((Double
 -> Double
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> Double
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> Int
 -> Double
 -> Double
 -> Double
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt Double
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> LARRV Double
forall a.
(a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> Int
 -> a
 -> a
 -> a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Array ZeroInt a
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> LARRV a
LARRV Double
-> Double
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> Double
-> Array ZeroInt CInt
-> Int
-> Int
-> Int
-> Double
-> Double
-> Double
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Array ZeroInt Double
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
      Int)
Z.larrv)


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

lartg :: Class.Real a => (Complex a) -> (Complex a) -> IO (a, (Complex a), (Complex a))
lartg :: Complex a -> Complex a -> IO (a, Complex a, Complex a)
lartg = LARTG a -> Complex a -> Complex a -> IO (a, Complex a, Complex a)
forall a.
LARTG a -> Complex a -> Complex a -> IO (a, Complex a, Complex a)
getLARTG (LARTG a -> Complex a -> Complex a -> IO (a, Complex a, Complex a))
-> LARTG a
-> Complex a
-> Complex a
-> IO (a, Complex a, Complex a)
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 ((Complex Float
 -> Complex Float -> IO (Float, Complex Float, Complex Float))
-> LARTG Float
forall a.
(Complex a -> Complex a -> IO (a, Complex a, Complex a)) -> LARTG a
LARTG Complex Float
-> Complex Float -> IO (Float, Complex Float, Complex Float)
C.lartg) ((Complex Double
 -> Complex Double -> IO (Double, Complex Double, Complex Double))
-> LARTG Double
forall a.
(Complex a -> Complex a -> IO (a, Complex a, Complex a)) -> LARTG a
LARTG Complex Double
-> Complex Double -> IO (Double, Complex Double, Complex Double)
Z.lartg)


newtype LARTV a = LARTV {LARTV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
getLARTV :: Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Int -> IO ()}

lartv :: Class.Real a => Int -> IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Int -> IO ()
lartv :: Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
lartv = LARTV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
forall a.
LARTV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> IO ()
getLARTV (LARTV a
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LARTV a
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Int
-> 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 ((Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO ())
-> LARTV Float
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LARTV a
LARTV Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> IOArray ZeroInt (Complex Float)
-> Int
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> Int
-> IO ()
C.lartv) ((Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO ())
-> LARTV Double
forall a.
(Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO ())
-> LARTV a
LARTV Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> IOArray ZeroInt (Complex Double)
-> Int
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> Int
-> IO ()
Z.lartv)


newtype LARZ a = LARZ {LARZ a
-> Char
-> Int
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARZ :: Char -> Int -> Int -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()}

larz :: Class.Real a => Char -> Int -> Int -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()
larz :: Char
-> Int
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
larz = LARZ a
-> Char
-> Int
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
forall a.
LARZ a
-> Char
-> Int
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARZ (LARZ a
 -> Char
 -> Int
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZ a
-> Char
-> Int
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Int
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> Complex Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO ())
-> LARZ Float
forall a.
(Char
 -> Int
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZ a
LARZ Char
-> Int
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> Complex Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO ()
C.larz) ((Char
 -> Int
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> Complex Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO ())
-> LARZ Double
forall a.
(Char
 -> Int
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZ a
LARZ Char
-> Int
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> Complex Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO ()
Z.larz)


newtype LARZB a = LARZB {LARZB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARZB :: Char -> Char -> Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()}

larzb :: Class.Real a => Char -> Char -> Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO ()
larzb :: Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
larzb = LARZB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
forall a.
LARZB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO ()
getLARZB (LARZB a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZB a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> 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 ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO ())
-> LARZB Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZB a
LARZB Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO ()
C.larzb) ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO ())
-> LARZB Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO ())
-> LARZB a
LARZB Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO ()
Z.larzb)


newtype LARZT a = LARZT {LARZT a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLARZT :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

larzt :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))
larzt :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
larzt = LARZT a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LARZT a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLARZT (LARZT a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARZT a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
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 ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float)))
-> LARZT Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARZT a
LARZT Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float))
C.larzt) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double)))
-> LARZT Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LARZT a
LARZT Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double))
Z.larzt)


newtype LASCL a = LASCL {LASCL a
-> Char
-> Int
-> Int
-> a
-> a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getLASCL :: Char -> Int -> Int -> a -> a -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

lascl :: Class.Real a => Char -> Int -> Int -> a -> a -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
lascl :: Char
-> Int
-> Int
-> a
-> a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
lascl = LASCL a
-> Char
-> Int
-> Int
-> a
-> a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
LASCL a
-> Char
-> Int
-> Int
-> a
-> a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getLASCL (LASCL a
 -> Char
 -> Int
 -> Int
 -> a
 -> a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> LASCL a
-> Char
-> Int
-> Int
-> a
-> a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> Int
 -> Float
 -> Float
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> LASCL Float
forall a.
(Char
 -> Int
 -> Int
 -> a
 -> a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> LASCL a
LASCL Char
-> Int
-> Int
-> Float
-> Float
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.lascl) ((Char
 -> Int
 -> Int
 -> Double
 -> Double
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> LASCL Double
forall a.
(Char
 -> Int
 -> Int
 -> a
 -> a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> LASCL a
LASCL Char
-> Int
-> Int
-> Double
-> Double
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.lascl)


newtype LASET a = LASET {LASET a
-> Char
-> Int
-> Int
-> Complex a
-> Complex a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLASET :: Char -> Int -> Int -> (Complex a) -> (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))}

laset :: Class.Real a => Char -> Int -> Int -> (Complex a) -> (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a))
laset :: Char
-> Int
-> Int
-> Complex a
-> Complex a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
laset = LASET a
-> Char
-> Int
-> Int
-> Complex a
-> Complex a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LASET a
-> Char
-> Int
-> Int
-> Complex a
-> Complex a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
getLASET (LASET a
 -> Char
 -> Int
 -> Int
 -> Complex a
 -> Complex a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LASET a
-> Char
-> Int
-> Int
-> Complex a
-> Complex a
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a))
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 ((Char
 -> Int
 -> Int
 -> Complex Float
 -> Complex Float
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float)))
-> LASET Float
forall a.
(Char
 -> Int
 -> Int
 -> Complex a
 -> Complex a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LASET a
LASET Char
-> Int
-> Int
-> Complex Float
-> Complex Float
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float))
C.laset) ((Char
 -> Int
 -> Int
 -> Complex Double
 -> Complex Double
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double)))
-> LASET Double
forall a.
(Char
 -> Int
 -> Int
 -> Complex a
 -> Complex a
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a)))
-> LASET a
LASET Char
-> Int
-> Int
-> Complex Double
-> Complex Double
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double))
Z.laset)


newtype LASR a = LASR {LASR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getLASR :: Char -> Char -> Char -> Int -> Array ZeroInt a -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

lasr :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt a -> Array ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
lasr :: Char
-> Char
-> Char
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
lasr = LASR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
LASR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getLASR (LASR a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LASR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt a
-> Array ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt Float
 -> Array ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> LASR Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LASR a
LASR Char
-> Char
-> Char
-> Int
-> Array ZeroInt Float
-> Array ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.lasr) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt Double
 -> Array ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> LASR Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> LASR a
LASR Char
-> Char
-> Char
-> Int
-> Array ZeroInt Double
-> Array ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.lasr)


newtype LASSQ a = LASSQ {LASSQ a -> Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)
getLASSQ :: Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)}

lassq :: Class.Real a => Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)
lassq :: Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)
lassq = LASSQ a -> Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)
forall a.
LASSQ a -> Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a)
getLASSQ (LASSQ a
 -> Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a))
-> LASSQ a
-> Array ZeroInt (Complex a)
-> Int
-> a
-> a
-> IO (a, a)
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 ((Array ZeroInt (Complex Float)
 -> Int -> Float -> Float -> IO (Float, Float))
-> LASSQ Float
forall a.
(Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a))
-> LASSQ a
LASSQ Array ZeroInt (Complex Float)
-> Int -> Float -> Float -> IO (Float, Float)
C.lassq) ((Array ZeroInt (Complex Double)
 -> Int -> Double -> Double -> IO (Double, Double))
-> LASSQ Double
forall a.
(Array ZeroInt (Complex a) -> Int -> a -> a -> IO (a, a))
-> LASSQ a
LASSQ Array ZeroInt (Complex Double)
-> Int -> Double -> Double -> IO (Double, Double)
Z.lassq)


newtype LASWP a = LASWP {LASWP a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Array ZeroInt CInt
-> Int
-> IO ()
getLASWP :: IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ()}

laswp :: Class.Real a => IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ()
laswp :: IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int -> Int -> Array ZeroInt CInt -> Int -> IO ()
laswp = LASWP a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Array ZeroInt CInt
-> Int
-> IO ()
forall a.
LASWP a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Array ZeroInt CInt
-> Int
-> IO ()
getLASWP (LASWP a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Array ZeroInt CInt
 -> Int
 -> IO ())
-> LASWP a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Array ZeroInt CInt
-> Int
-> 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 ((IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ())
-> LASWP Float
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ())
-> LASWP a
LASWP IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int -> Int -> Array ZeroInt CInt -> Int -> IO ()
C.laswp) ((IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ())
-> LASWP Double
forall a.
(IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int -> Int -> Array ZeroInt CInt -> Int -> IO ())
-> LASWP a
LASWP IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int -> Int -> Array ZeroInt CInt -> Int -> IO ()
Z.laswp)


newtype LASYF a = LASYF {LASYF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
getLASYF :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Array ZeroInt CInt, Array (ZeroInt,ZeroInt) (Complex a), Int)}

lasyf :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int, Array ZeroInt CInt, Array (ZeroInt,ZeroInt) (Complex a), Int)
lasyf :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
lasyf = LASYF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
forall a.
LASYF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
getLASYF (LASYF a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LASYF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
      Int)
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex Float),
       Int))
-> LASYF Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LASYF a
LASYF Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex Float),
      Int)
C.lasyf) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt,
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> LASYF Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Int, Array ZeroInt CInt, Array (ZeroInt, ZeroInt) (Complex a),
       Int))
-> LASYF a
LASYF Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Int, Array ZeroInt CInt,
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.lasyf)


newtype LATBS a = LATBS {LATBS a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATBS :: Char -> Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)}

latbs :: Class.Real a => Char -> Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)
latbs :: Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
latbs = LATBS a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
forall a.
LATBS a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATBS (LATBS a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATBS a
-> Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt Float
 -> IO (Float, Int))
-> LATBS Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATBS a
LATBS Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt Float
-> IO (Float, Int)
C.latbs) ((Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt Double
 -> IO (Double, Int))
-> LATBS Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATBS a
LATBS Char
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt Double
-> IO (Double, Int)
Z.latbs)


newtype LATDF a = LATDF {LATDF a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (a, a)
getLATDF :: Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> a -> a -> Array ZeroInt CInt -> Array ZeroInt CInt -> IO (a, a)}

latdf :: Class.Real a => Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> a -> a -> Array ZeroInt CInt -> Array ZeroInt CInt -> IO (a, a)
latdf :: Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (a, a)
latdf = LATDF a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (a, a)
forall a.
LATDF a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (a, a)
getLATDF (LATDF a
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO (a, a))
-> LATDF a
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> a
-> a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (a, a)
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 ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Float
 -> Float
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO (Float, Float))
-> LATDF Float
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO (a, a))
-> LATDF a
LATDF Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Float
-> Float
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (Float, Float)
C.latdf) ((Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Double
 -> Double
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO (Double, Double))
-> LATDF Double
forall a.
(Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> a
 -> a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> IO (a, a))
-> LATDF a
LATDF Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Double
-> Double
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> IO (Double, Double)
Z.latdf)


newtype LATPS a = LATPS {LATPS a
-> Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATPS :: Char -> Char -> Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)}

latps :: Class.Real a => Char -> Char -> Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)
latps :: Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
latps = LATPS a
-> Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
forall a.
LATPS a
-> Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATPS (LATPS a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATPS a
-> Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt Float
 -> IO (Float, Int))
-> LATPS Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATPS a
LATPS Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt Float
-> IO (Float, Int)
C.latps) ((Char
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt Double
 -> IO (Double, Int))
-> LATPS Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATPS a
LATPS Char
-> Char
-> Char
-> Char
-> Array ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt Double
-> IO (Double, Int)
Z.latps)


newtype LATRD a = LATRD {LATRD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLATRD :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a))}

latrd :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt (Complex a), Array (ZeroInt,ZeroInt) (Complex a))
latrd :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
latrd = LATRD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
forall a.
LATRD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
getLATRD (LATRD a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LATRD a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a))
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float)))
-> LATRD Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LATRD a
LATRD Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float))
C.latrd) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double)))
-> LATRD Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a)))
-> LATRD a
LATRD Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double))
Z.latrd)


newtype LATRS a = LATRS {LATRS a
-> Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATRS :: Char -> Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)}

latrs :: Class.Real a => Char -> Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt a -> IO (a, Int)
latrs :: Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
latrs = LATRS a
-> Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
forall a.
LATRS a
-> Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
getLATRS (LATRS a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATRS a
-> Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt Float
 -> IO (Float, Int))
-> LATRS Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATRS a
LATRS Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt Float
-> IO (Float, Int)
C.latrs) ((Char
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt Double
 -> IO (Double, Int))
-> LATRS Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IO (a, Int))
-> LATRS a
LATRS Char
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt Double
-> IO (Double, Int)
Z.latrs)


newtype LATRZ a = LATRZ {LATRZ a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a))
getLATRZ :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a))}

latrz :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a))
latrz :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a))
latrz = LATRZ a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a))
forall a.
LATRZ a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a))
getLATRZ (LATRZ a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a)))
-> LATRZ a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a))
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 ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float)))
-> LATRZ Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a)))
-> LATRZ a
LATRZ Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float))
C.latrz) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double)))
-> LATRZ Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a)))
-> LATRZ a
LATRZ Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double))
Z.latrz)


newtype LAUU2 a = LAUU2 {LAUU2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getLAUU2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

lauu2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
lauu2 :: Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
lauu2 = LAUU2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
LAUU2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getLAUU2 (LAUU2 a
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUU2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> LAUU2 Float
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUU2 a
LAUU2 Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.lauu2) ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> LAUU2 Double
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUU2 a
LAUU2 Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.lauu2)


newtype LAUUM a = LAUUM {LAUUM a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getLAUUM :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

lauum :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
lauum :: Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
lauum = LAUUM a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
LAUUM a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getLAUUM (LAUUM a
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUUM a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> LAUUM Float
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUUM a
LAUUM Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.lauum) ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> LAUUM Double
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> LAUUM a
LAUUM Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.lauum)


newtype PBCON a = PBCON {PBCON a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
getPBCON :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)}

pbcon :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)
pbcon :: Char
-> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
pbcon = PBCON a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
forall a.
PBCON a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
getPBCON (PBCON a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (a, Int))
-> PBCON a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IO (Float, Int))
-> PBCON Float
forall a.
(Char
 -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> PBCON a
PBCON Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IO (Float, Int)
C.pbcon) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IO (Double, Int))
-> PBCON Double
forall a.
(Char
 -> Int -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> PBCON a
PBCON Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IO (Double, Int)
Z.pbcon)


newtype PBEQU a = PBEQU {PBEQU a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPBEQU :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

pbequ :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)
pbequ :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
pbequ = PBEQU a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
PBEQU a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPBEQU (PBEQU a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PBEQU a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> PBEQU Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PBEQU a
PBEQU Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.pbequ) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> PBEQU Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PBEQU a
PBEQU Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.pbequ)


newtype PBRFS a = PBRFS {PBRFS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPBRFS :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

pbrfs :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
pbrfs :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
pbrfs = PBRFS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
PBRFS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPBRFS (PBRFS a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PBRFS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> PBRFS Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PBRFS a
PBRFS Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.pbrfs) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> PBRFS Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PBRFS a
PBRFS Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.pbrfs)


newtype PBSTF a = PBSTF {PBSTF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBSTF :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pbstf :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pbstf :: Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
pbstf = PBSTF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
PBSTF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBSTF (PBSTF a
 -> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBSTF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> PBSTF Float
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBSTF a
PBSTF Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.pbstf) ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> PBSTF Double
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBSTF a
PBSTF Char
-> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.pbstf)


newtype PBSV a = PBSV {PBSV a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPBSV :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pbsv :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pbsv :: Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pbsv = PBSV a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PBSV a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPBSV (PBSV a
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBSV a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PBSV Float
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBSV a
PBSV Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pbsv) ((Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PBSV Double
forall a.
(Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBSV a
PBSV Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pbsv)


newtype PBSVX a = PBSVX {PBSVX a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPBSVX :: Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

pbsvx :: Class.Real a => Char -> Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
pbsvx :: Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
pbsvx = PBSVX a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
PBSVX a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPBSVX (PBSVX a
 -> Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PBSVX a
-> Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> PBSVX Float
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PBSVX a
PBSVX Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Char
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.pbsvx) ((Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> PBSVX Double
forall a.
(Char
 -> Char
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PBSVX a
PBSVX Char
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Char
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.pbsvx)


newtype PBTF2 a = PBTF2 {PBTF2 a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBTF2 :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pbtf2 :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pbtf2 :: Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
pbtf2 = PBTF2 a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
PBTF2 a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBTF2 (PBTF2 a
 -> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTF2 a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> PBTF2 Float
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTF2 a
PBTF2 Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.pbtf2) ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> PBTF2 Double
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTF2 a
PBTF2 Char
-> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.pbtf2)


newtype PBTRF a = PBTRF {PBTRF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBTRF :: Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pbtrf :: Class.Real a => Char -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pbtrf :: Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
pbtrf = PBTRF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
PBTRF a
-> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPBTRF (PBTRF a
 -> Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTRF a
-> Char
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> PBTRF Float
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTRF a
PBTRF Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.pbtrf) ((Char
 -> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> PBTRF Double
forall a.
(Char -> Int -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> PBTRF a
PBTRF Char
-> Int -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.pbtrf)


newtype PBTRS a = PBTRS {PBTRS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPBTRS :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pbtrs :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pbtrs :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pbtrs = PBTRS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PBTRS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPBTRS (PBTRS a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBTRS a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PBTRS Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBTRS a
PBTRS Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pbtrs) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PBTRS Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PBTRS a
PBTRS Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pbtrs)


newtype PFTRF a = PFTRF {PFTRF a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPFTRF :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

pftrf :: Class.Real a => Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
pftrf :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
pftrf = PFTRF a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
PFTRF a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPFTRF (PFTRF a
 -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRF a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
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 ((Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int)
-> PFTRF Float
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRF a
PFTRF Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.pftrf) ((Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int)
-> PFTRF Double
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRF a
PFTRF Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int
Z.pftrf)


newtype PFTRI a = PFTRI {PFTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPFTRI :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

pftri :: Class.Real a => Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
pftri :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
pftri = PFTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
PFTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPFTRI (PFTRI a
 -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRI a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
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 ((Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int)
-> PFTRI Float
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRI a
PFTRI Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.pftri) ((Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int)
-> PFTRI Double
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PFTRI a
PFTRI Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int
Z.pftri)


newtype PFTRS a = PFTRS {PFTRS a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPFTRS :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pftrs :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pftrs :: Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pftrs = PFTRS a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PFTRS a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPFTRS (PFTRS a
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PFTRS a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PFTRS Float
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PFTRS a
PFTRS Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pftrs) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PFTRS Double
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PFTRS a
PFTRS Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pftrs)


newtype POCON a = POCON {POCON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
getPOCON :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)}

pocon :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> a -> IO (a, Int)
pocon :: Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
pocon = POCON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
forall a.
POCON a
-> Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int)
getPOCON (POCON a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (a, Int))
-> POCON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IO (Float, Int))
-> POCON Float
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> POCON a
POCON Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IO (Float, Int)
C.pocon) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IO (Double, Int))
-> POCON Double
forall a.
(Char -> Array (ZeroInt, ZeroInt) (Complex a) -> a -> IO (a, Int))
-> POCON a
POCON Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IO (Double, Int)
Z.pocon)


newtype POEQU a = POEQU {POEQU a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPOEQU :: Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

poequ :: Class.Real a => Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)
poequ :: Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
poequ = POEQU a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
POEQU a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPOEQU (POEQU a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQU a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
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 ((Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> POEQU Float
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQU a
POEQU Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.poequ) ((Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> POEQU Double
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQU a
POEQU Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.poequ)


newtype POEQUB a = POEQUB {POEQUB a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPOEQUB :: Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

poequb :: Class.Real a => Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)
poequb :: Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
poequb = POEQUB a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
POEQUB a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPOEQUB (POEQUB a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQUB a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
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 ((Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> POEQUB Float
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQUB a
POEQUB Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.poequb) ((Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> POEQUB Double
forall a.
(Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> POEQUB a
POEQUB Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.poequb)


newtype PORFS a = PORFS {PORFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPORFS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

porfs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
porfs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
porfs = PORFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
PORFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPORFS (PORFS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PORFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> PORFS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PORFS a
PORFS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.porfs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> PORFS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PORFS a
PORFS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.porfs)


newtype POSV a = POSV {POSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPOSV :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

posv :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
posv :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
posv = POSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
POSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPOSV (POSV a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> POSV Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POSV a
POSV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.posv) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> POSV Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POSV a
POSV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.posv)


newtype POSVX a = POSVX {POSVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPOSVX :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

posvx :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
posvx :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
posvx = POSVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
POSVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPOSVX (POSVX a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> POSVX a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> POSVX Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> POSVX a
POSVX Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Char
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.posvx) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> POSVX Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> POSVX a
POSVX Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Char
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.posvx)


newtype POTF2 a = POTF2 {POTF2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTF2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

potf2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
potf2 :: Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
potf2 = POTF2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
POTF2 a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTF2 (POTF2 a
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> POTF2 Float
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTF2 a
POTF2 Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.potf2) ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> POTF2 Double
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTF2 a
POTF2 Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.potf2)


newtype POTRF a = POTRF {POTRF a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTRF :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

potrf :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
potrf :: Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
potrf = POTRF a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
POTRF a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTRF (POTRF a
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> POTRF Float
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRF a
POTRF Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.potrf) ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> POTRF Double
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRF a
POTRF Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.potrf)


newtype POTRI a = POTRI {POTRI a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTRI :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

potri :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
potri :: Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
potri = POTRI a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
POTRI a -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getPOTRI (POTRI a
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> POTRI Float
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRI a
POTRI Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.potri) ((Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> POTRI Double
forall a.
(Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> POTRI a
POTRI Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.potri)


newtype POTRS a = POTRS {POTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPOTRS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

potrs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
potrs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
potrs = POTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
POTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPOTRS (POTRS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> POTRS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POTRS a
POTRS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.potrs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> POTRS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> POTRS a
POTRS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.potrs)


newtype PPCON a = PPCON {PPCON a
-> Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
getPPCON :: Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)}

ppcon :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
ppcon :: Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
ppcon = PPCON a
-> Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
forall a.
PPCON a
-> Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
getPPCON (PPCON a
 -> Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int))
-> PPCON a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> a
-> IO (a, Int)
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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Float
 -> IO (Float, Int))
-> PPCON Float
forall a.
(Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int))
-> PPCON a
PPCON Char
-> Int -> Array ZeroInt (Complex Float) -> Float -> IO (Float, Int)
C.ppcon) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Double
 -> IO (Double, Int))
-> PPCON Double
forall a.
(Char -> Int -> Array ZeroInt (Complex a) -> a -> IO (a, Int))
-> PPCON a
PPCON Char
-> Int
-> Array ZeroInt (Complex Double)
-> Double
-> IO (Double, Int)
Z.ppcon)


newtype PPEQU a = PPEQU {PPEQU a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPPEQU :: Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

ppequ :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt a, a, a, Int)
ppequ :: Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
ppequ = PPEQU a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
PPEQU a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getPPEQU (PPEQU a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PPEQU a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> PPEQU Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PPEQU a
PPEQU Char
-> Int
-> Array ZeroInt (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.ppequ) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> PPEQU Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> PPEQU a
PPEQU Char
-> Int
-> Array ZeroInt (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.ppequ)


newtype PPRFS a = PPRFS {PPRFS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPPRFS :: Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

pprfs :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
pprfs :: Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
pprfs = PPRFS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
PPRFS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPPRFS (PPRFS a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PPRFS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> PPRFS Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PPRFS a
PPRFS Char
-> Int
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.pprfs) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> PPRFS Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PPRFS a
PPRFS Char
-> Int
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.pprfs)


newtype PPSV a = PPSV {PPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPPSV :: Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

ppsv :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
ppsv :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
ppsv = PPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPPSV (PPSV a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PPSV Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPSV a
PPSV Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.ppsv) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PPSV Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPSV a
PPSV Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.ppsv)


newtype PPSVX a = PPSVX {PPSVX a
-> Char
-> Char
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPPSVX :: Char -> Char -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

ppsvx :: Class.Real a => Char -> Char -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> Char -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Char, Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
ppsvx :: Char
-> Char
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
ppsvx = PPSVX a
-> Char
-> Char
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
PPSVX a
-> Char
-> Char
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPPSVX (PPSVX a
 -> Char
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PPSVX a
-> Char
-> Char
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> Char
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> PPSVX Float
forall a.
(Char
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PPSVX a
PPSVX Char
-> Char
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> Char
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.ppsvx) ((Char
 -> Char
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> PPSVX Double
forall a.
(Char
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> Char
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Char, Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PPSVX a
PPSVX Char
-> Char
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> Char
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Char, Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.ppsvx)


newtype PPTRF a = PPTRF {PPTRF a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPPTRF :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

pptrf :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
pptrf :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
pptrf = PPTRF a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
PPTRF a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPPTRF (PPTRF a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PPTRF a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
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 ((Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int)
-> PPTRF Float
forall a.
(Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int) -> PPTRF a
PPTRF Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.pptrf) ((Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int)
-> PPTRF Double
forall a.
(Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int) -> PPTRF a
PPTRF Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int
Z.pptrf)


newtype PPTRI a = PPTRI {PPTRI a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPPTRI :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

pptri :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
pptri :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
pptri = PPTRI a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
PPTRI a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getPPTRI (PPTRI a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> PPTRI a -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
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 ((Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int)
-> PPTRI Float
forall a.
(Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int) -> PPTRI a
PPTRI Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.pptri) ((Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int)
-> PPTRI Double
forall a.
(Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int) -> PPTRI a
PPTRI Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int
Z.pptri)


newtype PPTRS a = PPTRS {PPTRS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPPTRS :: Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pptrs :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pptrs :: Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pptrs = PPTRS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PPTRS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPPTRS (PPTRS a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPTRS a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PPTRS Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPTRS a
PPTRS Char
-> Int
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pptrs) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PPTRS Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PPTRS a
PPTRS Char
-> Int
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pptrs)


newtype PSTF2 a = PSTF2 {PSTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
getPSTF2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IO (Array ZeroInt CInt, Int, Int)}

pstf2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IO (Array ZeroInt CInt, Int, Int)
pstf2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
pstf2 = PSTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
forall a.
PSTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
getPSTF2 (PSTF2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTF2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTF2 a
PSTF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IO (Array ZeroInt CInt, Int, Int)
C.pstf2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTF2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTF2 a
PSTF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IO (Array ZeroInt CInt, Int, Int)
Z.pstf2)


newtype PSTRF a = PSTRF {PSTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
getPSTRF :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IO (Array ZeroInt CInt, Int, Int)}

pstrf :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> IO (Array ZeroInt CInt, Int, Int)
pstrf :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
pstrf = PSTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
forall a.
PSTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
getPSTRF (PSTRF a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> IO (Array ZeroInt CInt, Int, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTRF Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTRF a
PSTRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> IO (Array ZeroInt CInt, Int, Int)
C.pstrf) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTRF Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> IO (Array ZeroInt CInt, Int, Int))
-> PSTRF a
PSTRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> IO (Array ZeroInt CInt, Int, Int)
Z.pstrf)


newtype PTCON a = PTCON {PTCON a
-> Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
getPTCON :: Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)}

ptcon :: Class.Real a => Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
ptcon :: Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
ptcon = PTCON a
-> Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
forall a.
PTCON a
-> Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int)
getPTCON (PTCON a
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> a
 -> IO (a, Int))
-> PTCON a
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> a
-> IO (a, Int)
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 ((Array ZeroInt Float
 -> Array ZeroInt (Complex Float) -> Float -> IO (Float, Int))
-> PTCON Float
forall a.
(Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int))
-> PTCON a
PTCON Array ZeroInt Float
-> Array ZeroInt (Complex Float) -> Float -> IO (Float, Int)
C.ptcon) ((Array ZeroInt Double
 -> Array ZeroInt (Complex Double) -> Double -> IO (Double, Int))
-> PTCON Double
forall a.
(Array ZeroInt a -> Array ZeroInt (Complex a) -> a -> IO (a, Int))
-> PTCON a
PTCON Array ZeroInt Double
-> Array ZeroInt (Complex Double) -> Double -> IO (Double, Int)
Z.ptcon)


newtype PTEQR a = PTEQR {PTEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTEQR :: Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pteqr :: Class.Real a => Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pteqr :: Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pteqr = PTEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PTEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTEQR (PTEQR a
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PTEQR Float
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTEQR a
PTEQR Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pteqr) ((Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PTEQR Double
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTEQR a
PTEQR Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pteqr)


newtype PTRFS a = PTRFS {PTRFS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPTRFS :: Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

ptrfs :: Class.Real a => Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Array ZeroInt a -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
ptrfs :: Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
ptrfs = PTRFS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
PTRFS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getPTRFS (PTRFS a
 -> Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PTRFS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> PTRFS Float
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PTRFS a
PTRFS Char
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.ptrfs) ((Char
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> PTRFS Double
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> PTRFS a
PTRFS Char
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.ptrfs)


newtype PTSV a = PTSV {PTSV a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTSV :: IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

ptsv :: Class.Real a => IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
ptsv :: IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
ptsv = PTSV a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PTSV a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTSV (PTSV a
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTSV a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((IOArray ZeroInt Float
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PTSV Float
forall a.
(IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTSV a
PTSV IOArray ZeroInt Float
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.ptsv) ((IOArray ZeroInt Double
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PTSV Double
forall a.
(IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTSV a
PTSV IOArray ZeroInt Double
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.ptsv)


newtype PTSVX a = PTSVX {PTSVX a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPTSVX :: Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

ptsvx :: Class.Real a => Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
ptsvx :: Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
ptsvx = PTSVX a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
PTSVX a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getPTSVX (PTSVX a
 -> Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PTSVX a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> PTSVX Float
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PTSVX a
PTSVX Char
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> IOArray ZeroInt Float
-> IOArray ZeroInt (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.ptsvx) ((Char
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> PTSVX Double
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt a
 -> IOArray ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> PTSVX a
PTSVX Char
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> IOArray ZeroInt Double
-> IOArray ZeroInt (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.ptsvx)


newtype PTTRF a = PTTRF {PTTRF a
-> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int
getPTTRF :: IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO (Int)}

pttrf :: Class.Real a => IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO (Int)
pttrf :: IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int
pttrf = PTTRF a
-> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
PTTRF a
-> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int
getPTTRF (PTTRF a
 -> IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int)
-> PTTRF a
-> IOArray ZeroInt a
-> IOArray ZeroInt (Complex a)
-> IO Int
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 ((IOArray ZeroInt Float
 -> IOArray ZeroInt (Complex Float) -> IO Int)
-> PTTRF Float
forall a.
(IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int)
-> PTTRF a
PTTRF IOArray ZeroInt Float -> IOArray ZeroInt (Complex Float) -> IO Int
C.pttrf) ((IOArray ZeroInt Double
 -> IOArray ZeroInt (Complex Double) -> IO Int)
-> PTTRF Double
forall a.
(IOArray ZeroInt a -> IOArray ZeroInt (Complex a) -> IO Int)
-> PTTRF a
PTTRF IOArray ZeroInt Double
-> IOArray ZeroInt (Complex Double) -> IO Int
Z.pttrf)


newtype PTTRS a = PTTRS {PTTRS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTTRS :: Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

pttrs :: Class.Real a => Char -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
pttrs :: Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
pttrs = PTTRS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
PTTRS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getPTTRS (PTTRS a
 -> Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTTRS a
-> Char
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> PTTRS Float
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTTRS a
PTTRS Char
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.pttrs) ((Char
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> PTTRS Double
forall a.
(Char
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> PTTRS a
PTTRS Char
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.pttrs)


newtype PTTS2 a = PTTS2 {PTTS2 a
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getPTTS2 :: Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

ptts2 :: Class.Real a => Int -> Array ZeroInt a -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
ptts2 :: Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
ptts2 = PTTS2 a
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
PTTS2 a
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getPTTS2 (PTTS2 a
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> PTTS2 a
-> Int
-> Array ZeroInt a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Int
 -> Array ZeroInt Float
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> PTTS2 Float
forall a.
(Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> PTTS2 a
PTTS2 Int
-> Array ZeroInt Float
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.ptts2) ((Int
 -> Array ZeroInt Double
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> PTTS2 Double
forall a.
(Int
 -> Array ZeroInt a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> PTTS2 a
PTTS2 Int
-> Array ZeroInt Double
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.ptts2)


newtype ROT a = ROT {ROT a
-> IOArray ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> Int
-> a
-> Complex a
-> IO ()
getROT :: IOArray ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> Int -> a -> (Complex a) -> IO ()}

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


newtype RSCL a = RSCL {RSCL a -> Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()
getRSCL :: Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()}

rscl :: Class.Real a => Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()
rscl :: Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()
rscl = RSCL a -> Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()
forall a.
RSCL a -> Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()
getRSCL (RSCL a -> Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ())
-> RSCL a
-> Int
-> a
-> IOArray ZeroInt (Complex a)
-> Int
-> 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 ((Int -> Float -> IOArray ZeroInt (Complex Float) -> Int -> IO ())
-> RSCL Float
forall a.
(Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()) -> RSCL a
RSCL Int -> Float -> IOArray ZeroInt (Complex Float) -> Int -> IO ()
C.rscl) ((Int -> Double -> IOArray ZeroInt (Complex Double) -> Int -> IO ())
-> RSCL Double
forall a.
(Int -> a -> IOArray ZeroInt (Complex a) -> Int -> IO ()) -> RSCL a
RSCL Int -> Double -> IOArray ZeroInt (Complex Double) -> Int -> IO ()
Z.rscl)


newtype SPCON a = SPCON {SPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getSPCON :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

spcon :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
spcon :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
spcon = SPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
SPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getSPCON (SPCON a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SPCON a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> SPCON Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SPCON a
SPCON Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.spcon) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> SPCON Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SPCON a
SPCON Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.spcon)


newtype SPMV a = SPMV {SPMV a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
getSPMV :: Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ()}

spmv :: Class.Real a => Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ()
spmv :: Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
spmv = SPMV a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
forall a.
SPMV a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
getSPMV (SPMV a
 -> Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SPMV a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPMV Float -> SPMV Double -> SPMV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> Complex Float
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> Complex Float
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO ())
-> SPMV Float
forall a.
(Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SPMV a
SPMV Char
-> Int
-> Complex Float
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> Complex Float
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO ()
C.spmv) ((Char
 -> Int
 -> Complex Double
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> Complex Double
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO ())
-> SPMV Double
forall a.
(Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SPMV a
SPMV Char
-> Int
-> Complex Double
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> Complex Double
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO ()
Z.spmv)


newtype SPR a = SPR {SPR a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> IO ()
getSPR :: Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> IO ()}

spr :: Class.Real a => Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> Int -> IOArray ZeroInt (Complex a) -> IO ()
spr :: Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> IO ()
spr = SPR a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> IO ()
forall a.
SPR a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> IO ()
getSPR (SPR a
 -> Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> SPR a
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray ZeroInt (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ SPR Float -> SPR Double -> SPR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> Complex Float
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IO ())
-> SPR Float
forall a.
(Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> SPR a
SPR Char
-> Int
-> Complex Float
-> Array ZeroInt (Complex Float)
-> Int
-> IOArray ZeroInt (Complex Float)
-> IO ()
C.spr) ((Char
 -> Int
 -> Complex Double
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IO ())
-> SPR Double
forall a.
(Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO ())
-> SPR a
SPR Char
-> Int
-> Complex Double
-> Array ZeroInt (Complex Double)
-> Int
-> IOArray ZeroInt (Complex Double)
-> IO ()
Z.spr)


newtype SPRFS a = SPRFS {SPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getSPRFS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

sprfs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
sprfs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
sprfs = SPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
SPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getSPRFS (SPRFS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SPRFS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> SPRFS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SPRFS a
SPRFS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.sprfs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> SPRFS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SPRFS a
SPRFS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.sprfs)


newtype SPSV a = SPSV {SPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSPSV :: Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

spsv :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
spsv :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
spsv = SPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
SPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSPSV (SPSV a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPSV a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> SPSV Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPSV a
SPSV Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.spsv) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> SPSV Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPSV a
SPSV Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.spsv)


newtype SPSVX a = SPSVX {SPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getSPSVX :: Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

spsvx :: Class.Real a => Char -> Char -> Array ZeroInt (Complex a) -> IOArray ZeroInt (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
spsvx :: Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
spsvx = SPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
SPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getSPSVX (SPSVX a
 -> Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SPSVX a
-> Char
-> Char
-> Array ZeroInt (Complex a)
-> IOArray ZeroInt (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Array ZeroInt (Complex Float)
 -> IOArray ZeroInt (Complex Float)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> SPSVX Float
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SPSVX a
SPSVX Char
-> Char
-> Array ZeroInt (Complex Float)
-> IOArray ZeroInt (Complex Float)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.spsvx) ((Char
 -> Char
 -> Array ZeroInt (Complex Double)
 -> IOArray ZeroInt (Complex Double)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> SPSVX Double
forall a.
(Char
 -> Char
 -> Array ZeroInt (Complex a)
 -> IOArray ZeroInt (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SPSVX a
SPSVX Char
-> Char
-> Array ZeroInt (Complex Double)
-> IOArray ZeroInt (Complex Double)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.spsvx)


newtype SPTRF a = SPTRF {SPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSPTRF :: Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt CInt, Int)}

sptrf :: Class.Real a => Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Array ZeroInt CInt, Int)
sptrf :: Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
sptrf = SPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
SPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSPTRF (SPTRF a
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPTRF a
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> SPTRF Float
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPTRF a
SPTRF Char
-> Int
-> IOArray ZeroInt (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.sptrf) ((Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> SPTRF Double
forall a.
(Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SPTRF a
SPTRF Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.sptrf)


newtype SPTRI a = SPTRI {SPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
getSPTRI :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO (Int)}

sptri :: Class.Real a => Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO (Int)
sptri :: Char -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int
sptri = SPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a.
SPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
getSPTRI (SPTRI a
 -> Char
 -> IOArray ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> SPTRI a
-> Char
-> IOArray ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IO Int
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 ((Char
 -> IOArray ZeroInt (Complex Float) -> Array ZeroInt CInt -> IO Int)
-> SPTRI Float
forall a.
(Char
 -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int)
-> SPTRI a
SPTRI Char
-> IOArray ZeroInt (Complex Float) -> Array ZeroInt CInt -> IO Int
C.sptri) ((Char
 -> IOArray ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IO Int)
-> SPTRI Double
forall a.
(Char
 -> IOArray ZeroInt (Complex a) -> Array ZeroInt CInt -> IO Int)
-> SPTRI a
SPTRI Char
-> IOArray ZeroInt (Complex Double) -> Array ZeroInt CInt -> IO Int
Z.sptri)


newtype SPTRS a = SPTRS {SPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSPTRS :: Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

sptrs :: Class.Real a => Char -> Array ZeroInt (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
sptrs :: Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
sptrs = SPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
SPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSPTRS (SPTRS a
 -> Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SPTRS a
-> Char
-> Array ZeroInt (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> SPTRS Float
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SPTRS a
SPTRS Char
-> Array ZeroInt (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.sptrs) ((Char
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> SPTRS Double
forall a.
(Char
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SPTRS a
SPTRS Char
-> Array ZeroInt (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.sptrs)


newtype STEDC a = STEDC {STEDC a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO Int
getSTEDC :: Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Int)}

stedc :: Class.Real a => Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> IO (Int)
stedc :: Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO Int
stedc = STEDC a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO Int
forall a.
STEDC a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO Int
getSTEDC (STEDC a
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO Int)
-> STEDC a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> IO Int
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 ((Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> IO Int)
-> STEDC Float
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO Int)
-> STEDC a
STEDC Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> IO Int
C.stedc) ((Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> IO Int)
-> STEDC Double
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> IO Int)
-> STEDC a
STEDC Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> IO Int
Z.stedc)


newtype STEGR a = STEGR {STEGR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getSTEGR :: Char -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

stegr :: Class.Real a => Char -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> a -> Int -> Int -> a -> Int -> Int -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
stegr :: Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
stegr = STEGR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
forall a.
STEGR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
getSTEGR (STEGR a
 -> Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> STEGR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> a
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Int)
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 ((Char
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> Float
 -> Float
 -> Int
 -> Int
 -> Float
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int))
-> STEGR Float
forall a.
(Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> STEGR a
STEGR Char
-> Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> Float
-> Float
-> Int
-> Int
-> Float
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.stegr) ((Char
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> Double
 -> Double
 -> Int
 -> Int
 -> Double
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> STEGR Double
forall a.
(Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Int))
-> STEGR a
STEGR Char
-> Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> Double
-> Double
-> Int
-> Int
-> Double
-> Int
-> Int
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt, Int)
Z.stegr)


newtype STEIN a = STEIN {STEIN a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> Array ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getSTEIN :: Array ZeroInt a -> Array ZeroInt a -> Int -> Array ZeroInt a -> Array ZeroInt CInt -> Array ZeroInt CInt -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)}

stein :: Class.Real a => Array ZeroInt a -> Array ZeroInt a -> Int -> Array ZeroInt a -> Array ZeroInt CInt -> Array ZeroInt CInt -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Int)
stein :: Array ZeroInt a
-> Array ZeroInt a
-> Int
-> Array ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
stein = STEIN a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> Array ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
forall a.
STEIN a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> Array ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
getSTEIN (STEIN a
 -> Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> STEIN a
-> Array ZeroInt a
-> Array ZeroInt a
-> Int
-> Array ZeroInt a
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int)
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 ((Array ZeroInt Float
 -> Array ZeroInt Float
 -> Int
 -> Array ZeroInt Float
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt,
       Int))
-> STEIN Float
forall a.
(Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> STEIN a
STEIN Array ZeroInt Float
-> Array ZeroInt Float
-> Int
-> Array ZeroInt Float
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Int)
C.stein) ((Array ZeroInt Double
 -> Array ZeroInt Double
 -> Int
 -> Array ZeroInt Double
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Int))
-> STEIN Double
forall a.
(Array ZeroInt a
 -> Array ZeroInt a
 -> Int
 -> Array ZeroInt a
 -> Array ZeroInt CInt
 -> Array ZeroInt CInt
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), Array ZeroInt CInt, Int))
-> STEIN a
STEIN Array ZeroInt Double
-> Array ZeroInt Double
-> Int
-> Array ZeroInt Double
-> Array ZeroInt CInt
-> Array ZeroInt CInt
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
      Int)
Z.stein)


newtype STEMR a = STEMR {STEMR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Bool, Int)
getSTEMR :: Char -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> a -> Int -> Int -> Int -> Int -> Int -> Bool -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Bool, Int)}

stemr :: Class.Real a => Char -> Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> a -> a -> Int -> Int -> Int -> Int -> Int -> Bool -> Int -> Int -> IO (Int, Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array ZeroInt CInt, Bool, Int)
stemr :: Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Bool, Int)
stemr = STEMR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Bool, Int)
forall a.
STEMR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Bool, Int)
getSTEMR (STEMR a
 -> Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Bool
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Bool, Int))
-> STEMR a
-> Char
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> a
-> a
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array ZeroInt CInt, Bool, Int)
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 ((Char
 -> Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> Float
 -> Float
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Bool
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Float,
       Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Bool,
       Int))
-> STEMR Float
forall a.
(Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Bool
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Bool, Int))
-> STEMR a
STEMR Char
-> Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> Float
-> Float
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Float,
      Array (ZeroInt, ZeroInt) (Complex Float), Array ZeroInt CInt, Bool,
      Int)
C.stemr) ((Char
 -> Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> Double
 -> Double
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Bool
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt Double,
       Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
       Bool, Int))
-> STEMR Double
forall a.
(Char
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> a
 -> a
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Bool
 -> Int
 -> Int
 -> IO
      (Int, Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array ZeroInt CInt, Bool, Int))
-> STEMR a
STEMR Char
-> Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> Double
-> Double
-> Int
-> Int
-> Int
-> Int
-> Int
-> Bool
-> Int
-> Int
-> IO
     (Int, Array ZeroInt Double,
      Array (ZeroInt, ZeroInt) (Complex Double), Array ZeroInt CInt,
      Bool, Int)
Z.stemr)


newtype STEQR a = STEQR {STEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSTEQR :: Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

steqr :: Class.Real a => Char -> IOArray ZeroInt a -> IOArray ZeroInt a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
steqr :: Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
steqr = STEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
STEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSTEQR (STEQR a
 -> Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> STEQR a
-> Char
-> IOArray ZeroInt a
-> IOArray ZeroInt a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> IOArray ZeroInt Float
 -> IOArray ZeroInt Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> STEQR Float
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> STEQR a
STEQR Char
-> IOArray ZeroInt Float
-> IOArray ZeroInt Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.steqr) ((Char
 -> IOArray ZeroInt Double
 -> IOArray ZeroInt Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> STEQR Double
forall a.
(Char
 -> IOArray ZeroInt a
 -> IOArray ZeroInt a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> STEQR a
STEQR Char
-> IOArray ZeroInt Double
-> IOArray ZeroInt Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.steqr)


newtype SUM1 a = SUM1 {SUM1 a -> Array ZeroInt (Complex a) -> Int -> IO a
getSUM1 :: Array ZeroInt (Complex a) -> Int -> IO a}

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


newtype SYCON a = SYCON {SYCON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getSYCON :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)}

sycon :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> a -> IO (a, Int)
sycon :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
sycon = SYCON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
forall a.
SYCON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
getSYCON (SYCON a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SYCON a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> a
-> IO (a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Float
 -> IO (Float, Int))
-> SYCON Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SYCON a
SYCON Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Float
-> IO (Float, Int)
C.sycon) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Double
 -> IO (Double, Int))
-> SYCON Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> a
 -> IO (a, Int))
-> SYCON a
SYCON Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Double
-> IO (Double, Int)
Z.sycon)


newtype SYCONV a = SYCONV {SYCONV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex a), Int)
getSYCONV :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Array ZeroInt (Complex a), Int)}

syconv :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Array ZeroInt (Complex a), Int)
syconv :: Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex a), Int)
syconv = SYCONV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex a), Int)
forall a.
SYCONV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex a), Int)
getSYCONV (SYCONV a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), Int))
-> SYCONV a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IO (Array ZeroInt (Complex Float), Int))
-> SYCONV Float
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), Int))
-> SYCONV a
SYCONV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex Float), Int)
C.syconv) ((Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IO (Array ZeroInt (Complex Double), Int))
-> SYCONV Double
forall a.
(Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO (Array ZeroInt (Complex a), Int))
-> SYCONV a
SYCONV Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IO (Array ZeroInt (Complex Double), Int)
Z.syconv)


newtype SYEQUB a = SYEQUB {SYEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getSYEQUB :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)}

syequb :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, a, a, Int)
syequb :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
syequb = SYEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
forall a.
SYEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
getSYEQUB (SYEQUB a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> SYEQUB a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, a, a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Float, Float, Int))
-> SYEQUB Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> SYEQUB a
SYEQUB Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Float, Float, Int)
C.syequb) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Double, Double, Int))
-> SYEQUB Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, a, a, Int))
-> SYEQUB a
SYEQUB Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Double, Double, Int)
Z.syequb)


newtype SYMV a = SYMV {SYMV a
-> Char
-> Complex a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
getSYMV :: Char -> (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ()}

symv :: Class.Real a => Char -> (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> (Complex a) -> IOArray ZeroInt (Complex a) -> Int -> IO ()
symv :: Char
-> Complex a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
symv = SYMV a
-> Char
-> Complex a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
forall a.
SYMV a
-> Char
-> Complex a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
getSYMV (SYMV a
 -> Char
 -> Complex a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SYMV a
-> Char
-> Complex a
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> Complex a
-> IOArray ZeroInt (Complex a)
-> Int
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYMV Float -> SYMV Double -> SYMV a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Complex Float
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> Complex Float
 -> IOArray ZeroInt (Complex Float)
 -> Int
 -> IO ())
-> SYMV Float
forall a.
(Char
 -> Complex a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SYMV a
SYMV Char
-> Complex Float
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> Complex Float
-> IOArray ZeroInt (Complex Float)
-> Int
-> IO ()
C.symv) ((Char
 -> Complex Double
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> Complex Double
 -> IOArray ZeroInt (Complex Double)
 -> Int
 -> IO ())
-> SYMV Double
forall a.
(Char
 -> Complex a
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> Complex a
 -> IOArray ZeroInt (Complex a)
 -> Int
 -> IO ())
-> SYMV a
SYMV Char
-> Complex Double
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> Complex Double
-> IOArray ZeroInt (Complex Double)
-> Int
-> IO ()
Z.symv)


newtype SYR a = SYR {SYR a
-> Char
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getSYR :: Char -> (Complex a) -> Array ZeroInt (Complex a) -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

syr :: Class.Real a => Char -> (Complex a) -> Array ZeroInt (Complex a) -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
syr :: Char
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
syr = SYR a
-> Char
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
SYR a
-> Char
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getSYR (SYR a
 -> Char
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> SYR a
-> Char
-> Complex a
-> Array ZeroInt (Complex a)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a b. (a -> b) -> a -> b
$ SYR Float -> SYR Double -> SYR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Complex Float
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> SYR Float
forall a.
(Char
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> SYR a
SYR Char
-> Complex Float
-> Array ZeroInt (Complex Float)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.syr) ((Char
 -> Complex Double
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> SYR Double
forall a.
(Char
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> SYR a
SYR Char
-> Complex Double
-> Array ZeroInt (Complex Double)
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.syr)


newtype SYRFS a = SYRFS {SYRFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getSYRFS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

syrfs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
syrfs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
syrfs = SYRFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
SYRFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getSYRFS (SYRFS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SYRFS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> SYRFS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SYRFS a
SYRFS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.syrfs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> SYRFS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> SYRFS a
SYRFS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.syrfs)


newtype SYSV a = SYSV {SYSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getSYSV :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)}

sysv :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)
sysv :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
sysv = SYSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a.
SYSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getSYSV (SYSV a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYSV a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYSV Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYSV a
SYSV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt CInt, Int)
C.sysv) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYSV Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYSV a
SYSV Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt CInt, Int)
Z.sysv)


newtype SYSVX a = SYSVX {SYSVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getSYSVX :: Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)}

sysvx :: Class.Real a => Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray ZeroInt CInt -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), a, Array ZeroInt a, Array ZeroInt a, Int)
sysvx :: Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
sysvx = SYSVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
forall a.
SYSVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
getSYSVX (SYSVX a
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SYSVX a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
      Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Float), Float,
       Array ZeroInt Float, Array ZeroInt Float, Int))
-> SYSVX Float
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SYSVX a
SYSVX Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Float), Float,
      Array ZeroInt Float, Array ZeroInt Float, Int)
C.sysvx) ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex Double), Double,
       Array ZeroInt Double, Array ZeroInt Double, Int))
-> SYSVX Double
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray ZeroInt CInt
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array (ZeroInt, ZeroInt) (Complex a), a, Array ZeroInt a,
       Array ZeroInt a, Int))
-> SYSVX a
SYSVX Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray ZeroInt CInt
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Array (ZeroInt, ZeroInt) (Complex Double), Double,
      Array ZeroInt Double, Array ZeroInt Double, Int)
Z.sysvx)


newtype SYSWAPR a = SYSWAPR {SYSWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
getSYSWAPR :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO ()}

syswapr :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO ()
syswapr :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ()
syswapr = SYSWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
forall a.
SYSWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO ()
getSYSWAPR (SYSWAPR a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO ())
-> SYSWAPR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> 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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO ())
-> SYSWAPR Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ())
-> SYSWAPR a
SYSWAPR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO ()
C.syswapr) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO ())
-> SYSWAPR Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a) -> Int -> Int -> IO ())
-> SYSWAPR a
SYSWAPR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO ()
Z.syswapr)


newtype SYTF2 a = SYTF2 {SYTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSYTF2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)}

sytf2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt CInt, Int)
sytf2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
sytf2 = SYTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
forall a.
SYTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
getSYTF2 (SYTF2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SYTF2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt CInt, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt CInt, Int))
-> SYTF2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SYTF2 a
SYTF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt CInt, Int)
C.sytf2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt CInt, Int))
-> SYTF2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt CInt, Int))
-> SYTF2 a
SYTF2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt CInt, Int)
Z.sytf2)


newtype SYTRF a = SYTRF {SYTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getSYTRF :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)}

sytrf :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt CInt, Int)
sytrf :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
sytrf = SYTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
forall a.
SYTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
getSYTRF (SYTRF a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYTRF a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt CInt, Int)
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYTRF Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYTRF a
SYTRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt CInt, Int)
C.sytrf) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYTRF Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt CInt, Int))
-> SYTRF a
SYTRF Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt CInt, Int)
Z.sytrf)


newtype SYTRI a = SYTRI {SYTRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
getSYTRI :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Int)}

sytri :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IO (Int)
sytri :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
sytri = SYTRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
forall a.
SYTRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
getSYTRI (SYTRI a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> SYTRI a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IO Int)
-> SYTRI Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> SYTRI a
SYTRI Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IO Int
C.sytri) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IO Int)
-> SYTRI Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IO Int)
-> SYTRI a
SYTRI Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IO Int
Z.sytri)


newtype SYTRI2 a = SYTRI2 {SYTRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
getSYTRI2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> Int -> IO (Int)}

sytri2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> Int -> IO (Int)
sytri2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
sytri2 = SYTRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
forall a.
SYTRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
getSYTRI2 (SYTRI2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> SYTRI2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> SYTRI2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> SYTRI2 a
SYTRI2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
C.sytri2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> SYTRI2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> Int
 -> IO Int)
-> SYTRI2 a
SYTRI2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Int
-> Int
-> IO Int
Z.sytri2)


newtype SYTRI2X a = SYTRI2X {SYTRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getSYTRI2X :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)}

sytri2x :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> Int -> IO (Int)
sytri2x :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
sytri2x = SYTRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
forall a.
SYTRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
getSYTRI2X (SYTRI2X a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> SYTRI2X a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> Int
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> SYTRI2X Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> SYTRI2X a
SYTRI2X Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> Int
-> IO Int
C.sytri2x) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> SYTRI2X Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> Int
 -> IO Int)
-> SYTRI2X a
SYTRI2X Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> Int
-> IO Int
Z.sytri2x)


newtype SYTRS a = SYTRS {SYTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSYTRS :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

sytrs :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
sytrs :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
sytrs = SYTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
SYTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSYTRS (SYTRS a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> SYTRS Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS a
SYTRS Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.sytrs) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> SYTRS Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS a
SYTRS Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.sytrs)


newtype SYTRS2 a = SYTRS2 {SYTRS2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSYTRS2 :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

sytrs2 :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt CInt -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
sytrs2 :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
sytrs2 = SYTRS2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
SYTRS2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getSYTRS2 (SYTRS2 a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS2 a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> SYTRS2 Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS2 a
SYTRS2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.sytrs2) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> SYTRS2 Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt CInt
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> SYTRS2 a
SYTRS2 Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt CInt
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.sytrs2)


newtype TBCON a = TBCON {TBCON a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTBCON :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)}

tbcon :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)
tbcon :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
tbcon = TBCON a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
forall a.
TBCON a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTBCON (TBCON a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TBCON a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Float, Int))
-> TBCON Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TBCON a
TBCON Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Float, Int)
C.tbcon) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Double, Int))
-> TBCON Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TBCON a
TBCON Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Double, Int)
Z.tbcon)


newtype TBRFS a = TBRFS {TBRFS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTBRFS :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

tbrfs :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
tbrfs :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
tbrfs = TBRFS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
TBRFS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTBRFS (TBRFS a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TBRFS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> TBRFS Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TBRFS a
TBRFS Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.tbrfs) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> TBRFS Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TBRFS a
TBRFS Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.tbrfs)


newtype TBTRS a = TBTRS {TBTRS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTBTRS :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

tbtrs :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
tbtrs :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
tbtrs = TBTRS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
TBTRS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTBTRS (TBTRS a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TBTRS a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> TBTRS Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TBTRS a
TBTRS Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.tbtrs) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> TBTRS Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TBTRS a
TBTRS Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.tbtrs)


newtype TFSM a = TFSM {TFSM a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getTFSM :: Char -> Char -> Char -> Char -> Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()}

tfsm :: Class.Real a => Char -> Char -> Char -> Char -> Char -> Int -> (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO ()
tfsm :: Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
tfsm = TFSM a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
forall a.
TFSM a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO ()
getTFSM (TFSM a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> TFSM a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex a
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> 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 ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Complex Float
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO ())
-> TFSM Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> TFSM a
TFSM Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex Float
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO ()
C.tfsm) ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Complex Double
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO ())
-> TFSM Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Complex a
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO ())
-> TFSM a
TFSM Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Complex Double
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO ()
Z.tfsm)


newtype TFTRI a = TFTRI {TFTRI a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
getTFTRI :: Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

tftri :: Class.Real a => Char -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
tftri :: Char
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
tftri = TFTRI a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
forall a.
TFTRI a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
getTFTRI (TFTRI a
 -> Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex a)
 -> IO Int)
-> TFTRI a
-> Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Float)
 -> IO Int)
-> TFTRI Float
forall a.
(Char
 -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> TFTRI a
TFTRI Char
-> Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.tftri) ((Char
 -> Char
 -> Char
 -> Int
 -> IOArray ZeroInt (Complex Double)
 -> IO Int)
-> TFTRI Double
forall a.
(Char
 -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> TFTRI a
TFTRI Char
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex Double)
-> IO Int
Z.tftri)


newtype TFTTP a = TFTTP {TFTTP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTFTTP :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

tfttp :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Int)
tfttp :: Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
tfttp = TFTTP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
TFTTP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTFTTP (TFTTP a
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TFTTP a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> TFTTP Float
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TFTTP a
TFTTP Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.tfttp) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> TFTTP Double
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TFTTP a
TFTTP Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.tfttp)


newtype TFTTR a = TFTTR {TFTTR a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getTFTTR :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

tfttr :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
tfttr :: Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
tfttr = TFTTR a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
TFTTR a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getTFTTR (TFTTR a
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TFTTR a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> TFTTR Float
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TFTTR a
TFTTR Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.tfttr) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> TFTTR Double
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TFTTR a
TFTTR Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.tfttr)


newtype TGEVC a = TGEVC {TGEVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
getTGEVC :: Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int)}

tgevc :: Class.Real a => Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int)
tgevc :: Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
tgevc = TGEVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
forall a.
TGEVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
getTGEVC (TGEVC a
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TGEVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
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 ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Int, Int))
-> TGEVC Float
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TGEVC a
TGEVC Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Int, Int)
C.tgevc) ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Int, Int))
-> TGEVC Double
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TGEVC a
TGEVC Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Int, Int)
Z.tgevc)


newtype TGEX2 a = TGEX2 {TGEX2 a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getTGEX2 :: Bool -> Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

tgex2 :: Class.Real a => Bool -> Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
tgex2 :: Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
tgex2 = TGEX2 a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
TGEX2 a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getTGEX2 (TGEX2 a
 -> Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> TGEX2 a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
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 ((Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> TGEX2 Float
forall a.
(Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> TGEX2 a
TGEX2 Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.tgex2) ((Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> TGEX2 Double
forall a.
(Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> TGEX2 a
TGEX2 Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.tgex2)


newtype TGEXC a = TGEXC {TGEXC a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Int, Int)
getTGEXC :: Bool -> Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Int)}

tgexc :: Class.Real a => Bool -> Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int, Int)
tgexc :: Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Int, Int)
tgexc = TGEXC a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Int, Int)
forall a.
TGEXC a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Int, Int)
getTGEXC (TGEXC a
 -> Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Int, Int))
-> TGEXC a
-> Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Int, Int)
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 ((Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO (Int, Int))
-> TGEXC Float
forall a.
(Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Int, Int))
-> TGEXC a
TGEXC Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO (Int, Int)
C.tgexc) ((Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO (Int, Int))
-> TGEXC Double
forall a.
(Bool
 -> Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Int, Int))
-> TGEXC a
TGEXC Bool
-> Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO (Int, Int)
Z.tgexc)


newtype TGSEN a = TGSEN {TGSEN a
-> Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
      Array ZeroInt a, Int)
getTGSEN :: Int -> Bool -> Bool -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a, Array ZeroInt a, Int)}

tgsen :: Class.Real a => Int -> Bool -> Bool -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a, Array ZeroInt a, Int)
tgsen :: Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
      Array ZeroInt a, Int)
tgsen = TGSEN a
-> Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
      Array ZeroInt a, Int)
forall a.
TGSEN a
-> Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
      Array ZeroInt a, Int)
getTGSEN (TGSEN a
 -> Int
 -> Bool
 -> Bool
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
       Array ZeroInt a, Int))
-> TGSEN a
-> Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
      Array ZeroInt a, Int)
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 ((Int
 -> Bool
 -> Bool
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int,
       Float, Float, Array ZeroInt Float, Int))
-> TGSEN Float
forall a.
(Int
 -> Bool
 -> Bool
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
       Array ZeroInt a, Int))
-> TGSEN a
TGSEN Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int,
      Float, Float, Array ZeroInt Float, Int)
C.tgsen) ((Int
 -> Bool
 -> Bool
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int, Double, Double, Array ZeroInt Double, Int))
-> TGSEN Double
forall a.
(Int
 -> Bool
 -> Bool
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO
      (Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int, a, a,
       Array ZeroInt a, Int))
-> TGSEN a
TGSEN Int
-> Bool
-> Bool
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO
     (Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int, Double, Double, Array ZeroInt Double, Int)
Z.tgsen)


newtype TGSJA a = TGSJA {TGSJA a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTGSJA :: Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)}

tgsja :: Class.Real a => Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
tgsja :: Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
tgsja = TGSJA a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
forall a.
TGSJA a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTGSJA (TGSJA a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSJA a
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int))
-> TGSJA Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSJA a
TGSJA Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int)
C.tgsja) ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int))
-> TGSJA Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSJA a
TGSJA Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int)
Z.tgsja)


newtype TGSNA a = TGSNA {TGSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTGSNA :: Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)}

tgsna :: Class.Real a => Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
tgsna :: Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
tgsna = TGSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
forall a.
TGSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTGSNA (TGSNA a
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
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 ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int))
-> TGSNA Float
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSNA a
TGSNA Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int)
C.tgsna) ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int))
-> TGSNA Double
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TGSNA a
TGSNA Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int)
Z.tgsna)


newtype TGSY2 a = TGSY2 {TGSY2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (a, a, a, Int)
getTGSY2 :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IO (a, a, a, Int)}

tgsy2 :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> a -> a -> IO (a, a, a, Int)
tgsy2 :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (a, a, a, Int)
tgsy2 = TGSY2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (a, a, a, Int)
forall a.
TGSY2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (a, a, a, Int)
getTGSY2 (TGSY2 a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (a, a, a, Int))
-> TGSY2 a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> a
-> a
-> IO (a, a, a, Int)
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Float
 -> Float
 -> IO (Float, Float, Float, Int))
-> TGSY2 Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (a, a, a, Int))
-> TGSY2 a
TGSY2 Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Float
-> Float
-> IO (Float, Float, Float, Int)
C.tgsy2) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Double
 -> Double
 -> IO (Double, Double, Double, Int))
-> TGSY2 Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> a
 -> a
 -> IO (a, a, a, Int))
-> TGSY2 a
TGSY2 Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Double
-> Double
-> IO (Double, Double, Double, Int)
Z.tgsy2)


newtype TGSYL a = TGSYL {TGSYL a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (a, a, Int)
getTGSYL :: Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (a, a, Int)}

tgsyl :: Class.Real a => Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (a, a, Int)
tgsyl :: Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (a, a, Int)
tgsyl = TGSYL a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (a, a, Int)
forall a.
TGSYL a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (a, a, Int)
getTGSYL (TGSYL a
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (a, a, Int))
-> TGSYL a
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (a, a, Int)
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 ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Float, Float, Int))
-> TGSYL Float
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (a, a, Int))
-> TGSYL a
TGSYL Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Float, Float, Int)
C.tgsyl) ((Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Double, Double, Int))
-> TGSYL Double
forall a.
(Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (a, a, Int))
-> TGSYL a
TGSYL Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Double, Double, Int)
Z.tgsyl)


newtype TPCON a = TPCON {TPCON a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (a, Int)
getTPCON :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (a, Int)}

tpcon :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (a, Int)
tpcon :: Char
-> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (a, Int)
tpcon = TPCON a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (a, Int)
forall a.
TPCON a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (a, Int)
getTPCON (TPCON a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (a, Int))
-> TPCON a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IO (Float, Int))
-> TPCON Float
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (a, Int))
-> TPCON a
TPCON Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> IO (Float, Int)
C.tpcon) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IO (Double, Int))
-> TPCON Double
forall a.
(Char
 -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (a, Int))
-> TPCON a
TPCON Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> IO (Double, Int)
Z.tpcon)


newtype TPRFS a = TPRFS {TPRFS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTPRFS :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

tprfs :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
tprfs :: Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
tprfs = TPRFS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
TPRFS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTPRFS (TPRFS a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TPRFS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> TPRFS Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TPRFS a
TPRFS Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.tprfs) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> TPRFS Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TPRFS a
TPRFS Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.tprfs)


newtype TPTRI a = TPTRI {TPTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getTPTRI :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)}

tptri :: Class.Real a => Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO (Int)
tptri :: Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
tptri = TPTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
forall a.
TPTRI a
-> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int
getTPTRI (TPTRI a
 -> Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> TPTRI a
-> Char
-> Char
-> Int
-> IOArray ZeroInt (Complex a)
-> IO Int
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 ((Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int)
-> TPTRI Float
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> TPTRI a
TPTRI Char -> Char -> Int -> IOArray ZeroInt (Complex Float) -> IO Int
C.tptri) ((Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int)
-> TPTRI Double
forall a.
(Char -> Char -> Int -> IOArray ZeroInt (Complex a) -> IO Int)
-> TPTRI a
TPTRI Char -> Char -> Int -> IOArray ZeroInt (Complex Double) -> IO Int
Z.tptri)


newtype TPTRS a = TPTRS {TPTRS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTPTRS :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

tptrs :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
tptrs :: Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
tptrs = TPTRS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
TPTRS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTPTRS (TPTRS a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TPTRS a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> TPTRS Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TPTRS a
TPTRS Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.tptrs) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> TPTRS Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TPTRS a
TPTRS Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.tptrs)


newtype TPTTF a = TPTTF {TPTTF a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTPTTF :: Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

tpttf :: Class.Real a => Char -> Char -> Int -> Array ZeroInt (Complex a) -> IO (Array ZeroInt (Complex a), Int)
tpttf :: Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
tpttf = TPTTF a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
TPTTF a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTPTTF (TPTTF a
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TPTTF a
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> TPTTF Float
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TPTTF a
TPTTF Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.tpttf) ((Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> TPTTF Double
forall a.
(Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TPTTF a
TPTTF Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.tpttf)


newtype TPTTR a = TPTTR {TPTTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getTPTTR :: Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

tpttr :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
tpttr :: Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
tpttr = TPTTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
TPTTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getTPTTR (TPTTR a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TPTTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
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 ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> TPTTR Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TPTTR a
TPTTR Char
-> Int
-> Array ZeroInt (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.tpttr) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> TPTTR Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> TPTTR a
TPTTR Char
-> Int
-> Array ZeroInt (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.tpttr)


newtype TRCON a = TRCON {TRCON a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTRCON :: Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)}

trcon :: Class.Real a => Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)
trcon :: Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
trcon = TRCON a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
forall a.
TRCON a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTRCON (TRCON a
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRCON a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
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 ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Float, Int))
-> TRCON Float
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRCON a
TRCON Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Float, Int)
C.trcon) ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Double, Int))
-> TRCON Double
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRCON a
TRCON Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Double, Int)
Z.trcon)


newtype TREVC a = TREVC {TREVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
getTREVC :: Char -> Char -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int)}

trevc :: Class.Real a => Char -> Char -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int, Int)
trevc :: Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
trevc = TREVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
forall a.
TREVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
getTREVC (TREVC a
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TREVC a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (Int, Int)
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 ((Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Int, Int))
-> TREVC Float
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TREVC a
TREVC Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Int, Int)
C.trevc) ((Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Int, Int))
-> TREVC Double
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (Int, Int))
-> TREVC a
TREVC Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Int, Int)
Z.trevc)


newtype TREXC a = TREXC {TREXC a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO Int
getTREXC :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int)}

trexc :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Int)
trexc :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO Int
trexc = TREXC a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO Int
forall a.
TREXC a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO Int
getTREXC (TREXC a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO Int)
-> TREXC a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO Int
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 ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO Int)
-> TREXC Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO Int)
-> TREXC a
TREXC Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO Int
C.trexc) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO Int)
-> TREXC Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO Int)
-> TREXC a
TREXC Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO Int
Z.trexc)


newtype TRRFS a = TRRFS {TRRFS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTRRFS :: Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)}

trrfs :: Class.Real a => Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt a, Array ZeroInt a, Int)
trrfs :: Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
trrfs = TRRFS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
forall a.
TRRFS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
getTRRFS (TRRFS a
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TRRFS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt a, Array ZeroInt a, Int)
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 ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int))
-> TRRFS Float
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TRRFS a
TRRFS Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int)
C.trrfs) ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int))
-> TRRFS Double
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt a, Array ZeroInt a, Int))
-> TRRFS a
TRRFS Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int)
Z.trrfs)


newtype TRSEN a = TRSEN {TRSEN a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int, a, a, Int)
getTRSEN :: Char -> Char -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int, a, a, Int)}

trsen :: Class.Real a => Char -> Char -> Array ZeroInt Bool -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int, a, a, Int)
trsen :: Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int, a, a, Int)
trsen = TRSEN a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int, a, a, Int)
forall a.
TRSEN a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int, a, a, Int)
getTRSEN (TRSEN a
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int, a, a, Int))
-> TRSEN a
-> Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int, a, a, Int)
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 ((Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int, Float, Float, Int))
-> TRSEN Float
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int, a, a, Int))
-> TRSEN a
TRSEN Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int, Float, Float, Int)
C.trsen) ((Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int, Double, Double, Int))
-> TRSEN Double
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int, a, a, Int))
-> TRSEN a
TRSEN Char
-> Char
-> Array ZeroInt Bool
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int, Double, Double, Int)
Z.trsen)


newtype TRSNA a = TRSNA {TRSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTRSNA :: Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)}

trsna :: Class.Real a => Char -> Char -> Array ZeroInt Bool -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
trsna :: Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
trsna = TRSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
forall a.
TRSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
getTRSNA (TRSNA a
 -> Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TRSNA a
-> Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> IO (Array ZeroInt a, Array ZeroInt a, Int, Int)
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 ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int))
-> TRSNA Float
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TRSNA a
TRSNA Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> IO (Array ZeroInt Float, Array ZeroInt Float, Int, Int)
C.trsna) ((Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int))
-> TRSNA Double
forall a.
(Char
 -> Char
 -> Array ZeroInt Bool
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> IO (Array ZeroInt a, Array ZeroInt a, Int, Int))
-> TRSNA a
TRSNA Char
-> Char
-> Array ZeroInt Bool
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> IO (Array ZeroInt Double, Array ZeroInt Double, Int, Int)
Z.trsna)


newtype TRSYL a = TRSYL {TRSYL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTRSYL :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)}

trsyl :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (a, Int)
trsyl :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
trsyl = TRSYL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
forall a.
TRSYL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
getTRSYL (TRSYL a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRSYL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO (a, Int)
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 ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Float, Int))
-> TRSYL Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRSYL a
TRSYL Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO (Float, Int)
C.trsyl) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Double, Int))
-> TRSYL Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO (a, Int))
-> TRSYL a
TRSYL Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO (Double, Int)
Z.trsyl)


newtype TRTI2 a = TRTI2 {TRTI2 a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getTRTI2 :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

trti2 :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
trti2 :: Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
trti2 = TRTI2 a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
TRTI2 a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getTRTI2 (TRTI2 a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TRTI2 a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> TRTI2 Float
forall a.
(Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> TRTI2 a
TRTI2 Char
-> Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.trti2) ((Char
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> TRTI2 Double
forall a.
(Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> TRTI2 a
TRTI2 Char
-> Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.trti2)


newtype TRTRI a = TRTRI {TRTRI a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getTRTRI :: Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

trtri :: Class.Real a => Char -> Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
trtri :: Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
trtri = TRTRI a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
forall a.
TRTRI a
-> Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int
getTRTRI (TRTRI a
 -> Char
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TRTRI a
-> Char
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int)
-> TRTRI Float
forall a.
(Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> TRTRI a
TRTRI Char
-> Char -> IOArray (ZeroInt, ZeroInt) (Complex Float) -> IO Int
C.trtri) ((Char
 -> Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int)
-> TRTRI Double
forall a.
(Char -> Char -> IOArray (ZeroInt, ZeroInt) (Complex a) -> IO Int)
-> TRTRI a
TRTRI Char
-> Char -> IOArray (ZeroInt, ZeroInt) (Complex Double) -> IO Int
Z.trtri)


newtype TRTRS a = TRTRS {TRTRS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTRTRS :: Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)}

trtrs :: Class.Real a => Char -> Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IO (Int)
trtrs :: Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
trtrs = TRTRS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
forall a.
TRTRS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
getTRTRS (TRTRS a
 -> Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TRTRS a
-> Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IO Int
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 ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IO Int)
-> TRTRS Float
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TRTRS a
TRTRS Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IO Int
C.trtrs) ((Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IO Int)
-> TRTRS Double
forall a.
(Char
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IO Int)
-> TRTRS a
TRTRS Char
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IO Int
Z.trtrs)


newtype TRTTF a = TRTTF {TRTTF a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTRTTF :: Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

trttf :: Class.Real a => Char -> Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
trttf :: Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
trttf = TRTTF a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
TRTTF a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTRTTF (TRTTF a
 -> Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTF a
-> Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> TRTTF Float
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTF a
TRTTF Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.trttf) ((Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> TRTTF Double
forall a.
(Char
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTF a
TRTTF Char
-> Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.trttf)


newtype TRTTP a = TRTTP {TRTTP a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTRTTP :: Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)}

trttp :: Class.Real a => Char -> Array (ZeroInt,ZeroInt) (Complex a) -> IO (Array ZeroInt (Complex a), Int)
trttp :: Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
trttp = TRTTP a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
forall a.
TRTTP a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
getTRTTP (TRTTP a
 -> Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTP a
-> Char
-> Array (ZeroInt, ZeroInt) (Complex a)
-> IO (Array ZeroInt (Complex a), Int)
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 ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> IO (Array ZeroInt (Complex Float), Int))
-> TRTTP Float
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTP a
TRTTP Char
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> IO (Array ZeroInt (Complex Float), Int)
C.trttp) ((Char
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> IO (Array ZeroInt (Complex Double), Int))
-> TRTTP Double
forall a.
(Char
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> IO (Array ZeroInt (Complex a), Int))
-> TRTTP a
TRTTP Char
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> IO (Array ZeroInt (Complex Double), Int)
Z.trttp)


newtype TZRZF a = TZRZF {TZRZF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getTZRZF :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)}

tzrzf :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt (Complex a), Int)
tzrzf :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
tzrzf = TZRZF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
forall a.
TZRZF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
getTZRZF (TZRZF a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> TZRZF a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO (Array ZeroInt (Complex a), Int)
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 ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO (Array ZeroInt (Complex Float), Int))
-> TZRZF Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> TZRZF a
TZRZF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO (Array ZeroInt (Complex Float), Int)
C.tzrzf) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO (Array ZeroInt (Complex Double), Int))
-> TZRZF Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO (Array ZeroInt (Complex a), Int))
-> TZRZF a
TZRZF Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO (Array ZeroInt (Complex Double), Int)
Z.tzrzf)


newtype UNBDB a = UNBDB {UNBDB a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getUNBDB :: Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)}

unbdb :: Class.Real a => Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array ZeroInt (Complex a), Array ZeroInt (Complex a), Int)
unbdb :: Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
unbdb = UNBDB a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
forall a.
UNBDB a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
getUNBDB (UNBDB a
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> UNBDB a
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO
     (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Array ZeroInt (Complex a),
      Array ZeroInt (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ UNBDB Float -> UNBDB Double -> UNBDB a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO
      (Array ZeroInt Float, Array ZeroInt Float,
       Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
       Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int))
-> UNBDB Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> UNBDB a
UNBDB Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO
     (Array ZeroInt Float, Array ZeroInt Float,
      Array ZeroInt (Complex Float), Array ZeroInt (Complex Float),
      Array ZeroInt (Complex Float), Array ZeroInt (Complex Float), Int)
C.unbdb) ((Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO
      (Array ZeroInt Double, Array ZeroInt Double,
       Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
       Int))
-> UNBDB Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO
      (Array ZeroInt a, Array ZeroInt a, Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Array ZeroInt (Complex a),
       Array ZeroInt (Complex a), Int))
-> UNBDB a
UNBDB Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO
     (Array ZeroInt Double, Array ZeroInt Double,
      Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Array ZeroInt (Complex Double), Array ZeroInt (Complex Double),
      Int)
Z.unbdb)


newtype UNCSD a = UNCSD {UNCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getUNCSD :: Char -> Char -> Char -> Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)}

uncsd :: Class.Real a => Char -> Char -> Char -> Char -> Char -> Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO (Array ZeroInt a, Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Array (ZeroInt,ZeroInt) (Complex a), Int)
uncsd :: Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
uncsd = UNCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
UNCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
getUNCSD (UNCSD a
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UNCSD a
-> Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a),
      Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ UNCSD Float -> UNCSD Double -> UNCSD a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float),
       Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> UNCSD Float
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UNCSD a
UNCSD Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Float, Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float),
      Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.uncsd) ((Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double),
       Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> UNCSD Double
forall a.
(Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> Int
 -> IO
      (Array ZeroInt a, Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a),
       Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UNCSD a
UNCSD Char
-> Char
-> Char
-> Char
-> Char
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> Int
-> IO
     (Array ZeroInt Double, Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double),
      Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.uncsd)


newtype UNG2L a = UNG2L {UNG2L a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNG2L :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)}

ung2l :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)
ung2l :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
ung2l = UNG2L a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a.
UNG2L a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNG2L (UNG2L a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2L a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNG2L Float -> UNG2L Double -> UNG2L a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IO Int)
-> UNG2L Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2L a
UNG2L Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IO Int
C.ung2l) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IO Int)
-> UNG2L Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2L a
UNG2L Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IO Int
Z.ung2l)


newtype UNG2R a = UNG2R {UNG2R a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNG2R :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)}

ung2r :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)
ung2r :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
ung2r = UNG2R a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a.
UNG2R a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNG2R (UNG2R a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2R a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNG2R Float -> UNG2R Double -> UNG2R a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IO Int)
-> UNG2R Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2R a
UNG2R Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IO Int
C.ung2r) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IO Int)
-> UNG2R Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNG2R a
UNG2R Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IO Int
Z.ung2r)


newtype UNGBR a = UNGBR {UNGBR a
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGBR :: Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

ungbr :: Class.Real a => Char -> Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
ungbr :: Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
ungbr = UNGBR a
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGBR a
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGBR (UNGBR a
 -> Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGBR a
-> Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGBR Float -> UNGBR Double -> UNGBR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGBR Float
forall a.
(Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGBR a
UNGBR Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.ungbr) ((Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGBR Double
forall a.
(Char
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGBR a
UNGBR Char
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.ungbr)


newtype UNGHR a = UNGHR {UNGHR a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGHR :: Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

unghr :: Class.Real a => Int -> Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
unghr :: Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
unghr = UNGHR a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGHR a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGHR (UNGHR a
 -> Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGHR a
-> Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGHR Float -> UNGHR Double -> UNGHR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGHR Float
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGHR a
UNGHR Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.unghr) ((Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGHR Double
forall a.
(Int
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGHR a
UNGHR Int
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.unghr)


newtype UNGL2 a = UNGL2 {UNGL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNGL2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)}

ungl2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)
ungl2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
ungl2 = UNGL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a.
UNGL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNGL2 (UNGL2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGL2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGL2 Float -> UNGL2 Double -> UNGL2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IO Int)
-> UNGL2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGL2 a
UNGL2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IO Int
C.ungl2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IO Int)
-> UNGL2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGL2 a
UNGL2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IO Int
Z.ungl2)


newtype UNGLQ a = UNGLQ {UNGLQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGLQ :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

unglq :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
unglq :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
unglq = UNGLQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGLQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGLQ (UNGLQ a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGLQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGLQ Float -> UNGLQ Double -> UNGLQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGLQ Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGLQ a
UNGLQ Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.unglq) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGLQ Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGLQ a
UNGLQ Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.unglq)


newtype UNGQL a = UNGQL {UNGQL a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGQL :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

ungql :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
ungql :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
ungql = UNGQL a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGQL a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGQL (UNGQL a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQL a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGQL Float -> UNGQL Double -> UNGQL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGQL Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQL a
UNGQL Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.ungql) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGQL Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQL a
UNGQL Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.ungql)


newtype UNGQR a = UNGQR {UNGQR a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGQR :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

ungqr :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
ungqr :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
ungqr = UNGQR a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGQR a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGQR (UNGQR a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQR a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGQR Float -> UNGQR Double -> UNGQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGQR Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQR a
UNGQR Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.ungqr) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGQR Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGQR a
UNGQR Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.ungqr)


newtype UNGR2 a = UNGR2 {UNGR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNGR2 :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)}

ungr2 :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IO (Int)
ungr2 :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
ungr2 = UNGR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a.
UNGR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
getUNGR2 (UNGR2 a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGR2 a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGR2 Float -> UNGR2 Double -> UNGR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IO Int)
-> UNGR2 Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGR2 a
UNGR2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IO Int
C.ungr2) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IO Int)
-> UNGR2 Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IO Int)
-> UNGR2 a
UNGR2 Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IO Int
Z.ungr2)


newtype UNGRQ a = UNGRQ {UNGRQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGRQ :: Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

ungrq :: Class.Real a => Int -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
ungrq :: Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
ungrq = UNGRQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGRQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGRQ (UNGRQ a
 -> Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGRQ a
-> Int
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGRQ Float -> UNGRQ Double -> UNGRQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGRQ Float
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGRQ a
UNGRQ Int
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.ungrq) ((Int
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGRQ Double
forall a.
(Int
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGRQ a
UNGRQ Int
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.ungrq)


newtype UNGTR a = UNGTR {UNGTR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGTR :: Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)}

ungtr :: Class.Real a => Char -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Int)
ungtr :: Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
ungtr = UNGTR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a.
UNGTR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
getUNGTR (UNGTR a
 -> Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGTR a
-> Char
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNGTR Float -> UNGTR Double -> UNGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO Int)
-> UNGTR Float
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGTR a
UNGTR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO Int
C.ungtr) ((Char
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO Int)
-> UNGTR Double
forall a.
(Char
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO Int)
-> UNGTR a
UNGTR Char
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO Int
Z.ungtr)


newtype UNM2L a = UNM2L {UNM2L a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNM2L :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unm2l :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unm2l :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unm2l = UNM2L a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNM2L a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNM2L (UNM2L a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2L a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNM2L Float -> UNM2L Double -> UNM2L a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNM2L Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2L a
UNM2L Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unm2l) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNM2L Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2L a
UNM2L Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unm2l)


newtype UNM2R a = UNM2R {UNM2R a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNM2R :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unm2r :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unm2r :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unm2r = UNM2R a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNM2R a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNM2R (UNM2R a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2R a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNM2R Float -> UNM2R Double -> UNM2R a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNM2R Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2R a
UNM2R Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unm2r) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNM2R Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNM2R a
UNM2R Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unm2r)


newtype UNMBR a = UNMBR {UNMBR a
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMBR :: Char -> Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmbr :: Class.Real a => Char -> Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmbr :: Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmbr = UNMBR a
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMBR a
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMBR (UNMBR a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMBR a
-> Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMBR Float -> UNMBR Double -> UNMBR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMBR Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMBR a
UNMBR Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmbr) ((Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMBR Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMBR a
UNMBR Char
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmbr)


newtype UNMHR a = UNMHR {UNMHR a
-> Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMHR :: Char -> Char -> Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmhr :: Class.Real a => Char -> Char -> Int -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmhr :: Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmhr = UNMHR a
-> Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMHR a
-> Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMHR (UNMHR a
 -> Char
 -> Char
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMHR a
-> Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMHR Float -> UNMHR Double -> UNMHR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMHR Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMHR a
UNMHR Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmhr) ((Char
 -> Char
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMHR Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMHR a
UNMHR Char
-> Char
-> Int
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmhr)


newtype UNML2 a = UNML2 {UNML2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNML2 :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unml2 :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unml2 :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unml2 = UNML2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNML2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNML2 (UNML2 a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNML2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNML2 Float -> UNML2 Double -> UNML2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNML2 Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNML2 a
UNML2 Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unml2) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNML2 Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNML2 a
UNML2 Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unml2)


newtype UNMLQ a = UNMLQ {UNMLQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMLQ :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmlq :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmlq :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmlq = UNMLQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMLQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMLQ (UNMLQ a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMLQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMLQ Float -> UNMLQ Double -> UNMLQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMLQ Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMLQ a
UNMLQ Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmlq) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMLQ Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMLQ a
UNMLQ Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmlq)


newtype UNMQL a = UNMQL {UNMQL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMQL :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmql :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmql :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmql = UNMQL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMQL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMQL (UNMQL a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQL a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMQL Float -> UNMQL Double -> UNMQL a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMQL Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQL a
UNMQL Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmql) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMQL Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQL a
UNMQL Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmql)


newtype UNMQR a = UNMQR {UNMQR a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMQR :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmqr :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmqr :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmqr = UNMQR a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMQR a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMQR (UNMQR a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQR a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMQR Float -> UNMQR Double -> UNMQR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMQR Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQR a
UNMQR Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmqr) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMQR Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMQR a
UNMQR Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmqr)


newtype UNMR2 a = UNMR2 {UNMR2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMR2 :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmr2 :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmr2 :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmr2 = UNMR2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMR2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMR2 (UNMR2 a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR2 a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMR2 Float -> UNMR2 Double -> UNMR2 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMR2 Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR2 a
UNMR2 Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmr2) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMR2 Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR2 a
UNMR2 Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmr2)


newtype UNMR3 a = UNMR3 {UNMR3 a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMR3 :: Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmr3 :: Class.Real a => Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmr3 :: Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmr3 = UNMR3 a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMR3 a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMR3 (UNMR3 a
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR3 a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMR3 Float -> UNMR3 Double -> UNMR3 a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMR3 Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR3 a
UNMR3 Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmr3) ((Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMR3 Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMR3 a
UNMR3 Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmr3)


newtype UNMRQ a = UNMRQ {UNMRQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMRQ :: Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmrq :: Class.Real a => Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmrq :: Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmrq = UNMRQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMRQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMRQ (UNMRQ a
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRQ a
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMRQ Float -> UNMRQ Double -> UNMRQ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMRQ Float
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRQ a
UNMRQ Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmrq) ((Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMRQ Double
forall a.
(Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRQ a
UNMRQ Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmrq)


newtype UNMRZ a = UNMRZ {UNMRZ a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMRZ :: Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmrz :: Class.Real a => Char -> Char -> Int -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmrz :: Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmrz = UNMRZ a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMRZ a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMRZ (UNMRZ a
 -> Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRZ a
-> Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMRZ Float -> UNMRZ Double -> UNMRZ a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMRZ Float
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRZ a
UNMRZ Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmrz) ((Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMRZ Double
forall a.
(Char
 -> Char
 -> Int
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMRZ a
UNMRZ Char
-> Char
-> Int
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmrz)


newtype UNMTR a = UNMTR {UNMTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMTR :: Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

unmtr :: Class.Real a => Char -> Char -> Char -> Int -> Array (ZeroInt,ZeroInt) (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
unmtr :: Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
unmtr = UNMTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UNMTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUNMTR (UNMTR a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMTR a
-> Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UNMTR Float -> UNMTR Double -> UNMTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UNMTR Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMTR a
UNMTR Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.unmtr) ((Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UNMTR Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array (ZeroInt, ZeroInt) (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UNMTR a
UNMTR Char
-> Char
-> Char
-> Int
-> Array (ZeroInt, ZeroInt) (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.unmtr)


newtype UPGTR a = UPGTR {UPGTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getUPGTR :: Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)}

upgtr :: Class.Real a => Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> Int -> IO (Array (ZeroInt,ZeroInt) (Complex a), Int)
upgtr :: Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
upgtr = UPGTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a.
UPGTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
getUPGTR (UPGTR a
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UPGTR a
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex a), Int)
forall a b. (a -> b) -> a -> b
$ UPGTR Float -> UPGTR Double -> UPGTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int))
-> UPGTR Float
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UPGTR a
UPGTR Char
-> Int
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Float), Int)
C.upgtr) ((Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int))
-> UPGTR Double
forall a.
(Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> Int
 -> IO (Array (ZeroInt, ZeroInt) (Complex a), Int))
-> UPGTR a
UPGTR Char
-> Int
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> Int
-> IO (Array (ZeroInt, ZeroInt) (Complex Double), Int)
Z.upgtr)


newtype UPMTR a = UPMTR {UPMTR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUPMTR :: Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)}

upmtr :: Class.Real a => Char -> Char -> Char -> Int -> Array ZeroInt (Complex a) -> Array ZeroInt (Complex a) -> IOArray (ZeroInt,ZeroInt) (Complex a) -> Int -> IO (Int)
upmtr :: Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
upmtr = UPMTR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a.
UPMTR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
getUPMTR (UPMTR a
 -> Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UPMTR a
-> Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex a)
-> Array ZeroInt (Complex a)
-> IOArray (ZeroInt, ZeroInt) (Complex a)
-> Int
-> IO Int
forall a b. (a -> b) -> a -> b
$ UPMTR Float -> UPMTR Double -> UPMTR a
forall a (f :: * -> *). Real a => f Float -> f Double -> f a
Class.switchReal ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Float)
 -> Array ZeroInt (Complex Float)
 -> IOArray (ZeroInt, ZeroInt) (Complex Float)
 -> Int
 -> IO Int)
-> UPMTR Float
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UPMTR a
UPMTR Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Float)
-> Array ZeroInt (Complex Float)
-> IOArray (ZeroInt, ZeroInt) (Complex Float)
-> Int
-> IO Int
C.upmtr) ((Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex Double)
 -> Array ZeroInt (Complex Double)
 -> IOArray (ZeroInt, ZeroInt) (Complex Double)
 -> Int
 -> IO Int)
-> UPMTR Double
forall a.
(Char
 -> Char
 -> Char
 -> Int
 -> Array ZeroInt (Complex a)
 -> Array ZeroInt (Complex a)
 -> IOArray (ZeroInt, ZeroInt) (Complex a)
 -> Int
 -> IO Int)
-> UPMTR a
UPMTR Char
-> Char
-> Char
-> Int
-> Array ZeroInt (Complex Double)
-> Array ZeroInt (Complex Double)
-> IOArray (ZeroInt, ZeroInt) (Complex Double)
-> Int
-> IO Int
Z.upmtr)