packages feed

jalla (empty) → 0.1.0

raw patch · 24 files changed

+23735/−0 lines, 24 filesdep +HUnitdep +QuickCheckdep +basesetup-changed

Dependencies added: HUnit, QuickCheck, base, convertible, jalla, mtl, random, test-framework, test-framework-hunit, test-framework-quickcheck2

Files

+ C2HS.hs view
@@ -0,0 +1,238 @@+--  C->Haskell Compiler: Marshalling library+--+--  Copyright (c) [1999...2005] Manuel M T Chakravarty+--+--  Redistribution and use in source and binary forms, with or without+--  modification, are permitted provided that the following conditions are met:+-- +--  1. Redistributions of source code must retain the above copyright notice,+--     this list of conditions and the following disclaimer. +--  2. Redistributions in binary form must reproduce the above copyright+--     notice, this list of conditions and the following disclaimer in the+--     documentation and/or other materials provided with the distribution. +--  3. The name of the author may not be used to endorse or promote products+--     derived from this software without specific prior written permission. +--+--  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR+--  IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES+--  OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN+--  NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +--  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED+--  TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR+--  PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF+--  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING+--  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+--  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.+--+--- Description ---------------------------------------------------------------+--+--  Language: Haskell 98+--+--  This module provides the marshaling routines for Haskell files produced by +--  C->Haskell for binding to C library interfaces.  It exports all of the+--  low-level FFI (language-independent plus the C-specific parts) together+--  with the C->HS-specific higher-level marshalling routines.+--++module C2HS (++  -- * Re-export the language-independent component of the FFI +  module Foreign,++  -- * Re-export the C language component of the FFI+  module Foreign.C,++  -- * Composite marshalling functions+  withCStringLenIntConv, peekCStringLenIntConv, withIntConv, withFloatConv,+  peekIntConv, peekFloatConv, withBool, peekBool, withEnum, peekEnum,++  -- * Conditional results using 'Maybe'+  nothingIf, nothingIfNull,++  -- * Bit masks+  combineBitMasks, containsBitMask, extractBitMasks,++  -- * Conversion between C and Haskell types+  cIntConv, cFloatConv, cToBool, cFromBool, cToEnum, cFromEnum+) where +++import Foreign+import Foreign.C++import Control.Monad (liftM)+++-- Composite marshalling functions+-- -------------------------------++-- Strings with explicit length+--+withCStringLenIntConv :: Num n => String -> ((CString, n) -> IO a) -> IO a+withCStringLenIntConv s f    = withCStringLen s $ \(p, n) -> f (p, fromIntegral n)++peekCStringLenIntConv :: Integral n => (CString, n) -> IO String+peekCStringLenIntConv (s, n) = peekCStringLen (s, fromIntegral n)++-- Marshalling of numerals+--++withIntConv   :: (Storable b, Integral a, Integral b) +              => a -> (Ptr b -> IO c) -> IO c+withIntConv    = with . fromIntegral++withFloatConv :: (Storable b, RealFloat a, RealFloat b) +              => a -> (Ptr b -> IO c) -> IO c+withFloatConv  = with . realToFrac++peekIntConv   :: (Storable a, Integral a, Integral b) +              => Ptr a -> IO b+peekIntConv    = liftM fromIntegral . peek++peekFloatConv :: (Storable a, RealFloat a, RealFloat b) +              => Ptr a -> IO b+peekFloatConv  = liftM realToFrac . peek+++-- Everything else below is deprecated.+-- These functions are not used by code generated by c2hs.++{-# DEPRECATED withBool        "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED peekBool        "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED withEnum        "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED peekEnum        "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED nothingIf       "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED nothingIfNull   "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED combineBitMasks "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED containsBitMask "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED extractBitMasks "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cIntConv        "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cFloatConv      "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cFromBool       "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cToBool         "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cToEnum         "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+{-# DEPRECATED cFromEnum       "The C2HS module will soon stop providing unnecessary\nutility functions. Please use standard FFI library functions instead." #-}+++-- Passing Booleans by reference+--++withBool :: (Integral a, Storable a) => Bool -> (Ptr a -> IO b) -> IO b+withBool  = with . fromBool++peekBool :: (Integral a, Storable a) => Ptr a -> IO Bool+peekBool  = liftM toBool . peek+++-- Passing enums by reference+--++withEnum :: (Enum a, Integral b, Storable b) => a -> (Ptr b -> IO c) -> IO c+withEnum  = with . cFromEnum++peekEnum :: (Enum a, Integral b, Storable b) => Ptr b -> IO a+peekEnum  = liftM cToEnum . peek+++-- Storing of 'Maybe' values+-- -------------------------++--TODO: kill off this orphan instance!++instance Storable a => Storable (Maybe a) where+  sizeOf    _ = sizeOf    (undefined :: Ptr ())+  alignment _ = alignment (undefined :: Ptr ())++  peek p = do+             ptr <- peek (castPtr p)+             if ptr == nullPtr+               then return Nothing+               else liftM Just $ peek ptr++  poke p v = do+               ptr <- case v of+                        Nothing -> return nullPtr+                        Just v' -> new v'+               poke (castPtr p) ptr+++-- Conditional results using 'Maybe'+-- ---------------------------------++-- Wrap the result into a 'Maybe' type.+--+-- * the predicate determines when the result is considered to be non-existing,+--   ie, it is represented by `Nothing'+--+-- * the second argument allows to map a result wrapped into `Just' to some+--   other domain+--+nothingIf       :: (a -> Bool) -> (a -> b) -> a -> Maybe b+nothingIf p f x  = if p x then Nothing else Just $ f x++-- |Instance for special casing null pointers.+--+nothingIfNull :: (Ptr a -> b) -> Ptr a -> Maybe b+nothingIfNull  = nothingIf (== nullPtr)+++-- Support for bit masks+-- ---------------------++-- Given a list of enumeration values that represent bit masks, combine these+-- masks using bitwise disjunction.+--+combineBitMasks :: (Enum a, Bits b) => [a] -> b+combineBitMasks = foldl (.|.) 0 . map (fromIntegral . fromEnum)++-- Tests whether the given bit mask is contained in the given bit pattern+-- (i.e., all bits set in the mask are also set in the pattern).+--+containsBitMask :: (Bits a, Enum b) => a -> b -> Bool+bits `containsBitMask` bm = let bm' = fromIntegral . fromEnum $ bm+                            in+                            bm' .&. bits == bm'++-- |Given a bit pattern, yield all bit masks that it contains.+--+-- * This does *not* attempt to compute a minimal set of bit masks that when+--   combined yield the bit pattern, instead all contained bit masks are+--   produced.+--+extractBitMasks :: (Bits a, Enum b, Bounded b) => a -> [b]+extractBitMasks bits = +  [bm | bm <- [minBound..maxBound], bits `containsBitMask` bm]+++-- Conversion routines+-- -------------------++-- |Integral conversion+--+cIntConv :: (Integral a, Integral b) => a -> b+cIntConv  = fromIntegral++-- |Floating conversion+--+cFloatConv :: (RealFloat a, RealFloat b) => a -> b+cFloatConv  = realToFrac++-- |Obtain C value from Haskell 'Bool'.+--+cFromBool :: Num a => Bool -> a+cFromBool  = fromBool++-- |Obtain Haskell 'Bool' from C value.+--+cToBool :: (Eq a, Num a) => a -> Bool+cToBool  = toBool++-- |Convert a C enumeration to Haskell.+--+cToEnum :: (Integral i, Enum e) => i -> e+cToEnum  = toEnum . fromIntegral++-- |Convert a Haskell enumeration to C.+--+cFromEnum :: (Enum e, Integral i) => e -> i+cFromEnum  = fromIntegral . fromEnum
+ LICENSE view
@@ -0,0 +1,10 @@+Copyright (c) 2011, Christian Gosch <github@goschs.de>+All rights reserved.++Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.+ * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.+ * Neither the name of main author nor the names of other contributors may be used to endorse or promote products derived from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Numeric/Jalla.hs view
@@ -0,0 +1,13 @@+module Numeric.Jalla ( +  module Numeric.Jalla.Foreign.BlasOps+  , module Numeric.Jalla.Foreign.LapackeOps+  , module Numeric.Jalla.Types+  , module Numeric.Jalla.Vector+  , module Numeric.Jalla.Matrix+             ) where++import Numeric.Jalla.Foreign.BlasOps+import Numeric.Jalla.Foreign.LapackeOps+import Numeric.Jalla.Types+import Numeric.Jalla.Vector+import Numeric.Jalla.Matrix
+ Numeric/Jalla/Foreign/BLAS.chs view
@@ -0,0 +1,175 @@+{-# LANGUAGE ForeignFunctionInterface #-}++module Numeric.Jalla.Foreign.BLAS+       --(CblasOrder (..),+       -- CblasTranspose (..),+       -- CblasUplo (..),+       -- CblasDiag (..),+       -- CblasSide (..),+       -- CblasIndex)+       where++import C2HS+import Foreign.C.Types+import Foreign.Ptr+import Numeric.Jalla.Types+import Data.Complex++#include <cblas.h>++type CblasIndex = Integer++{# enum CBLAS_ORDER as CblasOrder {upcaseFirstLetter} deriving (Eq,Show) #}+{# enum CBLAS_TRANSPOSE as CblasTranspose {upcaseFirstLetter} #}+{# enum CBLAS_UPLO as CblasUplo {upcaseFirstLetter} #}+{# enum CBLAS_DIAG as CblasDiag {upcaseFirstLetter} #}+{# enum CBLAS_SIDE as CblasSide {upcaseFirstLetter} #}++c2i :: (Integral i1, Integral i2) => i1 -> i2+c2i = fromIntegral+c2f :: (RealFloat a1, RealFloat a2) => a1 -> a2+c2f = realToFrac++-- These were all generated with parseblas.hs. Do not change them here, rather change parseblas.hs. +{# fun unsafe cblas_sdsdot as sdsdot {fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_dsdot as dsdot {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_sdot as sdot {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_ddot as ddot {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_cdotu_sub as cdotu_sub {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)'} -> `()' id #}+{# fun unsafe cblas_cdotc_sub as cdotc_sub {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)'} -> `()' id #}+{# fun unsafe cblas_zdotu_sub as zdotu_sub {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)'} -> `()' id #}+{# fun unsafe cblas_zdotc_sub as zdotc_sub {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)'} -> `()' id #}+{# fun unsafe cblas_snrm2 as snrm2 {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_sasum as sasum {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_dnrm2 as dnrm2 {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_dasum as dasum {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_scnrm2 as scnrm2 {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_scasum as scasum {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `CFloat' id #}+{# fun unsafe cblas_dznrm2 as dznrm2 {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_dzasum as dzasum {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `CDouble' id #}+{# fun unsafe cblas_isamax as isamax {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `CblasIndex' fromIntegral #}+{# fun unsafe cblas_idamax as idamax {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `CblasIndex' fromIntegral #}+{# fun unsafe cblas_icamax as icamax {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `CblasIndex' fromIntegral #}+{# fun unsafe cblas_izamax as izamax {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `CblasIndex' fromIntegral #}+{# fun unsafe cblas_sswap as sswap {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_scopy as scopy {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_saxpy as saxpy {fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dswap as dswap {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dcopy as dcopy {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_daxpy as daxpy {fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cswap as cswap {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ccopy as ccopy {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_caxpy as caxpy {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zswap as zswap {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zcopy as zcopy {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zaxpy as zaxpy {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_srotg as srotg {id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `()' id #}+{# fun unsafe cblas_srotmg as srotmg {id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `Ptr CFloat'} -> `()' id #}+{# fun unsafe cblas_srot as srot {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat'} -> `()' id #}+{# fun unsafe cblas_srotm as srotm {fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `()' id #}+{# fun unsafe cblas_drotg as drotg {id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `()' id #}+{# fun unsafe cblas_drotmg as drotmg {id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `Ptr CDouble'} -> `()' id #}+{# fun unsafe cblas_drot as drot {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble'} -> `()' id #}+{# fun unsafe cblas_drotm as drotm {fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `()' id #}+{# fun unsafe cblas_sscal as sscal {fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dscal as dscal {fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cscal as cscal {fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zscal as zscal {fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_csscal as csscal {fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zdscal as zdscal {fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sgemv as sgemv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sgbmv as sgbmv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_strmv as strmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_stbmv as stbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_stpmv as stpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_strsv as strsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_stbsv as stbsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_stpsv as stpsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dgemv as dgemv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dgbmv as dgbmv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtrmv as dtrmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtbmv as dtbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtpmv as dtpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtrsv as dtrsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtbsv as dtbsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtpsv as dtpsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cgemv as cgemv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cgbmv as cgbmv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctrmv as ctrmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctbmv as ctbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctpmv as ctpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctrsv as ctrsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctbsv as ctbsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctpsv as ctpsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zgemv as zgemv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zgbmv as zgbmv {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztrmv as ztrmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztbmv as ztbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztpmv as ztpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztrsv as ztrsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztbsv as ztbsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztpsv as ztpsv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssymv as ssymv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssbmv as ssbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sspmv as sspmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sger as sger {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssyr as ssyr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sspr as sspr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `()' id #}+{# fun unsafe cblas_ssyr2 as ssyr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_sspr2 as sspr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `()' id #}+{# fun unsafe cblas_dsymv as dsymv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dsbmv as dsbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dspmv as dspmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dger as dger {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dsyr as dsyr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dspr as dspr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `()' id #}+{# fun unsafe cblas_dsyr2 as dsyr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dspr2 as dspr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `()' id #}+{# fun unsafe cblas_chemv as chemv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_chbmv as chbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_chpmv as chpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cgeru as cgeru {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cgerc as cgerc {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cher as cher {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_chpr as chpr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)'} -> `()' id #}+{# fun unsafe cblas_cher2 as cher2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_chpr2 as chpr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)'} -> `()' id #}+{# fun unsafe cblas_zhemv as zhemv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zhbmv as zhbmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zhpmv as zhpmv {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zgeru as zgeru {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zgerc as zgerc {cFromEnum `CblasOrder', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zher as zher {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zhpr as zhpr {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)'} -> `()' id #}+{# fun unsafe cblas_zher2 as zher2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zhpr2 as zhpr2 {cFromEnum `CblasOrder', cFromEnum `CblasUplo', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)'} -> `()' id #}+{# fun unsafe cblas_sgemm as sgemm {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssymm as ssymm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssyrk as ssyrk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ssyr2k as ssyr2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_strmm as strmm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_strsm as strsm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dgemm as dgemm {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dsymm as dsymm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dsyrk as dsyrk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dsyr2k as dsyr2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtrmm as dtrmm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_dtrsm as dtrsm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cgemm as cgemm {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_csymm as csymm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_csyrk as csyrk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_csyr2k as csyr2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctrmm as ctrmm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ctrsm as ctrsm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zgemm as zgemm {cFromEnum `CblasOrder', cFromEnum `CblasTranspose', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zsymm as zsymm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zsyrk as zsyrk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zsyr2k as zsyr2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztrmm as ztrmm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_ztrsm as ztrsm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', cFromEnum `CblasDiag', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_chemm as chemm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cherk as cherk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_cher2k as cher2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', castPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', castPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zhemm as zhemm {cFromEnum `CblasOrder', cFromEnum `CblasSide', cFromEnum `CblasUplo', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zherk as zherk {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}+{# fun unsafe cblas_zher2k as zher2k {cFromEnum `CblasOrder', cFromEnum `CblasUplo', cFromEnum `CblasTranspose', fromIntegral `Int', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', castPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', castPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `()' id #}
+ Numeric/Jalla/Foreign/BlasOps.hs view
@@ -0,0 +1,248 @@+{-# LANGUAGE MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, FunctionalDependencies #-}+-----------------------------------------------------------------------------+--+-- Module      :  BLAS.Foreign.BlasOps+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | Part of Jalla. This module contains the classes that define+-- BLAS operations, and the instantiations for [Complex] CFloat and CDouble+-- types.+-----------------------------------------------------------------------------++module Numeric.Jalla.Foreign.BlasOps+       (BlasOps(..), BlasOpsReal(..), BlasOpsComplex(..)) where++import Numeric.Jalla.Foreign.BLAS+import Foreign+import Foreign.C.Types+import Numeric.Jalla.Types+++convComplex :: (RealFloat a, RealFloat b) => Complex a -> Complex b+convComplex (a :+ b) = (realToFrac a :+ realToFrac b)++{- The following were generated with parseblas.hs and partly hand-tuned afterwards. -}++{- | Low level BLAS operations. Directly call the wrapped BLAS functions.+Things to note: /dot/ returns a /Float/ for the Float instance. If you want the double precision+result, use 'realdot' from the 'BlasOpsReal' class. -}+class (Field1 e, Storable e) => BlasOps e where+  nrm2  :: Int -> Ptr e -> Int -> IO e+  asum  :: Int -> Ptr e -> Int -> IO e+  iamax :: Int -> Ptr e -> Int -> IO CblasIndex+  swap  :: Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  copy  :: Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  axpy  :: Int -> e -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  scal  :: Int -> e -> Ptr e -> Int -> IO ()+  dot   :: Int -> Ptr e -> Int -> Ptr e -> Int -> IO e+  gemv  :: CblasOrder -> CblasTranspose -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  gbmv  :: CblasOrder -> CblasTranspose -> Int -> Int -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  trmv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  tbmv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  tpmv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Ptr e -> Ptr e -> Int -> IO ()+  trsv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  tbsv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  tpsv  :: CblasOrder -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Ptr e -> Ptr e -> Int -> IO ()+  gemm  :: CblasOrder -> CblasTranspose -> CblasTranspose -> Int -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  symm  :: CblasOrder -> CblasSide -> CblasUplo -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  syrk  :: CblasOrder -> CblasUplo -> CblasTranspose -> Int -> Int -> e -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  syr2k :: CblasOrder -> CblasUplo -> CblasTranspose -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  trmm  :: CblasOrder -> CblasSide -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  trsm  :: CblasOrder -> CblasSide -> CblasUplo -> CblasTranspose -> CblasDiag -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> IO ()++class (BlasOps (Complex e)) => BlasOpsComplex e where+  dotu_sub :: Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO ()+  dotc_sub :: Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO ()+  scal' :: Int -> e -> Ptr (Complex e) -> Int -> IO ()+  hemv :: CblasOrder -> CblasUplo -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> IO ()+  hbmv :: CblasOrder -> CblasUplo -> Int -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> IO ()+  hpmv :: CblasOrder -> CblasUplo -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> IO ()+  geru :: CblasOrder -> Int -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> IO ()+  gerc :: CblasOrder -> Int -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> IO ()+  her :: CblasOrder -> CblasUplo -> Int -> e -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> IO ()+  hpr :: CblasOrder -> CblasUplo -> Int -> e -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO ()+  her2 :: CblasOrder -> CblasUplo -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> IO ()+  hpr2 :: CblasOrder -> CblasUplo -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO ()+  hemm :: CblasOrder -> CblasSide -> CblasUplo -> Int -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> IO ()+  herk :: CblasOrder -> CblasUplo -> CblasTranspose -> Int -> Int -> e -> Ptr (Complex e) -> Int -> e -> Ptr (Complex e) -> Int -> IO ()+  her2k :: CblasOrder -> CblasUplo -> CblasTranspose -> Int -> Int -> Ptr (Complex e) -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> Int -> e -> Ptr (Complex e) -> Int -> IO ()++class (Real e, BlasOps e) => BlasOpsReal e where+  realdot :: Int -> Ptr e -> Int -> Ptr e -> Int -> IO CDouble+  rotg :: Ptr e -> Ptr e -> Ptr e -> Ptr e -> IO ()+  rotmg :: Ptr e -> Ptr e -> Ptr e -> e -> Ptr e -> IO ()+  rot :: Int -> Ptr e -> Int -> Ptr e -> Int -> e -> e -> IO ()+  rotm :: Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> IO ()+  symv :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  sbmv :: CblasOrder -> CblasUplo -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  spmv :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Ptr e -> Int -> e -> Ptr e -> Int -> IO ()+  ger :: CblasOrder -> Int -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  syr :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  spr :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Int -> Ptr e -> IO ()+  syr2 :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Int -> IO ()+  spr2 :: CblasOrder -> CblasUplo -> Int -> e -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> IO ()++instance BlasOps CFloat where+  nrm2 = snrm2+  asum = sasum+  iamax = isamax+  swap = sswap+  copy = scopy+  axpy = saxpy+  scal = sscal+  dot n a inca b incb = fmap realToFrac $ realdot n a inca b incb+  gemv = sgemv+  gbmv = sgbmv+  trmv = strmv+  tbmv = stbmv+  tpmv = stpmv+  trsv = strsv+  tbsv = stbsv+  tpsv = stpsv+  gemm = sgemm+  symm = ssymm+  syrk = ssyrk+  syr2k = ssyr2k+  trmm = strmm+  trsm = strsm++instance BlasOps CDouble where+  nrm2 = dnrm2+  asum = dasum+  iamax = idamax+  swap = dswap+  copy = dcopy+  axpy = daxpy+  scal = dscal+  dot n a inca b incb = fmap realToFrac $ realdot n a inca b incb+  gemv = dgemv+  gbmv = dgbmv+  trmv = dtrmv+  tbmv = dtbmv+  tpmv = dtpmv+  trsv = dtrsv+  tbsv = dtbsv+  tpsv = dtpsv+  gemm = dgemm+  symm = dsymm+  syrk = dsyrk+  syr2k = dsyr2k+  trmm = dtrmm+  trsm = dtrsm++instance BlasOps (Complex CFloat) where+  nrm2 a0 a1 a2 = scnrm2 a0 a1 a2  >>= \a -> return (a :+ 0)+  asum a0 a1 a2 = scasum a0 a1 a2  >>= \a -> return (a :+ 0)+  iamax = icamax+  swap = cswap+  copy = ccopy+  axpy a0 a1 a2 a3 a4 a5 = with (convComplex a1) $ \a1' -> caxpy a0 a1' a2 a3 a4 a5+  scal a0 a1 a2 a3 = with (convComplex a1) $ \a1' -> cscal a0 a1' a2 a3+  dot n a inca b incb = with (0 :+ 0) $ \retp -> dotu_sub n a inca b incb retp >> peek retp+  gemv a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a4) $ \a4' -> with (convComplex a9) $ \a9' -> cgemv a0 a1 a2 a3 a4' a5 a6 a7 a8 a9' a10 a11+  gbmv a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = with (convComplex a6) $ \a6' -> with (convComplex a11) $ \a11' -> cgbmv a0 a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11' a12 a13+  trmv = ctrmv+  tbmv = ctbmv+  tpmv = ctpmv+  trsv = ctrsv+  tbsv = ctbsv+  tpsv = ctpsv+  gemm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = with (convComplex a6) $ \a6' -> with (convComplex a11) $ \a11' -> cgemm a0 a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11' a12 a13+  symm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = with (convComplex a5) $ \a5' -> with (convComplex a10) $ \a10' -> csymm a0 a1 a2 a3 a4 a5' a6 a7 a8 a9 a10' a11 a12+  syrk a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = with (convComplex a5) $ \a5' -> with (convComplex a8) $ \a8' -> csyrk a0 a1 a2 a3 a4 a5' a6 a7 a8' a9 a10+  syr2k a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = with (convComplex a5) $ \a5' -> with (convComplex a10) $ \a10' -> csyr2k a0 a1 a2 a3 a4 a5' a6 a7 a8 a9 a10' a11 a12+  trmm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a7) $ \a7' -> ctrmm a0 a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11+  trsm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a7) $ \a7' -> ctrsm a0 a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11++instance BlasOps (Complex CDouble) where+  nrm2 a0 a1 a2 = dznrm2 a0 a1 a2  >>= \a -> return (a :+ 0)+  asum a0 a1 a2 = dzasum a0 a1 a2  >>= \a -> return (a :+ 0)+  iamax = izamax+  swap = zswap+  copy = zcopy+  axpy a0 a1 a2 a3 a4 a5 = with (convComplex a1) $ \a1' -> zaxpy a0 a1' a2 a3 a4 a5+  scal a0 a1 a2 a3 = with (convComplex a1) $ \a1' -> zscal a0 a1' a2 a3+  dot n a inca b incb = with (0 :+ 0) $ \retp -> dotu_sub n a inca b incb retp >> peek retp+  gemv a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a4) $ \a4' -> with (convComplex a9) $ \a9' -> zgemv a0 a1 a2 a3 a4' a5 a6 a7 a8 a9' a10 a11+  gbmv a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = with (convComplex a6) $ \a6' -> with (convComplex a11) $ \a11' -> zgbmv a0 a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11' a12 a13+  trmv = ztrmv+  tbmv = ztbmv+  tpmv = ztpmv+  trsv = ztrsv+  tbsv = ztbsv+  tpsv = ztpsv+  gemm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = with (convComplex a6) $ \a6' -> with (convComplex a11) $ \a11' -> zgemm a0 a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11' a12 a13+  symm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = with (convComplex a5) $ \a5' -> with (convComplex a10) $ \a10' -> zsymm a0 a1 a2 a3 a4 a5' a6 a7 a8 a9 a10' a11 a12+  syrk a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = with (convComplex a5) $ \a5' -> with (convComplex a8) $ \a8' -> zsyrk a0 a1 a2 a3 a4 a5' a6 a7 a8' a9 a10+  syr2k a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = with (convComplex a5) $ \a5' -> with (convComplex a10) $ \a10' -> zsyr2k a0 a1 a2 a3 a4 a5' a6 a7 a8 a9 a10' a11 a12+  trmm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a7) $ \a7' -> ztrmm a0 a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11+  trsm a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = with (convComplex a7) $ \a7' -> ztrsm a0 a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11++instance BlasOpsComplex CFloat where+  dotu_sub = cdotu_sub+  dotc_sub = cdotc_sub+  scal' = csscal+  hemv = chemv+  hbmv = chbmv+  hpmv = chpmv+  geru = cgeru+  gerc = cgerc+  her = cher+  hpr = chpr+  her2 = cher2+  hpr2 = chpr2+  hemm = chemm+  herk = cherk+  her2k = cher2k++instance BlasOpsComplex CDouble where+  dotu_sub = zdotu_sub+  dotc_sub = zdotc_sub+  scal' = zdscal+  hemv = zhemv+  hbmv = zhbmv+  hpmv = zhpmv+  geru = zgeru+  gerc = zgerc+  her = zher+  hpr = zhpr+  her2 = zher2+  hpr2 = zhpr2+  hemm = zhemm+  herk = zherk+  her2k = zher2k++instance BlasOpsReal CFloat where+  realdot = dsdot+  rotg = srotg+  rotmg = srotmg+  rot = srot+  rotm = srotm+  symv = ssymv+  sbmv = ssbmv+  spmv = sspmv+  ger = sger+  syr = ssyr+  spr = sspr+  syr2 = ssyr2+  spr2 = sspr2++instance BlasOpsReal CDouble where+  realdot = ddot+  rotg = drotg+  rotmg = drotmg+  rot = drot+  rotm = drotm+  symv = dsymv+  sbmv = dsbmv+  spmv = dspmv+  ger = dger+  syr = dsyr+  spr = dspr+  syr2 = dsyr2+  spr2 = dspr2
+ Numeric/Jalla/Foreign/LAPACKE.chs view
@@ -0,0 +1,842 @@+{-# LANGUAGE ForeignFunctionInterface #-}++module Numeric.Jalla.Foreign.LAPACKE+       --(CblasOrder (..),+       -- CblasTranspose (..),+       -- CblasUplo (..),+       -- CblasDiag (..),+       -- CblasSide (..),+       -- CblasIndex)+       where++import C2HS+import Foreign.C.Types+import Foreign.Ptr+import Numeric.Jalla.Types+import Data.Complex++#define LAPACK_NAME_PATTERN_MC 1+#define LAPACK_COMPLEX_STRUCTURE 1++#include <lapacke_config.h>+#include <lapacke.h>+#include <lapacke_utils.h>++castComplexToPtr :: Ptr (Complex CFloat) -> Ptr a +castComplexToPtr = castPtr++castZomplexToPtr :: Ptr (Complex CDouble) -> Ptr a+castZomplexToPtr = castPtr++castChar = toEnum . fromEnum++withSingleCharPtr :: Ptr CChar -> (Char -> IO a) -> IO a+withSingleCharPtr pc act = peek pc >>= \c -> act (toEnum (fromEnum c))++withSingleChar :: Char -> (Ptr CChar -> IO a) -> IO a+withSingleChar c act = alloca $ \pc -> poke pc (toEnum (fromEnum c)) >> act pc++{# fun unsafe LAPACKE_cgbbrd as cgbbrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbbrd as dgbbrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbbrd as sgbbrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbbrd as zgbbrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgebrd as cgebrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgebrd as dgebrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgebrd as sgebrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgebrd as zgebrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgebak as cgebak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgebak as dgebak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgebak as sgebak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgebak as zgebak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgebal as cgebal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgebal as dgebal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgebal as sgebal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgebal as zgebal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggbak as cggbak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggbak as dggbak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggbak as sggbak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggbak as zggbak {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggbal as cggbal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggbal as dggbal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggbal as sggbal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggbal as zggbal {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbcon as cgbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbcon as dgbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbcon as sgbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbcon as zgbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbcon as cpbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbcon as dpbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbcon as spbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbcon as zpbcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctbcon as ctbcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtbcon as dtbcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stbcon as stbcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztbcon as ztbcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgecon as cgecon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgecon as dgecon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgecon as sgecon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgecon as zgecon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_checon as checon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhecon as zhecon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpocon as cpocon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpocon as dpocon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spocon as spocon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpocon as zpocon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpcon as chpcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpcon as zhpcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cppcon as cppcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dppcon as dppcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sppcon as sppcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zppcon as zppcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cspcon as cspcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspcon as dspcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspcon as sspcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zspcon as zspcon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctpcon as ctpcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtpcon as dtpcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stpcon as stpcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztpcon as ztpcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrcon as ctrcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrcon as dtrcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strcon as strcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrcon as ztrcon {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgtcon as cgtcon {castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgtcon as dgtcon {castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgtcon as sgtcon {castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgtcon as zgtcon {castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cptcon as cptcon {fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dptcon as dptcon {fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sptcon as sptcon {fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zptcon as zptcon {fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csycon as csycon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsycon as dsycon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssycon as ssycon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsycon as zsycon {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbev as chbev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbev as zhbev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbev as dsbev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbev as ssbev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbevd as chbevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbevd as zhbevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbevd as dsbevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbevd as ssbevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbequ as cgbequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbequ as dgbequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbequ as sgbequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbequ as zgbequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbevx as chbevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbevx as zhbevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbequ as cpbequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbequ as dpbequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbequ as spbequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbequ as zpbequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbevx as dsbevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbevx as ssbevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeev as cgeev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeev as dgeev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeev as sgeev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeev as zgeev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cheev as cheev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zheev as zheev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cheevd as cheevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zheevd as zheevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cheevr as cheevr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zheevr as zheevr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeequ as cgeequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeequ as dgeequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeequ as sgeequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeequ as zgeequ {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeevx as cgeevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeevx as dgeevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeevx as sgeevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeevx as zgeevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cheevx as cheevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zheevx as zheevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggev as cggev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggev as dggev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggev as sggev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggev as zggev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgevc as ctgevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgevc as dtgevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgexc as ctgexc {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgexc as dtgexc {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgevc as stgevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgexc as stgexc {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgevc as ztgevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgexc as ztgexc {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zcgesv as zcgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggevx as cggevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggevx as dggevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggevx as sggevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggevx as zggevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chgeqz as chgeqz {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dhgeqz as dhgeqz {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_shgeqz as shgeqz {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhgeqz as zhgeqz {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsgesv as dsgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpoequ as cpoequ {fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpoequ as dpoequ {fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spoequ as spoequ {fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpoequ as zpoequ {fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpev as chpev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpev as zhpev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspev as dspev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspev as sspev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpevd as chpevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpevd as zhpevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspevd as dspevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspevd as sspevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpevx as chpevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpevx as zhpevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cppequ as cppequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dppequ as dppequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sppequ as sppequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zppequ as zppequ {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspevx as dspevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspevx as sspevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrevc as ctrevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrevc as dtrevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrexc as ctrexc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrexc as dtrexc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strevc as strevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strexc as strexc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrevc as ztrevc {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrexc as ztrexc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chsein as chsein {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dhsein as dhsein {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_shsein as shsein {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhsein as zhsein {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chseqr as chseqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dhseqr as dhseqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_shseqr as shseqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhseqr as zhseqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstev as dstev {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstev as sstev {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cstedc as cstedc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstedc as dstedc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstedc as sstedc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zstedc as zstedc {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstevd as dstevd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstevd as sstevd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsterf as dsterf {fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssterf as ssterf {fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cstein as cstein {fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstein as dstein {fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstein as sstein {fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zstein as zstein {fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpteqr as cpteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpteqr as dpteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spteqr as spteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpteqr as zpteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cstegr as cstegr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstegr as dstegr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cstemr as cstemr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstemr as dstemr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csteqr as csteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsteqr as dsteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstevr as dstevr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstegr as sstegr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstemr as sstemr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zstegr as zstegr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssteqr as ssteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zstemr as zstemr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstevr as sstevr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsteqr as zsteqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstevx as dstevx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstevx as sstevx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dstebz as dstebz {castChar `CChar', castChar `CChar', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sstebz as sstebz {castChar `CChar', castChar `CChar', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', id `Ptr CInt', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyev as dsyev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyev as ssyev {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyevd as dsyevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyevd as ssyevd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyevr as dsyevr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyevr as ssyevr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyevx as dsyevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyevx as ssyevx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbequb as cgbequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbequb as dgbequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbequb as sgbequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbequb as zgbequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeequb as cgeequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeequb as dgeequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeequb as sgeequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeequb as zgeequb {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cheequb as cheequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zheequb as zheequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpoequb as cpoequb {fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpoequb as dpoequb {fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spoequb as spoequb {fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpoequb as zpoequb {fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csyequb as csyequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyequb as dsyequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyequb as ssyequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsyequb as zsyequb {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbgv as chbgv {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbgv as zhbgv {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbgv as dsbgv {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbgv as ssbgv {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbgvd as chbgvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbgvd as zhbgvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbgvd as dsbgvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbgvd as ssbgvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbgst as chbgst {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbgst as zhbgst {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbgvx as chbgvx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbgvx as zhbgvx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbgst as dsbgst {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbgst as ssbgst {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbgvx as dsbgvx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbgvx as ssbgvx {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chegv as chegv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhegv as zhegv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chegvd as chegvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhegvd as zhegvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chegst as chegst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhegst as zhegst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chegvx as chegvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhegvx as zhegvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggglm as cggglm {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggglm as dggglm {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggglm as sggglm {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggglm as zggglm {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cungql as cungql {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zungql as zungql {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunglq as cunglq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cungrq as cungrq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunglq as zunglq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zungrq as zungrq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cungbr as cungbr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunghr as cunghr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cungqr as cungqr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cungtr as cungtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zungbr as zungbr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunghr as zunghr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zungqr as zungqr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zungtr as zungtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpgv as chpgv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpgv as zhpgv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspgv as dspgv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspgv as sspgv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpgvd as chpgvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpgvd as zhpgvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspgvd as dspgvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspgvd as sspgvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpgst as chpgst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpgst as zhpgst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpgvx as chpgvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpgvx as zhpgvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dopgtr as dopgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sopgtr as sopgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cupgtr as cupgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspgst as dspgst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspgst as sspgst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zupgtr as zupgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspgvx as dspgvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspgvx as sspgvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorgql as dorgql {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorgql as sorgql {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorglq as dorglq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorgrq as dorgrq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorglq as sorglq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorgrq as sorgrq {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorgbr as dorgbr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorghr as dorghr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorgqr as dorgqr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorgbr as sorgbr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dorgtr as dorgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorghr as sorghr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorgqr as sorgqr {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sorgtr as sorgtr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsygv as dsygv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssygv as ssygv {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsygvd as dsygvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssygvd as ssygvd {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsygst as dsygst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssygst as ssygst {fromIntegral `Int', fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsygvx as dsygvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssygvx as ssygvx {fromIntegral `Int', fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgehrd as cgehrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgehrd as dgehrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgehrd as sgehrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgehrd as zgehrd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgghrd as cgghrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgghrd as dgghrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgghrd as sgghrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgghrd as zgghrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgejsv as dgejsv {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgejsv as sgejsv {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgels as cgels {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgels as dgels {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgels as sgels {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgels as zgels {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgelsd as cgelsd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgelsd as dgelsd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgelsd as sgelsd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgelsd as zgelsd {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgelqf as cgelqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgelqf as dgelqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgelqf as sgelqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgelqf as zgelqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgelss as cgelss {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgelss as dgelss {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgelss as sgelss {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgelss as zgelss {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgelsy as cgelsy {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgelsy as dgelsy {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgelsy as sgelsy {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgelsy as zgelsy {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgglse as cgglse {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgglse as dgglse {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgglse as sgglse {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgglse as zgglse {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmql as cunmql {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmql as zunmql {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmlq as cunmlq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmrq as cunmrq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmlq as zunmlq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmrq as zunmrq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmbr as cunmbr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmhr as cunmhr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmqr as cunmqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmtr as cunmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmbr as zunmbr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmhr as zunmhr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmqr as zunmqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmtr as zunmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cunmrz as cunmrz {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zunmrz as zunmrz {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dopmtr as dopmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sopmtr as sopmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cupmtr as cupmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zupmtr as zupmtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormql as dormql {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormql as sormql {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormlq as dormlq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormrq as dormrq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormlq as sormlq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormrq as sormrq {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormbr as dormbr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormhr as dormhr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormqr as dormqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormbr as sormbr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormtr as dormtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormhr as sormhr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormqr as sormqr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormtr as sormtr {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dormrz as dormrz {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sormrz as sormrz {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zcposv as zcposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsposv as dsposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeqp3 as cgeqp3 {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeqp3 as dgeqp3 {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeqp3 as sgeqp3 {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeqp3 as zgeqp3 {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeqlf as cgeqlf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeqlf as dgeqlf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeqpf as cgeqpf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeqpf as dgeqpf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeqrf as cgeqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeqrf as dgeqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeqlf as sgeqlf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeqpf as sgeqpf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeqrf as sgeqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeqlf as zgeqlf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeqpf as zgeqpf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeqrf as zgeqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggqrf as cggqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggqrf as dggqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggqrf as sggqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggqrf as zggqrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgeqrfp as cgeqrfp {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgeqrfp as dgeqrfp {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgeqrfp as sgeqrfp {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgeqrfp as zgeqrfp {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbrfs as cgbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbrfs as dgbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbrfs as sgbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbrfs as zgbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbrfs as cpbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbrfs as dpbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbrfs as spbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbrfs as zpbrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctbrfs as ctbrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtbrfs as dtbrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stbrfs as stbrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztbrfs as ztbrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgerqf as cgerqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgerqf as dgerqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgerqf as sgerqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgerqf as zgerqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgerfs as cgerfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgerfs as dgerfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgerfs as sgerfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgerfs as zgerfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cherfs as cherfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zherfs as zherfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chfrk as chfrk {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhfrk as zhfrk {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsfrk as dsfrk {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssfrk as ssfrk {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggrqf as cggrqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggrqf as dggrqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggrqf as sggrqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggrqf as zggrqf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cporfs as cporfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dporfs as dporfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sporfs as sporfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zporfs as zporfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chprfs as chprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhprfs as zhprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpprfs as cpprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpprfs as dpprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spprfs as spprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpprfs as zpprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csprfs as csprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsprfs as dsprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssprfs as ssprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsprfs as zsprfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctprfs as ctprfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtprfs as dtprfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stprfs as stprfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztprfs as ztprfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrrfs as ctrrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrrfs as dtrrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strrfs as strrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrrfs as ztrrfs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgtrfs as cgtrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgtrfs as dgtrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgtrfs as sgtrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgtrfs as zgtrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cptrfs as cptrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dptrfs as dptrfs {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sptrfs as sptrfs {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zptrfs as zptrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csyrfs as csyrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsyrfs as dsyrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssyrfs as ssyrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsyrfs as zsyrfs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctzrzf as ctzrzf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtzrzf as dtzrzf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stzrzf as stzrzf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztzrzf as ztzrzf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbsv as cgbsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbsv as dgbsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbsv as sgbsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbsv as zgbsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbsv as cpbsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbsv as dpbsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbsv as spbsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbsv as zpbsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbstf as cpbstf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbstf as dpbstf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbstf as spbstf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbstf as zpbstf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbsvx as cgbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbsvx as dgbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbsvx as sgbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbsvx as zgbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbsvx as cpbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', withSingleChar* `Char', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbsvx as dpbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbsvx as spbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbsvx as zpbsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', withSingleChar* `Char', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dbdsdc as dbdsdc {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sbdsdc as sbdsdc {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cbdsqr as cbdsqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dbdsqr as dbdsqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sbdsqr as sbdsqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zbdsqr as zbdsqr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgesv as cgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgesv as dgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgesv as sgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgesv as zgesv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chesv as chesv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhesv as zhesv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgesdd as cgesdd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgesdd as dgesdd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgesdd as sgesdd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgesvd as cgesvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgesvd as dgesvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgesdd as zgesdd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgesvd as sgesvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgesvd as zgesvd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgesvj as dgesvj {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgesvj as sgesvj {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgesvx as cgesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgesvx as dgesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgesvx as sgesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgesvx as zgesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chesvx as chesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhesvx as zhesvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtfsm as dtfsm {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stfsm as stfsm {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggsvd as cggsvd {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggsvd as dggsvd {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggsvd as sggsvd {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggsvd as zggsvd {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgsja as ctgsja {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgsja as dtgsja {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgsna as ctgsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgsna as dtgsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgsja as stgsja {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgsna as stgsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgsja as ztgsja {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgsna as ztgsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cggsvp as cggsvp {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `CFloat', id `CFloat', id `Ptr CInt', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dggsvp as dggsvp {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `CDouble', id `CDouble', id `Ptr CInt', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sggsvp as sggsvp {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `CFloat', id `CFloat', id `Ptr CInt', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zggsvp as zggsvp {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `CDouble', id `CDouble', id `Ptr CInt', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgsyl as ctgsyl {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgsyl as dtgsyl {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgsyl as stgsyl {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgsyl as ztgsyl {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctgsen as ctgsen {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtgsen as dtgsen {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stgsen as stgsen {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztgsen as ztgsen {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ddisna as ddisna {castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sdisna as sdisna {castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cposv as cposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dposv as dposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sposv as sposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zposv as zposv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpsv as chpsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cposvx as cposvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', withSingleChar* `Char', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dposvx as dposvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sposvx as sposvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpsv as zhpsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zposvx as zposvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', withSingleChar* `Char', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cppsv as cppsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dppsv as dppsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sppsv as sppsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zppsv as zppsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cspsv as cspsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspsv as dspsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspsv as sspsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zspsv as zspsv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chpsvx as chpsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhpsvx as zhpsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cppsvx as cppsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', withSingleChar* `Char', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dppsvx as dppsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', withSingleChar* `Char', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sppsvx as sppsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', withSingleChar* `Char', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zppsvx as zppsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', withSingleChar* `Char', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cspsvx as cspsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dspsvx as dspsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sspsvx as sspsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zspsvx as zspsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrsna as ctrsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrsna as dtrsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strsna as strsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrsna as ztrsna {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrsyl as ctrsyl {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrsyl as dtrsyl {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strsyl as strsyl {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrsyl as ztrsyl {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrsen as ctrsen {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrsen as dtrsen {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strsen as strsen {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrsen as ztrsen {fromIntegral `Int', castChar `CChar', castChar `CChar', id `Ptr CInt', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgtsv as cgtsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgtsv as dgtsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgtsv as sgtsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgtsv as zgtsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cptsv as cptsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dptsv as dptsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sptsv as sptsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zptsv as zptsv {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgtsvx as cgtsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgtsvx as dgtsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgtsvx as sgtsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgtsvx as zgtsvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cptsvx as cptsvx {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dptsvx as dptsvx {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sptsvx as sptsvx {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zptsvx as zptsvx {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csysv as csysv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsysv as dsysv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssysv as ssysv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsysv as zsysv {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csysvx as csysvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsysvx as dsysvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssysvx as ssysvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsysvx as zsysvx {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chbtrd as chbtrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhbtrd as zhbtrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbtrf as cgbtrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbtrf as dgbtrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbtrf as sgbtrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbtrf as zgbtrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbtrf as cpbtrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbtrf as dpbtrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbtrf as spbtrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbtrf as zpbtrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsbtrd as dsbtrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssbtrd as ssbtrd {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgbtrs as cgbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgbtrs as dgbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgbtrs as sgbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgbtrs as zgbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpbtrs as cpbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpbtrs as dpbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spbtrs as spbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpbtrs as zpbtrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctbtrs as ctbtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtbtrs as dtbtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stbtrs as stbtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztbtrs as ztbtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chetrd as chetrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhetrd as zhetrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgetrf as cgetrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgetrf as dgetrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgetrf as sgetrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgetrf as zgetrf {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chetrf as chetrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhetrf as zhetrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgetri as cgetri {fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgetri as dgetri {fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgetri as sgetri {fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgetri as zgetri {fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chetri as chetri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhetri as zhetri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgetrs as cgetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgetrs as dgetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgetrs as sgetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgetrs as zgetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chetrs as chetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhetrs as zhetrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpftrf as cpftrf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpftrf as dpftrf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spftrf as spftrf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpftrf as zpftrf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpftri as cpftri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpftri as dpftri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spftri as spftri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpftri as zpftri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctftri as ctftri {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtftri as dtftri {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stftri as stftri {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztftri as ztftri {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpftrs as cpftrs {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpftrs as dpftrs {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spftrs as spftrs {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpftrs as zpftrs {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctfttp as ctfttp {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtfttp as dtfttp {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stfttp as stfttp {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztfttp as ztfttp {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctfttr as ctfttr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtfttr as dtfttr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stfttr as stfttr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztfttr as ztfttr {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpotrf as cpotrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpotrf as dpotrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spotrf as spotrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpotrf as zpotrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpotri as cpotri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpotri as dpotri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spotri as spotri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpotri as zpotri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpotrs as cpotrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpotrs as dpotrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spotrs as spotrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpotrs as zpotrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chptrd as chptrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CFloat', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhptrd as zhptrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CDouble', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chptrf as chptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhptrf as zhptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chptri as chptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhptri as zhptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpptrf as cpptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpptrf as dpptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spptrf as spptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpptrf as zpptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsptrd as dsptrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssptrd as ssptrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpptri as cpptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csptrf as csptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpptri as dpptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsptrf as dsptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spptri as spptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssptrf as ssptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpptri as zpptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsptrf as zsptrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctpttf as ctpttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtpttf as dtpttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stpttf as stpttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztpttf as ztpttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_chptrs as chptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zhptrs as zhptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csptri as csptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsptri as dsptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssptri as ssptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsptri as zsptri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctptri as ctptri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtptri as dtptri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stptri as stptri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztptri as ztptri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpptrs as cpptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpptrs as dpptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spptrs as spptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpptrs as zpptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csptrs as csptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsptrs as dsptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctpttr as ctpttr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtpttr as dtpttr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssptrs as ssptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stpttr as stpttr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsptrs as zsptrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztpttr as ztpttr {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctptrs as ctptrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtptrs as dtptrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_stptrs as stptrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztptrs as ztptrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrttf as ctrttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrttf as dtrttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strttf as strttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrttf as ztrttf {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrtri as ctrtri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrtri as dtrtri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strtri as strtri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrtri as ztrtri {fromIntegral `Int', castChar `CChar', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrttp as ctrttp {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrttp as dtrttp {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strttp as strttp {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrttp as ztrttp {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ctrtrs as ctrtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dtrtrs as dtrtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_strtrs as strtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ztrtrs as ztrtrs {fromIntegral `Int', castChar `CChar', castChar `CChar', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpstrf as cpstrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpstrf as dpstrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spstrf as spstrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpstrf as zpstrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', id `Ptr CInt', id `CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgttrf as cgttrf {fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgttrf as dgttrf {fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgttrf as sgttrf {fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgttrf as zgttrf {fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpttrf as cpttrf {fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpttrf as dpttrf {fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spttrf as spttrf {fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpttrf as zpttrf {fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cgttrs as cgttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dgttrs as dgttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_sgttrs as sgttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zgttrs as zgttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_cpttrs as cpttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', castComplexToPtr `Ptr (Complex CFloat)', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dpttrs as dpttrs {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_spttrs as spttrs {fromIntegral `Int', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zpttrs as zpttrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', castZomplexToPtr `Ptr (Complex CDouble)', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsytrd as dsytrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssytrd as ssytrd {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CFloat', id `Ptr CFloat', id `Ptr CFloat'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csytrf as csytrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsytrf as dsytrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssytrf as ssytrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsytrf as zsytrf {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csytri as csytri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsytri as dsytri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssytri as ssytri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsytri as zsytri {fromIntegral `Int', castChar `CChar', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_csytrs as csytrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int', id `Ptr CInt', castComplexToPtr `Ptr (Complex CFloat)', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_dsytrs as dsytrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CDouble', fromIntegral `Int', id `Ptr CInt', id `Ptr CDouble', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_ssytrs as ssytrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', id `Ptr CFloat', fromIntegral `Int', id `Ptr CInt', id `Ptr CFloat', fromIntegral `Int'} -> `Int' fromIntegral #}+{# fun unsafe LAPACKE_zsytrs as zsytrs {fromIntegral `Int', castChar `CChar', fromIntegral `Int', fromIntegral `Int', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int', id `Ptr CInt', castZomplexToPtr `Ptr (Complex CDouble)', fromIntegral `Int'} -> `Int' fromIntegral #}
+ Numeric/Jalla/Foreign/LapackeOps.hs view
@@ -0,0 +1,284 @@+{-# LANGUAGE MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, FunctionalDependencies #-}+-----------------------------------------------------------------------------+--+-- Module      :  BLAS.Foreign.LapackeOps+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | Part of Jalla. This module contains the classes that define+-- LAPACKE operations, and the instantiations for [Complex] CFloat and CDouble+-- types. Some LAPACKE functions don't really fit the rest, namely tgex tgsen.+-- They are, however, probably not needed.+-----------------------------------------------------------------------------++module Numeric.Jalla.Foreign.LapackeOps +       (LapackeOps(..), LapackeOpsReal(..), LapackeOpsComplex(..)) where++import Numeric.Jalla.Foreign.BLAS+import Numeric.Jalla.Foreign.LAPACKE+import Foreign+import Foreign.C.Types+import Numeric.Jalla.Types++instance LAPACKEEnum UpLo CChar where+  toLapacke Up = (toEnum . fromEnum) 'u'+  toLapacke Lo = (toEnum . fromEnum) 'l'+  fromLapacke c | c == (toEnum . fromEnum) 'u' = Up+                | c == (toEnum . fromEnum) 'l' = Lo+++-- These classes were originally automatically with a program in the parseblas directory.+-- However, functions have been added by hand.+-- Add more when you need them.+class (Field1 e, Field1 se) => LapackeOps e se | e -> se where+  gbequ :: Int -> Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> IO Int+  gbequb :: Int -> Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> IO Int+  gbsv :: Int -> Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr e -> Int -> IO Int+  gbtrf :: Int -> Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> IO Int+  gebrd :: Int -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr e -> Ptr e -> IO Int+  geequ :: Int -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> IO Int+  geequb :: Int -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> Ptr se -> IO Int+  gehrd :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  gelqf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  gelsd :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr se -> se -> Ptr CInt -> IO Int+  gelss :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr se -> se -> Ptr CInt -> IO Int+  gelsy :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr CInt -> se -> Ptr CInt -> IO Int+  geqlf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  geqp3 :: Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr e -> IO Int+  geqpf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr e -> IO Int+  geqrf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+--  geqrfp :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  gerqf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  gesv :: Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr e -> Int -> IO Int+  getrf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr CInt -> IO Int+  getri :: Int -> Int -> Ptr e -> Int -> Ptr CInt -> IO Int+  ggglm :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> Ptr e -> IO Int+  gglse :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> Ptr e -> IO Int+  ggqrf :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> Int -> Ptr e -> IO Int+  ggrqf :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> Int -> Ptr e -> IO Int+  gtsv :: Int -> Int -> Int -> Ptr e -> Ptr e -> Ptr e -> Ptr e -> Int -> IO Int+  gttrf :: Int -> Ptr e -> Ptr e -> Ptr e -> Ptr e -> Ptr CInt -> IO Int+  poequ :: Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> IO Int+  poequb :: Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr se -> Ptr se -> IO Int+  ptcon :: Int -> Ptr se -> Ptr e -> se -> Ptr se -> IO Int+  ptsv :: Int -> Int -> Int -> Ptr se -> Ptr e -> Ptr e -> Int -> IO Int+  pttrf :: Int -> Ptr se -> Ptr e -> IO Int+  stein :: Int -> Int -> Ptr se -> Ptr se -> Int -> Ptr se -> Ptr CInt -> Ptr CInt -> Ptr e -> Int -> Ptr CInt -> IO Int+  -- Matrix reordering operations -- are these really needed from Haskell?+  -- They have some differing parameters, therefore don't fit in this type class unhandled.+  --tgexc :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr CInt -> IO Int+  --tgsen :: Int -> Int -> Int -> Int -> Ptr CInt -> Int -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> Ptr e -> Ptr e -> Int -> Ptr e -> Int -> Ptr CInt -> Ptr e -> Ptr e -> Ptr e -> IO Int+  tzrzf :: Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  gesvd :: Int -> CChar -> CChar -> Int -> Int -> Ptr e -> Int -> Ptr se -> Ptr e -> Int -> Ptr e -> Int -> Ptr se -> IO (Int)+++class (LapackeOps (Complex e) e) => LapackeOpsComplex e where+  unghr :: Int -> Int -> Int -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO Int+  unglq :: Int -> Int -> Int -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO Int+  ungql :: Int -> Int -> Int -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO Int+  ungqr :: Int -> Int -> Int -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO Int+  ungrq :: Int -> Int -> Int -> Int -> Ptr (Complex e) -> Int -> Ptr (Complex e) -> IO Int++class (LapackeOps e se) => LapackeOpsReal e se where+  orghr :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  orglq :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  orgql :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  orgqr :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  orgrq :: Int -> Int -> Int -> Int -> Ptr e -> Int -> Ptr e -> IO Int+  ptrfs :: Int -> Int -> Int -> Ptr e -> Ptr e -> Ptr e -> Ptr e -> Ptr e -> Int -> Ptr e -> Int -> Ptr e -> Ptr e -> IO Int+  pttrs :: Int -> Int -> Int -> Ptr e -> Ptr e -> Ptr e -> Int -> IO Int+  sterf :: Int -> Ptr e -> Ptr e -> IO Int++instance LapackeOps CFloat CFloat where+  gbequ = sgbequ+  gbequb = sgbequb+  gbsv = sgbsv+  gbtrf = sgbtrf+  gebrd = sgebrd+  geequ = sgeequ+  geequb = sgeequb+  gehrd = sgehrd+  gelqf = sgelqf+  gelsd = sgelsd+  gelss = sgelss+  gelsy = sgelsy+  geqlf = sgeqlf+  geqp3 = sgeqp3+  geqpf = sgeqpf+  geqrf = sgeqrf+--  geqrfp = sgeqrfp+  gerqf = sgerqf+  gesv = sgesv+  getrf = sgetrf+  getri = sgetri+  ggglm = sggglm+  gglse = sgglse+  ggqrf = sggqrf+  ggrqf = sggrqf+  gtsv = sgtsv+  gttrf = sgttrf+  poequ = spoequ+  poequb = spoequb+  ptcon = sptcon+  ptsv = sptsv+  pttrf = spttrf+  stein = sstein+  --tgexc = stgexc+  --tgsen = stgsen+  tzrzf = stzrzf+  gesvd = sgesvd+  +instance LapackeOps CDouble CDouble where+  gbequ = dgbequ+  gbequb = dgbequb+  gbsv = dgbsv+  gbtrf = dgbtrf+  gebrd = dgebrd+  geequ = dgeequ+  geequb = dgeequb+  gehrd = dgehrd+  gelqf = dgelqf+  gelsd = dgelsd+  gelss = dgelss+  gelsy = dgelsy+  geqlf = dgeqlf+  geqp3 = dgeqp3+  geqpf = dgeqpf+  geqrf = dgeqrf+  -- geqrfp = dgeqrfp+  gerqf = dgerqf+  gesv = dgesv+  getrf = dgetrf+  getri = dgetri+  ggglm = dggglm+  gglse = dgglse+  ggqrf = dggqrf+  ggrqf = dggrqf+  gtsv = dgtsv+  gttrf = dgttrf+  poequ = dpoequ+  poequb = dpoequb+  ptcon = dptcon+  ptsv = dptsv+  pttrf = dpttrf+  stein = dstein+  --tgexc = dtgexc+  --tgsen = dtgsen+  tzrzf = dtzrzf+  gesvd = dgesvd++instance LapackeOps (Complex CFloat) CFloat where+  gbequ = cgbequ+  gbequb = cgbequb+  gbsv = cgbsv+  gbtrf = cgbtrf+  gebrd = cgebrd+  geequ = cgeequ+  geequb = cgeequb+  gehrd = cgehrd+  gelqf = cgelqf+  gelsd = cgelsd+  gelss = cgelss+  gelsy = cgelsy+  geqlf = cgeqlf+  geqp3 = cgeqp3+  geqpf = cgeqpf+  geqrf = cgeqrf+--  geqrfp = cgeqrfp+  gerqf = cgerqf+  gesv = cgesv+  getrf = cgetrf+  getri = cgetri+  ggglm = cggglm+  gglse = cgglse+  ggqrf = cggqrf+  ggrqf = cggrqf+  gtsv = cgtsv+  gttrf = cgttrf+  poequ = cpoequ+  poequb = cpoequb+  ptcon = cptcon+  ptsv = cptsv+  pttrf = cpttrf+  stein = cstein+  --tgexc = ctgexc+  --tgsen = ctgsen+  tzrzf = ctzrzf+  gesvd = cgesvd++instance LapackeOps (Complex CDouble) CDouble where+  gbequ = zgbequ+  gbequb = zgbequb+  gbsv = zgbsv+  gbtrf = zgbtrf+  gebrd = zgebrd+  geequ = zgeequ+  geequb = zgeequb+  gehrd = zgehrd+  gelqf = zgelqf+  gelsd = zgelsd+  gelss = zgelss+  gelsy = zgelsy+  geqlf = zgeqlf+  geqp3 = zgeqp3+  geqpf = zgeqpf+  geqrf = zgeqrf+--  geqrfp = zgeqrfp+  gerqf = zgerqf+  gesv = zgesv+  getrf = zgetrf+  getri = zgetri+  ggglm = zggglm+  gglse = zgglse+  ggqrf = zggqrf+  ggrqf = zggrqf+  gtsv = zgtsv+  gttrf = zgttrf+  poequ = zpoequ+  poequb = zpoequb+  ptcon = zptcon+  ptsv = zptsv+  pttrf = zpttrf+  stein = zstein+  --tgexc = ztgexc+  --tgsen = ztgsen+  tzrzf = ztzrzf+  gesvd = zgesvd++instance LapackeOpsComplex CFloat where+  unghr = cunghr+  unglq = cunglq+  ungql = cungql+  ungqr = cungqr+  ungrq = cungrq++instance LapackeOpsComplex CDouble where+  unghr = zunghr+  unglq = zunglq+  ungql = zungql+  ungqr = zungqr+  ungrq = zungrq++instance LapackeOpsReal CFloat CFloat where+  orghr = sorghr+  orglq = sorglq+  orgql = sorgql+  orgqr = sorgqr+  orgrq = sorgrq+  ptrfs = sptrfs+  pttrs = spttrs+  sterf = ssterf++instance LapackeOpsReal CDouble CDouble where+  orghr = dorghr+  orglq = dorglq+  orgql = dorgql+  orgqr = dorgqr+  orgrq = dorgrq+  ptrfs = dptrfs+  pttrs = dpttrs+  sterf = dsterf
+ Numeric/Jalla/IMM.hs view
@@ -0,0 +1,35 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}+-----------------------------------------------------------------------------+--+-- Module      :  Math.IMM+-- Copyright   :  Christian Gosch+-- License     :  BSD3+--+-- Maintainer  :+-- Stability   :+-- Portability :+--+-- |+--+-----------------------------------------------------------------------------++module Numeric.Jalla.IMM (+    IMM (..)+) where++import Data.Ix++{-| Indexable objects modification monad class.+    Monads in this type class are used to modify and create indexable objects+    such as matrices or vectors. This is to provide a common interface+    for such 'modification monads'. -}+class (Ix i) => IMM m i o e | m -> o, m -> i, m -> e where+    -- These three lead to functional dependency collisions since+    -- the type of the result can not be decided by the compiler.+    --create   :: i -> m a -> o+    --modify   :: o -> m a -> o+    --getO     :: m o+    setElem  :: i -> e -> m ()+    setElems :: [(i,e)] -> m ()+    fill     :: e -> m ()+    getElem  :: i -> m e
+ Numeric/Jalla/Indexable.hs view
@@ -0,0 +1,25 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}++-----------------------------------------------------------------------------+--+-- Module      :  Math.Indexable+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | Indexable objects for Jalla.+-----------------------------------------------------------------------------++module Numeric.Jalla.Indexable (+    Indexable (..)+) where++{-| Mathematical objects that can be indexed, such as matrices and vectors. -}+class Indexable o i e | o -> i, o -> e where+    {-| Get the element at a given index from an indexable object. -}+    (!) :: o   -- ^ The object to be indexed+          -> i -- ^ The index+          -> e -- ^ The element
+ Numeric/Jalla/InnerProduct.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}++-----------------------------------------------------------------------------+--+-- Module      :  Math.InnerProduct+-- Copyright   :  Christian Gosch+-- License     :  BSD3+--+-- Maintainer  :+-- Stability   :+-- Portability :+--+-- |+--+-----------------------------------------------------------------------------++module Numeric.Jalla.InnerProduct (+    InnerProduct(..)+) where++{-| A class that is used to define the canonical inner product on +/CVector/ type vectors. -}+class InnerProduct o f | o -> f where+    innerProduct :: o -> o -> f++++
+ Numeric/Jalla/Internal.hs view
@@ -0,0 +1,138 @@+-----------------------------------------------------------------------------+--+-- Module      :  Math.Internal+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | This module contains functions for /internal use/ only.+--   They all base on the manipulation of pointers, using functions from the /Foreign/+--   module. They must be considered unsafe. Use only if you know what you are doing.+-----------------------------------------------------------------------------+++module Numeric.Jalla.Internal where++import Foreign+import Foreign.Ptr+import Foreign.Marshal.Array+-- import Data.Convertible++{-| Maps a function over a contiguous (C) array, storing the result in another C array (in place!),+therefore being unsafe. Internal use only. -}+unsafePtrMap :: (Storable e1, Storable e2, Integral i) =>+               (e1 -> e2) -- ^ Function to map over the C array+               -> Ptr e1   -- ^ Pointer to the array to map over+               -> Ptr e2   -- ^ Pointer to the destination array+               -> i       -- ^ Number of elements to process+               -> IO ()+unsafePtrMap = unsafePtrMapInc 1 1+++{-| Maps a function over a contiguous (C) array, storing the result in the same array. -}+unsafePtrMap1 :: (Storable e, Integral i) =>+                (e -> e)    -- ^ Function to map over the C array+                -> Ptr e    -- ^ Pointer to the array to map over+                -> i        -- ^ Number of elements to process+                -> IO ()+unsafePtrMap1 = unsafePtrMap1Inc 1+++{-| Maps a function over a contiguous (C) array, storing the result in the same array. -}+unsafePtrMap1Inc :: (Storable e, Integral i) =>+                Int         -- ^ Increment (in elements) between elements in the array+                -> (e -> e)  -- ^ Function to map over the C array+                -> Ptr e    -- ^ Pointer to the array to map over+                -> i        -- ^ Number of elements to process+                -> IO ()+unsafePtrMap1Inc i f p n | n > 0 = pp `seq` n' `seq` fmap f (peek p) >>= poke p >> unsafePtrMap1Inc i f pp n'+  where pp = advancePtr p i+        n' = n - 1+unsafePtrMap1Inc _ _ _ _| otherwise = return ()+++{-| Maps a function over a contiguous (C) array, storing the result in another C array (in place!),+therefore being unsafe. Internal use only. -}+unsafePtrMapInc :: (Storable e1, Storable e2, Integral i) =>+               Int           -- ^ Increment (in elements) between elements in source array+               -> Int         -- ^ The same for the target array+               -> (e1 -> e2) -- ^ Function to map over the C array+               -> Ptr e1    -- ^ Pointer to the array to map over+               -> Ptr e2    -- ^ Pointer to the destination array+               -> i         -- ^ Number of elements to process+               -> IO ()+unsafePtrMapInc i1 i2 f p1 p2 n | n > 0 = p1' `seq` p2' `seq` n' `seq` fmap f (peek p1) >>= poke p2 >> unsafePtrMapInc i1 i2 f p1' p2' n'+                                where p1' = advancePtr p1 i1+                                      p2' = advancePtr p2 i2+                                      n'  = n - 1 +unsafePtrMapInc _ _ _ _ _ _     | otherwise = return ()+++{-| Like /unsafePtrMapInc/, but for 2-dimensional C-like arrays.+This function honours the fact that in some arrays, the lines may not be contiguous. -}+unsafePtrMapInc2 :: (Storable e1, Storable e2, Integral n, Integral m) =>+               (Int,Int)   -- ^ Increment (in elements) between elements *and* lines in source array+               -> (Int,Int) -- ^ The same for the target array+               -> (e1 -> e2) -- ^ Function to map over the C array+               -> Ptr e1    -- ^ Pointer to the array to map over+               -> Ptr e2    -- ^ Pointer to the destination array+               -> (n,m)     -- ^ Number of elements to process for each line, and number of lines to process.+               -> IO ()+unsafePtrMapInc2 a@(i11,i12) b@(i21,i22) f p1 p2 (n,m) | m > 0 = unsafePtrMapInc i11 i21 f p1 p2 n >> +                                                                 (p1' `seq` p2' `seq` m' `seq` unsafePtrMapInc2 a b f p1' p2' (n,m'))+                                                       where p1' = advancePtr p1 i12+                                                             p2' = advancePtr p2 i22+                                                             m'  = m - 1+unsafePtrMapInc2 _ _ _ _ _ _                           | otherwise = return ()+++++{-| Maps a function over a contiguous (C) array, storing the result in another C array (in place!),+therefore being unsafe. Internal use only. -}+unsafe2PtrMapInc :: (Storable e1, Storable e2, Storable e3, Integral i) =>+               Int           -- ^ Increment (in elements) between elements in the first input array+               -> Int         -- ^ The same for the second input array+               -> Int         -- ^ The same for the destination array+               -> (e1 -> e2 -> e3) -- ^ Function to map over the C arrays+               -> Ptr e1    -- ^ Pointer to the first input array to map over+               -> Ptr e2    -- ^ Pointer to the second source array+               -> Ptr e3    -- ^ Pointer to the destination array+               -> i         -- ^ Number of elements to process+               -> IO ()+unsafe2PtrMapInc i1 i2 i3 f p1 p2 p3 n | n > 0 = p1' `seq` p2' `seq` p3' `seq` n' `seq` do+                                                   v1 <- peek p1+                                                   v2 <- peek p2 +                                                   poke p3 (f v1 v2)+                                                   unsafe2PtrMapInc i1 i2 i3 f p1' p2' p3' n'+                                where p1' = advancePtr p1 i1+                                      p2' = advancePtr p2 i2+                                      p3' = advancePtr p3 i3+                                      n'  = n - 1 +unsafe2PtrMapInc _ _ _ _ _ _ _ _  | otherwise = return ()+++{- Jetzt noch binaere Operationen auf Matrizen ... -}+unsafe2PtrMapInc2 :: (Storable e1, Storable e2, Storable e3, Integral n, Integral m) =>+               (Int,Int)   -- ^ Increment (in elements) between elements *and* lines in the first input array+               -> (Int,Int) -- ^ The same for the second input array+               -> (Int,Int) -- ^ The same for the destination array+               -> (e1 -> e2 -> e3) -- ^ Function to map over the C array+               -> Ptr e1    -- ^ Pointer to the array to map over+               -> Ptr e2    -- ^ Pointer to the second input array+               -> Ptr e3    -- ^ Pointer to the destination array+               -> (n,m)     -- ^ Number of elements to process for each line, and number of lines to process.+               -> IO ()+unsafe2PtrMapInc2 a@(i11,i12) b@(i21,i22) c@(i31,i32) f p1 p2 p3 (n,m) | m > 0 = +   unsafe2PtrMapInc i11 i21 i31 f p1 p2 p3 n >> +   (p1' `seq` p2' `seq` p3' `seq` m' `seq` unsafe2PtrMapInc2 a b c f p1' p2' p3' (n,m'))+       where p1' = advancePtr p1 i12+             p2' = advancePtr p2 i22+             p3' = advancePtr p3 i32+             m'  = m - 1+unsafe2PtrMapInc2 _ _ _ _ _ _ _ _                             | otherwise = return ()++
+ Numeric/Jalla/Matrix.hs view
@@ -0,0 +1,1083 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances,+GeneralizedNewtypeDeriving, TypeSynonymInstances, FlexibleContexts, RankNTypes, +ExistentialQuantification, ScopedTypeVariables, TypeFamilies #-}++-----------------------------------------------------------------------------+--+-- Module      :  Math.Matrix+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | This is the matrix module of Jalla.+-- +-----------------------------------------------------------------------------+++module Numeric.Jalla.Matrix+       (+         -- * Classes+         -- ** Matrices+         GMatrix(..),+         CMatrix(..),+         shapeTrans,+         -- ** Matrix/Matrix Operations+         MatrixMatrix(..),+         -- ** Matrix/Vector Operations+         MatrixVector(..),+         -- ** Matrix/Scalar Operations+         MatrixScalar(..),+        -- ** Indexable+         module Numeric.Jalla.Indexable,+         -- * Data types+         Matrix,+         Order(..),+         Transpose(..),+         RefVector,++        -- * Construction, Conversion, Manipulation+        -- ** Manipulation Monad and Functions+        MMM,+        createMatrix,+        modifyMatrix,+        -- getMatrix,+        setDiag,+        setRow,+        setColumn,+        setBlock,+        fillBlock,+        scaleRow,+        scaleColumn,+        refRow,+        refColumn,+        -- ** Maps over 'CMatrix'+        matrixMap,+        matrixBinMap,+        -- ** Conversions To And From Lists+        matrixList,+        matrixLists,+        listMatrix,+        matrixAssocs,+        gmatrixAssocs,+        -- ** Copying Rows and Columns+        row,+        column,+        rows,+        columns,+         -- ** Functions From IMM Can Be Used+        module Numeric.Jalla.IMM,++        -- * Printing Matrices+        prettyPrintMatrix,+        prettyPrintMatrixIO,+        +        -- * CMatrix Linear Algebra Functions+        -- ** Solving Linear Systems+        solveLinearSystem,+        -- ** Inversion+        invert,+        pseudoInverse,+        -- ** Norms+        frobNorm,+        -- ** Special Matrices And Operations+        idMatrix,+        matrixMultDiag,+        -- ** SVD+        svd,+        SVD(..),+        SVDOpt(..),+        SVDU(..),+        SVDVT(..),+        +        -- * Generating and Checking Indices+        checkIndex,+        inMatrixRange,+        diagIndices,++        -- * Low Level IO Matrix Functions+        matrixAlloc',+        matrixElem,+        matrixMult,++        -- * Unsafe manipulations. +        -- Do not use these unless you know what you are doing.+        -- These may change without notice and may be removed from the visible interface.+        unsafeMatrixSetElem,+        unsafeMatrixMult,+        unsafeMatrixFill,+        unsafeMatrixCopy,+        unsafeSolveLinearSystem,+        unsafeSVD,+        unsafeMatrixMap,+        unsafeMatrixBinMap,++        withCMatrixRow,+        withCMatrixColumn,+        +        -- * Re-exported+        CFloat,+        CDouble,+        Complex+        ) where++import Numeric.Jalla.Foreign.BLAS+import Numeric.Jalla.Foreign.BlasOps+import Numeric.Jalla.Foreign.LAPACKE+import Numeric.Jalla.Foreign.LapackeOps+import Numeric.Jalla.Internal+import Numeric.Jalla.IMM+import Numeric.Jalla.Vector+import Numeric.Jalla.Indexable+import Numeric.Jalla.Types++import Foreign.C.Types+import Foreign.Marshal.Array+import Foreign hiding (unsafePerformIO)+import System.IO.Unsafe (unsafePerformIO)++import Data.Ix+import Data.Complex+import Data.List (partition)+import Data.Maybe (fromJust)+import Control.Monad.State+import Data.Convertible++{-+   TODO: Storage type zu CMatrix Typ hinzufuegen; Funktionen wie "unsafeSetElem",+     "unsafeGetElem", "matrixMult", "multiplyAdd",... zu+     CMatrix hinzufuegen; Instanzen fuer jeden storage Typ fuer Matrix. -}++instance BLASEnum Order CblasOrder where+  toBlas RowMajor        = CblasRowMajor+  toBlas ColumnMajor     = CblasColMajor+  fromBlas CblasRowMajor = RowMajor+  fromBlas CblasColMajor = ColumnMajor++instance BLASEnum Transpose CblasTranspose where+  toBlas Trans          = CblasTrans+  toBlas NoTrans        = CblasNoTrans+  fromBlas CblasTrans   = Trans+  fromBlas CblasNoTrans = NoTrans++instance BLASEnum UpLo CblasUplo where+  toBlas Up           = CblasUpper+  toBlas Lo           = CblasLower+  fromBlas CblasUpper = Up+  fromBlas CblasLower = Lo+++instance LAPACKEEnum Order Int where+    toLapacke e    = fromEnum (toBlas e :: CblasOrder)+    fromLapacke le = fromBlas (toEnum le :: CblasOrder)+++{-| Generic matrix interface. -}+class (Field1 e, Indexable (mat e) IndexPair e) => GMatrix mat e where+  -- matrix   :: Shape -> mat e+  shape    :: mat e -> Shape+  rowCount :: mat e -> Index+  colCount :: mat e -> Index+  shape m  = (rowCount m, colCount m)+  rowCount = fst . shape+  colCount = snd . shape++  -- (!) :: mat e -> IndexPair -> e++infixl 7 ##, ##!+infixl 6 ##-, ##+++class (Field1 e, BlasOps e, GMatrix mat e, CMatrix mat e) => MatrixMatrix mat e where+  (##) :: mat e -> mat e -> mat e+  (##!) :: (mat e, Transpose) -> (mat e, Transpose) -> mat e+  (##+) :: mat e -> mat e -> mat e+  (##-) :: mat e -> mat e -> mat e+  m1 ## m2 | colCount m1 /= rowCount m2 = error "(##): shape mismatch!"+           | otherwise = unsafePerformIO $ matrixMult 1 NoTrans m1 NoTrans m2+  (m1,t1) ##! (m2,t2) | colCountTrans t1 s1 /= rowCountTrans t2 s2 = error "(##): shape mismatch!"+                      | otherwise = unsafePerformIO $ matrixMult 1 t1 m1 t2 m2+                          where s1 = shape m1+                                s2 = shape m2+  m1 ##+ m2 = matrixBinMap (\a b -> a + b) m1 m2+  m1 ##- m2 = matrixBinMap (\a b -> a - b) m1 m2+++infixl 7 #|,|#++class (CMatrix mat e, CVector vec e) => MatrixVector mat vec e where+  (#|) :: mat e -> vec e -> vec e+  (|#) :: vec e -> mat e -> vec e+++infixl 7 #.*,#./+infixl 6 #.+,#.-++{-| Matrix operations with a scalar. +    The nomenclature is to be read /Matrix - Scalar - [operation name]/,+    where /#/ stands for matrix, /./ stands for scalar. -}+class (Storable e, CMatrix mat e) => MatrixScalar mat e where+  (#.*) :: mat e -> e -> mat e+  a #.* b = matrixMap (*b) a+  (#./) :: mat e -> e -> mat e+  a #./ b = matrixMap (/b) a+  (#.+) :: mat e -> e -> mat e+  a #.+ b = matrixMap (+b) a+  (#.-) :: mat e -> e -> mat e+  a #.- b = matrixMap ((-)b) a+++{-| Interface for matrices with underlying contiguous C array storage.+    These matrices can be used with BLAS and LAPACK functions. -}+class (Storable e, BlasOps e, GMatrix mat e) => CMatrix mat e where+  -- | This is an associated vector type that /can/ be used with /mat e/.+  type CMatrixVector mat e :: *     +  -- | The same, but a vector type with a type that is the associated scalar of e. +  type CMatrixVectorS mat e :: *    +  matrixAlloc      :: Shape -> IO (mat e)+  withCMatrix      :: mat e -> (Ptr e -> IO a) -> IO a+  lda              :: mat e -> Index+  order            :: mat e -> Order+  matrixForeignPtr :: mat e -> ForeignPtr e+++{-| Map over a CMatrix. +Applies the given function to each element in the matrix and returns the resulting matrix. -}+matrixMap :: (Storable e1, Storable e2, CMatrix mat1 e1, CMatrix mat2 e2) => +             (e1 -> e2)  -- ^ Function /f/ to map.+             -> mat1 e1  -- ^ Input matrix A.+             -> mat2 e2  -- ^ Return matrix B. /B_ij = f A_ij/.+matrixMap f mat = unsafePerformIO $ let s = shape mat in +                  matrixAlloc s >>= \m -> unsafeMatrixMap f mat m >> return m++{-| Map a binary function over two 'CMatrix's. -}+matrixBinMap :: (Storable e1, Storable e2, Storable e3, CMatrix mat1 e1, CMatrix mat2 e2, CMatrix mat3 e3) => +                (e1 -> e2 -> e3) -- ^ Function /f/ to map.+                -> mat1 e1      -- ^ First input matrix A.+                -> mat2 e2      -- ^ Second input matrix B.+                -> mat3 e3      -- ^ Return matrix C. /C_ij = f A_ij B_ij/.+matrixBinMap f mat1 mat2 = unsafePerformIO $ do+                             let (m1,n1) = shape mat1+                                 (m2,n2) = shape mat2+                             m <- matrixAlloc (min m1 m2, min n1 n2) +                             unsafeMatrixBinMap f mat1 mat2 m+                             return m+                                               ++++data CMatrixContainer = forall mat a. CMatrix mat a => CMatrixContainer (mat a)++-- This function finds the quadruples (a,b,c,d) for each matrix,+-- saying that: go through /a/ elements using /b/ as increment, then+-- increment the pointer (from the start of the line) using increment /d/,+-- and do that /c/ times. Naturally, (a,b) should be equal for all matrices+-- if they have the same shape.+-- If more of the matrices are RowMajor than ColumnMajor, the returned +-- iteration order will be row-wise, otherwise it will be column-wise.+-- These functions are used in unsafeMatrixMap and friends.+lengthAndInc' :: [CMatrixContainer] -> [(Index, Index, Index, Index)]+lengthAndInc' mas = if nr > nc then as else bs+    where+      as = map lengthAndInc'' mas+      lengthAndInc'' (CMatrixContainer a) = lengthAndInc a+      bs = map flipit as+      flipit (a,b,c,d) = (b,a,d,c)+      (rm,cm) = partition (== RowMajor) os+      (nr,nc) = (length rm, length cm)+      os = map (\(CMatrixContainer m) -> order m) mas+lengthAndInc :: forall mat a. (CMatrix mat a) => mat a -> (Index, Index, Index, Index)+lengthAndInc ma = case o of+                    RowMajor -> (n,m,1,ldA)+                    _ -> (n,m,ldA,1)+    where o = order ma+          (m,n) = shape ma+          ldA = lda ma+++unsafeMatrixMap :: (Storable e1, Storable e2, CMatrix mat1 e1, CMatrix mat2 e2) => (e1 -> e2) -> mat1 e1 -> mat2 e2 -> IO ()+unsafeMatrixMap f mat mat' = +    let +        [(n1,m1,i11,i12),(n2,m2,i21,i22)] = lengthAndInc' [CMatrixContainer mat, CMatrixContainer mat']+   in+    withCMatrix mat $ \matp -> do+      withCMatrix mat' $ \mat'p ->+          unsafePtrMapInc2 (i11,i12) (i21,i22) f matp mat'p ((min n1 n2),(min m1 m2))+++unsafeMatrixBinMap :: (Storable e1, Storable e2, Storable e3, CMatrix mat1 e1, CMatrix mat2 e2, CMatrix mat3 e3) => (e1 -> e2 -> e3) -> mat1 e1 -> mat2 e2 -> mat3 e3 -> IO ()+unsafeMatrixBinMap f mat mat' mat'' = +    let +        [(n1,m1,i11,i12),(n2,m2,i21,i22),(n3,m3,i31,i32)] = lengthAndInc' [CMatrixContainer mat, CMatrixContainer mat', CMatrixContainer mat'']+   in+    withCMatrix mat $ \matp ->+    withCMatrix mat' $ \mat'p ->+    withCMatrix mat'' $ \mat''p ->+          unsafe2PtrMapInc2 (i11,i12) (i21,i22) (i31,i32) f matp mat'p mat''p ((minimum [n1,n2,n3]),(minimum [m1,m2,m3]))++++-- data (Storable a) => BlasComplex a = BlasComplex { bcReal :: a, bcImag :: a }+++{-| This is the instance of 'CMatrix' that Jalla provides.+    If you don't have another 'CMatrix' instance, 'Matrix'+    is the one you will want to use. -}+data BlasOps e => Matrix e = Matrix { matP :: !(ForeignPtr e),+                                     matShape :: !Shape,+                                     matLDA :: !Index,+                                     matOrder :: !Order }+++instance (Num e, Field1 e, BlasOps e) => GMatrix Matrix e where+  -- matrix (r,c) = unsafePerformIO $ matrixAlloc (r,c) >>= \m -> unsafeMatrixFill m 42 >> return m+  shape = matShape+  -- m ! ij = unsafePerformIO $ matrixElem m ij++instance BlasOps e => MatrixMatrix Matrix e ++instance BlasOps e => Indexable (Matrix e) IndexPair e where+    m ! ij = unsafePerformIO $ matrixElem m ij+++instance (Num e, Field1 e, BlasOps e) => CMatrix Matrix e where+  type CMatrixVector Matrix e  = Vector e+  type CMatrixVectorS Matrix e = Vector (FieldScalar e)+  matrixAlloc                  = matrixAlloc'+  withCMatrix                  = withMatrix'+  lda                          = matLDA+  order                        = matOrder+  matrixForeignPtr             = matP+++withMatrix' :: (BlasOps e) => Matrix e -> (Ptr e -> IO a) -> IO a+withMatrix' m = withForeignPtr (matP m)+++instance (BlasOps e, Show e) => Show (Matrix e) where+  show mat = "listMatrix (" ++ show m ++ "," ++ show n ++ ") " ++ show ml+    where (m,n) = shape mat+          ml    = matrixList RowMajor mat+++instance (BlasOps e, Eq e) => Eq (Matrix e) where+  a == b = if (shape a == shape b) +           then (and $ zipWith (==) (matrixList RowMajor a) (matrixList RowMajor b))+           else False+++{-| /Num/ instance for a /Matrix/. +The operations are all /element-wise/. There may be the occasional error+by wrongly assuming that /(*)/ returns the matrix product, which it doesn't.+This instance is basically only provided to get the + and - operators.+Note that this will /not/ work with 'sum', since +that assumes it can start with a "0". -}+instance (BlasOps e, Num e) => Num (Matrix e) where+  a + b         = a ##+ b+  a - b         = a ##- b+  a * b         = matrixBinMap (*) a b+  negate        = matrixMap (* (-1))+  abs           = matrixMap abs+  signum        = matrixMap signum+  fromInteger i = createMatrix (1,1) $ setElem (0,0) (fromIntegral i)+  ++instance (BlasOps e, Num e, Fractional e) => Fractional (Matrix e) where+  a / b = matrixBinMap (/) a b+  recip = matrixMap recip+  fromRational r = createMatrix (1,1) $ setElem (0,0) (fromRational r)+  +{-| An instance of 'Matrix' for 'Floating', for convenience.+    Some of these don't make much sense in some situations,+    but having the trigonometric functions and the like around can be pretty handy. +    The functions work element-wise. -}+instance (BlasOps e, Num e, Fractional e) => Floating (Matrix e) where+  -- | Returns a 1-vector with /pi/ in it.+  pi = createMatrix (1,1) $ setElem (0,0) pi+  exp = matrixMap exp+  sqrt = matrixMap sqrt+  log = matrixMap log+  -- | Takes the /element-wise/ power.+  a ** b = matrixBinMap (**) a b+  -- | Computes 'logBase' the /element-wise/. It may be more useful to simply use /matrixMap (logBase b) v/.+  logBase = matrixBinMap logBase+  sin = matrixMap sin+  tan = matrixMap tan+  cos = matrixMap cos+  asin = matrixMap asin+  atan = matrixMap atan+  acos = matrixMap acos+  sinh = matrixMap sinh+  tanh = matrixMap tanh+  cosh = matrixMap cosh+  asinh = matrixMap asinh+  atanh = matrixMap atanh+  acosh = matrixMap acosh++++{-| Get association list of indices and elements for the given GMatrix. -}+gmatrixAssocs :: (GMatrix mat e) => mat e -> [(IndexPair,e)]+gmatrixAssocs m = zip is $ map (m !) is+    where+        is = range ((0,0),s)+        s = let (r,c) = shape m in (r-1,c-1)+{-# RULES "gmatrixAssocs/matrixAssocs" forall (m :: (BlasOps e, CMatrix mat e) => mat e). gmatrixAssocs m = matrixAssocs RowMajor m #-}+++{-| Get association list of indices and elements for the given CMatrix. -}+matrixAssocs :: (BlasOps e, CMatrix mat e) => Order -> mat e -> [(IndexPair, e)]+matrixAssocs o mat = zip r es+    where+        r | o == RowMajor = [(i,j) | i <- [0..r'], j <- [0..c']] +          | otherwise    = [(i,j) | j <- [0..c'], i <- [0..r']] +        es = matrixList o mat+        (r',c') = let (a,b) = shape mat in (a-1,b-1)+{-# SPECIALIZE INLINE matrixAssocs :: Order -> Matrix CFloat -> [(IndexPair, CFloat)] #-}+{-# SPECIALIZE INLINE matrixAssocs :: Order -> Matrix CDouble -> [(IndexPair, CDouble)] #-}+{-# SPECIALIZE INLINE matrixAssocs :: Order -> Matrix (Complex CFloat) -> [(IndexPair, Complex CFloat)] #-}+{-# SPECIALIZE INLINE matrixAssocs :: Order -> Matrix (Complex CDouble) -> [(IndexPair, Complex CDouble)] #-}+++{-| Matrix multiplication. Computes alpha * A(^T) * B(^T). -}+matrixMult :: (BlasOps e, CMatrix mat e) =>+    e               -- ^ Factor alpha+    -> Transpose     -- ^ Transposition of matrix A+    -> mat e         -- ^ Matrix A+    -> Transpose     -- ^ Transposition of Matrix B+    -> mat e         -- ^ Matrix B+    -> IO (mat e)+{-# SPECIALIZE INLINE matrixMult :: CFloat -> Transpose -> Matrix CFloat -> Transpose -> Matrix CFloat -> IO (Matrix CFloat) #-}+{-# SPECIALIZE INLINE matrixMult :: CDouble -> Transpose -> Matrix CDouble -> Transpose -> Matrix CDouble -> IO (Matrix CDouble) #-}+{-# SPECIALIZE INLINE matrixMult :: (Complex CFloat) -> Transpose -> Matrix (Complex CFloat) -> Transpose -> Matrix (Complex CFloat) -> IO (Matrix (Complex CFloat)) #-}+{-# SPECIALIZE INLINE matrixMult :: (Complex CDouble) -> Transpose -> Matrix (Complex CDouble) -> Transpose -> Matrix (Complex CDouble) -> IO (Matrix (Complex CDouble)) #-}+matrixMult alpha transA a transB b =+  matrixAlloc s >>= \ret ->+  unsafeMatrixMult alpha transA a transB b 0 ret >>+  return ret+    where s = (rowCountTrans transA (shape a), colCountTrans transB (shape b))+++{-| Unsafe matrix multiplication. The result is accumulated in the last matrix argument; this function is unsafe+because the memory of the last argument is changed in place. This can be used for accumulating+many operations in a monad, maybe? Computes C <- alpha * A(^T) * B(^T) + beta * C -}+unsafeMatrixMult :: (BlasOps e, CMatrix mat e) =>+    e            -- ^ Factor alpha+    -> Transpose  -- ^ Transposition of matrix A+    -> mat e      -- ^ Matrix A+    -> Transpose  -- ^ Transposition of Matrix B+    -> mat e      -- ^ Matrix B+    -> e          -- ^ Factor beta+    -> mat e      -- ^ Matrix C -- This is changed in place and /must/ be of the correct size! The+                 -- size is not checked!+    -> IO ()+unsafeMatrixMult alpha transA a transB b beta c =+  withCMatrix a $ \pa ->+  withCMatrix b $ \pb ->+  withCMatrix c $ \pc ->+  gemm (toBlas $ order a) transA' transB' m n k alpha pa ldA pb ldB beta pc ldC+    where+      (m,k)   = shapeTrans transA $ shape a+      n       = colCountTrans transB $ shape b+      ldA     = lda a+      ldB     = lda b+      ldC     = lda c+      transA' = toBlas transA+      transB' = toBlas transB++++{-| Solve a system AX = B with LAPACKs xgesv procedure. Replaces A with a LU decomposition and B with the solution. -}+unsafeSolveLinearSystem :: (BlasOps e, LapackeOps e se, CMatrix mat e) =>+                          mat e    -- ^ Matrix A+                          -> mat e  -- ^ Matrix B, holds the result after the method returned.+                          -> IO ()+unsafeSolveLinearSystem a b | rowCount a == colCount a && rowCount a == rowCount b =+  withCMatrix a $ \pa ->+  withCMatrix b $ \pb ->+  allocaArray n $ \pipiv ->+  gesv (fromEnum ((toBlas $ order a) :: CblasOrder)) n nrhs pa (lda a) pipiv pb (lda b) >>= \ret ->+  if ret /= 0 then error "unsafeSolveLinearSystem: ret /= 0" else return ()+    where+      n = colCount a+      nrhs = colCount b+unsafeSolveLinearSystem a b | otherwise = error "unsafeSolveLinearSystem: The shapes of the arguments do not match."+++{-| Solves a system AX = B with LAPACKs xgesv procedure. Returns+    a matrix with the solutions in its columns. -}+solveLinearSystem :: (BlasOps e, LapackeOps e se, CMatrix mat e) => +                     mat e   -- ^ The matrix /A/+                     -> mat e -- ^ The matrix /B/, the right-hand sides.+                     -> mat e -- ^ The solutions /X/, one in each column.+{-# NOINLINE solveLinearSystem #-}+solveLinearSystem a b = unsafePerformIO $+                        matrixCopy b NoTrans >>= \x ->+                        matrixCopy a NoTrans >>= \a' ->+                        unsafeSolveLinearSystem a' x >> return x+++{-| Returns the square identity matrix with given row number. -}+idMatrix :: (BlasOps e, CMatrix mat e) => Index -> mat e+idMatrix n = createMatrix (n,n) $ fill 0 >> setDiag 0 (repeat 1)+++{-| Invert by solving a linear system. 'invert' is probably more efficient. -}+invert' :: (BlasOps e, LapackeOps e se, CMatrix mat e) => mat e -> mat e+invert' a | colCount a == rowCount a = solveLinearSystem a (idMatrix $ colCount a)+          | otherwise = error "Cannot invert non-square matrix."+++{-| Invert. Implemented with LAPACK's getrf and getri, that is probably more efficient than+using solveLinearSystem. -}+{-# NOINLINE invert #-}+invert :: (BlasOps e, LapackeOps e se, CMatrix mat e) => mat e -> Maybe (mat e)+invert a | colCount a == rowCount a = unsafePerformIO $ matrixCopy a NoTrans >>= \a' -> unsafeInvert a'+         | otherwise = Nothing --error "Cannot invert non-square matrix."+++{-| Compute the pseudo-inverse with the help of a SVD. -}+pseudoInverse :: (BlasOps e, se ~ FieldScalar e, BlasOps se, Real se, LapackeOps e se, MatrixMatrix mat e, CMatrix mat e) +                 => mat e -> mat e+pseudoInverse a = (matrixMultDiag (vt,Trans) s, NoTrans) ##! (u,Trans)+  -- ((vt,Trans) ##! (sm,NoTrans), NoTrans) ##! (u,Trans)+  where svd'  = (svd a (SVDU SVDThin, SVDVT SVDThin))+        s     = map (\x -> if x /= 0 then 1 / (realToFrac x) else 0) $ svdS svd'+        u     = fromJust $ svdU svd'+        vt    = fromJust $ svdVT svd'+++{-| A construct to enable us to reference rows and columns in matrices, thereby+saving some cost on copying and memory allocation. The referenced matrix will not be+garbage collected (if I understand 'ForeignPtr' right) before one of the 'RefVector's+referencing it. -}+data Storable e => RefVector e = RefVector {+  refRefP :: !(ForeignPtr e),+  refVecP :: !(Ptr e),+  refVecInc :: !Index,+  refVecLength :: !Index}+++instance (Show e, Field1 e, Storable e, BlasOps e) => Show (RefVector e) where+  show v = "listVector " ++ show (vectorList v)++instance (BlasOps e, Storable e) => CVector RefVector e where+  vectorAlloc = error "No vectorAlloc for RefVector."+  withCVector v act = act $ refVecP v+  inc         = refVecInc++instance (BlasOps e, Storable e) => Indexable (RefVector e) Index e where+  v ! i  = if i >= 0 && i < refVecLength v +           then unsafePerformIO $ withCVector v $ \p -> peek (advancePtr p (i * (refVecInc v)))+           else error "RefVector range violation."+                       +instance (Field1 e, Storable e, BlasOps e) => GVector RefVector e where+  vector n = unsafePerformIO $ vectorAlloc n+  vectorLength = refVecLength++instance BlasOps e => VectorVector RefVector e+instance BlasOps e => VectorScalar RefVector e+++{-| Run an IO action on a row of a matrix, without copying the vector. -}+withCMatrixRow :: Storable e => CMatrix mat e => mat e -> Index -> (RefVector e -> IO a) -> IO a+withCMatrixRow mat i act = withCMatrix mat $ \mp -> do+  when (i >= m || i < 0) $ error "withCMatrixRow range violation." +  let p = advancePtr mp (i * rinc)+  act (RefVector { refRefP = (matrixForeignPtr mat), refVecP = p, refVecInc = cinc, refVecLength = n })+  where+    (m,n) = shape mat+    o = order mat+    (rinc,cinc) | o == RowMajor = (lda mat, 1)+                | otherwise = (1, lda mat)+            +{-| Run an IO action on a column of a matrix, without copying the vector. -}+withCMatrixColumn :: Storable e => CMatrix mat e => mat e -> Index -> (RefVector e -> IO a) -> IO a+withCMatrixColumn mat i act = withCMatrix mat $ \mp -> do+  when (i >= n || i < 0) $ error "withCMatrixColumn range violation." +  let p = advancePtr mp (i * cinc)+  act (RefVector { refRefP = (matrixForeignPtr mat), refVecP = p, refVecInc = rinc, refVecLength = m })+  where+    (m,n) = shape mat+    o = order mat+    (rinc,cinc) | o == RowMajor = (lda mat, 1)+                | otherwise = (1, lda mat)+            ++{-| Return a 'RefVector' to a column or row. -}+columnRef, rowRef :: (CMatrix mat e) => mat e -> Index -> RefVector e+{-# NOINLINE columnRef #-}+columnRef m i = unsafePerformIO $ withCMatrixColumn m i return+{-# NOINLINE rowRef #-}+rowRef m i = unsafePerformIO $ withCMatrixRow m i return+++{-| Return 'RefVector's to all rows or columns. -}+rowsRef, columnsRef :: (CMatrix mat e) => mat e -> [RefVector e]+rowsRef m = map (rowRef m) [0..(rowCount m)-1]+columnsRef m = map (columnRef m) [0..(colCount m)-1]+++-- Note: copyVector can not work with /RefVector/, since those can not be allocated.+{-| Get a column or row from a matrix. -}+column, row :: (CMatrix mat e, CVector vec e) => mat e -> Index -> vec e+row m i = unsafePerformIO $ withCMatrixRow m i $ \ref -> copyVector ref -- A copy should be safe.+column m i = unsafePerformIO $ withCMatrixColumn m i $ \ref -> copyVector ref +{-# SPECIALIZE NOINLINE row :: Matrix CFloat -> Index -> Vector CFloat #-}  +{-# SPECIALIZE NOINLINE row :: Matrix CDouble -> Index -> Vector CDouble #-}  +{-# SPECIALIZE NOINLINE row :: Matrix (Complex CFloat) -> Index -> Vector (Complex CFloat) #-}  +{-# SPECIALIZE NOINLINE row :: Matrix (Complex CDouble) -> Index -> Vector (Complex CDouble) #-}  +{-# SPECIALIZE NOINLINE column :: Matrix CFloat -> Index -> Vector CFloat #-}  +{-# SPECIALIZE NOINLINE column :: Matrix CDouble -> Index -> Vector CDouble #-}  +{-# SPECIALIZE NOINLINE column :: Matrix (Complex CFloat) -> Index -> Vector (Complex CFloat) #-}  +{-# SPECIALIZE NOINLINE column :: Matrix (Complex CDouble) -> Index -> Vector (Complex CDouble) #-}  +{-# RULES "row/rowRef" row = rowRef #-}+{-# RULES "colum/columnRef" column = columnRef #-}++{-| Get all rows or columns from a matrix. -}+rows, columns :: (CMatrix mat e, CVector vec e) => mat e -> [vec e]+rows m = map (row m) [0..(rowCount m) - 1]+columns m = map (column m) [0..(colCount m) - 1]+{-# SPECIALIZE NOINLINE rows :: Matrix CFloat -> [Vector CFloat] #-}  +{-# SPECIALIZE NOINLINE rows :: Matrix CDouble -> [Vector CDouble] #-}  +{-# SPECIALIZE NOINLINE rows :: Matrix (Complex CFloat) -> [Vector (Complex CFloat)] #-}  +{-# SPECIALIZE NOINLINE rows :: Matrix (Complex CDouble) -> [Vector (Complex CDouble)] #-}  +{-# SPECIALIZE NOINLINE columns :: Matrix CFloat -> [Vector CFloat] #-}  +{-# SPECIALIZE NOINLINE columns :: Matrix CDouble -> [Vector CDouble] #-}  +{-# SPECIALIZE NOINLINE columns :: Matrix (Complex CFloat) -> [Vector (Complex CFloat)] #-}  +{-# SPECIALIZE NOINLINE columns :: Matrix (Complex CDouble) -> [Vector (Complex CDouble)] #-}  +{-# RULES "rows/rowsRef" rows = rowsRef #-}+{-# RULES "colums/columnsRef" columns = columnsRef #-}+++{-| Multiply a matrix with a diagonal matrix, given only as a list of diagonal entries.+This uses references instead of copied vectors, to work more memory efficient+with large matrices. -}+matrixMultDiag :: (BlasOps e) => CMatrix mat e => +                  (mat e, Transpose) -- ^ Matrix /A/ and information on whether to use it transposed or not.+                  -> [e]              -- ^ Diagonals of a matrix /S/+                  -> mat e            -- ^ /A * S/ or /A^T * S/.+matrixMultDiag (a,t) d = modifyMatrix a t $ zipWithM_ scaleColumn d [0..c-1]+  where sh@(_,c) = shapeTrans t (shape a)+--I really want to work in-place, and I should be able to in the MMM monad, in a safe way +--(only the matrix under construction can be modified).++++{-| SVD option for the /U/ output. -}+data SVDU = SVDU SVDOpt deriving (Ord, Eq)+{-| SVD option for the /VT/ output. -}+data SVDVT = SVDVT SVDOpt deriving (Ord, Eq)+{-| SVD options for the output. -}+data SVDOpt = SVDFull -- ^ Selects the output to be fully computed. For /U/, that means /m x m/, for /VT/ it means /n x n/.+            | SVDThin -- ^ Selects Thin SVD. /U/: (m, min (m,n)), /VT/: (n, min (m,n))+            | SVDNone -- ^ Deselects the output.+            deriving (Ord, Eq)+  ++svdJob :: SVDOpt -> CChar+svdJob SVDFull = toEnum $ fromEnum 'A'+svdJob SVDThin = toEnum $ fromEnum 'S'+svdJob SVDNone = toEnum $ fromEnum 'N'+                                        ++svdJobs :: (SVDU, SVDVT) -> (CChar,CChar)+svdJobs (SVDU u,SVDVT vt) = (svdJob u, svdJob vt)+++{-| Description of the result of a singular value decomposition with 'svd'. -}+data (CMatrix mat e) => SVD mat e = SVD { +  -- | The left, unitary matrix U. Nothing if the /SVDU SVDNone/ was selected.+  svdU :: Maybe (mat e)+  -- | The right singular vectors, VT (transposed, so the vectors are in the rows). Nothing if /SVDVT SVDNone/ was selected.+  , svdVT :: Maybe (mat e)+  -- | The singular values, /s/.  +  , svdS :: [FieldScalar e] }+                                                            ++-- s /must/ have increment 1!!+{-| Uses the LAPACKE function /gesvd/ internally to compute the singular value decomposition. +    The arguments are used as storage, so this is really unsafe. Only used internally. -}+unsafeSVD :: (BlasOps e, LapackeOps e se, CVector vec se, CMatrix mat e) => +             mat e            -- ^ The matrix to diagonalise.+             -> (SVDU, SVDVT)  -- ^ Options for the SVD.+             -> vec se         -- ^ The CVector for holding the singular values.+             -> mat e          -- ^ U+             -> mat e          -- ^ VT+             -> IO Int         -- ^ The return value of gesvd.+unsafeSVD a opts s u vt = do+  when (inc s /= 1) $ error $ "unsafeSVD: s must have increment 1, but has " ++ show (inc s)+  withCMatrix a $ \ap ->+    withCVector s $ \sp ->+    withCMatrix u $ \up ->+    withCMatrix vt $ \vtp ->+    mallocForeignPtrArray superb_size >>= \superb' -> withForeignPtr superb' $ \superbp -> do+      gesvd mOrder jobu jobvt m n ap (lda a) sp up (lda u) vtp (lda vt) superbp+  where (jobu, jobvt) = svdJobs opts+        mOrder = toLapacke $ order a+        (m,n) = shape a+        superb_size = (min m n) - 1 -- This size is taken from the LAPACKE source code.++{-| Compute the singular value decomposition /U * S * V^T = A/ of a matrix /A/.+    U and V are (m,m) and (n,n) unitary matrices, and S is a (m,n) matrix with+    nonzero elements only on the main diagonal. These are the /singular values/.+    +    The extent to which /U/ and /V^T/+    are computed can be chosen by 'SVDU' and 'SVDVT' arguments.+    SVDU or SVDVT 'SVDFull' return the full (m,m) or (n,n) matrices.+    For 'SVDU' 'SVDThin', only the first min(m,n) columns of /U/ are computed.+    For 'SVDVT' 'SVDThin', only the first min(m,n) rows of /V^T/ are computed.+    For 'SVDNone', the respective matrix will not be returned.++    Note that /V^T/ is indeed returned in its transposed form. -}+svd :: (BlasOps e, se ~ FieldScalar e, BlasOps se, LapackeOps e se, CMatrix mat e) =>+       mat e               -- ^ The matrix /A/+       -> (SVDU, SVDVT)     -- ^ Choice of extent to which to compute /U/ and /V^T/.+       -> SVD mat e  -- ^ Returns the SVD.+svd a opts@(SVDU optu, SVDVT optvt) =+  unsafePerformIO $ do+    matrixCopy a NoTrans >>= \acopy ->+      matrixAlloc (shapeU optu) >>= \u ->+      matrixAlloc (shapeVT optvt) >>= \vt ->+      vectorAlloc len_s >>= \(s :: Vector se) -> do+        unsafeSVD acopy opts s u vt+        return $ SVD { svdU = if optu /= SVDNone then Just u else Nothing+                     , svdVT = if optvt /= SVDNone then Just vt else Nothing+                     , svdS = vectorList s }+  where+    (m,n) = shape a+    len_s = min m n+    shapeU SVDFull = (m,m)+    shapeU SVDThin = (m, min m n)+    shapeU _ = (0,0)+    shapeVT SVDFull = (n,n)+    shapeVT SVDThin = (min m n, n)+    shapeVT _ = (0,0)+++unsafeInvert :: (BlasOps e, LapackeOps e se, CMatrix mat e) => mat e -> IO (Maybe (mat e))+unsafeInvert mat = withCMatrix mat $ \mp ->+                   allocaArray (min m n) $ \ipiv ->+                   getrf o m n mp ldA ipiv >>= \ret ->+                   if ret /= 0+                   then return Nothing+                   else getri o n mp ldA ipiv >>= \ret ->+                        if ret /= 0+                        then return Nothing+                        else return $ Just mat+                   where+                     o = toLapacke $ order mat+                     ldA = lda mat+                     (m,n) = shape mat+++{-| Compute the Frobenius norm of a matrix. -}+frobNorm :: (BlasOps e, CMatrix mat e) => mat e -> e+frobNorm mat = sqrt $ sum $ map (\v -> v ||* v) vs+  where vs = rowsRef mat+++matrixAlloc' :: (BlasOps e) => Shape -> IO (Matrix e)+matrixAlloc' (r,c) = mallocForeignPtrArray (r * c) >>=+                     \p -> return $ Matrix p (r,c) c RowMajor+++checkIndex :: Shape -> IndexPair -> Bool+checkIndex (r,c) (i,j) = inRange (0,r-1) i && inRange (0,c-1) j+++inMatrixRange :: (BlasOps e, GMatrix mat e) => mat e -> IndexPair -> Bool+inMatrixRange m i = checkIndex (shape m) i+++matrixElem :: (Num e, BlasOps e, CMatrix mat e) => mat e -> IndexPair -> IO e+matrixElem m (i,j) | not (checkIndex s (i,j)) = error $ "matrixElem out of bounds"+  where s = shape m+matrixElem m (i,j) | otherwise = withCMatrix m $+                                 \p -> peekElemOff p (i' * (lda m) + j')+                                   where (i',j') | order m == RowMajor = (i,j)+                                                 | otherwise = (j,i)+++{-| Sets an element in place, therefore this is unsafe. Range check is done,+and an error is raised if the given index is out of bounds. -}+unsafeMatrixSetElem :: (BlasOps e, CMatrix mat e) =>+                      mat e  -- ^ Matrix to be modified.+                      -> IndexPair  -- ^ Index of the element to set+                      -> e         -- ^ Element to set+                      -> IO ()+unsafeMatrixSetElem mat (i,j) he | not (checkIndex s (i,j)) = error $ "unsafeMatrixSetElem out of bounds"+  where s = shape mat+unsafeMatrixSetElem mat (i,j) he | otherwise = withCMatrix mat $+                                               \p -> pokeElemOff p (i' * (lda mat) + j') he+                                                 where (i',j') | order mat == RowMajor = (i,j)+                                                               | otherwise = (j,i)+++{-| Setting a bunch of elements in a CMatrix; more efficient than calling unsafeMatrixSetElem repeatedly. -}+unsafeMatrixSetElems :: (BlasOps e, CMatrix mat e) =>+                      mat e  -- ^ Matrix to be modified.+                      -> [(IndexPair, e)]  -- ^ List of indices of the elements to set, together with the elements.+                      -> IO ()+-- unsafeMatrixSetElems mat els | not (checkIndex s (i,j)) = error $ "unsafeMatrixSetElem out of bounds"+--  where s = shape mat+unsafeMatrixSetElems mat els = withCMatrix mat $+                               \p -> mapM_ (setter p) els+                                 where+                                   ld = lda mat+                                   setter' p ((i,j),e) = pokeElemOff p (i * ld + j) e+                                   setter p ((i,j),e) | order mat == RowMajor = setter' p ((i,j),e)+                                                      | otherwise = setter' p ((j,i),e)+++{-| Fill the matrix in place, therefore this is unsafe. -}+unsafeMatrixFill :: (Num e, BlasOps e, CMatrix mat e) =>+                   mat e -- ^ Matrix to fill.+                   -> e        -- ^ Value to fill with+                   -> IO ()+unsafeMatrixFill m e = let (r,c) = shape m+                           f p n | n > 0 = let p' = advancePtr p 1+                                               n' = n - 1+                                           in poke p e >> f p' n'+                                 | otherwise = return ()+                        in withCMatrix m (\p' -> f p' (r * c))++++{-| Copies a matrix into the storage of another matrix, in-place and therefore unsafe+Uses the BLAS copy routine from BlasOps. /NOTE/: This uses BLAS 'copy', i.e. the LDA /must/ be either m or n,+where (m,n) is the shape of the matrix. -}+unsafeMatrixCopy :: (BlasOps e, CMatrix mat e) => +                    mat e        -- ^ Source /A/ to copy from.+                    -> Transpose  -- ^ If /Trans/, copies /A^T/ to B, otherwise copies /A/.+                    -> mat e      -- ^ Destination /B/. Must have the right dimensions.+                    -> IO () +unsafeMatrixCopy src t dst | shapeTrans t (shape src) == shape dst = +  case t of+    NoTrans -> zipWithM_ unsafeCopyVector src_rows dst_rows+    -- withCMatrix src $ \s ->+    -- withCMatrix dst $ \d -> copy n s 1 d 1+    Trans   -> zipWithM_ unsafeCopyVector src_cols dst_rows+  where +    src_cols = columnsRef src+    src_rows = rowsRef src+    dst_rows = rowsRef dst+    n        = (rowCount src) * (colCount src)+unsafeMatrixCopy _ _ _ | otherwise = error "unsafeMatrixCopy: shape mismatch."+++{-| Copies a matrix into a new matrix of the same shape.+When using unsafe operations which work in-place, this should be used to copy a matrix+before using such an unsafe function. -}+matrixCopy :: (BlasOps e, CMatrix mat e) => mat e -> Transpose -> IO (mat e)+matrixCopy a t = matrixAlloc (shapeTrans t (shape a)) >>= \ret -> unsafeMatrixCopy a t ret >> return ret+++matrixMap' :: (BlasOps e1, BlasOps e2, CMatrix mat1 e1, CMatrix mat2 e2) => (e1 -> e2) -> mat1 e1 -> IO (mat2 e2)+matrixMap' f mat = matrixAlloc s >>= \mRet ->+  withCMatrix mat $ \p1 ->+  withCMatrix mRet $ \p2 ->+  unsafePtrMap f p1 p2 n >> return mRet+  where+    s@(r,c) = shape mat+    n = r * c++++{-| Create a list of elements, in row-major order, from the given matrix. -}+matrixList :: (GMatrix mat e) => Order -> mat e -> [e]+matrixList o mat | o == RowMajor = [mat ! (i,j) | i <- [0..(r-1)], j <- [0..(c-1)]]+                 | o == ColumnMajor = [mat ! (i,j) | j <- [0..(c-1)], i <- [0..(r-1)]]+  where (r,c) = shape mat+{-# SPECIALIZE INLINE matrixList :: Order -> Matrix CFloat -> [CFloat] #-}+{-# SPECIALIZE INLINE matrixList :: Order -> Matrix CDouble -> [CDouble] #-}+{-# SPECIALIZE INLINE matrixList :: Order -> Matrix (Complex CFloat) -> [Complex CFloat] #-}+{-# SPECIALIZE INLINE matrixList :: Order -> Matrix (Complex CDouble) -> [Complex CDouble] #-}++++{-| Create a list of lists of elements from a matrix, representing the rows of the matrix. -}+matrixLists :: (GMatrix mat e) => mat e -> [[e]]+matrixLists mat = let (r,c) = shape mat+                  in [[mat ! (i,j) | j <- [0..(c-1)]] | i <- [0..(r-1)]]+++{-| Create a matrix from a list of elements, stored in row-major. -}+listMatrix :: (BlasOps e, CMatrix mat e) =>+           Shape -- ^ Shape of the matrix+           -> [e] -- ^ List of elements, row-major order+           -> mat e -- ^ If the number of elements in the list matches the number needed for the given shape exactly, returns a Just Matrix; otherwise, returns Nothing.+listMatrix (r,c) l = if c < 0 || c < 0+                     then error "Negative matrix shape??"+                     else createMatrix (r,c) $ setElems' $ zip [(i,j) | i <- [0..(r-1)], j <- [0..(c-1)]] l+                            -- mapM (uncurry setElem) $ zip [(i,j) | i <- [0..(r-1)], j <- [0..(c-1)]] l+++prettyPrintMatrix :: (GMatrix mat e) => mat e -> [String]+prettyPrintMatrix m = map ppl $ matrixLists m+  where+    pp a = show a ++ " "+    ppl = concatMap pp++prettyPrintMatrixIO :: (GMatrix mat e) => mat e -> IO ()+prettyPrintMatrixIO m = mapM_ putStrLn $ prettyPrintMatrix m++----------------------------------+-- Monadic matrix manipulation+-- This type is not exported.+type MMonad mat e = StateT (mat e) IO++{-| Matrix modification monad. This is used for creating and modifying matrices efficiently. -}+newtype (BlasOps e, CMatrix mat e) => MMM s mat e a = MMM { unMMM :: MMonad mat e a } deriving (Monad, Functor)+++-- Make a copy of the matrix, put it in the state, and let modification functions run on it.+-- Does /not/ allow anything else to be modified than the copy of the matrix that is given as argument.+runMMM :: (BlasOps e, CMatrix mat e) => mat e -> MMM s mat e a -> IO (mat e)+runMMM mat m = matrixAlloc s >>= \ret -> unsafeMatrixCopy mat NoTrans ret >> execStateT (unMMM m) ret+  where s = shape mat+++instance (BlasOps e, CMatrix mat e) => IMM (MMM s mat e) IndexPair (mat e) e where+    setElem  = setElem'+    setElems = setElems'+    fill     = fill'+    getElem  = getElem'++++{-| Create a new matrix of given size and run the given modification action on it; then return+    The new matrix. -}+createMatrix :: (BlasOps e, CMatrix mat e) =>+               Shape -- ^ (Rows, Columns)+               -> MMM s mat e a -- ^ Modification action+               -> mat e -- ^ Return value: The newly created matrix.+createMatrix s m = unsafePerformIO $ matrixAlloc s >>= execStateT (unMMM m)+++{-| Scales the values in the given vector with a factor, /in place/.+    Anything else is unchanged. Uses the BLAS function 'scal'. -}+unsafeScale :: (BlasOps e, CVector vec e) => e -> vec e -> IO ()+unsafeScale alpha x = withCVector x $ \xp -> scal n alpha xp incx+  where n = vectorLength x+        incx = inc x+{-# NOINLINE unsafeScale #-}+++{-| /unsafeAccum alpha x y/ computes y <- y + alpha * x, storing the result in +/y/, therefore /destroying the old values of y/. Simply calls unsafeVectorAdd. -}+unsafeAccum :: (BlasOps e, CVector vec e) => e -> vec e -> vec e -> IO ()+unsafeAccum = unsafeVectorAdd+++{-| Modify the given matrix using the given modification action; return the modified matrix. -}+modifyMatrix :: (BlasOps e, CMatrix mat e) => mat e -> Transpose -> MMM s mat e a -> mat e+modifyMatrix mat t m = unsafePerformIO $ matrixAlloc s >>= \ret ->+  unsafeMatrixCopy mat t ret >> execStateT (unMMM m) ret+    where s = shapeTrans t (shape mat)+{-# NOINLINE modifyMatrix #-}+++getMatrix :: (BlasOps e, CMatrix mat e) => MMM s mat e (mat e)+getMatrix = MMM get++{-| Reference a row in the matrix under construction. See also 'row'. -}+refRow   :: CMatrix mat e => Index -> MMM s mat e (RefVector e)+refRow i = MMM $ get >>= \m -> liftIO (withCMatrixRow m i return)++{-| Reference a column in the matrix under construction. See also 'column'. -}+refColumn   :: CMatrix mat e => Index -> MMM s mat e (RefVector e)+refColumn i = MMM $ get >>= \m -> liftIO (withCMatrixColumn m i return)++{-| Scales (multiplies) the given row of the matrix under construction by a scalar. -}+scaleRow :: CMatrix mat e => +            e                -- ^ Number to scale with.+            -> Index          -- ^ Row index. If out of range, an exception is raised.+            -> MMM s mat e ()+scaleRow alpha i = MMM $ get >>= \m -> do +  liftIO $ withCMatrixRow m i (unsafeScale alpha)++{-| Scales (multiplies) the given column of the matrix under construction by a scalar. -}+scaleColumn :: CMatrix mat e => e -> Index -> MMM s mat e ()+scaleColumn alpha i = MMM $ get >>= \m -> do +  liftIO $ withCMatrixColumn m i (unsafeScale alpha)+++{-| Modification action: Set the value of the given element. Returns True on success, or False if the element is out of bounds. -}+setElem' :: (BlasOps e, CMatrix mat e) => IndexPair -> e -> MMM s mat e ()+setElem' (i,j) a = MMM $ get >>= \m -> liftIO (unsafeMatrixSetElem m (i,j) a)+++{-| Fills the matrix that is currently under modification with a given value. -}+fill' :: (BlasOps e, CMatrix mat e) => e -> MMM s mat e ()+fill' a = MMM $ get >>= \m -> liftIO $ unsafeMatrixFill m a+++{-| Sets the diagonal with given index to the given values. Operates on the matrix that is currently under modification. -}+setDiag :: (BlasOps e, CMatrix mat e) =>+          Index -- ^ Number of the diagonal. 0 Means the main diagonal, negative values mean lower diagonals, positive values mean upper diagonals.+          -> [e] -- ^ The values of the diagonal. Only as many values as fit in the diagonal are used.+          -> MMM s mat e ()  -- ^ Returns the action that sets the diagonal.+setDiag d as = MMM $ get >>= \m ->+  let (r,c) = shape m+      idxs  = diagIndices (r,c) d+  in+   case idxs of+     [] -> return ()+     ijs -> setDiag' m ijs as+     where+       setDiag' :: (BlasOps e, CMatrix mat e) => mat e -> [IndexPair] -> [e] -> MMonad mat e ()+       setDiag' m ijs as = liftIO $ unsafeMatrixSetElems m $ zip ijs as -- mapM_ (\(ij,e) -> liftIO $ unsafeMatrixSetElem m ij e) (zip ijs as)+++{-| Sets elements in a matrix; caution: invalid indices are silently ommitted. -}+setElems' :: (BlasOps e, CMatrix mat e) => [(IndexPair,e)] -> MMM s mat e ()+setElems' els = MMM $ get >>= \m -> liftIO $ unsafeMatrixSetElems m els -- mapM_ (uncurry setElem)+++{-| Set a row in the current matrix to a list of elements. -}+setRow :: (BlasOps e, CMatrix mat e) =>+         Index -- ^ Number of the row to set+         -> [e] -- ^ List of elements to set+         -> MMM s mat e ()+setRow i as = fmap shape getMatrix >>= \(_,c) -> setElems $ zip (range ((i,0),(i,c-1))) as -- (zip (zip [i,i..] [0..(c-1)]) as)+++{-| Set a column in the current matrix to a list of elements. -}+setColumn :: (BlasOps e, CMatrix mat e) =>+            Index   -- ^ Number of the column to set+            -> [e]  -- ^ List of elements to set+            -> MMM s mat e ()+setColumn i as = fmap shape getMatrix >>= \(r,_) -> setElems $ zip (range ((0,i),(r-1,i))) as -- (zip (zip [0..(r-1)] [i,i..]) as)+++{-| Set the block starting at a given index to the given CMatrix. -}+setBlock :: (BlasOps e, CMatrix mat e) =>+    IndexPair -- ^ Position in the current matrix where to put the block+    -> mat e   -- ^ Matrix to put at the given position+    -> MMM s mat e ()+setBlock (i,j) mat = getMatrix >>= \m -> setElems (a m)+    where+        a m  = as m+        is'' = range ((0,0),(r,c))+        is'  = map (\(a,b) -> (a+i,b+j)) is''+        es   = matrixList RowMajor mat+        as m = filter (\(ij,_) -> inRange ((0,0),s) ij) (zip is' es)+            where+                s = let (r,c) = shape m in (r-1,c-1)+        (r,c) = let (a,b) = shape mat in (a-1,b-1)+++{-| Fill a range with a given element. -}+fillBlock :: (BlasOps e, CMatrix mat e) =>+    IndexPair    -- ^ Start of the range.+    -> IndexPair  -- ^ End of the range (inclusive).+    -> e          -- ^ Element to fill the range with.+    -> MMM s mat e ()+fillBlock start end = setElems . zip (range (start,end)) . repeat+++{-| Get an element of the matrix currently under modification. -}+getElem' :: (BlasOps e, CMatrix mat e) => IndexPair -> MMM s mat e e+getElem' ij = MMM $ get >>= \m -> liftIO $ matrixElem m ij
+ Numeric/Jalla/Test.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE FlexibleInstances, UndecidableInstances, OverlappingInstances #-}++module Numeric.Jalla.Test where++import Numeric.Jalla.Matrix+import Numeric.Jalla.Vector+import Numeric.Jalla.Foreign.BlasOps+import Numeric.Jalla.Types++import System.Random+import Test.QuickCheck++instance (Random e, RealFloat e) => Random (Complex e) where+  random g = (a' :+ b', g')+    where (a',g'') = random g+          (b',g')  = random g''+  randomR (a :+ b, c :+ d) g = (a' :+ b', g')+    where (a', g'') = randomR (a,c) g+          (b', g')  = randomR (b,d) g''+++class Bounds a where+  minB :: a+  maxB :: a+++instance (RealFloat a) => Bounds a where+  minB = realToFrac (-1000) -- fromIntegral (minBound :: Int)+  maxB = realToFrac (1000)  -- fromIntegral (maxBound :: Int)+  +instance (Bounds a, RealFloat a) => Bounds (Complex a) where+  minB = (minB :+ minB)+  maxB = (maxB :+ maxB)+++instance (Bounds e, BlasOps e, Random e) => Arbitrary (Matrix e) where+  arbitrary = do+    m   <- choose (1,100)+    n   <- choose (1,100)+    els <- vectorOf (m*n) (choose (minB, maxB))+    return $ listMatrix (m,n) els+    ++instance (Bounds e, BlasOps e, Random e) => Arbitrary (Vector e) where+  arbitrary = do+    m   <- choose (1,100)+    els <- vectorOf m (choose (minB, maxB))+    return $ listVector els+
+ Numeric/Jalla/Types.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances, TypeFamilies #-}+-----------------------------------------------------------------------------+--+-- Module      :  Math.Types+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- | Contains some types used by Jalla, including some BLAS/LAPACK related ones.+-----------------------------------------------------------------------------++module Numeric.Jalla.Types (+  -- * Classes+  Field1(..),+  -- ** BLAS And LAPACK +  BLASEnum(..),+  LAPACKEEnum(..),+  -- * Indexing+  Index,+  Shape,+  IndexPair,+  rowCountTrans,+  colCountTrans,+  shapeTrans,+  diagIndices,+  -- * Information About Matrices And Storage+  Order(..),+  Transpose(..),+  UpLo(..),+  module Data.Complex,+) where++import Data.Complex+import Foreign.C.Types+import Foreign.Marshal.Array+import Foreign+import qualified Data.Tuple as T (swap)+++type Index = Int+type Shape = (Index,Index)+type IndexPair = (Index,Index)+++{-| Row count of a matrix with given transposedness and shape. -}+rowCountTrans :: Transpose -> Shape -> Index+rowCountTrans t (r,c) | t == Trans = c+                      | otherwise = r++{-| Column count of a matrix with given transposedness and shape. -}+colCountTrans :: Transpose -> Shape -> Index+colCountTrans t (r,c) | t == Trans = r+                      | otherwise = c++{-| Shape of a matrix with given transposedness and shape. -}+shapeTrans :: Transpose -> Shape -> Shape+shapeTrans t s | t == Trans = T.swap s+               | otherwise = s+++{-| Generate indices of a diagonal in a matrix of given shape. -}+diagIndices :: Shape     -- ^ The shape of the matrix (rows,columns)+              -> Index   -- ^ The index of the diagonal -- 0: main diagonal; < 0: lower diagonals; >0: upper diagonals+              -> [IndexPair] -- ^ Index list. Empty if there is no such diagonal.+diagIndices (r,c) d+  | d >= 0 && d < c    = diagIndices' (0, d, min (c - d) r)+  | d < 0 && d > (-r) = diagIndices' (-d, 0, min (r + d) c)+  | otherwise        = []+    where+      diagIndices' :: (Index,Index,Index) -> [(Index,Index)]+      diagIndices' (rstart,cstart,n) = [(rstart + i, cstart + i) | i <- [0..(max 0 (n-1))]]+++data Order = RowMajor | ColumnMajor deriving (Eq, Show)+-- type Order = CblasOrder+data Transpose = Trans | NoTrans deriving (Eq, Show)+data UpLo = Up | Lo deriving (Eq, Show)++class BLASEnum e be where+  toBlas :: e -> be+  fromBlas :: be -> e++class LAPACKEEnum e le where+  toLapacke :: e -> le+  fromLapacke :: le -> e++f :: Complex a -> a+f _ = undefined++instance (RealFloat a, Storable a) => Storable (Complex a) where+  -- sizeOf c = s where s = 2 * (sizeOf (f c))+  sizeOf = (2 *) . sizeOf . f+  alignment = alignment . f++  peek p = peek p1 >>= \r -> peek p2 >>= \i -> return $ r :+ i+    where+      p1 = castPtr p+      p2 = advancePtr p1 1++  poke p c = poke p' r >> poke (advancePtr p' 1) i+    where p' = castPtr p+          r = realPart c+          i = imagPart c+++{-| Defines a scalar type for each field type. Those are 'Complex' 'CFloat'+    and 'CFloat', as well as 'Complex' 'CDouble' and 'CDouble'. -}+class (Num e, Floating e, Show e) => Field1 e where+  type FieldScalar e :: *+  +instance Field1 CFloat where+  type FieldScalar CFloat = CFloat+  +instance Field1 CDouble where+  type FieldScalar CDouble = CDouble+  +instance Field1 (Complex CFloat) where+  type FieldScalar (Complex CFloat) = CFloat++instance Field1 (Complex CDouble) where+  type FieldScalar (Complex CDouble) = CDouble++
+ Numeric/Jalla/Vector.hs view
@@ -0,0 +1,451 @@+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies,+    FlexibleInstances, GeneralizedNewtypeDeriving, FlexibleContexts,+    TypeSynonymInstances #-}+-----------------------------------------------------------------------------+--+-- Module      :  Math.Vector+-- Copyright   :  2011 by Christian Gosch+-- License     :  BSD3+--+-- Maintainer  : Christian Gosch <werbung@goschs.de>+-- Stability   : Experimental+-- Portability : GHC only+--+-- |+--+-----------------------------------------------------------------------------++module Numeric.Jalla.Vector (+    -- * Classes+    -- ** Vectors+    GVector(..),+    CVector(..),+    -- ** Vector/vector operations+    VectorVector(..),+    -- ** Vector/scalar operations+    VectorScalar(..),+    -- ** Indexable+    module Numeric.Jalla.Indexable,+    -- * Data Types+    Vector(..),+    +    -- * Construction, conversion, modification+    -- ** Monadic, efficient vector modification+    VMM,+    getVector,+    createVector,+    modifyVector,+    module Numeric.Jalla.IMM,+    -- ** Vector maps+    vectorAdd,+    vectorMap,+    vectorBinMap,+    -- * Conversion From And To Lists+    listVector,+    vectorList,+    +    -- * IO Functions+    copyVector,+    +    -- * Unsafe Functions+    unsafeCopyVector,+    unsafeVectorAdd,+    +    -- * Re-exported+    CFloat,+    CDouble,+    Complex+) where+++import Numeric.Jalla.Foreign.BLAS+import Numeric.Jalla.Foreign.BlasOps+import Numeric.Jalla.Foreign.LAPACKE+import Numeric.Jalla.Foreign.LapackeOps+import Numeric.Jalla.Internal+import Numeric.Jalla.IMM+import Numeric.Jalla.Indexable+import Numeric.Jalla.Types++import Foreign.C.Types+import Foreign.Marshal.Array+import Foreign hiding (unsafePerformIO)+import System.IO.Unsafe (unsafePerformIO)+import Data.Ix+import Data.Complex+import Control.Monad.State+import Data.Convertible+++class (Indexable (vec e) Index e, Field1 e) => GVector vec e where+  vector :: Index -> vec e+  vectorLength :: vec e -> Index+  --(-|) :: vec e -> vec e -> e+  -- (!) :: vec e -> Index -> e++class (BlasOps e, GVector vec e, Show (vec e)) => CVector vec e where+  vectorAlloc :: Index -> IO (vec e)+  withCVector :: vec e -> (Ptr e -> IO a) -> IO a+  inc :: vec e -> Index+++infixl 7 ||*+infixl 6 ||+,||-++{-| Vector/vector operations. -}+class (CVector vec e) => VectorVector vec e where+  -- | Vector addition+  (||+) :: vec e -> vec e -> vec e+  v1 ||+ v2 = modifyVector v1 $ vectorAdd 1 v2+  -- | Vector subtraction+  (||-) :: vec e -> vec e -> vec e+  v1 ||- v2 = modifyVector v1 $ vectorAdd (-1) v2+  -- | Dot product+  (||*) :: vec e -> vec e -> e+  v1 ||* v2 = innerProduct v1 v2+++innerProduct :: (BlasOps e, CVector vec e) => vec e -> vec e -> e+innerProduct v1 v2 | n == n2 = unsafePerformIO $+    withCVector v1 $ \p1 ->+    withCVector v2 $ \p2 ->+    dot n p1 (inc v1) p2 (inc v2)+        where+            n = vectorLength v1+            n2 = vectorLength v2+innerProduct _ _ | otherwise = error "innerProduct: vectors must have same length."+{-# SPECIALIZE NOINLINE innerProduct :: Vector CFloat -> Vector CFloat -> CFloat #-}+{-# SPECIALIZE NOINLINE innerProduct :: Vector CDouble -> Vector CDouble -> CDouble #-}+{-# SPECIALIZE NOINLINE innerProduct :: Vector (Complex CFloat) -> Vector (Complex CFloat) -> Complex CFloat #-}+{-# SPECIALIZE NOINLINE innerProduct :: Vector (Complex CDouble) -> Vector (Complex CDouble) -> Complex CDouble #-}+++innerProductReal :: (BlasOpsReal e, CVector vec e) => vec e -> vec e -> CDouble+innerProductReal v1 v2 | n == n2 = realToFrac $ unsafePerformIO $+    withCVector v1 $ \p1 ->+    withCVector v2 $ \p2 ->+    realdot n p1 (inc v1) p2 (inc v2)+        where+            n = vectorLength v1+            n2 = vectorLength v2+innerProductReal _ _ | otherwise = error "innerProduct: vectors must have same length."+++innerProductC :: (RealFloat e, BlasOpsComplex e, CVector vec (Complex e)) =>+    vec (Complex e)+    -> vec (Complex e)+    -> Complex e+innerProductC v1 v2 | n == n2 = unsafePerformIO $+    withCVector v1 $ \p1 ->+    withCVector v2 $ \p2 ->+    with (0 :+ 0) $ \pret ->+    dotu_sub n p1 (inc v1) p2 (inc v2) pret >> peek pret+        where+          n = vectorLength v1+          n2 = vectorLength v2+innerProductC _ _ | otherwise = error "innerProduct: vectors must have same length."+++infixl 7 |.*,|./+infixl 6 |.+,|.-++{-| Vector manipulations by a scalar. -}+class (CVector vec e) => VectorScalar vec e where+  (|.*) :: vec e -> e -> vec e+  a |.* b = vectorMap (*b) a+  (|./) :: vec e -> e -> vec e+  a |./ b = vectorMap (/b) a+  (|.+) :: vec e -> e -> vec e+  a |.+ b = vectorMap (+b) a+  (|.-) :: vec e -> e -> vec e+  a |.- b = vectorMap ((-)b) a++{-| Vector is the 'CVector' type that is used in Jalla. +Somehow Haddock does not want to create documentation for the class instances +of 'Vector', I try to figure it out. -}+data BlasOps e => Vector e = Vector {vecP :: !(ForeignPtr e),+                                    vecInc :: !Index,+                                    vecLength :: !Index}+++vectorAlloc' :: (BlasOps e) => Index -> IO (Vector e)+vectorAlloc' n = mallocForeignPtrArray n >>= \fp -> return $ Vector fp 1 n+++instance (BlasOps e) => GVector Vector e where+    vector n = unsafePerformIO $ vectorAlloc n+    vectorLength = vecLength+    -- v1 -| v2 = innerProduct v1 v2+++{-| 'CVector' instance for 'Vector'. -}+instance (BlasOps e) => CVector Vector e where+    vectorAlloc = vectorAlloc'+    withCVector = withForeignPtr . vecP+    inc = vecInc+++instance BlasOps e => Indexable (Vector e) Index e where+    v ! i = unsafePerformIO $ unsafeGetElem v i++instance BlasOps e => VectorVector Vector e+instance BlasOps e => VectorScalar Vector e++vectorList :: GVector vec e => vec e -> [e]+vectorList v = map (v !) [0..n-1] where n = vectorLength v++listVector :: (CVector vec e) => [e] -> vec e+listVector es = createVector n $ setElems ies+  where n = length es+        ies = zip [0..n-1] es+++instance (BlasOps e, Eq e) => Eq (Vector e) where+  a /= b | vectorLength a == vectorLength b = or [x /= y | (x,y) <- zip (vectorList a) (vectorList b)]+        | otherwise = False+++instance (BlasOps e, Show e) => Show (Vector e) where+  show v = "listVector " ++ show (vectorList v)+++{-| /Num/ instance for a /Vector/. +The operations are all /element-wise/. There may be the occasional error+by wrongly assuming that /(*)/ returns the inner product, which it doesn't.+This instance is basically only provided to get the + and - operators.+Note that this will /not/ work with 'sum', since +that assumes it can start with a "0". -}+instance (BlasOps e, Num e) => Num (Vector e) where+  a + b         = modifyVector a $ vectorAdd 1 b+  a - b         = modifyVector a $ vectorAdd (-1) b+  a * b         = vectorBinMap (*) a b+  negate        = vectorMap (* (-1))+  abs           = vectorMap abs+  signum        = vectorMap signum+  fromInteger i = createVector 1 $ setElem 0 (fromIntegral i)+  ++instance (BlasOps e, Num e, Fractional e) => Fractional (Vector e) where+  a / b = vectorBinMap (/) a b+  recip = vectorMap recip+  fromRational r = createVector 1 $ setElem 0 (fromRational r)+  +{-| An instance of 'Vector' for 'Floating', for convenience.+    Some of these don't make much sense in some situations,+    but having the trigonometric functions and the like around can be pretty handy. +    The functions work element-wise. -}+instance (BlasOps e, Num e, Fractional e) => Floating (Vector e) where+  -- | Returns a 1-vector with /pi/ in it.+  pi = createVector 1 $ setElem 0 pi+  exp = vectorMap exp+  sqrt = vectorMap sqrt+  log = vectorMap log+  -- | Takes the element-wise power.+  a ** b = vectorBinMap (**) a b+  -- | Computes 'logBase' the /element-wise/. It may be more useful to simply use /vectorMap (logBase b) v/.+  logBase = vectorBinMap logBase+  sin = vectorMap sin+  tan = vectorMap tan+  cos = vectorMap cos+  asin = vectorMap asin+  atan = vectorMap atan+  acos = vectorMap acos+  sinh = vectorMap sinh+  tanh = vectorMap tanh+  cosh = vectorMap cosh+  asinh = vectorMap asinh+  atanh = vectorMap atanh+  acosh = vectorMap acosh+  +  +  ++{-| Maps a unary function over the elements of a vector and returns the resulting vector. -}+vectorMap :: (CVector vec1 e1, CVector vec2 e2) => (e1 -> e2) -> vec1 e1 -> vec2 e2+vectorMap f v1 = unsafePerformIO $+                 vectorAlloc n >>= \v2 -> unsafeVectorMap f v1 v2 >> return v2+  where n = vectorLength v1+{-# NOINLINE vectorMap #-}                                          +{-# SPECIALIZE NOINLINE vectorMap :: (CFloat -> CFloat) -> Vector CFloat -> Vector CFloat #-}+{-# SPECIALIZE NOINLINE vectorMap :: (CDouble -> CDouble) -> Vector CDouble -> Vector CDouble #-}+{-# SPECIALIZE NOINLINE vectorMap :: (Complex CFloat -> Complex CFloat) -> Vector (Complex CFloat) -> Vector (Complex CFloat) #-}+{-# SPECIALIZE NOINLINE vectorMap :: (Complex CDouble -> Complex CDouble) -> Vector (Complex CDouble) -> Vector (Complex CDouble) #-}++++{-| Maps a binary function to the elements of two vectors and returns the resulting vector. -}+vectorBinMap :: (CVector vec1 e1, CVector vec2 e2, CVector vec3 e3) => +                (e1 -> e2 -> e3)    -- ^ The function /f/ to map.+                -> vec1 e1 -- ^ The first input vector /v1/ for /f/.+                -> vec2 e2 -- ^ The second input vector /v2/ for /f/.+                -> vec3 e3 -- ^ The result vector. It will have length min(l1,l2), where l1,l2 are the lengths of /v1/ and /v2/.+vectorBinMap f v1 v2 = unsafePerformIO $+                       vectorAlloc n >>= \v3 -> unsafeVectorBinMap f v1 v2 v3 >> return v3+  where n = min (vectorLength v1) (vectorLength v2)+++++{-| Make a copy of the input vector. Using the cblas_*copy functions. -}+copyVector :: (BlasOps e, CVector vec e, CVector vec2 e) => vec e -> IO (vec2 e)+copyVector v = vectorAlloc n >>= \ret ->+               withCVector v $ \p ->+               withCVector ret $ \pret ->+               copy n p (inc v) pret (inc ret) >> return ret+               where n = vectorLength v++++--------------------------+-- Monadic vector manipulations++type VMMMonad vec e a = StateT (vec e) IO a++newtype VMM s vec e a = VMM { unVMM :: VMMMonad vec e a } deriving Monad++runVMM :: CVector vec e => vec e -> VMM s vec e a -> IO a+runVMM v action = evalStateT action' v+  where+    action' = unVMM action+++instance (BlasOps e, CVector vec e) => IMM (VMM s vec e) Index (vec e) e where+--    create   = createVector+--    modify   = modifyVector+--    getO     = getVector+    setElem  = setElem'+    setElems = setElems'+    fill     = fill'+    getElem  = getElem'+++createVector :: CVector vec e => Index -> VMM s vec e a -> vec e+createVector n action = unsafePerformIO $+                        vectorAlloc n >>= \mv -> runVMM mv (action >> (VMM get))++getVector :: CVector vec e => VMM s vec e (vec e)+getVector = VMM get++modifyVector :: CVector vec e => vec e -> VMM s vec e a -> vec e+modifyVector v action = unsafePerformIO $+  copyVector v >>= \nv -> runVMM nv (action >> (VMM get))+  where+    n = vectorLength v++{-| Adds alpha * v to the current vector. -}+vectorAdd :: CVector vec e => e -> vec e -> VMM s vec e ()+vectorAdd alpha x = VMM $ (get >>= \v -> liftIO $ unsafeVectorAdd alpha x v)+++{-| unsafeSetElem may fail gracefully,+therefore this method may or may not set the element, depending on a successful range check. -}+setElem' :: CVector vec e => Index -> e -> VMM s vec e ()+setElem' i e = VMM $ (get >>= \v -> liftIO $ unsafeSetElem v i e >> return ())++setElems' :: CVector vec e => [(Index,e)] -> VMM s vec e ()+setElems' ies = VMM $ (get >>= \v -> liftIO $ mapM_ (\(i,e) -> unsafeSetElem v i e) ies)++{-| Note: getElem' returns a Maybe. -}+getElem' :: CVector vec e => Index -> VMM s vec e e+getElem' i = VMM $ get >>= \v -> liftIO (unsafeGetElem v i)++fill' :: CVector vec e => e -> VMM s vec e ()+fill' e = VMM $ get >>= \v -> liftIO (unsafeFillVector v e)++++---------------------------------------------------------------------------------------+-- Unsafe functions.+---------------------------------------------------------------------------------------++unsafeVectorMap :: (CVector vec1 e1, CVector vec2 e2) => (e1 -> e2) -> vec1 e1 -> vec2 e2 -> IO ()+unsafeVectorMap f v1 v2 = +  withCVector v1 $ \v1p ->+  withCVector v2 $ \v2p ->+  unsafePtrMapInc i1 i2 f v1p v2p n+  where+    i1 = inc v1+    i2 = inc v2+    n = min (vectorLength v1) (vectorLength v2)+{-# SPECIALIZE INLINE unsafeVectorMap :: (CFloat -> CFloat) -> Vector CFloat -> Vector CFloat -> IO () #-}+{-# SPECIALIZE INLINE unsafeVectorMap :: (CDouble -> CDouble) -> Vector CDouble -> Vector CDouble -> IO () #-}+{-# SPECIALIZE INLINE unsafeVectorMap :: (Complex CFloat -> Complex CFloat) -> Vector (Complex CFloat) -> Vector (Complex CFloat) -> IO () #-}+{-# SPECIALIZE INLINE unsafeVectorMap :: (Complex CDouble -> Complex CDouble) -> Vector (Complex CDouble) -> Vector (Complex CDouble) -> IO () #-}+++{-| Copies from one vector to the other, in-place and therefore unsafely.+Uses the BLAS 'copy' function. /min (vectorLength src) (vectorlength dest)/+elements are copied from the first to the second vector. -}+unsafeCopyVector :: (CVector vec e, CVector vec2 e) => +                    vec e    -- ^ The source vector.+                    -> vec2 e -- ^ The destination vector.+                    -> IO ()+unsafeCopyVector src dest =+  withCVector src $ \srcp -> +  withCVector dest $ \destp ->+  copy n srcp (inc src) destp (inc dest)+  where n = min (vectorLength src) (vectorLength dest)++unsafeVectorBinMap :: (CVector vec1 e1, CVector vec2 e2, CVector vec3 e3) => +                      (e1 -> e2 -> e3) +                      -> vec1 e1 +                      -> vec2 e2 +                      -> vec3 e3 +                      -> IO ()+unsafeVectorBinMap f v1 v2 v3 = +  withCVector v1 $ \v1p ->+  withCVector v2 $ \v2p ->+  withCVector v3 $ \v3p -> +  unsafe2PtrMapInc i1 i2 i3 f v1p v2p v3p n+  where+    i1 = inc v1+    i2 = inc v2+    i3 = inc v3+    n = minimum [(vectorLength v1), (vectorLength v2), vectorLength v3]+++{-| Computes v2 <- alpha * v1 + v2. The result is stored in the memory of v2, therefore this is+    unsafe and low level, only for internal use. -}+unsafeVectorAdd :: (BlasOps e, CVector vec e) =>+    e        -- ^ alpha+    -> vec e  -- ^ Vector 1+    -> vec e  -- ^ Vector 2, will be changed in place!+    -> IO ()+unsafeVectorAdd alpha v1 v2 | n == n2 =+    withCVector v1 $ \p1 ->+    withCVector v2 $ \p2 ->+    axpy n alpha p1 (inc v1) p2 (inc v2)+        where+            n = vectorLength v1+            n2 = vectorLength v2+unsafeVectorAdd _ v1 v2 | otherwise = error $ "unsafeVectorAdd: Vector lengths must match, when adding " ++ show v1 ++ "\nand\n" ++ show v2 +{-# NOINLINE unsafeVectorAdd #-}+{-# SPECIALIZE NOINLINE unsafeVectorAdd :: CFloat -> Vector CFloat -> Vector CFloat -> IO () #-}+{-# SPECIALIZE NOINLINE unsafeVectorAdd :: CDouble -> Vector CDouble -> Vector CDouble -> IO () #-}+{-# SPECIALIZE NOINLINE unsafeVectorAdd :: Complex CFloat -> Vector (Complex CFloat) -> Vector (Complex CFloat) -> IO () #-}+{-# SPECIALIZE NOINLINE unsafeVectorAdd :: Complex CDouble -> Vector (Complex CDouble) -> Vector (Complex CDouble) -> IO () #-}++unsafeSetElem :: (BlasOps e, CVector vec e) => vec e -> Index -> e -> IO ()+unsafeSetElem v i e | i >= 0 && i < vectorLength v = withCVector v $+    \p -> let p' = p `plusPtr` (i * sizeOf e * (inc v)) in poke p' e+unsafeSetElem _ _ _ | otherwise = error "unsafeSetElem: out of bounds."++unsafeGetElem :: (BlasOps e, CVector vec e) => vec e -> Index -> IO e+unsafeGetElem v i | i >= 0 && i < vectorLength v = withCVector v $ \p -> do+    e1 <- peek p+    let p' = p `plusPtr` (i * sizeOf e1 * (inc v))+    peek p'+unsafeGetElem _ _ | otherwise = error "unsafeGetElem: out of bounds."+++unsafeFillVector :: (BlasOps e, CVector vec e) => vec e -> e -> IO ()+unsafeFillVector v e =+    withCVector v $ \p ->+    unsafePtrMap1Inc i (const e) p n+  where+    -- Using /f/ instead of the unsafePtrMap1Inc should be /slightly/ more efficient,+    -- but it is a good idea to have such dirty functions in a central place.+--    f _ _ 0 = return ()+--    f i p n = poke p e >> f i (advancePtr p i) (n - 1) where {p' = advancePtr p i; n' = n - 1 }+    i = inc v+    n = vectorLength v
+ README view
@@ -0,0 +1,63 @@+Jalla aims at providing high level functions for linear algebra computations,+which should be fast and easy enough to use.+It also contains a Haskell wrapper for cblas and lapacke, a C interface for LAPACK written by Intel.+Jalla is written and maintained by Christian Gosch (github at goschs dot de) and+was started as a little project to learn Haskell.++Jalla (probably) needs ghc, it has not been tested with other Haskell implementations.+It is developed with ghc > 7.0.++You need to have CBLAS and LAPACK installed, e.g. by installing ATLAS generated libraries+on you computer. +In Ubuntu, there are packages for CBLAS and LAPACK which you can install with apt-get,+synaptic, or any other such tool.+Lapacke must be compiled "by hand".++0. Get the jalla sources; say they are located in the directory "jalla/"+1. a) LAPACKE is part of LAPACK since version 3.4.+      If you have that version, use that. Otherwise, follow b).+   b) Get Lapacke at <http://www.netlib.org/lapack/lapacke.tgz>+      or at <http://www.netlib.org/lapack/#_standard_c_language_apis_for_lapack>+2. Unpack lapacke into "./lapacke" in the top jalla directory.+3. (Follow lapacke's instructions to build)+   /OR/ use the shiny new SCons file provided to build lapacke+   for use with jalla, which can be found in the lapacke/ sub-directory+   in the jalla source code.++   Note that now, you can also let the Setup.hs script do the work right before configuring:+    runhaskell Setup.hs configure --user --flags="build_lapacke"+   should build lapacke right before configuring jalla.   ++   If you don't use the provided SCons file, +   note that Jalla expects the LAPACKE_... naming scheme, i.e. LAPACKE in upper case,+   the rest in lower case. That scheme is called LAPACK_NAME_PATTERN_MC in the LAPACKE make.inc+   file.+   Jalla also expects the define LAPACK_COMPLEX_STRUCTURE in the same make.inc.+   This means that complex numbers are represented as C struct.   +4. In jalla/, call +    cabal configure+    cabal build+    cabal haddock+5. Look at the generated documentation, which is getting better now.++Please contact the author at github at goschs dot de if anything does not work!+++Documentation+-------------+The haddock documentation is not complete, but not so bad anymore.+I will add more. The most important things are documented.+++Status+------+The code may change in some places, and will definitely be growing as soon as I need more functionality.+Please let me know if you have suggestions.++Please also tell me if you have a greater interest in this project and want to participate!+++License+-------+See the file LICENSE.+This project is under a BSD3-style license.
+ Setup.hs view
@@ -0,0 +1,68 @@+import Distribution.Simple+import Distribution.Simple.Setup+import Distribution.Simple.Program+import Distribution.Simple.Program.Types+import Distribution.Simple.Utils+import Distribution.Verbosity+import Distribution.PackageDescription+import System.FilePath+import System.Process+import System.Exit++main = defaultMainWithHooks $ +         simpleUserHooks {+           hookedPrograms = [], --scons : hookedPrograms simpleUserHooks,+           preConf = sconsPreConf -- >> (preConf simpleUserHooks) a c+           }+++sconsPreConf :: Args -> ConfigFlags -> IO HookedBuildInfo+sconsPreConf args cf = do+  let flags = configConfigurationsFlags cf+      mf = lookup (FlagName "build_lapacke") flags+  case mf of+    Just True -> invokeScons+    _ -> return (Nothing, [])+  +invokeScons = do+  let lapackeDir = currentDir </> "lapacke"+  msl <- programFindLocation scons verbose+  let mSconsInvoke = msl >>= \sl -> +        return (simpleConfiguredProgram "scons" (FoundOnSystem sl)) >>= \confScons ->+        return (programInvocation confScons []) >>= \sconsInvoke ->+        return (sconsInvoke { progInvokeCwd = Just lapackeDir })+        +  success <- +    case mSconsInvoke of+      Just sconsInvoke -> +        callProgram (progInvokePath sconsInvoke) [] (progInvokeCwd sconsInvoke)+      -- runProgramInvocation deafening sconsInvoke -- This is apparently not implemented in cabal.+      _ -> +        die "*** Running scons has failed while trying to build LAPACKE. Is scons installed?" >>+        return False+  +  return $ if success +           then (Just (emptyBuildInfo { buildable = True }), [])+           else (Just (emptyBuildInfo { buildable = False }), [])+++callProgram :: FilePath -> [String] -> Maybe FilePath -> IO Bool+callProgram prog args cwd = do+  h <- runProcess prog args cwd Nothing Nothing Nothing Nothing +  e <- waitForProcess h+  return $ e == ExitSuccess ++findScons :: Verbosity -> IO (Maybe FilePath)+findScons verb = do+  let locs = ["/usr/bin","/usr/local/bin","/usr/sbin","/usr/local/sbin"]+  ml <- mapM (findProgramLocation verb) locs+  return $ firstJust ml++scons :: Program+scons = simpleProgram "scons"++firstJust :: [Maybe a] -> Maybe a+firstJust [] = Nothing+firstJust (Just a:as) = Just a+firstJust (_:as) = firstJust as+
+ jalla.cabal view
@@ -0,0 +1,79 @@+name: jalla+version: 0.1.0+cabal-version: (>=1.8)+build-type: Simple+license: BSD3+license-file: LICENSE+copyright: 2011-2012, Christian Gosch+maintainer: Christian Gosch <github@goschs.de>+stability: Experimental+homepage: https://github.com/cgo/jalla+package-url:+bug-reports:+synopsis: Higher level functions for linear algebra. Wraps BLAS and LAPACKE.+description: Jalla aims at providing high level functions for linear algebra computations which+  should be fast and easy enough to use. Under the hood, BLAS and LAPACKE are used +  (LAPACKE is a standard C interface to LAPACK which is part of LAPACK since version 3.4).+  Currently, I am adding new functions whenever I find some time. Please help, if you want to!+  There are not many tests yet, and we need some nicer error reporting (nicer than exceptions).+category: Math+author: Christian Gosch+tested-with: GHC (>= 7.0.3)+data-files:+data-dir: ""+extra-source-files: lapacke/SConstruct lapacke/include/lapacke.h lapacke/include/lapacke_config.h lapacke/include/lapacke_utils.h lapacke/LICENSE README+extra-tmp-files:++source-repository head+  type: git+  location: git://github.com/cgo/jalla.git++Flag build_lapacke+     -- needs to be added to the command line, like so: runhaskell Setup.hs configure --user --flags="build_lapacke"+     Description: If true, try to build lapacke in the ./lapacke directory of the jalla package.+     Default: False++Library+  exposed-modules: Numeric.Jalla Numeric.Jalla.Indexable Numeric.Jalla.IMM Numeric.Jalla.InnerProduct+                   Numeric.Jalla.Foreign.BLAS Numeric.Jalla.Foreign.BlasOps Numeric.Jalla.Foreign.LAPACKE+                   Numeric.Jalla.Foreign.LapackeOps Numeric.Jalla.Matrix Numeric.Jalla.Vector +                   Numeric.Jalla.Types Numeric.Jalla.Test++  build-depends: base > 4.0.0 && < 4.6.0, mtl -any,+                 convertible -any,  random (>=1.0.1), QuickCheck (>= 2.4.2)++  buildable: True+  build-tools: c2hs -any+  cpp-options:+  cc-options:+  ld-options: +  pkgconfig-depends:+  frameworks:+  c-sources:+  default-language:+  other-languages:+  default-extensions:+  other-extensions:+  extensions:+  extra-libraries: lapacke lapack cblas f77blas+  extra-lib-dirs: ./lapacke+  includes:+  install-includes:+  include-dirs: ./lapacke/include+  -- include-dirs: /home/christian/pgm/lapack-3.4.0/lapacke/include+  hs-source-dirs: .+  other-modules: C2HS Numeric.Jalla.Internal+  ghc-prof-options: -prof -auto-all+  ghc-shared-options:+  ghc-options: +  hugs-options:+  nhc98-options:+  jhc-options:+++Test-suite tests+  Type: exitcode-stdio-1.0+  Hs-source-dirs: tests+  Main-is: Test.hs+  Build-depends: base -any, jalla, random (>= 1.0.1), HUnit (>= 1.2.4), QuickCheck (>= 2.4.2), test-framework (>= 0.5), test-framework-hunit (>= 0.2.7), test-framework-quickcheck2 (>= 0.2.12)+
+ lapacke/LICENSE view
@@ -0,0 +1,26 @@+  Copyright (c) 2011, Intel Corp.
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright notice,
+      this list of conditions and the following disclaimer.
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in the
+      documentation and/or other materials provided with the distribution.
+    * Neither the name of Intel Corporation nor the names of its contributors
+      may be used to endorse or promote products derived from this software
+      without specific prior written permission.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+  THE POSSIBILITY OF SUCH DAMAGE.
+ lapacke/SConstruct view
@@ -0,0 +1,55 @@+#+# This file is part of Jalla <http://github.com/cgo/jalla>.+# Copyright 2012 Christian Gosch.+#+#+# SCons file for simplifying building LAPACKE.+# This file takes the C sources and tries to remove those which are concerned+# with test generation and with XBLAS dependencies.+# You can move them back in if you need them by modifying the "lapacke_sources = filter(...)"+# lines below.+# Those were not a problem for the static library, but for the shared library+# that I wanted for use in GHCi, with the stock LAPACK libraries delivered with+# Ubuntu 11.10, which are /older/ versions than 3.4.0.+#+# Instructions:+#+# 1. You may have to modify the library paths and/or names below to suit your system.+# 2. Copy this SConstruct file to the top level directory of LAPACKE+# 3. Call "scons" on the command line, possibly "scons -jN" where N is the+#    number of processors to use.+# 4. Copy the built libraries where you need them.+#+# This worked for the LAPACKE which was delivered with LAPACK 3.4.0.+#+# Builds a shared and a static library.+# +# Dependencies: LAPACK, BLAS, CBLAS+#++import re, sys, glob++env = Environment ()+utils_sources   = Glob ('utils/*.c')++# XBLAS dependent functions+x_regex = re.compile ('xx\.c$|sx\.c$|xx_work\.c$|sx_work\.c$') # |^cla_|^sla_')+# Test generation functions+testing_regex = re.compile ('.*lapacke_[sdcz]la')+# Functions apparently not available in stock Ubuntu 11.10 LAPACK, only in LAPACK 3.4.0+other_regex = re.compile ('qrt\.c$|qrt2\.c$|qrt3\.c|rfb\.c$|qrt_work\.c$|qrt2_work\.c$|qrt3_work\.c|rfb_work\.c$')++# Filtering out XBLAS dependencies+lapacke_sources = filter (lambda fn: x_regex.search(fn) == None, glob.glob ('src/*.c'))+# Filtering out testing dependencies+lapacke_sources = filter (lambda fn: testing_regex.search(fn) == None, lapacke_sources)+# Filtering out other (new 3.4.0 functions??) dependencies+lapacke_sources = filter (lambda fn: other_regex.search(fn) == None, lapacke_sources)++env.Append (CCFLAGS = '-DHAVE_LAPACK_CONFIG_H  -DLAPACK_COMPLEX_STRUCTURE')+env.Append (LIBS = ['lapack', 'f77blas', 'cblas', 'm'])+env.Append (CPPPATH = ['../include', './include'])+env.Append (LIBPATH = ['/usr/lib/atlas-base/'])++env.SharedLibrary ('lapacke', lapacke_sources + utils_sources)+env.StaticLibrary ('lapacke', lapacke_sources + utils_sources)
+ lapacke/include/lapacke.h view
@@ -0,0 +1,16127 @@+/*****************************************************************************+  Copyright (c) 2010, Intel Corp.+  All rights reserved.++  Redistribution and use in source and binary forms, with or without+  modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright notice,+      this list of conditions and the following disclaimer.+    * Redistributions in binary form must reproduce the above copyright+      notice, this list of conditions and the following disclaimer in the+      documentation and/or other materials provided with the distribution.+    * Neither the name of Intel Corporation nor the names of its contributors+      may be used to endorse or promote products derived from this software+      without specific prior written permission.++  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE+  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR+  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF+  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS+  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN+  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF+  THE POSSIBILITY OF SUCH DAMAGE.+******************************************************************************+* Contents: Native C interface to LAPACK+* Author: Intel Corporation+* Generated November, 2011+*****************************************************************************/++#ifndef _LAPACKE_H_+#define _LAPACKE_H_++/*+*  Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes+*  and default function name pattern.+*/+#ifdef HAVE_LAPACK_CONFIG_H+#include "lapacke_config.h"+#endif++#ifdef __cplusplus+extern "C" {+#endif /* __cplusplus */++#include <stdlib.h>++#ifndef lapack_int+#define lapack_int     int+#endif++#ifndef lapack_logical+#define lapack_logical lapack_int+#endif++/* Complex types are structures equivalent to the+* Fortran complex types COMPLEX(4) and COMPLEX(8).+*+* One can also redefine the types with his own types+* for example by including in the code definitions like+*+* #define lapack_complex_float std::complex<float>+* #define lapack_complex_double std::complex<double>+*+* or define these types in the command line:+*+* -Dlapack_complex_float="std::complex<float>"+* -Dlapack_complex_double="std::complex<double>"+*/++#ifndef LAPACK_COMPLEX_CUSTOM++/* Complex type (single precision) */+#ifndef lapack_complex_float+#include <complex.h>+#define lapack_complex_float    float _Complex+#endif++#ifndef lapack_complex_float_real+#define lapack_complex_float_real(z)       (creal(z))+#endif++#ifndef lapack_complex_float_imag+#define lapack_complex_float_imag(z)       (imag(z))+#endif++lapack_complex_float lapack_make_complex_float( float re, float im );++/* Complex type (double precision) */+#ifndef lapack_complex_double+#include <complex.h>+#define lapack_complex_double   double _Complex+#endif++#ifndef lapack_complex_double_real+#define lapack_complex_double_real(z)      (creal(z))+#endif++#ifndef lapack_complex_double_imag+#define lapack_complex_double_imag(z)       (imag(z))+#endif++lapack_complex_double lapack_make_complex_double( double re, double im );++#endif++#ifndef ABS+#define ABS(x) (((x) < 0) ? -(x) : (x))+#endif+#ifndef MAX+#define MAX(x,y) (((x) > (y)) ? (x) : (y))+#endif+#ifndef MIN+#define MIN(x,y) (((x) < (y)) ? (x) : (y))+#endif+#ifndef MAX3+#define MAX3(x,y,z) (((x) > MAX(y,z)) ? (x) : MAX(y,z))+#endif+#ifndef MIN3+#define MIN3(x,y,z) (((x) < MIN(y,z)) ? (x) : MIN(y,z))+#endif++#define IS_S_NONZERO(x) ( (x) < 0 || (x) > 0 )+#define IS_D_NONZERO(x) ( (x) < 0 || (x) > 0 )+#define IS_C_NONZERO(x) ( IS_S_NONZERO(*((float*)&x)) ||  \+                          IS_S_NONZERO(*(((float*)&x)+1)) )+#define IS_Z_NONZERO(x) ( IS_D_NONZERO(*((double*)&x)) || \+                          IS_D_NONZERO(*(((double*)&x)+1)) )++#ifndef LAPACKE_malloc+#define LAPACKE_malloc( size ) malloc( size )+#endif+#ifndef LAPACKE_free+#define LAPACKE_free( p )      free( p )+#endif++#define LAPACK_C2INT( x ) (lapack_int)(*((float*)&x ))+#define LAPACK_Z2INT( x ) (lapack_int)(*((double*)&x ))++#define LAPACK_ROW_MAJOR               101+#define LAPACK_COL_MAJOR               102++#define LAPACK_WORK_MEMORY_ERROR       -1010+#define LAPACK_TRANSPOSE_MEMORY_ERROR  -1011++/* Callback logical functions of one, two, or three arguments are used+*  to select eigenvalues to sort to the top left of the Schur form.+*  The value is selected if function returns TRUE (non-zero). */++typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );+typedef lapack_logical (*LAPACK_S_SELECT3)+    ( const float*, const float*, const float* );+typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );+typedef lapack_logical (*LAPACK_D_SELECT3)+    ( const double*, const double*, const double* );++typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* );+typedef lapack_logical (*LAPACK_C_SELECT2)+    ( const lapack_complex_float*, const lapack_complex_float* );+typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* );+typedef lapack_logical (*LAPACK_Z_SELECT2)+    ( const lapack_complex_double*, const lapack_complex_double* );++#ifndef LAPACK_NAME+#define LAPACK_NAME(lcname,UCNAME)  lcname##_+#endif++#define LAPACK_lsame LAPACK_NAME(lsame,LSAME)+lapack_logical LAPACK_lsame( char* ca,  char* cb,+                              lapack_int lca, lapack_int lcb );++/* C-LAPACK function prototypes */++lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq,+                           lapack_int n, float* d, float* e, float* u,+                           lapack_int ldu, float* vt, lapack_int ldvt, float* q,+                           lapack_int* iq );+lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq,+                           lapack_int n, double* d, double* e, double* u,+                           lapack_int ldu, double* vt, lapack_int ldvt,+                           double* q, lapack_int* iq );++lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n,+                           lapack_int ncvt, lapack_int nru, lapack_int ncc,+                           float* d, float* e, float* vt, lapack_int ldvt,+                           float* u, lapack_int ldu, float* c, lapack_int ldc );+lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n,+                           lapack_int ncvt, lapack_int nru, lapack_int ncc,+                           double* d, double* e, double* vt, lapack_int ldvt,+                           double* u, lapack_int ldu, double* c,+                           lapack_int ldc );+lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n,+                           lapack_int ncvt, lapack_int nru, lapack_int ncc,+                           float* d, float* e, lapack_complex_float* vt,+                           lapack_int ldvt, lapack_complex_float* u,+                           lapack_int ldu, lapack_complex_float* c,+                           lapack_int ldc );+lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n,+                           lapack_int ncvt, lapack_int nru, lapack_int ncc,+                           double* d, double* e, lapack_complex_double* vt,+                           lapack_int ldvt, lapack_complex_double* u,+                           lapack_int ldu, lapack_complex_double* c,+                           lapack_int ldc );++lapack_int LAPACKE_sdisna( char job, lapack_int m, lapack_int n, const float* d,+                           float* sep );+lapack_int LAPACKE_ddisna( char job, lapack_int m, lapack_int n,+                           const double* d, double* sep );++lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int ncc, lapack_int kl,+                           lapack_int ku, float* ab, lapack_int ldab, float* d,+                           float* e, float* q, lapack_int ldq, float* pt,+                           lapack_int ldpt, float* c, lapack_int ldc );+lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int ncc, lapack_int kl,+                           lapack_int ku, double* ab, lapack_int ldab,+                           double* d, double* e, double* q, lapack_int ldq,+                           double* pt, lapack_int ldpt, double* c,+                           lapack_int ldc );+lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int ncc, lapack_int kl,+                           lapack_int ku, lapack_complex_float* ab,+                           lapack_int ldab, float* d, float* e,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_complex_float* pt, lapack_int ldpt,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int ncc, lapack_int kl,+                           lapack_int ku, lapack_complex_double* ab,+                           lapack_int ldab, double* d, double* e,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* pt, lapack_int ldpt,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n,+                           lapack_int kl, lapack_int ku, const float* ab,+                           lapack_int ldab, const lapack_int* ipiv, float anorm,+                           float* rcond );+lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n,+                           lapack_int kl, lapack_int ku, const double* ab,+                           lapack_int ldab, const lapack_int* ipiv,+                           double anorm, double* rcond );+lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           const lapack_complex_float* ab, lapack_int ldab,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           const lapack_complex_double* ab, lapack_int ldab,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_sgbequ( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const float* ab,+                           lapack_int ldab, float* r, float* c, float* rowcnd,+                           float* colcnd, float* amax );+lapack_int LAPACKE_dgbequ( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const double* ab,+                           lapack_int ldab, double* r, double* c,+                           double* rowcnd, double* colcnd, double* amax );+lapack_int LAPACKE_cgbequ( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           const lapack_complex_float* ab, lapack_int ldab,+                           float* r, float* c, float* rowcnd, float* colcnd,+                           float* amax );+lapack_int LAPACKE_zgbequ( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           const lapack_complex_double* ab, lapack_int ldab,+                           double* r, double* c, double* rowcnd, double* colcnd,+                           double* amax );++lapack_int LAPACKE_sgbequb( int matrix_order, lapack_int m, lapack_int n,+                            lapack_int kl, lapack_int ku, const float* ab,+                            lapack_int ldab, float* r, float* c, float* rowcnd,+                            float* colcnd, float* amax );+lapack_int LAPACKE_dgbequb( int matrix_order, lapack_int m, lapack_int n,+                            lapack_int kl, lapack_int ku, const double* ab,+                            lapack_int ldab, double* r, double* c,+                            double* rowcnd, double* colcnd, double* amax );+lapack_int LAPACKE_cgbequb( int matrix_order, lapack_int m, lapack_int n,+                            lapack_int kl, lapack_int ku,+                            const lapack_complex_float* ab, lapack_int ldab,+                            float* r, float* c, float* rowcnd, float* colcnd,+                            float* amax );+lapack_int LAPACKE_zgbequb( int matrix_order, lapack_int m, lapack_int n,+                            lapack_int kl, lapack_int ku,+                            const lapack_complex_double* ab, lapack_int ldab,+                            double* r, double* c, double* rowcnd,+                            double* colcnd, double* amax );++lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const float* ab, lapack_int ldab, const float* afb,+                           lapack_int ldafb, const lapack_int* ipiv,+                           const float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const double* ab, lapack_int ldab, const double* afb,+                           lapack_int ldafb, const lapack_int* ipiv,+                           const double* b, lapack_int ldb, double* x,+                           lapack_int ldx, double* ferr, double* berr );+lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           const lapack_complex_float* afb, lapack_int ldafb,+                           const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           const lapack_complex_double* afb, lapack_int ldafb,+                           const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, const float* ab, lapack_int ldab,+                            const float* afb, lapack_int ldafb,+                            const lapack_int* ipiv, const float* r,+                            const float* c, const float* b, lapack_int ldb,+                            float* x, lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, const double* ab, lapack_int ldab,+                            const double* afb, lapack_int ldafb,+                            const lapack_int* ipiv, const double* r,+                            const double* c, const double* b, lapack_int ldb,+                            double* x, lapack_int ldx, double* rcond,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );+lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, const lapack_complex_float* ab,+                            lapack_int ldab, const lapack_complex_float* afb,+                            lapack_int ldafb, const lapack_int* ipiv,+                            const float* r, const float* c,+                            const lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, const lapack_complex_double* ab,+                            lapack_int ldab, const lapack_complex_double* afb,+                            lapack_int ldafb, const lapack_int* ipiv,+                            const double* r, const double* c,+                            const lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );++lapack_int LAPACKE_sgbsv( int matrix_order, lapack_int n, lapack_int kl,+                          lapack_int ku, lapack_int nrhs, float* ab,+                          lapack_int ldab, lapack_int* ipiv, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dgbsv( int matrix_order, lapack_int n, lapack_int kl,+                          lapack_int ku, lapack_int nrhs, double* ab,+                          lapack_int ldab, lapack_int* ipiv, double* b,+                          lapack_int ldb );+lapack_int LAPACKE_cgbsv( int matrix_order, lapack_int n, lapack_int kl,+                          lapack_int ku, lapack_int nrhs,+                          lapack_complex_float* ab, lapack_int ldab,+                          lapack_int* ipiv, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zgbsv( int matrix_order, lapack_int n, lapack_int kl,+                          lapack_int ku, lapack_int nrhs,+                          lapack_complex_double* ab, lapack_int ldab,+                          lapack_int* ipiv, lapack_complex_double* b,+                          lapack_int ldb );++lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int kl, lapack_int ku,+                           lapack_int nrhs, float* ab, lapack_int ldab,+                           float* afb, lapack_int ldafb, lapack_int* ipiv,+                           char* equed, float* r, float* c, float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr,+                           float* rpivot );+lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int kl, lapack_int ku,+                           lapack_int nrhs, double* ab, lapack_int ldab,+                           double* afb, lapack_int ldafb, lapack_int* ipiv,+                           char* equed, double* r, double* c, double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr,+                           double* rpivot );+lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int kl, lapack_int ku,+                           lapack_int nrhs, lapack_complex_float* ab,+                           lapack_int ldab, lapack_complex_float* afb,+                           lapack_int ldafb, lapack_int* ipiv, char* equed,+                           float* r, float* c, lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr, float* rpivot );+lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int kl, lapack_int ku,+                           lapack_int nrhs, lapack_complex_double* ab,+                           lapack_int ldab, lapack_complex_double* afb,+                           lapack_int ldafb, lapack_int* ipiv, char* equed,+                           double* r, double* c, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* x,+                           lapack_int ldx, double* rcond, double* ferr,+                           double* berr, double* rpivot );++lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, float* ab, lapack_int ldab,+                            float* afb, lapack_int ldafb, lapack_int* ipiv,+                            char* equed, float* r, float* c, float* b,+                            lapack_int ldb, float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, double* ab, lapack_int ldab,+                            double* afb, lapack_int ldafb, lapack_int* ipiv,+                            char* equed, double* r, double* c, double* b,+                            lapack_int ldb, double* x, lapack_int ldx,+                            double* rcond, double* rpvgrw, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );+lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, lapack_complex_float* ab,+                            lapack_int ldab, lapack_complex_float* afb,+                            lapack_int ldafb, lapack_int* ipiv, char* equed,+                            float* r, float* c, lapack_complex_float* b,+                            lapack_int ldb, lapack_complex_float* x,+                            lapack_int ldx, float* rcond, float* rpvgrw,+                            float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int kl, lapack_int ku,+                            lapack_int nrhs, lapack_complex_double* ab,+                            lapack_int ldab, lapack_complex_double* afb,+                            lapack_int ldafb, lapack_int* ipiv, char* equed,+                            double* r, double* c, lapack_complex_double* b,+                            lapack_int ldb, lapack_complex_double* x,+                            lapack_int ldx, double* rcond, double* rpvgrw,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );++lapack_int LAPACKE_sgbtrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, float* ab,+                           lapack_int ldab, lapack_int* ipiv );+lapack_int LAPACKE_dgbtrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, double* ab,+                           lapack_int ldab, lapack_int* ipiv );+lapack_int LAPACKE_cgbtrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           lapack_complex_float* ab, lapack_int ldab,+                           lapack_int* ipiv );+lapack_int LAPACKE_zgbtrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku,+                           lapack_complex_double* ab, lapack_int ldab,+                           lapack_int* ipiv );++lapack_int LAPACKE_sgbtrs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const float* ab, lapack_int ldab,+                           const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dgbtrs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const double* ab, lapack_int ldab,+                           const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_cgbtrs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           const lapack_int* ipiv, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zgbtrs( int matrix_order, char trans, lapack_int n,+                           lapack_int kl, lapack_int ku, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           const lapack_int* ipiv, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_sgebak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const float* scale,+                           lapack_int m, float* v, lapack_int ldv );+lapack_int LAPACKE_dgebak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const double* scale,+                           lapack_int m, double* v, lapack_int ldv );+lapack_int LAPACKE_cgebak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const float* scale,+                           lapack_int m, lapack_complex_float* v,+                           lapack_int ldv );+lapack_int LAPACKE_zgebak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const double* scale,+                           lapack_int m, lapack_complex_double* v,+                           lapack_int ldv );++lapack_int LAPACKE_sgebal( int matrix_order, char job, lapack_int n, float* a,+                           lapack_int lda, lapack_int* ilo, lapack_int* ihi,+                           float* scale );+lapack_int LAPACKE_dgebal( int matrix_order, char job, lapack_int n, double* a,+                           lapack_int lda, lapack_int* ilo, lapack_int* ihi,+                           double* scale );+lapack_int LAPACKE_cgebal( int matrix_order, char job, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* ilo, lapack_int* ihi, float* scale );+lapack_int LAPACKE_zgebal( int matrix_order, char job, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ilo, lapack_int* ihi, double* scale );++lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* d, float* e,+                           float* tauq, float* taup );+lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* d, double* e,+                           double* tauq, double* taup );+lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda, float* d,+                           float* e, lapack_complex_float* tauq,+                           lapack_complex_float* taup );+lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda, double* d,+                           double* e, lapack_complex_double* tauq,+                           lapack_complex_double* taup );++lapack_int LAPACKE_sgecon( int matrix_order, char norm, lapack_int n,+                           const float* a, lapack_int lda, float anorm,+                           float* rcond );+lapack_int LAPACKE_dgecon( int matrix_order, char norm, lapack_int n,+                           const double* a, lapack_int lda, double anorm,+                           double* rcond );+lapack_int LAPACKE_cgecon( int matrix_order, char norm, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           float anorm, float* rcond );+lapack_int LAPACKE_zgecon( int matrix_order, char norm, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           double anorm, double* rcond );++lapack_int LAPACKE_sgeequ( int matrix_order, lapack_int m, lapack_int n,+                           const float* a, lapack_int lda, float* r, float* c,+                           float* rowcnd, float* colcnd, float* amax );+lapack_int LAPACKE_dgeequ( int matrix_order, lapack_int m, lapack_int n,+                           const double* a, lapack_int lda, double* r,+                           double* c, double* rowcnd, double* colcnd,+                           double* amax );+lapack_int LAPACKE_cgeequ( int matrix_order, lapack_int m, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           float* r, float* c, float* rowcnd, float* colcnd,+                           float* amax );+lapack_int LAPACKE_zgeequ( int matrix_order, lapack_int m, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           double* r, double* c, double* rowcnd, double* colcnd,+                           double* amax );++lapack_int LAPACKE_sgeequb( int matrix_order, lapack_int m, lapack_int n,+                            const float* a, lapack_int lda, float* r, float* c,+                            float* rowcnd, float* colcnd, float* amax );+lapack_int LAPACKE_dgeequb( int matrix_order, lapack_int m, lapack_int n,+                            const double* a, lapack_int lda, double* r,+                            double* c, double* rowcnd, double* colcnd,+                            double* amax );+lapack_int LAPACKE_cgeequb( int matrix_order, lapack_int m, lapack_int n,+                            const lapack_complex_float* a, lapack_int lda,+                            float* r, float* c, float* rowcnd, float* colcnd,+                            float* amax );+lapack_int LAPACKE_zgeequb( int matrix_order, lapack_int m, lapack_int n,+                            const lapack_complex_double* a, lapack_int lda,+                            double* r, double* c, double* rowcnd,+                            double* colcnd, double* amax );++lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort,+                          LAPACK_S_SELECT2 select, lapack_int n, float* a,+                          lapack_int lda, lapack_int* sdim, float* wr,+                          float* wi, float* vs, lapack_int ldvs );+lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort,+                          LAPACK_D_SELECT2 select, lapack_int n, double* a,+                          lapack_int lda, lapack_int* sdim, double* wr,+                          double* wi, double* vs, lapack_int ldvs );+lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort,+                          LAPACK_C_SELECT1 select, lapack_int n,+                          lapack_complex_float* a, lapack_int lda,+                          lapack_int* sdim, lapack_complex_float* w,+                          lapack_complex_float* vs, lapack_int ldvs );+lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort,+                          LAPACK_Z_SELECT1 select, lapack_int n,+                          lapack_complex_double* a, lapack_int lda,+                          lapack_int* sdim, lapack_complex_double* w,+                          lapack_complex_double* vs, lapack_int ldvs );++lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort,+                           LAPACK_S_SELECT2 select, char sense, lapack_int n,+                           float* a, lapack_int lda, lapack_int* sdim,+                           float* wr, float* wi, float* vs, lapack_int ldvs,+                           float* rconde, float* rcondv );+lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort,+                           LAPACK_D_SELECT2 select, char sense, lapack_int n,+                           double* a, lapack_int lda, lapack_int* sdim,+                           double* wr, double* wi, double* vs, lapack_int ldvs,+                           double* rconde, double* rcondv );+lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort,+                           LAPACK_C_SELECT1 select, char sense, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* sdim, lapack_complex_float* w,+                           lapack_complex_float* vs, lapack_int ldvs,+                           float* rconde, float* rcondv );+lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort,+                           LAPACK_Z_SELECT1 select, char sense, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* sdim, lapack_complex_double* w,+                           lapack_complex_double* vs, lapack_int ldvs,+                           double* rconde, double* rcondv );++lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, float* a, lapack_int lda, float* wr,+                          float* wi, float* vl, lapack_int ldvl, float* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, double* a, lapack_int lda, double* wr,+                          double* wi, double* vl, lapack_int ldvl, double* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, lapack_complex_float* a, lapack_int lda,+                          lapack_complex_float* w, lapack_complex_float* vl,+                          lapack_int ldvl, lapack_complex_float* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, lapack_complex_double* a,+                          lapack_int lda, lapack_complex_double* w,+                          lapack_complex_double* vl, lapack_int ldvl,+                          lapack_complex_double* vr, lapack_int ldvr );++lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n, float* a,+                           lapack_int lda, float* wr, float* wi, float* vl,+                           lapack_int ldvl, float* vr, lapack_int ldvr,+                           lapack_int* ilo, lapack_int* ihi, float* scale,+                           float* abnrm, float* rconde, float* rcondv );+lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n, double* a,+                           lapack_int lda, double* wr, double* wi, double* vl,+                           lapack_int ldvl, double* vr, lapack_int ldvr,+                           lapack_int* ilo, lapack_int* ihi, double* scale,+                           double* abnrm, double* rconde, double* rcondv );+lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* w, lapack_complex_float* vl,+                           lapack_int ldvl, lapack_complex_float* vr,+                           lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,+                           float* scale, float* abnrm, float* rconde,+                           float* rcondv );+lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* w, lapack_complex_double* vl,+                           lapack_int ldvl, lapack_complex_double* vr,+                           lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,+                           double* scale, double* abnrm, double* rconde,+                           double* rcondv );++lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, float* a, lapack_int lda,+                           float* tau );+lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, double* a, lapack_int lda,+                           double* tau );+lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* tau );+lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* tau );++lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv,+                           char jobr, char jobt, char jobp, lapack_int m,+                           lapack_int n, float* a, lapack_int lda, float* sva,+                           float* u, lapack_int ldu, float* v, lapack_int ldv,+                           float* stat, lapack_int* istat );+lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv,+                           char jobr, char jobt, char jobp, lapack_int m,+                           lapack_int n, double* a, lapack_int lda, double* sva,+                           double* u, lapack_int ldu, double* v, lapack_int ldv,+                           double* stat, lapack_int* istat );++lapack_int LAPACKE_sgelq2( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgelq2( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgelq2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgelq2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgelqf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgelqf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m,+                          lapack_int n, lapack_int nrhs, float* a,+                          lapack_int lda, float* b, lapack_int ldb );+lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m,+                          lapack_int n, lapack_int nrhs, double* a,+                          lapack_int lda, double* b, lapack_int ldb );+lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m,+                          lapack_int n, lapack_int nrhs,+                          lapack_complex_float* a, lapack_int lda,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m,+                          lapack_int n, lapack_int nrhs,+                          lapack_complex_double* a, lapack_int lda,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, float* a, lapack_int lda, float* b,+                           lapack_int ldb, float* s, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, double* a, lapack_int lda,+                           double* b, lapack_int ldb, double* s, double rcond,+                           lapack_int* rank );+lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, float* s, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, double* s, double rcond,+                           lapack_int* rank );++lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, float* a, lapack_int lda, float* b,+                           lapack_int ldb, float* s, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, double* a, lapack_int lda,+                           double* b, lapack_int ldb, double* s, double rcond,+                           lapack_int* rank );+lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, float* s, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, double* s, double rcond,+                           lapack_int* rank );++lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, float* a, lapack_int lda, float* b,+                           lapack_int ldb, lapack_int* jpvt, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, double* a, lapack_int lda,+                           double* b, lapack_int ldb, lapack_int* jpvt,+                           double rcond, lapack_int* rank );+lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, lapack_int* jpvt, float rcond,+                           lapack_int* rank );+lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, lapack_int* jpvt, double rcond,+                           lapack_int* rank );++lapack_int LAPACKE_sgeqlf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgeqlf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, lapack_int* jpvt,+                           float* tau );+lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, lapack_int* jpvt,+                           double* tau );+lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* jpvt, lapack_complex_float* tau );+lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* jpvt, lapack_complex_double* tau );++lapack_int LAPACKE_sgeqpf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, lapack_int* jpvt,+                           float* tau );+lapack_int LAPACKE_dgeqpf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, lapack_int* jpvt,+                           double* tau );+lapack_int LAPACKE_cgeqpf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* jpvt, lapack_complex_float* tau );+lapack_int LAPACKE_zgeqpf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* jpvt, lapack_complex_double* tau );++lapack_int LAPACKE_sgeqr2( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgeqr2( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgeqr2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgeqr2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgeqrf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgeqrf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgeqrfp( int matrix_order, lapack_int m, lapack_int n,+                            float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgeqrfp( int matrix_order, lapack_int m, lapack_int n,+                            double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* tau );+lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* tau );++lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           const float* af, lapack_int ldaf,+                           const lapack_int* ipiv, const float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           const double* af, lapack_int ldaf,+                           const lapack_int* ipiv, const double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* ferr, double* berr );+lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int nrhs, const float* a,+                            lapack_int lda, const float* af, lapack_int ldaf,+                            const lapack_int* ipiv, const float* r,+                            const float* c, const float* b, lapack_int ldb,+                            float* x, lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int nrhs, const double* a,+                            lapack_int lda, const double* af, lapack_int ldaf,+                            const lapack_int* ipiv, const double* r,+                            const double* c, const double* b, lapack_int ldb,+                            double* x, lapack_int ldx, double* rcond,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );+lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_float* a, lapack_int lda,+                            const lapack_complex_float* af, lapack_int ldaf,+                            const lapack_int* ipiv, const float* r,+                            const float* c, const lapack_complex_float* b,+                            lapack_int ldb, lapack_complex_float* x,+                            lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_double* a, lapack_int lda,+                            const lapack_complex_double* af, lapack_int ldaf,+                            const lapack_int* ipiv, const double* r,+                            const double* c, const lapack_complex_double* b,+                            lapack_int ldb, lapack_complex_double* x,+                            lapack_int ldx, double* rcond, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );++lapack_int LAPACKE_sgerqf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dgerqf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m,+                           lapack_int n, float* a, lapack_int lda, float* s,+                           float* u, lapack_int ldu, float* vt,+                           lapack_int ldvt );+lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m,+                           lapack_int n, double* a, lapack_int lda, double* s,+                           double* u, lapack_int ldu, double* vt,+                           lapack_int ldvt );+lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, float* s, lapack_complex_float* u,+                           lapack_int ldu, lapack_complex_float* vt,+                           lapack_int ldvt );+lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, double* s, lapack_complex_double* u,+                           lapack_int ldu, lapack_complex_double* vt,+                           lapack_int ldvt );++lapack_int LAPACKE_sgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                          float* a, lapack_int lda, lapack_int* ipiv, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                          double* a, lapack_int lda, lapack_int* ipiv,+                          double* b, lapack_int ldb );+lapack_int LAPACKE_cgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                          lapack_complex_float* a, lapack_int lda,+                          lapack_int* ipiv, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                          lapack_complex_double* a, lapack_int lda,+                          lapack_int* ipiv, lapack_complex_double* b,+                          lapack_int ldb );+lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                           double* a, lapack_int lda, lapack_int* ipiv,+                           double* b, lapack_int ldb, double* x, lapack_int ldx,+                           lapack_int* iter );+lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ipiv, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* x,+                           lapack_int ldx, lapack_int* iter );++lapack_int LAPACKE_sgesvd( int matrix_order, char jobu, char jobvt,+                           lapack_int m, lapack_int n, float* a, lapack_int lda,+                           float* s, float* u, lapack_int ldu, float* vt,+                           lapack_int ldvt, float* superb );+lapack_int LAPACKE_dgesvd( int matrix_order, char jobu, char jobvt,+                           lapack_int m, lapack_int n, double* a,+                           lapack_int lda, double* s, double* u, lapack_int ldu,+                           double* vt, lapack_int ldvt, double* superb );+lapack_int LAPACKE_cgesvd( int matrix_order, char jobu, char jobvt,+                           lapack_int m, lapack_int n, lapack_complex_float* a,+                           lapack_int lda, float* s, lapack_complex_float* u,+                           lapack_int ldu, lapack_complex_float* vt,+                           lapack_int ldvt, float* superb );+lapack_int LAPACKE_zgesvd( int matrix_order, char jobu, char jobvt,+                           lapack_int m, lapack_int n, lapack_complex_double* a,+                           lapack_int lda, double* s, lapack_complex_double* u,+                           lapack_int ldu, lapack_complex_double* vt,+                           lapack_int ldvt, double* superb );++lapack_int LAPACKE_sgesvj( int matrix_order, char joba, char jobu, char jobv,+                           lapack_int m, lapack_int n, float* a, lapack_int lda,+                           float* sva, lapack_int mv, float* v, lapack_int ldv,+                           float* stat );+lapack_int LAPACKE_dgesvj( int matrix_order, char joba, char jobu, char jobv,+                           lapack_int m, lapack_int n, double* a,+                           lapack_int lda, double* sva, lapack_int mv,+                           double* v, lapack_int ldv, double* stat );++lapack_int LAPACKE_sgesvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs, float* a,+                           lapack_int lda, float* af, lapack_int ldaf,+                           lapack_int* ipiv, char* equed, float* r, float* c,+                           float* b, lapack_int ldb, float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr,+                           float* rpivot );+lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs, double* a,+                           lapack_int lda, double* af, lapack_int ldaf,+                           lapack_int* ipiv, char* equed, double* r, double* c,+                           double* b, lapack_int ldb, double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr,+                           double* rpivot );+lapack_int LAPACKE_cgesvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* af, lapack_int ldaf,+                           lapack_int* ipiv, char* equed, float* r, float* c,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr,+                           float* rpivot );+lapack_int LAPACKE_zgesvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* af, lapack_int ldaf,+                           lapack_int* ipiv, char* equed, double* r, double* c,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr,+                           double* rpivot );++lapack_int LAPACKE_sgesvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int nrhs, float* a,+                            lapack_int lda, float* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, float* r, float* c,+                            float* b, lapack_int ldb, float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dgesvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int nrhs, double* a,+                            lapack_int lda, double* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, double* r, double* c,+                            double* b, lapack_int ldb, double* x,+                            lapack_int ldx, double* rcond, double* rpvgrw,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );+lapack_int LAPACKE_cgesvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, float* r, float* c,+                            lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_zgesvxx( int matrix_order, char fact, char trans,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, double* r, double* c,+                            lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* rpvgrw, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );++lapack_int LAPACKE_sgetf2( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_dgetf2( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_cgetf2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* ipiv );+lapack_int LAPACKE_zgetf2( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ipiv );++lapack_int LAPACKE_sgetrf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_dgetrf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_cgetrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* ipiv );+lapack_int LAPACKE_zgetrf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ipiv );++lapack_int LAPACKE_sgetri( int matrix_order, lapack_int n, float* a,+                           lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_dgetri( int matrix_order, lapack_int n, double* a,+                           lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_cgetri( int matrix_order, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           const lapack_int* ipiv );+lapack_int LAPACKE_zgetri( int matrix_order, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           const lapack_int* ipiv );++lapack_int LAPACKE_sgetrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dgetrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_cgetrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zgetrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sggbak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const float* lscale,+                           const float* rscale, lapack_int m, float* v,+                           lapack_int ldv );+lapack_int LAPACKE_dggbak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const double* lscale,+                           const double* rscale, lapack_int m, double* v,+                           lapack_int ldv );+lapack_int LAPACKE_cggbak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const float* lscale,+                           const float* rscale, lapack_int m,+                           lapack_complex_float* v, lapack_int ldv );+lapack_int LAPACKE_zggbak( int matrix_order, char job, char side, lapack_int n,+                           lapack_int ilo, lapack_int ihi, const double* lscale,+                           const double* rscale, lapack_int m,+                           lapack_complex_double* v, lapack_int ldv );++lapack_int LAPACKE_sggbal( int matrix_order, char job, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb,+                           lapack_int* ilo, lapack_int* ihi, float* lscale,+                           float* rscale );+lapack_int LAPACKE_dggbal( int matrix_order, char job, lapack_int n, double* a,+                           lapack_int lda, double* b, lapack_int ldb,+                           lapack_int* ilo, lapack_int* ihi, double* lscale,+                           double* rscale );+lapack_int LAPACKE_cggbal( int matrix_order, char job, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_int* ilo, lapack_int* ihi, float* lscale,+                           float* rscale );+lapack_int LAPACKE_zggbal( int matrix_order, char job, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_int* ilo, lapack_int* ihi, double* lscale,+                           double* rscale );++lapack_int LAPACKE_sgges( int matrix_order, char jobvsl, char jobvsr, char sort,+                          LAPACK_S_SELECT3 selctg, lapack_int n, float* a,+                          lapack_int lda, float* b, lapack_int ldb,+                          lapack_int* sdim, float* alphar, float* alphai,+                          float* beta, float* vsl, lapack_int ldvsl, float* vsr,+                          lapack_int ldvsr );+lapack_int LAPACKE_dgges( int matrix_order, char jobvsl, char jobvsr, char sort,+                          LAPACK_D_SELECT3 selctg, lapack_int n, double* a,+                          lapack_int lda, double* b, lapack_int ldb,+                          lapack_int* sdim, double* alphar, double* alphai,+                          double* beta, double* vsl, lapack_int ldvsl,+                          double* vsr, lapack_int ldvsr );+lapack_int LAPACKE_cgges( int matrix_order, char jobvsl, char jobvsr, char sort,+                          LAPACK_C_SELECT2 selctg, lapack_int n,+                          lapack_complex_float* a, lapack_int lda,+                          lapack_complex_float* b, lapack_int ldb,+                          lapack_int* sdim, lapack_complex_float* alpha,+                          lapack_complex_float* beta, lapack_complex_float* vsl,+                          lapack_int ldvsl, lapack_complex_float* vsr,+                          lapack_int ldvsr );+lapack_int LAPACKE_zgges( int matrix_order, char jobvsl, char jobvsr, char sort,+                          LAPACK_Z_SELECT2 selctg, lapack_int n,+                          lapack_complex_double* a, lapack_int lda,+                          lapack_complex_double* b, lapack_int ldb,+                          lapack_int* sdim, lapack_complex_double* alpha,+                          lapack_complex_double* beta,+                          lapack_complex_double* vsl, lapack_int ldvsl,+                          lapack_complex_double* vsr, lapack_int ldvsr );++lapack_int LAPACKE_sggesx( int matrix_order, char jobvsl, char jobvsr,+                           char sort, LAPACK_S_SELECT3 selctg, char sense,+                           lapack_int n, float* a, lapack_int lda, float* b,+                           lapack_int ldb, lapack_int* sdim, float* alphar,+                           float* alphai, float* beta, float* vsl,+                           lapack_int ldvsl, float* vsr, lapack_int ldvsr,+                           float* rconde, float* rcondv );+lapack_int LAPACKE_dggesx( int matrix_order, char jobvsl, char jobvsr,+                           char sort, LAPACK_D_SELECT3 selctg, char sense,+                           lapack_int n, double* a, lapack_int lda, double* b,+                           lapack_int ldb, lapack_int* sdim, double* alphar,+                           double* alphai, double* beta, double* vsl,+                           lapack_int ldvsl, double* vsr, lapack_int ldvsr,+                           double* rconde, double* rcondv );+lapack_int LAPACKE_cggesx( int matrix_order, char jobvsl, char jobvsr,+                           char sort, LAPACK_C_SELECT2 selctg, char sense,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, lapack_int* sdim,+                           lapack_complex_float* alpha,+                           lapack_complex_float* beta,+                           lapack_complex_float* vsl, lapack_int ldvsl,+                           lapack_complex_float* vsr, lapack_int ldvsr,+                           float* rconde, float* rcondv );+lapack_int LAPACKE_zggesx( int matrix_order, char jobvsl, char jobvsr,+                           char sort, LAPACK_Z_SELECT2 selctg, char sense,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, lapack_int* sdim,+                           lapack_complex_double* alpha,+                           lapack_complex_double* beta,+                           lapack_complex_double* vsl, lapack_int ldvsl,+                           lapack_complex_double* vsr, lapack_int ldvsr,+                           double* rconde, double* rcondv );++lapack_int LAPACKE_sggev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, float* a, lapack_int lda, float* b,+                          lapack_int ldb, float* alphar, float* alphai,+                          float* beta, float* vl, lapack_int ldvl, float* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_dggev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, double* a, lapack_int lda, double* b,+                          lapack_int ldb, double* alphar, double* alphai,+                          double* beta, double* vl, lapack_int ldvl, double* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_cggev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, lapack_complex_float* a, lapack_int lda,+                          lapack_complex_float* b, lapack_int ldb,+                          lapack_complex_float* alpha,+                          lapack_complex_float* beta, lapack_complex_float* vl,+                          lapack_int ldvl, lapack_complex_float* vr,+                          lapack_int ldvr );+lapack_int LAPACKE_zggev( int matrix_order, char jobvl, char jobvr,+                          lapack_int n, lapack_complex_double* a,+                          lapack_int lda, lapack_complex_double* b,+                          lapack_int ldb, lapack_complex_double* alpha,+                          lapack_complex_double* beta,+                          lapack_complex_double* vl, lapack_int ldvl,+                          lapack_complex_double* vr, lapack_int ldvr );++lapack_int LAPACKE_sggevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb,+                           float* alphar, float* alphai, float* beta, float* vl,+                           lapack_int ldvl, float* vr, lapack_int ldvr,+                           lapack_int* ilo, lapack_int* ihi, float* lscale,+                           float* rscale, float* abnrm, float* bbnrm,+                           float* rconde, float* rcondv );+lapack_int LAPACKE_dggevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n, double* a,+                           lapack_int lda, double* b, lapack_int ldb,+                           double* alphar, double* alphai, double* beta,+                           double* vl, lapack_int ldvl, double* vr,+                           lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,+                           double* lscale, double* rscale, double* abnrm,+                           double* bbnrm, double* rconde, double* rcondv );+lapack_int LAPACKE_cggevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* alpha,+                           lapack_complex_float* beta, lapack_complex_float* vl,+                           lapack_int ldvl, lapack_complex_float* vr,+                           lapack_int ldvr, lapack_int* ilo, lapack_int* ihi,+                           float* lscale, float* rscale, float* abnrm,+                           float* bbnrm, float* rconde, float* rcondv );+lapack_int LAPACKE_zggevx( int matrix_order, char balanc, char jobvl,+                           char jobvr, char sense, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* alpha,+                           lapack_complex_double* beta,+                           lapack_complex_double* vl, lapack_int ldvl,+                           lapack_complex_double* vr, lapack_int ldvr,+                           lapack_int* ilo, lapack_int* ihi, double* lscale,+                           double* rscale, double* abnrm, double* bbnrm,+                           double* rconde, double* rcondv );++lapack_int LAPACKE_sggglm( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, float* a, lapack_int lda, float* b,+                           lapack_int ldb, float* d, float* x, float* y );+lapack_int LAPACKE_dggglm( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, double* a, lapack_int lda, double* b,+                           lapack_int ldb, double* d, double* x, double* y );+lapack_int LAPACKE_cggglm( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* d,+                           lapack_complex_float* x, lapack_complex_float* y );+lapack_int LAPACKE_zggglm( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* d,+                           lapack_complex_double* x, lapack_complex_double* y );++lapack_int LAPACKE_sgghrd( int matrix_order, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           float* a, lapack_int lda, float* b, lapack_int ldb,+                           float* q, lapack_int ldq, float* z, lapack_int ldz );+lapack_int LAPACKE_dgghrd( int matrix_order, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           double* a, lapack_int lda, double* b, lapack_int ldb,+                           double* q, lapack_int ldq, double* z,+                           lapack_int ldz );+lapack_int LAPACKE_cgghrd( int matrix_order, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zgghrd( int matrix_order, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_sgglse( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int p, float* a, lapack_int lda, float* b,+                           lapack_int ldb, float* c, float* d, float* x );+lapack_int LAPACKE_dgglse( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int p, double* a, lapack_int lda, double* b,+                           lapack_int ldb, double* c, double* d, double* x );+lapack_int LAPACKE_cgglse( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int p, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* c,+                           lapack_complex_float* d, lapack_complex_float* x );+lapack_int LAPACKE_zgglse( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int p, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* c,+                           lapack_complex_double* d, lapack_complex_double* x );++lapack_int LAPACKE_sggqrf( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, float* a, lapack_int lda, float* taua,+                           float* b, lapack_int ldb, float* taub );+lapack_int LAPACKE_dggqrf( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, double* a, lapack_int lda,+                           double* taua, double* b, lapack_int ldb,+                           double* taub );+lapack_int LAPACKE_cggqrf( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* taua,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* taub );+lapack_int LAPACKE_zggqrf( int matrix_order, lapack_int n, lapack_int m,+                           lapack_int p, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* taua,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* taub );++lapack_int LAPACKE_sggrqf( int matrix_order, lapack_int m, lapack_int p,+                           lapack_int n, float* a, lapack_int lda, float* taua,+                           float* b, lapack_int ldb, float* taub );+lapack_int LAPACKE_dggrqf( int matrix_order, lapack_int m, lapack_int p,+                           lapack_int n, double* a, lapack_int lda,+                           double* taua, double* b, lapack_int ldb,+                           double* taub );+lapack_int LAPACKE_cggrqf( int matrix_order, lapack_int m, lapack_int p,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* taua,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* taub );+lapack_int LAPACKE_zggrqf( int matrix_order, lapack_int m, lapack_int p,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* taua,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* taub );++lapack_int LAPACKE_sggsvd( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int n, lapack_int p,+                           lapack_int* k, lapack_int* l, float* a,+                           lapack_int lda, float* b, lapack_int ldb,+                           float* alpha, float* beta, float* u, lapack_int ldu,+                           float* v, lapack_int ldv, float* q, lapack_int ldq,+                           lapack_int* iwork );+lapack_int LAPACKE_dggsvd( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int n, lapack_int p,+                           lapack_int* k, lapack_int* l, double* a,+                           lapack_int lda, double* b, lapack_int ldb,+                           double* alpha, double* beta, double* u,+                           lapack_int ldu, double* v, lapack_int ldv, double* q,+                           lapack_int ldq, lapack_int* iwork );+lapack_int LAPACKE_cggsvd( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int n, lapack_int p,+                           lapack_int* k, lapack_int* l,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           float* alpha, float* beta, lapack_complex_float* u,+                           lapack_int ldu, lapack_complex_float* v,+                           lapack_int ldv, lapack_complex_float* q,+                           lapack_int ldq, lapack_int* iwork );+lapack_int LAPACKE_zggsvd( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int n, lapack_int p,+                           lapack_int* k, lapack_int* l,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           double* alpha, double* beta,+                           lapack_complex_double* u, lapack_int ldu,+                           lapack_complex_double* v, lapack_int ldv,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_int* iwork );++lapack_int LAPACKE_sggsvp( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb, float tola,+                           float tolb, lapack_int* k, lapack_int* l, float* u,+                           lapack_int ldu, float* v, lapack_int ldv, float* q,+                           lapack_int ldq );+lapack_int LAPACKE_dggsvp( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n, double* a,+                           lapack_int lda, double* b, lapack_int ldb,+                           double tola, double tolb, lapack_int* k,+                           lapack_int* l, double* u, lapack_int ldu, double* v,+                           lapack_int ldv, double* q, lapack_int ldq );+lapack_int LAPACKE_cggsvp( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb, float tola,+                           float tolb, lapack_int* k, lapack_int* l,+                           lapack_complex_float* u, lapack_int ldu,+                           lapack_complex_float* v, lapack_int ldv,+                           lapack_complex_float* q, lapack_int ldq );+lapack_int LAPACKE_zggsvp( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           double tola, double tolb, lapack_int* k,+                           lapack_int* l, lapack_complex_double* u,+                           lapack_int ldu, lapack_complex_double* v,+                           lapack_int ldv, lapack_complex_double* q,+                           lapack_int ldq );++lapack_int LAPACKE_sgtcon( char norm, lapack_int n, const float* dl,+                           const float* d, const float* du, const float* du2,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_dgtcon( char norm, lapack_int n, const double* dl,+                           const double* d, const double* du, const double* du2,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );+lapack_int LAPACKE_cgtcon( char norm, lapack_int n,+                           const lapack_complex_float* dl,+                           const lapack_complex_float* d,+                           const lapack_complex_float* du,+                           const lapack_complex_float* du2,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zgtcon( char norm, lapack_int n,+                           const lapack_complex_double* dl,+                           const lapack_complex_double* d,+                           const lapack_complex_double* du,+                           const lapack_complex_double* du2,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_sgtrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const float* dl, const float* d,+                           const float* du, const float* dlf, const float* df,+                           const float* duf, const float* du2,+                           const lapack_int* ipiv, const float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dgtrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const double* dl, const double* d,+                           const double* du, const double* dlf,+                           const double* df, const double* duf,+                           const double* du2, const lapack_int* ipiv,+                           const double* b, lapack_int ldb, double* x,+                           lapack_int ldx, double* ferr, double* berr );+lapack_int LAPACKE_cgtrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* dl,+                           const lapack_complex_float* d,+                           const lapack_complex_float* du,+                           const lapack_complex_float* dlf,+                           const lapack_complex_float* df,+                           const lapack_complex_float* duf,+                           const lapack_complex_float* du2,+                           const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zgtrfs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* dl,+                           const lapack_complex_double* d,+                           const lapack_complex_double* du,+                           const lapack_complex_double* dlf,+                           const lapack_complex_double* df,+                           const lapack_complex_double* duf,+                           const lapack_complex_double* du2,+                           const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sgtsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          float* dl, float* d, float* du, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dgtsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          double* dl, double* d, double* du, double* b,+                          lapack_int ldb );+lapack_int LAPACKE_cgtsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          lapack_complex_float* dl, lapack_complex_float* d,+                          lapack_complex_float* du, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zgtsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          lapack_complex_double* dl, lapack_complex_double* d,+                          lapack_complex_double* du, lapack_complex_double* b,+                          lapack_int ldb );++lapack_int LAPACKE_sgtsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs, const float* dl,+                           const float* d, const float* du, float* dlf,+                           float* df, float* duf, float* du2, lapack_int* ipiv,+                           const float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dgtsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs, const double* dl,+                           const double* d, const double* du, double* dlf,+                           double* df, double* duf, double* du2,+                           lapack_int* ipiv, const double* b, lapack_int ldb,+                           double* x, lapack_int ldx, double* rcond,+                           double* ferr, double* berr );+lapack_int LAPACKE_cgtsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* dl,+                           const lapack_complex_float* d,+                           const lapack_complex_float* du,+                           lapack_complex_float* dlf, lapack_complex_float* df,+                           lapack_complex_float* duf, lapack_complex_float* du2,+                           lapack_int* ipiv, const lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_zgtsvx( int matrix_order, char fact, char trans,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* dl,+                           const lapack_complex_double* d,+                           const lapack_complex_double* du,+                           lapack_complex_double* dlf,+                           lapack_complex_double* df,+                           lapack_complex_double* duf,+                           lapack_complex_double* du2, lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_sgttrf( lapack_int n, float* dl, float* d, float* du,+                           float* du2, lapack_int* ipiv );+lapack_int LAPACKE_dgttrf( lapack_int n, double* dl, double* d, double* du,+                           double* du2, lapack_int* ipiv );+lapack_int LAPACKE_cgttrf( lapack_int n, lapack_complex_float* dl,+                           lapack_complex_float* d, lapack_complex_float* du,+                           lapack_complex_float* du2, lapack_int* ipiv );+lapack_int LAPACKE_zgttrf( lapack_int n, lapack_complex_double* dl,+                           lapack_complex_double* d, lapack_complex_double* du,+                           lapack_complex_double* du2, lapack_int* ipiv );++lapack_int LAPACKE_sgttrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const float* dl, const float* d,+                           const float* du, const float* du2,+                           const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dgttrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const double* dl, const double* d,+                           const double* du, const double* du2,+                           const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_cgttrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* dl,+                           const lapack_complex_float* d,+                           const lapack_complex_float* du,+                           const lapack_complex_float* du2,+                           const lapack_int* ipiv, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zgttrs( int matrix_order, char trans, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* dl,+                           const lapack_complex_double* d,+                           const lapack_complex_double* du,+                           const lapack_complex_double* du2,+                           const lapack_int* ipiv, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_chbev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int kd, lapack_complex_float* ab,+                          lapack_int ldab, float* w, lapack_complex_float* z,+                          lapack_int ldz );+lapack_int LAPACKE_zhbev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int kd, lapack_complex_double* ab,+                          lapack_int ldab, double* w, lapack_complex_double* z,+                          lapack_int ldz );++lapack_int LAPACKE_chbevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_float* ab,+                           lapack_int ldab, float* w, lapack_complex_float* z,+                           lapack_int ldz );+lapack_int LAPACKE_zhbevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_double* ab,+                           lapack_int ldab, double* w, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_chbevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int kd,+                           lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* q, lapack_int ldq, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* ifail );+lapack_int LAPACKE_zhbevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int kd,+                           lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* q, lapack_int ldq, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_chbgst( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb,+                           lapack_complex_float* ab, lapack_int ldab,+                           const lapack_complex_float* bb, lapack_int ldbb,+                           lapack_complex_float* x, lapack_int ldx );+lapack_int LAPACKE_zhbgst( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb,+                           lapack_complex_double* ab, lapack_int ldab,+                           const lapack_complex_double* bb, lapack_int ldbb,+                           lapack_complex_double* x, lapack_int ldx );++lapack_int LAPACKE_chbgv( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int ka, lapack_int kb,+                          lapack_complex_float* ab, lapack_int ldab,+                          lapack_complex_float* bb, lapack_int ldbb, float* w,+                          lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhbgv( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int ka, lapack_int kb,+                          lapack_complex_double* ab, lapack_int ldab,+                          lapack_complex_double* bb, lapack_int ldbb, double* w,+                          lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chbgvd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb,+                           lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* bb, lapack_int ldbb, float* w,+                           lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhbgvd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb,+                           lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* bb, lapack_int ldbb,+                           double* w, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_chbgvx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int ka, lapack_int kb,+                           lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* bb, lapack_int ldbb,+                           lapack_complex_float* q, lapack_int ldq, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* ifail );+lapack_int LAPACKE_zhbgvx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int ka, lapack_int kb,+                           lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* bb, lapack_int ldbb,+                           lapack_complex_double* q, lapack_int ldq, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_chbtrd( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_float* ab,+                           lapack_int ldab, float* d, float* e,+                           lapack_complex_float* q, lapack_int ldq );+lapack_int LAPACKE_zhbtrd( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_double* ab,+                           lapack_int ldab, double* d, double* e,+                           lapack_complex_double* q, lapack_int ldq );++lapack_int LAPACKE_checon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zhecon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_cheequb( int matrix_order, char uplo, lapack_int n,+                            const lapack_complex_float* a, lapack_int lda,+                            float* s, float* scond, float* amax );+lapack_int LAPACKE_zheequb( int matrix_order, char uplo, lapack_int n,+                            const lapack_complex_double* a, lapack_int lda,+                            double* s, double* scond, double* amax );++lapack_int LAPACKE_cheev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_complex_float* a, lapack_int lda, float* w );+lapack_int LAPACKE_zheev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_complex_double* a, lapack_int lda, double* w );++lapack_int LAPACKE_cheevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda, float* w );+lapack_int LAPACKE_zheevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           double* w );++lapack_int LAPACKE_cheevr( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, float vl, float vu, lapack_int il,+                           lapack_int iu, float abstol, lapack_int* m, float* w,+                           lapack_complex_float* z, lapack_int ldz,+                           lapack_int* isuppz );+lapack_int LAPACKE_zheevr( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, double vl, double vu, lapack_int il,+                           lapack_int iu, double abstol, lapack_int* m,+                           double* w, lapack_complex_double* z, lapack_int ldz,+                           lapack_int* isuppz );++lapack_int LAPACKE_cheevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, float vl, float vu, lapack_int il,+                           lapack_int iu, float abstol, lapack_int* m, float* w,+                           lapack_complex_float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_zheevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, double vl, double vu, lapack_int il,+                           lapack_int iu, double abstol, lapack_int* m,+                           double* w, lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_chegst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zhegst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_chegv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, lapack_complex_float* a,+                          lapack_int lda, lapack_complex_float* b,+                          lapack_int ldb, float* w );+lapack_int LAPACKE_zhegv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, lapack_complex_double* a,+                          lapack_int lda, lapack_complex_double* b,+                          lapack_int ldb, double* w );++lapack_int LAPACKE_chegvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, float* w );+lapack_int LAPACKE_zhegvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, double* w );++lapack_int LAPACKE_chegvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* ifail );+lapack_int LAPACKE_zhegvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_cherfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zherfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_float* a, lapack_int lda,+                            const lapack_complex_float* af, lapack_int ldaf,+                            const lapack_int* ipiv, const float* s,+                            const lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_double* a, lapack_int lda,+                            const lapack_complex_double* af, lapack_int ldaf,+                            const lapack_int* ipiv, const double* s,+                            const lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );++lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* a,+                          lapack_int lda, lapack_int* ipiv,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* a,+                          lapack_int lda, lapack_int* ipiv,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* af,+                           lapack_int ldaf, lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* af,+                           lapack_int ldaf, lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, float* s,+                            lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, double* s,+                            lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* rpvgrw, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );++lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda, float* d,+                           float* e, lapack_complex_float* tau );+lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda, double* d,+                           double* e, lapack_complex_double* tau );++lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* ipiv );+lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ipiv );++lapack_int LAPACKE_chetri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           const lapack_int* ipiv );+lapack_int LAPACKE_zhetri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           const lapack_int* ipiv );++lapack_int LAPACKE_chetrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zhetrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_chfrk( int matrix_order, char transr, char uplo, char trans,+                          lapack_int n, lapack_int k, float alpha,+                          const lapack_complex_float* a, lapack_int lda,+                          float beta, lapack_complex_float* c );+lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans,+                          lapack_int n, lapack_int k, double alpha,+                          const lapack_complex_double* a, lapack_int lda,+                          double beta, lapack_complex_double* c );++lapack_int LAPACKE_shgeqz( int matrix_order, char job, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           float* h, lapack_int ldh, float* t, lapack_int ldt,+                           float* alphar, float* alphai, float* beta, float* q,+                           lapack_int ldq, float* z, lapack_int ldz );+lapack_int LAPACKE_dhgeqz( int matrix_order, char job, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           double* h, lapack_int ldh, double* t, lapack_int ldt,+                           double* alphar, double* alphai, double* beta,+                           double* q, lapack_int ldq, double* z,+                           lapack_int ldz );+lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           lapack_complex_float* h, lapack_int ldh,+                           lapack_complex_float* t, lapack_int ldt,+                           lapack_complex_float* alpha,+                           lapack_complex_float* beta, lapack_complex_float* q,+                           lapack_int ldq, lapack_complex_float* z,+                           lapack_int ldz );+lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz,+                           lapack_int n, lapack_int ilo, lapack_int ihi,+                           lapack_complex_double* h, lapack_int ldh,+                           lapack_complex_double* t, lapack_int ldt,+                           lapack_complex_double* alpha,+                           lapack_complex_double* beta,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chpcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zhpcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_chpev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_complex_float* ap, float* w,+                          lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhpev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_complex_double* ap, double* w,+                          lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_complex_float* ap, float* w,+                           lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_complex_double* ap, double* w,+                           lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_float* ap, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* ifail );+lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_complex_double* ap, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_chpgst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, lapack_complex_float* ap,+                           const lapack_complex_float* bp );+lapack_int LAPACKE_zhpgst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, lapack_complex_double* ap,+                           const lapack_complex_double* bp );++lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, lapack_complex_float* ap,+                          lapack_complex_float* bp, float* w,+                          lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, lapack_complex_double* ap,+                          lapack_complex_double* bp, double* w,+                          lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, lapack_complex_float* ap,+                           lapack_complex_float* bp, float* w,+                           lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, lapack_complex_double* ap,+                           lapack_complex_double* bp, double* w,+                           lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n,+                           lapack_complex_float* ap, lapack_complex_float* bp,+                           float vl, float vu, lapack_int il, lapack_int iu,+                           float abstol, lapack_int* m, float* w,+                           lapack_complex_float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n,+                           lapack_complex_double* ap, lapack_complex_double* bp,+                           double vl, double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           const lapack_complex_float* afp,+                           const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           const lapack_complex_double* afp,+                           const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_chpsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* ap,+                          lapack_int* ipiv, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zhpsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* ap,+                          lapack_int* ipiv, lapack_complex_double* b,+                          lapack_int ldb );++lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           lapack_complex_float* afp, lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           lapack_complex_double* afp, lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_chptrd( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap, float* d, float* e,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zhptrd( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap, double* d, double* e,+                           lapack_complex_double* tau );++lapack_int LAPACKE_chptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap, lapack_int* ipiv );+lapack_int LAPACKE_zhptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap, lapack_int* ipiv );++lapack_int LAPACKE_chptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap, const lapack_int* ipiv );+lapack_int LAPACKE_zhptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap, const lapack_int* ipiv );++lapack_int LAPACKE_chptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           const lapack_int* ipiv, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zhptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           const lapack_int* ipiv, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_shsein( int matrix_order, char job, char eigsrc, char initv,+                           lapack_logical* select, lapack_int n, const float* h,+                           lapack_int ldh, float* wr, const float* wi,+                           float* vl, lapack_int ldvl, float* vr,+                           lapack_int ldvr, lapack_int mm, lapack_int* m,+                           lapack_int* ifaill, lapack_int* ifailr );+lapack_int LAPACKE_dhsein( int matrix_order, char job, char eigsrc, char initv,+                           lapack_logical* select, lapack_int n,+                           const double* h, lapack_int ldh, double* wr,+                           const double* wi, double* vl, lapack_int ldvl,+                           double* vr, lapack_int ldvr, lapack_int mm,+                           lapack_int* m, lapack_int* ifaill,+                           lapack_int* ifailr );+lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_float* h, lapack_int ldh,+                           lapack_complex_float* w, lapack_complex_float* vl,+                           lapack_int ldvl, lapack_complex_float* vr,+                           lapack_int ldvr, lapack_int mm, lapack_int* m,+                           lapack_int* ifaill, lapack_int* ifailr );+lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_double* h, lapack_int ldh,+                           lapack_complex_double* w, lapack_complex_double* vl,+                           lapack_int ldvl, lapack_complex_double* vr,+                           lapack_int ldvr, lapack_int mm, lapack_int* m,+                           lapack_int* ifaill, lapack_int* ifailr );++lapack_int LAPACKE_shseqr( int matrix_order, char job, char compz, lapack_int n,+                           lapack_int ilo, lapack_int ihi, float* h,+                           lapack_int ldh, float* wr, float* wi, float* z,+                           lapack_int ldz );+lapack_int LAPACKE_dhseqr( int matrix_order, char job, char compz, lapack_int n,+                           lapack_int ilo, lapack_int ihi, double* h,+                           lapack_int ldh, double* wr, double* wi, double* z,+                           lapack_int ldz );+lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n,+                           lapack_int ilo, lapack_int ihi,+                           lapack_complex_float* h, lapack_int ldh,+                           lapack_complex_float* w, lapack_complex_float* z,+                           lapack_int ldz );+lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n,+                           lapack_int ilo, lapack_int ihi,+                           lapack_complex_double* h, lapack_int ldh,+                           lapack_complex_double* w, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_clacgv( lapack_int n, lapack_complex_float* x,+                           lapack_int incx );+lapack_int LAPACKE_zlacgv( lapack_int n, lapack_complex_double* x,+                           lapack_int incx );++lapack_int LAPACKE_slacpy( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, const float* a, lapack_int lda, float* b,+                           lapack_int ldb );+lapack_int LAPACKE_dlacpy( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, const double* a, lapack_int lda, double* b,+                           lapack_int ldb );+lapack_int LAPACKE_clacpy( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, const lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zlacpy( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, const lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_zlag2c( int matrix_order, lapack_int m, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           lapack_complex_float* sa, lapack_int ldsa );++lapack_int LAPACKE_slag2d( int matrix_order, lapack_int m, lapack_int n,+                           const float* sa, lapack_int ldsa, double* a,+                           lapack_int lda );++lapack_int LAPACKE_dlag2s( int matrix_order, lapack_int m, lapack_int n,+                           const double* a, lapack_int lda, float* sa,+                           lapack_int ldsa );++lapack_int LAPACKE_clag2z( int matrix_order, lapack_int m, lapack_int n,+                           const lapack_complex_float* sa, lapack_int ldsa,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_slagge( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const float* d,+                           float* a, lapack_int lda, lapack_int* iseed );+lapack_int LAPACKE_dlagge( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const double* d,+                           double* a, lapack_int lda, lapack_int* iseed );+lapack_int LAPACKE_clagge( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const float* d,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* iseed );+lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int kl, lapack_int ku, const double* d,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* iseed );++float LAPACKE_slamch( char cmach );+double LAPACKE_dlamch( char cmach );++float LAPACKE_slange( int matrix_order, char norm, lapack_int m,+                           lapack_int n, const float* a, lapack_int lda );+double LAPACKE_dlange( int matrix_order, char norm, lapack_int m,+                           lapack_int n, const double* a, lapack_int lda );+float LAPACKE_clange( int matrix_order, char norm, lapack_int m,+                           lapack_int n, const lapack_complex_float* a,+                           lapack_int lda );+double LAPACKE_zlange( int matrix_order, char norm, lapack_int m,+                           lapack_int n, const lapack_complex_double* a,+                           lapack_int lda );++float LAPACKE_clanhe( int matrix_order, char norm, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda );+double LAPACKE_zlanhe( int matrix_order, char norm, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda );++float LAPACKE_slansy( int matrix_order, char norm, char uplo, lapack_int n,+                           const float* a, lapack_int lda );+double LAPACKE_dlansy( int matrix_order, char norm, char uplo, lapack_int n,+                           const double* a, lapack_int lda );+float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda );+double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda );++float LAPACKE_slantr( int matrix_order, char norm, char uplo, char diag,+                           lapack_int m, lapack_int n, const float* a,+                           lapack_int lda );+double LAPACKE_dlantr( int matrix_order, char norm, char uplo, char diag,+                           lapack_int m, lapack_int n, const double* a,+                           lapack_int lda );+float LAPACKE_clantr( int matrix_order, char norm, char uplo, char diag,+                           lapack_int m, lapack_int n, const lapack_complex_float* a,+                           lapack_int lda );+double LAPACKE_zlantr( int matrix_order, char norm, char uplo, char diag,+                           lapack_int m, lapack_int n, const lapack_complex_double* a,+                           lapack_int lda );+++lapack_int LAPACKE_slarfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, const float* v, lapack_int ldv,+                           const float* t, lapack_int ldt, float* c,+                           lapack_int ldc );+lapack_int LAPACKE_dlarfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, const double* v, lapack_int ldv,+                           const double* t, lapack_int ldt, double* c,+                           lapack_int ldc );+lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, const lapack_complex_float* v,+                           lapack_int ldv, const lapack_complex_float* t,+                           lapack_int ldt, lapack_complex_float* c,+                           lapack_int ldc );+lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, const lapack_complex_double* v,+                           lapack_int ldv, const lapack_complex_double* t,+                           lapack_int ldt, lapack_complex_double* c,+                           lapack_int ldc );++lapack_int LAPACKE_slarfg( lapack_int n, float* alpha, float* x,+                           lapack_int incx, float* tau );+lapack_int LAPACKE_dlarfg( lapack_int n, double* alpha, double* x,+                           lapack_int incx, double* tau );+lapack_int LAPACKE_clarfg( lapack_int n, lapack_complex_float* alpha,+                           lapack_complex_float* x, lapack_int incx,+                           lapack_complex_float* tau );+lapack_int LAPACKE_zlarfg( lapack_int n, lapack_complex_double* alpha,+                           lapack_complex_double* x, lapack_int incx,+                           lapack_complex_double* tau );++lapack_int LAPACKE_slarft( int matrix_order, char direct, char storev,+                           lapack_int n, lapack_int k, const float* v,+                           lapack_int ldv, const float* tau, float* t,+                           lapack_int ldt );+lapack_int LAPACKE_dlarft( int matrix_order, char direct, char storev,+                           lapack_int n, lapack_int k, const double* v,+                           lapack_int ldv, const double* tau, double* t,+                           lapack_int ldt );+lapack_int LAPACKE_clarft( int matrix_order, char direct, char storev,+                           lapack_int n, lapack_int k,+                           const lapack_complex_float* v, lapack_int ldv,+                           const lapack_complex_float* tau,+                           lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zlarft( int matrix_order, char direct, char storev,+                           lapack_int n, lapack_int k,+                           const lapack_complex_double* v, lapack_int ldv,+                           const lapack_complex_double* tau,+                           lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_slarfx( int matrix_order, char side, lapack_int m,+                           lapack_int n, const float* v, float tau, float* c,+                           lapack_int ldc, float* work );+lapack_int LAPACKE_dlarfx( int matrix_order, char side, lapack_int m,+                           lapack_int n, const double* v, double tau, double* c,+                           lapack_int ldc, double* work );+lapack_int LAPACKE_clarfx( int matrix_order, char side, lapack_int m,+                           lapack_int n, const lapack_complex_float* v,+                           lapack_complex_float tau, lapack_complex_float* c,+                           lapack_int ldc, lapack_complex_float* work );+lapack_int LAPACKE_zlarfx( int matrix_order, char side, lapack_int m,+                           lapack_int n, const lapack_complex_double* v,+                           lapack_complex_double tau, lapack_complex_double* c,+                           lapack_int ldc, lapack_complex_double* work );++lapack_int LAPACKE_slarnv( lapack_int idist, lapack_int* iseed, lapack_int n,+                           float* x );+lapack_int LAPACKE_dlarnv( lapack_int idist, lapack_int* iseed, lapack_int n,+                           double* x );+lapack_int LAPACKE_clarnv( lapack_int idist, lapack_int* iseed, lapack_int n,+                           lapack_complex_float* x );+lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int n,+                           lapack_complex_double* x );++lapack_int LAPACKE_slaset( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, float alpha, float beta, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dlaset( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, double alpha, double beta, double* a,+                           lapack_int lda );+lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, lapack_complex_float alpha,+                           lapack_complex_float beta, lapack_complex_float* a,+                           lapack_int lda );+lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m,+                           lapack_int n, lapack_complex_double alpha,+                           lapack_complex_double beta, lapack_complex_double* a,+                           lapack_int lda );++lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d );+lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d );++lapack_int LAPACKE_slaswp( int matrix_order, lapack_int n, float* a,+                           lapack_int lda, lapack_int k1, lapack_int k2,+                           const lapack_int* ipiv, lapack_int incx );+lapack_int LAPACKE_dlaswp( int matrix_order, lapack_int n, double* a,+                           lapack_int lda, lapack_int k1, lapack_int k2,+                           const lapack_int* ipiv, lapack_int incx );+lapack_int LAPACKE_claswp( int matrix_order, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int k1, lapack_int k2, const lapack_int* ipiv,+                           lapack_int incx );+lapack_int LAPACKE_zlaswp( int matrix_order, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int k1, lapack_int k2, const lapack_int* ipiv,+                           lapack_int incx );++lapack_int LAPACKE_slatms( int matrix_order, lapack_int m, lapack_int n,+                           char dist, lapack_int* iseed, char sym, float* d,+                           lapack_int mode, float cond, float dmax,+                           lapack_int kl, lapack_int ku, char pack, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dlatms( int matrix_order, lapack_int m, lapack_int n,+                           char dist, lapack_int* iseed, char sym, double* d,+                           lapack_int mode, double cond, double dmax,+                           lapack_int kl, lapack_int ku, char pack, double* a,+                           lapack_int lda );+lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n,+                           char dist, lapack_int* iseed, char sym, float* d,+                           lapack_int mode, float cond, float dmax,+                           lapack_int kl, lapack_int ku, char pack,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n,+                           char dist, lapack_int* iseed, char sym, double* d,+                           lapack_int mode, double cond, double dmax,+                           lapack_int kl, lapack_int ku, char pack,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_slauum( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dlauum( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda );+lapack_int LAPACKE_clauum( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zlauum( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_sopgtr( int matrix_order, char uplo, lapack_int n,+                           const float* ap, const float* tau, float* q,+                           lapack_int ldq );+lapack_int LAPACKE_dopgtr( int matrix_order, char uplo, lapack_int n,+                           const double* ap, const double* tau, double* q,+                           lapack_int ldq );++lapack_int LAPACKE_sopmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n, const float* ap,+                           const float* tau, float* c, lapack_int ldc );+lapack_int LAPACKE_dopmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n, const double* ap,+                           const double* tau, double* c, lapack_int ldc );++lapack_int LAPACKE_sorgbr( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int k, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorgbr( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int k, double* a,+                           lapack_int lda, const double* tau );++lapack_int LAPACKE_sorghr( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorghr( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, double* a, lapack_int lda,+                           const double* tau );++lapack_int LAPACKE_sorglq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorglq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, double* a, lapack_int lda,+                           const double* tau );++lapack_int LAPACKE_sorgql( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorgql( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, double* a, lapack_int lda,+                           const double* tau );++lapack_int LAPACKE_sorgqr( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorgqr( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, double* a, lapack_int lda,+                           const double* tau );++lapack_int LAPACKE_sorgrq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, float* a, lapack_int lda,+                           const float* tau );+lapack_int LAPACKE_dorgrq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, double* a, lapack_int lda,+                           const double* tau );++lapack_int LAPACKE_sorgtr( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda, const float* tau );+lapack_int LAPACKE_dorgtr( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda, const double* tau );++lapack_int LAPACKE_sormbr( int matrix_order, char vect, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const float* a, lapack_int lda, const float* tau,+                           float* c, lapack_int ldc );+lapack_int LAPACKE_dormbr( int matrix_order, char vect, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const double* a, lapack_int lda, const double* tau,+                           double* c, lapack_int ldc );++lapack_int LAPACKE_sormhr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int ilo,+                           lapack_int ihi, const float* a, lapack_int lda,+                           const float* tau, float* c, lapack_int ldc );+lapack_int LAPACKE_dormhr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int ilo,+                           lapack_int ihi, const double* a, lapack_int lda,+                           const double* tau, double* c, lapack_int ldc );++lapack_int LAPACKE_sormlq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const float* a, lapack_int lda, const float* tau,+                           float* c, lapack_int ldc );+lapack_int LAPACKE_dormlq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const double* a, lapack_int lda, const double* tau,+                           double* c, lapack_int ldc );++lapack_int LAPACKE_sormql( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const float* a, lapack_int lda, const float* tau,+                           float* c, lapack_int ldc );+lapack_int LAPACKE_dormql( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const double* a, lapack_int lda, const double* tau,+                           double* c, lapack_int ldc );++lapack_int LAPACKE_sormqr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const float* a, lapack_int lda, const float* tau,+                           float* c, lapack_int ldc );+lapack_int LAPACKE_dormqr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const double* a, lapack_int lda, const double* tau,+                           double* c, lapack_int ldc );++lapack_int LAPACKE_sormrq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const float* a, lapack_int lda, const float* tau,+                           float* c, lapack_int ldc );+lapack_int LAPACKE_dormrq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const double* a, lapack_int lda, const double* tau,+                           double* c, lapack_int ldc );++lapack_int LAPACKE_sormrz( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           lapack_int l, const float* a, lapack_int lda,+                           const float* tau, float* c, lapack_int ldc );+lapack_int LAPACKE_dormrz( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           lapack_int l, const double* a, lapack_int lda,+                           const double* tau, double* c, lapack_int ldc );++lapack_int LAPACKE_sormtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n, const float* a,+                           lapack_int lda, const float* tau, float* c,+                           lapack_int ldc );+lapack_int LAPACKE_dormtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n, const double* a,+                           lapack_int lda, const double* tau, double* c,+                           lapack_int ldc );++lapack_int LAPACKE_spbcon( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const float* ab, lapack_int ldab,+                           float anorm, float* rcond );+lapack_int LAPACKE_dpbcon( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const double* ab, lapack_int ldab,+                           double anorm, double* rcond );+lapack_int LAPACKE_cpbcon( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const lapack_complex_float* ab,+                           lapack_int ldab, float anorm, float* rcond );+lapack_int LAPACKE_zpbcon( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const lapack_complex_double* ab,+                           lapack_int ldab, double anorm, double* rcond );++lapack_int LAPACKE_spbequ( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const float* ab, lapack_int ldab,+                           float* s, float* scond, float* amax );+lapack_int LAPACKE_dpbequ( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const double* ab, lapack_int ldab,+                           double* s, double* scond, double* amax );+lapack_int LAPACKE_cpbequ( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const lapack_complex_float* ab,+                           lapack_int ldab, float* s, float* scond,+                           float* amax );+lapack_int LAPACKE_zpbequ( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, const lapack_complex_double* ab,+                           lapack_int ldab, double* s, double* scond,+                           double* amax );++lapack_int LAPACKE_spbrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, const float* ab,+                           lapack_int ldab, const float* afb, lapack_int ldafb,+                           const float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_dpbrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, const double* ab,+                           lapack_int ldab, const double* afb, lapack_int ldafb,+                           const double* b, lapack_int ldb, double* x,+                           lapack_int ldx, double* ferr, double* berr );+lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           const lapack_complex_float* afb, lapack_int ldafb,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           const lapack_complex_double* afb, lapack_int ldafb,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_spbstf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kb, float* bb, lapack_int ldbb );+lapack_int LAPACKE_dpbstf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kb, double* bb, lapack_int ldbb );+lapack_int LAPACKE_cpbstf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kb, lapack_complex_float* bb,+                           lapack_int ldbb );+lapack_int LAPACKE_zpbstf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kb, lapack_complex_double* bb,+                           lapack_int ldbb );++lapack_int LAPACKE_spbsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int kd, lapack_int nrhs, float* ab,+                          lapack_int ldab, float* b, lapack_int ldb );+lapack_int LAPACKE_dpbsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int kd, lapack_int nrhs, double* ab,+                          lapack_int ldab, double* b, lapack_int ldb );+lapack_int LAPACKE_cpbsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int kd, lapack_int nrhs,+                          lapack_complex_float* ab, lapack_int ldab,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpbsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int kd, lapack_int nrhs,+                          lapack_complex_double* ab, lapack_int ldab,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spbsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, float* ab,+                           lapack_int ldab, float* afb, lapack_int ldafb,+                           char* equed, float* s, float* b, lapack_int ldb,+                           float* x, lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dpbsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, double* ab,+                           lapack_int ldab, double* afb, lapack_int ldafb,+                           char* equed, double* s, double* b, lapack_int ldb,+                           double* x, lapack_int ldx, double* rcond,+                           double* ferr, double* berr );+lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* afb, lapack_int ldafb,+                           char* equed, float* s, lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* afb, lapack_int ldafb,+                           char* equed, double* s, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* x,+                           lapack_int ldx, double* rcond, double* ferr,+                           double* berr );++lapack_int LAPACKE_spbtrf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, float* ab, lapack_int ldab );+lapack_int LAPACKE_dpbtrf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, double* ab, lapack_int ldab );+lapack_int LAPACKE_cpbtrf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_float* ab,+                           lapack_int ldab );+lapack_int LAPACKE_zpbtrf( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_complex_double* ab,+                           lapack_int ldab );++lapack_int LAPACKE_spbtrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, const float* ab,+                           lapack_int ldab, float* b, lapack_int ldb );+lapack_int LAPACKE_dpbtrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs, const double* ab,+                           lapack_int ldab, double* b, lapack_int ldb );+lapack_int LAPACKE_cpbtrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpbtrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int kd, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spftrf( int matrix_order, char transr, char uplo,+                           lapack_int n, float* a );+lapack_int LAPACKE_dpftrf( int matrix_order, char transr, char uplo,+                           lapack_int n, double* a );+lapack_int LAPACKE_cpftrf( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_complex_float* a );+lapack_int LAPACKE_zpftrf( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_complex_double* a );++lapack_int LAPACKE_spftri( int matrix_order, char transr, char uplo,+                           lapack_int n, float* a );+lapack_int LAPACKE_dpftri( int matrix_order, char transr, char uplo,+                           lapack_int n, double* a );+lapack_int LAPACKE_cpftri( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_complex_float* a );+lapack_int LAPACKE_zpftri( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_complex_double* a );++lapack_int LAPACKE_spftrs( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_int nrhs, const float* a,+                           float* b, lapack_int ldb );+lapack_int LAPACKE_dpftrs( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_int nrhs, const double* a,+                           double* b, lapack_int ldb );+lapack_int LAPACKE_cpftrs( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* a,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpftrs( int matrix_order, char transr, char uplo,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* a,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spocon( int matrix_order, char uplo, lapack_int n,+                           const float* a, lapack_int lda, float anorm,+                           float* rcond );+lapack_int LAPACKE_dpocon( int matrix_order, char uplo, lapack_int n,+                           const double* a, lapack_int lda, double anorm,+                           double* rcond );+lapack_int LAPACKE_cpocon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           float anorm, float* rcond );+lapack_int LAPACKE_zpocon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           double anorm, double* rcond );++lapack_int LAPACKE_spoequ( int matrix_order, lapack_int n, const float* a,+                           lapack_int lda, float* s, float* scond,+                           float* amax );+lapack_int LAPACKE_dpoequ( int matrix_order, lapack_int n, const double* a,+                           lapack_int lda, double* s, double* scond,+                           double* amax );+lapack_int LAPACKE_cpoequ( int matrix_order, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           float* s, float* scond, float* amax );+lapack_int LAPACKE_zpoequ( int matrix_order, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           double* s, double* scond, double* amax );++lapack_int LAPACKE_spoequb( int matrix_order, lapack_int n, const float* a,+                            lapack_int lda, float* s, float* scond,+                            float* amax );+lapack_int LAPACKE_dpoequb( int matrix_order, lapack_int n, const double* a,+                            lapack_int lda, double* s, double* scond,+                            double* amax );+lapack_int LAPACKE_cpoequb( int matrix_order, lapack_int n,+                            const lapack_complex_float* a, lapack_int lda,+                            float* s, float* scond, float* amax );+lapack_int LAPACKE_zpoequb( int matrix_order, lapack_int n,+                            const lapack_complex_double* a, lapack_int lda,+                            double* s, double* scond, double* amax );++lapack_int LAPACKE_sporfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           const float* af, lapack_int ldaf, const float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dporfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           const double* af, lapack_int ldaf, const double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* ferr, double* berr );+lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* af,+                           lapack_int ldaf, const lapack_complex_float* b,+                           lapack_int ldb, lapack_complex_float* x,+                           lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* af,+                           lapack_int ldaf, const lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* x,+                           lapack_int ldx, double* ferr, double* berr );++lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs, const float* a,+                            lapack_int lda, const float* af, lapack_int ldaf,+                            const float* s, const float* b, lapack_int ldb,+                            float* x, lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs, const double* a,+                            lapack_int lda, const double* af, lapack_int ldaf,+                            const double* s, const double* b, lapack_int ldb,+                            double* x, lapack_int ldx, double* rcond,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );+lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_float* a, lapack_int lda,+                            const lapack_complex_float* af, lapack_int ldaf,+                            const float* s, const lapack_complex_float* b,+                            lapack_int ldb, lapack_complex_float* x,+                            lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_double* a, lapack_int lda,+                            const lapack_complex_double* af, lapack_int ldaf,+                            const double* s, const lapack_complex_double* b,+                            lapack_int ldb, lapack_complex_double* x,+                            lapack_int ldx, double* rcond, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );++lapack_int LAPACKE_sposv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, float* a, lapack_int lda, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dposv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, double* a, lapack_int lda, double* b,+                          lapack_int ldb );+lapack_int LAPACKE_cposv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* a,+                          lapack_int lda, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zposv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* a,+                          lapack_int lda, lapack_complex_double* b,+                          lapack_int ldb );+lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, double* a, lapack_int lda,+                           double* b, lapack_int ldb, double* x, lapack_int ldx,+                           lapack_int* iter );+lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, lapack_complex_double* x,+                           lapack_int ldx, lapack_int* iter );++lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, float* a, lapack_int lda, float* af,+                           lapack_int ldaf, char* equed, float* s, float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, double* a, lapack_int lda,+                           double* af, lapack_int ldaf, char* equed, double* s,+                           double* b, lapack_int ldb, double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );+lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* af,+                           lapack_int ldaf, char* equed, float* s,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* af,+                           lapack_int ldaf, char* equed, double* s,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs, float* a,+                            lapack_int lda, float* af, lapack_int ldaf,+                            char* equed, float* s, float* b, lapack_int ldb,+                            float* x, lapack_int ldx, float* rcond,+                            float* rpvgrw, float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs, double* a,+                            lapack_int lda, double* af, lapack_int ldaf,+                            char* equed, double* s, double* b, lapack_int ldb,+                            double* x, lapack_int ldx, double* rcond,+                            double* rpvgrw, double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );+lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* af, lapack_int ldaf,+                            char* equed, float* s, lapack_complex_float* b,+                            lapack_int ldb, lapack_complex_float* x,+                            lapack_int ldx, float* rcond, float* rpvgrw,+                            float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* af, lapack_int ldaf,+                            char* equed, double* s, lapack_complex_double* b,+                            lapack_int ldb, lapack_complex_double* x,+                            lapack_int ldx, double* rcond, double* rpvgrw,+                            double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );++lapack_int LAPACKE_spotrf( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dpotrf( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda );+lapack_int LAPACKE_cpotrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zpotrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_spotri( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dpotri( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda );+lapack_int LAPACKE_cpotri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zpotri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_spotrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           float* b, lapack_int ldb );+lapack_int LAPACKE_dpotrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           double* b, lapack_int ldb );+lapack_int LAPACKE_cpotrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zpotrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_sppcon( int matrix_order, char uplo, lapack_int n,+                           const float* ap, float anorm, float* rcond );+lapack_int LAPACKE_dppcon( int matrix_order, char uplo, lapack_int n,+                           const double* ap, double anorm, double* rcond );+lapack_int LAPACKE_cppcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap, float anorm,+                           float* rcond );+lapack_int LAPACKE_zppcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap, double anorm,+                           double* rcond );++lapack_int LAPACKE_sppequ( int matrix_order, char uplo, lapack_int n,+                           const float* ap, float* s, float* scond,+                           float* amax );+lapack_int LAPACKE_dppequ( int matrix_order, char uplo, lapack_int n,+                           const double* ap, double* s, double* scond,+                           double* amax );+lapack_int LAPACKE_cppequ( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap, float* s,+                           float* scond, float* amax );+lapack_int LAPACKE_zppequ( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap, double* s,+                           double* scond, double* amax );++lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* ap, const float* afp,+                           const float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* ap, const double* afp,+                           const double* b, lapack_int ldb, double* x,+                           lapack_int ldx, double* ferr, double* berr );+lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           const lapack_complex_float* afp,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           const lapack_complex_double* afp,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sppsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, float* ap, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dppsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, double* ap, double* b,+                          lapack_int ldb );+lapack_int LAPACKE_cppsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* ap,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zppsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* ap,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, float* ap, float* afp, char* equed,+                           float* s, float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, double* ap, double* afp,+                           char* equed, double* s, double* b, lapack_int ldb,+                           double* x, lapack_int ldx, double* rcond,+                           double* ferr, double* berr );+lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, lapack_complex_float* ap,+                           lapack_complex_float* afp, char* equed, float* s,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, lapack_complex_double* ap,+                           lapack_complex_double* afp, char* equed, double* s,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_spptrf( int matrix_order, char uplo, lapack_int n,+                           float* ap );+lapack_int LAPACKE_dpptrf( int matrix_order, char uplo, lapack_int n,+                           double* ap );+lapack_int LAPACKE_cpptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap );+lapack_int LAPACKE_zpptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap );++lapack_int LAPACKE_spptri( int matrix_order, char uplo, lapack_int n,+                           float* ap );+lapack_int LAPACKE_dpptri( int matrix_order, char uplo, lapack_int n,+                           double* ap );+lapack_int LAPACKE_cpptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap );+lapack_int LAPACKE_zpptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap );++lapack_int LAPACKE_spptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* ap, float* b,+                           lapack_int ldb );+lapack_int LAPACKE_dpptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* ap, double* b,+                           lapack_int ldb );+lapack_int LAPACKE_cpptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spstrf( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda, lapack_int* piv, lapack_int* rank,+                           float tol );+lapack_int LAPACKE_dpstrf( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda, lapack_int* piv, lapack_int* rank,+                           double tol );+lapack_int LAPACKE_cpstrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* piv, lapack_int* rank, float tol );+lapack_int LAPACKE_zpstrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* piv, lapack_int* rank, double tol );++lapack_int LAPACKE_sptcon( lapack_int n, const float* d, const float* e,+                           float anorm, float* rcond );+lapack_int LAPACKE_dptcon( lapack_int n, const double* d, const double* e,+                           double anorm, double* rcond );+lapack_int LAPACKE_cptcon( lapack_int n, const float* d,+                           const lapack_complex_float* e, float anorm,+                           float* rcond );+lapack_int LAPACKE_zptcon( lapack_int n, const double* d,+                           const lapack_complex_double* e, double anorm,+                           double* rcond );++lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, float* z, lapack_int ldz );+lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, double* z, lapack_int ldz );+lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs,+                           const float* d, const float* e, const float* df,+                           const float* ef, const float* b, lapack_int ldb,+                           float* x, lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs,+                           const double* d, const double* e, const double* df,+                           const double* ef, const double* b, lapack_int ldb,+                           double* x, lapack_int ldx, double* ferr,+                           double* berr );+lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* d,+                           const lapack_complex_float* e, const float* df,+                           const lapack_complex_float* ef,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* d,+                           const lapack_complex_double* e, const double* df,+                           const lapack_complex_double* ef,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sptsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          float* d, float* e, float* b, lapack_int ldb );+lapack_int LAPACKE_dptsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          double* d, double* e, double* b, lapack_int ldb );+lapack_int LAPACKE_cptsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          float* d, lapack_complex_float* e,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zptsv( int matrix_order, lapack_int n, lapack_int nrhs,+                          double* d, lapack_complex_double* e,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n,+                           lapack_int nrhs, const float* d, const float* e,+                           float* df, float* ef, const float* b, lapack_int ldb,+                           float* x, lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n,+                           lapack_int nrhs, const double* d, const double* e,+                           double* df, double* ef, const double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );+lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n,+                           lapack_int nrhs, const float* d,+                           const lapack_complex_float* e, float* df,+                           lapack_complex_float* ef,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n,+                           lapack_int nrhs, const double* d,+                           const lapack_complex_double* e, double* df,+                           lapack_complex_double* ef,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_spttrf( lapack_int n, float* d, float* e );+lapack_int LAPACKE_dpttrf( lapack_int n, double* d, double* e );+lapack_int LAPACKE_cpttrf( lapack_int n, float* d, lapack_complex_float* e );+lapack_int LAPACKE_zpttrf( lapack_int n, double* d, lapack_complex_double* e );++lapack_int LAPACKE_spttrs( int matrix_order, lapack_int n, lapack_int nrhs,+                           const float* d, const float* e, float* b,+                           lapack_int ldb );+lapack_int LAPACKE_dpttrs( int matrix_order, lapack_int n, lapack_int nrhs,+                           const double* d, const double* e, double* b,+                           lapack_int ldb );+lapack_int LAPACKE_cpttrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* d,+                           const lapack_complex_float* e,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpttrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* d,+                           const lapack_complex_double* e,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_ssbev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int kd, float* ab, lapack_int ldab, float* w,+                          float* z, lapack_int ldz );+lapack_int LAPACKE_dsbev( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int kd, double* ab, lapack_int ldab, double* w,+                          double* z, lapack_int ldz );++lapack_int LAPACKE_ssbevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int kd, float* ab, lapack_int ldab, float* w,+                           float* z, lapack_int ldz );+lapack_int LAPACKE_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int kd, double* ab, lapack_int ldab,+                           double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int kd, float* ab,+                           lapack_int ldab, float* q, lapack_int ldq, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int kd, double* ab,+                           lapack_int ldab, double* q, lapack_int ldq,+                           double vl, double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* ifail );++lapack_int LAPACKE_ssbgst( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb, float* ab,+                           lapack_int ldab, const float* bb, lapack_int ldbb,+                           float* x, lapack_int ldx );+lapack_int LAPACKE_dsbgst( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb, double* ab,+                           lapack_int ldab, const double* bb, lapack_int ldbb,+                           double* x, lapack_int ldx );++lapack_int LAPACKE_ssbgv( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int ka, lapack_int kb, float* ab,+                          lapack_int ldab, float* bb, lapack_int ldbb, float* w,+                          float* z, lapack_int ldz );+lapack_int LAPACKE_dsbgv( int matrix_order, char jobz, char uplo, lapack_int n,+                          lapack_int ka, lapack_int kb, double* ab,+                          lapack_int ldab, double* bb, lapack_int ldbb,+                          double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb, float* ab,+                           lapack_int ldab, float* bb, lapack_int ldbb,+                           float* w, float* z, lapack_int ldz );+lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n,+                           lapack_int ka, lapack_int kb, double* ab,+                           lapack_int ldab, double* bb, lapack_int ldbb,+                           double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int ka, lapack_int kb,+                           float* ab, lapack_int ldab, float* bb,+                           lapack_int ldbb, float* q, lapack_int ldq, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, lapack_int ka, lapack_int kb,+                           double* ab, lapack_int ldab, double* bb,+                           lapack_int ldbb, double* q, lapack_int ldq,+                           double vl, double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* ifail );++lapack_int LAPACKE_ssbtrd( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int kd, float* ab, lapack_int ldab, float* d,+                           float* e, float* q, lapack_int ldq );+lapack_int LAPACKE_dsbtrd( int matrix_order, char vect, char uplo, lapack_int n,+                           lapack_int kd, double* ab, lapack_int ldab,+                           double* d, double* e, double* q, lapack_int ldq );++lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans,+                          lapack_int n, lapack_int k, float alpha,+                          const float* a, lapack_int lda, float beta,+                          float* c );+lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans,+                          lapack_int n, lapack_int k, double alpha,+                          const double* a, lapack_int lda, double beta,+                          double* c );++lapack_int LAPACKE_sspcon( int matrix_order, char uplo, lapack_int n,+                           const float* ap, const lapack_int* ipiv, float anorm,+                           float* rcond );+lapack_int LAPACKE_dspcon( int matrix_order, char uplo, lapack_int n,+                           const double* ap, const lapack_int* ipiv,+                           double anorm, double* rcond );+lapack_int LAPACKE_cspcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zspcon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_sspev( int matrix_order, char jobz, char uplo, lapack_int n,+                          float* ap, float* w, float* z, lapack_int ldz );+lapack_int LAPACKE_dspev( int matrix_order, char jobz, char uplo, lapack_int n,+                          double* ap, double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           float* ap, float* w, float* z, lapack_int ldz );+lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           double* ap, double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, float* ap, float vl, float vu,+                           lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, double* ap, double vl, double vu,+                           lapack_int il, lapack_int iu, double abstol,+                           lapack_int* m, double* w, double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_sspgst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, float* ap, const float* bp );+lapack_int LAPACKE_dspgst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, double* ap, const double* bp );++lapack_int LAPACKE_sspgv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, float* ap, float* bp,+                          float* w, float* z, lapack_int ldz );+lapack_int LAPACKE_dspgv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, double* ap, double* bp,+                          double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, float* ap, float* bp,+                           float* w, float* z, lapack_int ldz );+lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, double* ap, double* bp,+                           double* w, double* z, lapack_int ldz );++lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n, float* ap,+                           float* bp, float vl, float vu, lapack_int il,+                           lapack_int iu, float abstol, lapack_int* m, float* w,+                           float* z, lapack_int ldz, lapack_int* ifail );+lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n, double* ap,+                           double* bp, double vl, double vu, lapack_int il,+                           lapack_int iu, double abstol, lapack_int* m,+                           double* w, double* z, lapack_int ldz,+                           lapack_int* ifail );++lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* ap, const float* afp,+                           const lapack_int* ipiv, const float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* ap, const double* afp,+                           const lapack_int* ipiv, const double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* ferr, double* berr );+lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           const lapack_complex_float* afp,+                           const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           const lapack_complex_double* afp,+                           const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_sspsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, float* ap, lapack_int* ipiv,+                          float* b, lapack_int ldb );+lapack_int LAPACKE_dspsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, double* ap, lapack_int* ipiv,+                          double* b, lapack_int ldb );+lapack_int LAPACKE_cspsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* ap,+                          lapack_int* ipiv, lapack_complex_float* b,+                          lapack_int ldb );+lapack_int LAPACKE_zspsv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* ap,+                          lapack_int* ipiv, lapack_complex_double* b,+                          lapack_int ldb );++lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const float* ap, float* afp,+                           lapack_int* ipiv, const float* b, lapack_int ldb,+                           float* x, lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const double* ap, double* afp,+                           lapack_int* ipiv, const double* b, lapack_int ldb,+                           double* x, lapack_int ldx, double* rcond,+                           double* ferr, double* berr );+lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           lapack_complex_float* afp, lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           lapack_complex_double* afp, lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_ssptrd( int matrix_order, char uplo, lapack_int n, float* ap,+                           float* d, float* e, float* tau );+lapack_int LAPACKE_dsptrd( int matrix_order, char uplo, lapack_int n,+                           double* ap, double* d, double* e, double* tau );++lapack_int LAPACKE_ssptrf( int matrix_order, char uplo, lapack_int n, float* ap,+                           lapack_int* ipiv );+lapack_int LAPACKE_dsptrf( int matrix_order, char uplo, lapack_int n,+                           double* ap, lapack_int* ipiv );+lapack_int LAPACKE_csptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap, lapack_int* ipiv );+lapack_int LAPACKE_zsptrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap, lapack_int* ipiv );++lapack_int LAPACKE_ssptri( int matrix_order, char uplo, lapack_int n, float* ap,+                           const lapack_int* ipiv );+lapack_int LAPACKE_dsptri( int matrix_order, char uplo, lapack_int n,+                           double* ap, const lapack_int* ipiv );+lapack_int LAPACKE_csptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* ap, const lapack_int* ipiv );+lapack_int LAPACKE_zsptri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* ap, const lapack_int* ipiv );++lapack_int LAPACKE_ssptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* ap,+                           const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dsptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* ap,+                           const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_csptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* ap,+                           const lapack_int* ipiv, lapack_complex_float* b,+                           lapack_int ldb );+lapack_int LAPACKE_zsptrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* ap,+                           const lapack_int* ipiv, lapack_complex_double* b,+                           lapack_int ldb );++lapack_int LAPACKE_sstebz( char range, char order, lapack_int n, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           const float* d, const float* e, lapack_int* m,+                           lapack_int* nsplit, float* w, lapack_int* iblock,+                           lapack_int* isplit );+lapack_int LAPACKE_dstebz( char range, char order, lapack_int n, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, const double* d, const double* e,+                           lapack_int* m, lapack_int* nsplit, double* w,+                           lapack_int* iblock, lapack_int* isplit );++lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, float* z, lapack_int ldz );+lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, double* z, lapack_int ldz );+lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* isuppz );+lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* isuppz );+lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* isuppz );+lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* isuppz );++lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d,+                           const float* e, lapack_int m, const float* w,+                           const lapack_int* iblock, const lapack_int* isplit,+                           float* z, lapack_int ldz, lapack_int* ifailv );+lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d,+                           const double* e, lapack_int m, const double* w,+                           const lapack_int* iblock, const lapack_int* isplit,+                           double* z, lapack_int ldz, lapack_int* ifailv );+lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d,+                           const float* e, lapack_int m, const float* w,+                           const lapack_int* iblock, const lapack_int* isplit,+                           lapack_complex_float* z, lapack_int ldz,+                           lapack_int* ifailv );+lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d,+                           const double* e, lapack_int m, const double* w,+                           const lapack_int* iblock, const lapack_int* isplit,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* ifailv );++lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, lapack_int* m,+                           float* w, float* z, lapack_int ldz, lapack_int nzc,+                           lapack_int* isuppz, lapack_logical* tryrac );+lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           lapack_int* m, double* w, double* z, lapack_int ldz,+                           lapack_int nzc, lapack_int* isuppz,+                           lapack_logical* tryrac );+lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, lapack_int* m,+                           float* w, lapack_complex_float* z, lapack_int ldz,+                           lapack_int nzc, lapack_int* isuppz,+                           lapack_logical* tryrac );+lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           lapack_int* m, double* w, lapack_complex_double* z,+                           lapack_int ldz, lapack_int nzc, lapack_int* isuppz,+                           lapack_logical* tryrac );++lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, float* z, lapack_int ldz );+lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, double* z, lapack_int ldz );+lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d,+                           float* e, lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n,+                           double* d, double* e, lapack_complex_double* z,+                           lapack_int ldz );++lapack_int LAPACKE_ssterf( lapack_int n, float* d, float* e );+lapack_int LAPACKE_dsterf( lapack_int n, double* d, double* e );++lapack_int LAPACKE_sstev( int matrix_order, char jobz, lapack_int n, float* d,+                          float* e, float* z, lapack_int ldz );+lapack_int LAPACKE_dstev( int matrix_order, char jobz, lapack_int n, double* d,+                          double* e, double* z, lapack_int ldz );++lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d,+                           float* e, float* z, lapack_int ldz );+lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d,+                           double* e, double* z, lapack_int ldz );++lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* isuppz );+lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* isuppz );++lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range,+                           lapack_int n, float* d, float* e, float vl, float vu,+                           lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range,+                           lapack_int n, double* d, double* e, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* ifail );++lapack_int LAPACKE_ssycon( int matrix_order, char uplo, lapack_int n,+                           const float* a, lapack_int lda,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_dsycon( int matrix_order, char uplo, lapack_int n,+                           const double* a, lapack_int lda,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );+lapack_int LAPACKE_csycon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_int* ipiv, float anorm, float* rcond );+lapack_int LAPACKE_zsycon( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_int* ipiv, double anorm,+                           double* rcond );++lapack_int LAPACKE_ssyequb( int matrix_order, char uplo, lapack_int n,+                            const float* a, lapack_int lda, float* s,+                            float* scond, float* amax );+lapack_int LAPACKE_dsyequb( int matrix_order, char uplo, lapack_int n,+                            const double* a, lapack_int lda, double* s,+                            double* scond, double* amax );+lapack_int LAPACKE_csyequb( int matrix_order, char uplo, lapack_int n,+                            const lapack_complex_float* a, lapack_int lda,+                            float* s, float* scond, float* amax );+lapack_int LAPACKE_zsyequb( int matrix_order, char uplo, lapack_int n,+                            const lapack_complex_double* a, lapack_int lda,+                            double* s, double* scond, double* amax );++lapack_int LAPACKE_ssyev( int matrix_order, char jobz, char uplo, lapack_int n,+                          float* a, lapack_int lda, float* w );+lapack_int LAPACKE_dsyev( int matrix_order, char jobz, char uplo, lapack_int n,+                          double* a, lapack_int lda, double* w );++lapack_int LAPACKE_ssyevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           float* a, lapack_int lda, float* w );+lapack_int LAPACKE_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n,+                           double* a, lapack_int lda, double* w );++lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, float* a, lapack_int lda, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* isuppz );+lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, double* a, lapack_int lda, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* isuppz );++lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, float* a, lapack_int lda, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo,+                           lapack_int n, double* a, lapack_int lda, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* ifail );++lapack_int LAPACKE_ssygst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, float* a, lapack_int lda,+                           const float* b, lapack_int ldb );+lapack_int LAPACKE_dsygst( int matrix_order, lapack_int itype, char uplo,+                           lapack_int n, double* a, lapack_int lda,+                           const double* b, lapack_int ldb );++lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, float* a, lapack_int lda,+                          float* b, lapack_int ldb, float* w );+lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz,+                          char uplo, lapack_int n, double* a, lapack_int lda,+                          double* b, lapack_int ldb, double* w );++lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, float* a, lapack_int lda,+                           float* b, lapack_int ldb, float* w );+lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz,+                           char uplo, lapack_int n, double* a, lapack_int lda,+                           double* b, lapack_int ldb, double* w );++lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb, float vl,+                           float vu, lapack_int il, lapack_int iu, float abstol,+                           lapack_int* m, float* w, float* z, lapack_int ldz,+                           lapack_int* ifail );+lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz,+                           char range, char uplo, lapack_int n, double* a,+                           lapack_int lda, double* b, lapack_int ldb, double vl,+                           double vu, lapack_int il, lapack_int iu,+                           double abstol, lapack_int* m, double* w, double* z,+                           lapack_int ldz, lapack_int* ifail );++lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           const float* af, lapack_int ldaf,+                           const lapack_int* ipiv, const float* b,+                           lapack_int ldb, float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           const double* af, lapack_int ldaf,+                           const lapack_int* ipiv, const double* b,+                           lapack_int ldb, double* x, lapack_int ldx,+                           double* ferr, double* berr );+lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* af,+                           lapack_int ldaf, const lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs, const float* a,+                            lapack_int lda, const float* af, lapack_int ldaf,+                            const lapack_int* ipiv, const float* s,+                            const float* b, lapack_int ldb, float* x,+                            lapack_int ldx, float* rcond, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs, const double* a,+                            lapack_int lda, const double* af, lapack_int ldaf,+                            const lapack_int* ipiv, const double* s,+                            const double* b, lapack_int ldb, double* x,+                            lapack_int ldx, double* rcond, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );+lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_float* a, lapack_int lda,+                            const lapack_complex_float* af, lapack_int ldaf,+                            const lapack_int* ipiv, const float* s,+                            const lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* berr, lapack_int n_err_bnds,+                            float* err_bnds_norm, float* err_bnds_comp,+                            lapack_int nparams, float* params );+lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed,+                            lapack_int n, lapack_int nrhs,+                            const lapack_complex_double* a, lapack_int lda,+                            const lapack_complex_double* af, lapack_int ldaf,+                            const lapack_int* ipiv, const double* s,+                            const lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* berr, lapack_int n_err_bnds,+                            double* err_bnds_norm, double* err_bnds_comp,+                            lapack_int nparams, double* params );++lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, float* a, lapack_int lda,+                          lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, double* a, lapack_int lda,+                          lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_float* a,+                          lapack_int lda, lapack_int* ipiv,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n,+                          lapack_int nrhs, lapack_complex_double* a,+                          lapack_int lda, lapack_int* ipiv,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           float* af, lapack_int ldaf, lapack_int* ipiv,+                           const float* b, lapack_int ldb, float* x,+                           lapack_int ldx, float* rcond, float* ferr,+                           float* berr );+lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           double* af, lapack_int ldaf, lapack_int* ipiv,+                           const double* b, lapack_int ldb, double* x,+                           lapack_int ldx, double* rcond, double* ferr,+                           double* berr );+lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* af,+                           lapack_int ldaf, lapack_int* ipiv,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* x, lapack_int ldx,+                           float* rcond, float* ferr, float* berr );+lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* af,+                           lapack_int ldaf, lapack_int* ipiv,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* x, lapack_int ldx,+                           double* rcond, double* ferr, double* berr );++lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs, float* a,+                            lapack_int lda, float* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, float* s, float* b,+                            lapack_int ldb, float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs, double* a,+                            lapack_int lda, double* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, double* s, double* b,+                            lapack_int ldb, double* x, lapack_int ldx,+                            double* rcond, double* rpvgrw, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );+lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, float* s,+                            lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* x, lapack_int ldx,+                            float* rcond, float* rpvgrw, float* berr,+                            lapack_int n_err_bnds, float* err_bnds_norm,+                            float* err_bnds_comp, lapack_int nparams,+                            float* params );+lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo,+                            lapack_int n, lapack_int nrhs,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* af, lapack_int ldaf,+                            lapack_int* ipiv, char* equed, double* s,+                            lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* x, lapack_int ldx,+                            double* rcond, double* rpvgrw, double* berr,+                            lapack_int n_err_bnds, double* err_bnds_norm,+                            double* err_bnds_comp, lapack_int nparams,+                            double* params );++lapack_int LAPACKE_ssytrd( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda, float* d, float* e, float* tau );+lapack_int LAPACKE_dsytrd( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda, double* d, double* e, double* tau );++lapack_int LAPACKE_ssytrf( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_dsytrf( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_int* ipiv );+lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_int* ipiv );++lapack_int LAPACKE_ssytri( int matrix_order, char uplo, lapack_int n, float* a,+                           lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_dsytri( int matrix_order, char uplo, lapack_int n, double* a,+                           lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_csytri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           const lapack_int* ipiv );+lapack_int LAPACKE_zsytri( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           const lapack_int* ipiv );++lapack_int LAPACKE_ssytrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const float* a, lapack_int lda,+                           const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_dsytrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const double* a, lapack_int lda,+                           const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_csytrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_float* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zsytrs( int matrix_order, char uplo, lapack_int n,+                           lapack_int nrhs, const lapack_complex_double* a,+                           lapack_int lda, const lapack_int* ipiv,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stbcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, lapack_int kd, const float* ab,+                           lapack_int ldab, float* rcond );+lapack_int LAPACKE_dtbcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, lapack_int kd, const double* ab,+                           lapack_int ldab, double* rcond );+lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, lapack_int kd,+                           const lapack_complex_float* ab, lapack_int ldab,+                           float* rcond );+lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, lapack_int kd,+                           const lapack_complex_double* ab, lapack_int ldab,+                           double* rcond );++lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const float* ab, lapack_int ldab, const float* b,+                           lapack_int ldb, const float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const double* ab, lapack_int ldab, const double* b,+                           lapack_int ldb, const double* x, lapack_int ldx,+                           double* ferr, double* berr );+lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           const lapack_complex_float* b, lapack_int ldb,+                           const lapack_complex_float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           const lapack_complex_double* b, lapack_int ldb,+                           const lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_stbtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const float* ab, lapack_int ldab, float* b,+                           lapack_int ldb );+lapack_int LAPACKE_dtbtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const double* ab, lapack_int ldab, double* b,+                           lapack_int ldb );+lapack_int LAPACKE_ctbtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const lapack_complex_float* ab, lapack_int ldab,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztbtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int kd, lapack_int nrhs,+                           const lapack_complex_double* ab, lapack_int ldab,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stfsm( int matrix_order, char transr, char side, char uplo,+                          char trans, char diag, lapack_int m, lapack_int n,+                          float alpha, const float* a, float* b,+                          lapack_int ldb );+lapack_int LAPACKE_dtfsm( int matrix_order, char transr, char side, char uplo,+                          char trans, char diag, lapack_int m, lapack_int n,+                          double alpha, const double* a, double* b,+                          lapack_int ldb );+lapack_int LAPACKE_ctfsm( int matrix_order, char transr, char side, char uplo,+                          char trans, char diag, lapack_int m, lapack_int n,+                          lapack_complex_float alpha,+                          const lapack_complex_float* a,+                          lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo,+                          char trans, char diag, lapack_int m, lapack_int n,+                          lapack_complex_double alpha,+                          const lapack_complex_double* a,+                          lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stftri( int matrix_order, char transr, char uplo, char diag,+                           lapack_int n, float* a );+lapack_int LAPACKE_dtftri( int matrix_order, char transr, char uplo, char diag,+                           lapack_int n, double* a );+lapack_int LAPACKE_ctftri( int matrix_order, char transr, char uplo, char diag,+                           lapack_int n, lapack_complex_float* a );+lapack_int LAPACKE_ztftri( int matrix_order, char transr, char uplo, char diag,+                           lapack_int n, lapack_complex_double* a );++lapack_int LAPACKE_stfttp( int matrix_order, char transr, char uplo,+                           lapack_int n, const float* arf, float* ap );+lapack_int LAPACKE_dtfttp( int matrix_order, char transr, char uplo,+                           lapack_int n, const double* arf, double* ap );+lapack_int LAPACKE_ctfttp( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_float* arf,+                           lapack_complex_float* ap );+lapack_int LAPACKE_ztfttp( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_double* arf,+                           lapack_complex_double* ap );++lapack_int LAPACKE_stfttr( int matrix_order, char transr, char uplo,+                           lapack_int n, const float* arf, float* a,+                           lapack_int lda );+lapack_int LAPACKE_dtfttr( int matrix_order, char transr, char uplo,+                           lapack_int n, const double* arf, double* a,+                           lapack_int lda );+lapack_int LAPACKE_ctfttr( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_float* arf,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_ztfttr( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_double* arf,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const float* s, lapack_int lds, const float* p,+                           lapack_int ldp, float* vl, lapack_int ldvl,+                           float* vr, lapack_int ldvr, lapack_int mm,+                           lapack_int* m );+lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const double* s, lapack_int lds, const double* p,+                           lapack_int ldp, double* vl, lapack_int ldvl,+                           double* vr, lapack_int ldvr, lapack_int mm,+                           lapack_int* m );+lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_float* s, lapack_int lds,+                           const lapack_complex_float* p, lapack_int ldp,+                           lapack_complex_float* vl, lapack_int ldvl,+                           lapack_complex_float* vr, lapack_int ldvr,+                           lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_double* s, lapack_int lds,+                           const lapack_complex_double* p, lapack_int ldp,+                           lapack_complex_double* vl, lapack_int ldvl,+                           lapack_complex_double* vr, lapack_int ldvr,+                           lapack_int mm, lapack_int* m );++lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq,+                           lapack_logical wantz, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb, float* q,+                           lapack_int ldq, float* z, lapack_int ldz,+                           lapack_int* ifst, lapack_int* ilst );+lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq,+                           lapack_logical wantz, lapack_int n, double* a,+                           lapack_int lda, double* b, lapack_int ldb, double* q,+                           lapack_int ldq, double* z, lapack_int ldz,+                           lapack_int* ifst, lapack_int* ilst );+lapack_int LAPACKE_ctgexc( int matrix_order, lapack_logical wantq,+                           lapack_logical wantz, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_complex_float* z, lapack_int ldz,+                           lapack_int ifst, lapack_int ilst );+lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq,+                           lapack_logical wantz, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int ifst, lapack_int ilst );++lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob,+                           lapack_logical wantq, lapack_logical wantz,+                           const lapack_logical* select, lapack_int n, float* a,+                           lapack_int lda, float* b, lapack_int ldb,+                           float* alphar, float* alphai, float* beta, float* q,+                           lapack_int ldq, float* z, lapack_int ldz,+                           lapack_int* m, float* pl, float* pr, float* dif );+lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob,+                           lapack_logical wantq, lapack_logical wantz,+                           const lapack_logical* select, lapack_int n,+                           double* a, lapack_int lda, double* b, lapack_int ldb,+                           double* alphar, double* alphai, double* beta,+                           double* q, lapack_int ldq, double* z, lapack_int ldz,+                           lapack_int* m, double* pl, double* pr, double* dif );+lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob,+                           lapack_logical wantq, lapack_logical wantz,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* alpha,+                           lapack_complex_float* beta, lapack_complex_float* q,+                           lapack_int ldq, lapack_complex_float* z,+                           lapack_int ldz, lapack_int* m, float* pl, float* pr,+                           float* dif );+lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob,+                           lapack_logical wantq, lapack_logical wantz,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* alpha,+                           lapack_complex_double* beta,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* z, lapack_int ldz,+                           lapack_int* m, double* pl, double* pr, double* dif );++lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_int k, lapack_int l, float* a, lapack_int lda,+                           float* b, lapack_int ldb, float tola, float tolb,+                           float* alpha, float* beta, float* u, lapack_int ldu,+                           float* v, lapack_int ldv, float* q, lapack_int ldq,+                           lapack_int* ncycle );+lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_int k, lapack_int l, double* a,+                           lapack_int lda, double* b, lapack_int ldb,+                           double tola, double tolb, double* alpha,+                           double* beta, double* u, lapack_int ldu, double* v,+                           lapack_int ldv, double* q, lapack_int ldq,+                           lapack_int* ncycle );+lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_int k, lapack_int l, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* b,+                           lapack_int ldb, float tola, float tolb, float* alpha,+                           float* beta, lapack_complex_float* u, lapack_int ldu,+                           lapack_complex_float* v, lapack_int ldv,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_int* ncycle );+lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq,+                           lapack_int m, lapack_int p, lapack_int n,+                           lapack_int k, lapack_int l, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* b,+                           lapack_int ldb, double tola, double tolb,+                           double* alpha, double* beta,+                           lapack_complex_double* u, lapack_int ldu,+                           lapack_complex_double* v, lapack_int ldv,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_int* ncycle );++lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const float* a, lapack_int lda, const float* b,+                           lapack_int ldb, const float* vl, lapack_int ldvl,+                           const float* vr, lapack_int ldvr, float* s,+                           float* dif, lapack_int mm, lapack_int* m );+lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const double* a, lapack_int lda, const double* b,+                           lapack_int ldb, const double* vl, lapack_int ldvl,+                           const double* vr, lapack_int ldvr, double* s,+                           double* dif, lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* b, lapack_int ldb,+                           const lapack_complex_float* vl, lapack_int ldvl,+                           const lapack_complex_float* vr, lapack_int ldvr,+                           float* s, float* dif, lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* b, lapack_int ldb,+                           const lapack_complex_double* vl, lapack_int ldvl,+                           const lapack_complex_double* vr, lapack_int ldvr,+                           double* s, double* dif, lapack_int mm,+                           lapack_int* m );++lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob,+                           lapack_int m, lapack_int n, const float* a,+                           lapack_int lda, const float* b, lapack_int ldb,+                           float* c, lapack_int ldc, const float* d,+                           lapack_int ldd, const float* e, lapack_int lde,+                           float* f, lapack_int ldf, float* scale, float* dif );+lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob,+                           lapack_int m, lapack_int n, const double* a,+                           lapack_int lda, const double* b, lapack_int ldb,+                           double* c, lapack_int ldc, const double* d,+                           lapack_int ldd, const double* e, lapack_int lde,+                           double* f, lapack_int ldf, double* scale,+                           double* dif );+lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob,+                           lapack_int m, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* c, lapack_int ldc,+                           const lapack_complex_float* d, lapack_int ldd,+                           const lapack_complex_float* e, lapack_int lde,+                           lapack_complex_float* f, lapack_int ldf,+                           float* scale, float* dif );+lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob,+                           lapack_int m, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* c, lapack_int ldc,+                           const lapack_complex_double* d, lapack_int ldd,+                           const lapack_complex_double* e, lapack_int lde,+                           lapack_complex_double* f, lapack_int ldf,+                           double* scale, double* dif );++lapack_int LAPACKE_stpcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const float* ap, float* rcond );+lapack_int LAPACKE_dtpcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const double* ap, double* rcond );+lapack_int LAPACKE_ctpcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const lapack_complex_float* ap,+                           float* rcond );+lapack_int LAPACKE_ztpcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const lapack_complex_double* ap,+                           double* rcond );++lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const float* ap,+                           const float* b, lapack_int ldb, const float* x,+                           lapack_int ldx, float* ferr, float* berr );+lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const double* ap,+                           const double* b, lapack_int ldb, const double* x,+                           lapack_int ldx, double* ferr, double* berr );+lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* ap,+                           const lapack_complex_float* b, lapack_int ldb,+                           const lapack_complex_float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* ap,+                           const lapack_complex_double* b, lapack_int ldb,+                           const lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_stptri( int matrix_order, char uplo, char diag, lapack_int n,+                           float* ap );+lapack_int LAPACKE_dtptri( int matrix_order, char uplo, char diag, lapack_int n,+                           double* ap );+lapack_int LAPACKE_ctptri( int matrix_order, char uplo, char diag, lapack_int n,+                           lapack_complex_float* ap );+lapack_int LAPACKE_ztptri( int matrix_order, char uplo, char diag, lapack_int n,+                           lapack_complex_double* ap );++lapack_int LAPACKE_stptrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const float* ap,+                           float* b, lapack_int ldb );+lapack_int LAPACKE_dtptrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const double* ap,+                           double* b, lapack_int ldb );+lapack_int LAPACKE_ctptrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* ap,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztptrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* ap,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stpttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const float* ap, float* arf );+lapack_int LAPACKE_dtpttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const double* ap, double* arf );+lapack_int LAPACKE_ctpttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_float* ap,+                           lapack_complex_float* arf );+lapack_int LAPACKE_ztpttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_double* ap,+                           lapack_complex_double* arf );++lapack_int LAPACKE_stpttr( int matrix_order, char uplo, lapack_int n,+                           const float* ap, float* a, lapack_int lda );+lapack_int LAPACKE_dtpttr( int matrix_order, char uplo, lapack_int n,+                           const double* ap, double* a, lapack_int lda );+lapack_int LAPACKE_ctpttr( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_ztpttr( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_strcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const float* a, lapack_int lda,+                           float* rcond );+lapack_int LAPACKE_dtrcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const double* a, lapack_int lda,+                           double* rcond );+lapack_int LAPACKE_ctrcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const lapack_complex_float* a,+                           lapack_int lda, float* rcond );+lapack_int LAPACKE_ztrcon( int matrix_order, char norm, char uplo, char diag,+                           lapack_int n, const lapack_complex_double* a,+                           lapack_int lda, double* rcond );++lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny,+                           lapack_logical* select, lapack_int n, const float* t,+                           lapack_int ldt, float* vl, lapack_int ldvl,+                           float* vr, lapack_int ldvr, lapack_int mm,+                           lapack_int* m );+lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny,+                           lapack_logical* select, lapack_int n,+                           const double* t, lapack_int ldt, double* vl,+                           lapack_int ldvl, double* vr, lapack_int ldvr,+                           lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_float* t, lapack_int ldt,+                           lapack_complex_float* vl, lapack_int ldvl,+                           lapack_complex_float* vr, lapack_int ldvr,+                           lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_double* t, lapack_int ldt,+                           lapack_complex_double* vl, lapack_int ldvl,+                           lapack_complex_double* vr, lapack_int ldvr,+                           lapack_int mm, lapack_int* m );++lapack_int LAPACKE_strexc( int matrix_order, char compq, lapack_int n, float* t,+                           lapack_int ldt, float* q, lapack_int ldq,+                           lapack_int* ifst, lapack_int* ilst );+lapack_int LAPACKE_dtrexc( int matrix_order, char compq, lapack_int n,+                           double* t, lapack_int ldt, double* q, lapack_int ldq,+                           lapack_int* ifst, lapack_int* ilst );+lapack_int LAPACKE_ctrexc( int matrix_order, char compq, lapack_int n,+                           lapack_complex_float* t, lapack_int ldt,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_int ifst, lapack_int ilst );+lapack_int LAPACKE_ztrexc( int matrix_order, char compq, lapack_int n,+                           lapack_complex_double* t, lapack_int ldt,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_int ifst, lapack_int ilst );++lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const float* a,+                           lapack_int lda, const float* b, lapack_int ldb,+                           const float* x, lapack_int ldx, float* ferr,+                           float* berr );+lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const double* a,+                           lapack_int lda, const double* b, lapack_int ldb,+                           const double* x, lapack_int ldx, double* ferr,+                           double* berr );+lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* b, lapack_int ldb,+                           const lapack_complex_float* x, lapack_int ldx,+                           float* ferr, float* berr );+lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* b, lapack_int ldb,+                           const lapack_complex_double* x, lapack_int ldx,+                           double* ferr, double* berr );++lapack_int LAPACKE_strsen( int matrix_order, char job, char compq,+                           const lapack_logical* select, lapack_int n, float* t,+                           lapack_int ldt, float* q, lapack_int ldq, float* wr,+                           float* wi, lapack_int* m, float* s, float* sep );+lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq,+                           const lapack_logical* select, lapack_int n,+                           double* t, lapack_int ldt, double* q, lapack_int ldq,+                           double* wr, double* wi, lapack_int* m, double* s,+                           double* sep );+lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_float* t, lapack_int ldt,+                           lapack_complex_float* q, lapack_int ldq,+                           lapack_complex_float* w, lapack_int* m, float* s,+                           float* sep );+lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq,+                           const lapack_logical* select, lapack_int n,+                           lapack_complex_double* t, lapack_int ldt,+                           lapack_complex_double* q, lapack_int ldq,+                           lapack_complex_double* w, lapack_int* m, double* s,+                           double* sep );++lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const float* t, lapack_int ldt, const float* vl,+                           lapack_int ldvl, const float* vr, lapack_int ldvr,+                           float* s, float* sep, lapack_int mm, lapack_int* m );+lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const double* t, lapack_int ldt, const double* vl,+                           lapack_int ldvl, const double* vr, lapack_int ldvr,+                           double* s, double* sep, lapack_int mm,+                           lapack_int* m );+lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_float* t, lapack_int ldt,+                           const lapack_complex_float* vl, lapack_int ldvl,+                           const lapack_complex_float* vr, lapack_int ldvr,+                           float* s, float* sep, lapack_int mm, lapack_int* m );+lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny,+                           const lapack_logical* select, lapack_int n,+                           const lapack_complex_double* t, lapack_int ldt,+                           const lapack_complex_double* vl, lapack_int ldvl,+                           const lapack_complex_double* vr, lapack_int ldvr,+                           double* s, double* sep, lapack_int mm,+                           lapack_int* m );++lapack_int LAPACKE_strsyl( int matrix_order, char trana, char tranb,+                           lapack_int isgn, lapack_int m, lapack_int n,+                           const float* a, lapack_int lda, const float* b,+                           lapack_int ldb, float* c, lapack_int ldc,+                           float* scale );+lapack_int LAPACKE_dtrsyl( int matrix_order, char trana, char tranb,+                           lapack_int isgn, lapack_int m, lapack_int n,+                           const double* a, lapack_int lda, const double* b,+                           lapack_int ldb, double* c, lapack_int ldc,+                           double* scale );+lapack_int LAPACKE_ctrsyl( int matrix_order, char trana, char tranb,+                           lapack_int isgn, lapack_int m, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* b, lapack_int ldb,+                           lapack_complex_float* c, lapack_int ldc,+                           float* scale );+lapack_int LAPACKE_ztrsyl( int matrix_order, char trana, char tranb,+                           lapack_int isgn, lapack_int m, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* c, lapack_int ldc,+                           double* scale );++lapack_int LAPACKE_strtri( int matrix_order, char uplo, char diag, lapack_int n,+                           float* a, lapack_int lda );+lapack_int LAPACKE_dtrtri( int matrix_order, char uplo, char diag, lapack_int n,+                           double* a, lapack_int lda );+lapack_int LAPACKE_ctrtri( int matrix_order, char uplo, char diag, lapack_int n,+                           lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_ztrtri( int matrix_order, char uplo, char diag, lapack_int n,+                           lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_strtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const float* a,+                           lapack_int lda, float* b, lapack_int ldb );+lapack_int LAPACKE_dtrtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs, const double* a,+                           lapack_int lda, double* b, lapack_int ldb );+lapack_int LAPACKE_ctrtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztrtrs( int matrix_order, char uplo, char trans, char diag,+                           lapack_int n, lapack_int nrhs,+                           const lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_strttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const float* a, lapack_int lda,+                           float* arf );+lapack_int LAPACKE_dtrttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const double* a, lapack_int lda,+                           double* arf );+lapack_int LAPACKE_ctrttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* arf );+lapack_int LAPACKE_ztrttf( int matrix_order, char transr, char uplo,+                           lapack_int n, const lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* arf );++lapack_int LAPACKE_strttp( int matrix_order, char uplo, lapack_int n,+                           const float* a, lapack_int lda, float* ap );+lapack_int LAPACKE_dtrttp( int matrix_order, char uplo, lapack_int n,+                           const double* a, lapack_int lda, double* ap );+lapack_int LAPACKE_ctrttp( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* ap );+lapack_int LAPACKE_ztrttp( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* ap );++lapack_int LAPACKE_stzrzf( int matrix_order, lapack_int m, lapack_int n,+                           float* a, lapack_int lda, float* tau );+lapack_int LAPACKE_dtzrzf( int matrix_order, lapack_int m, lapack_int n,+                           double* a, lapack_int lda, double* tau );+lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* tau );+lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* tau );++lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int k, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m,+                           lapack_int n, lapack_int k, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo,+                           lapack_int ihi, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau );+lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int k, lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau );++lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau );+lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n,+                           lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau );++lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int ilo,+                           lapack_int ihi, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int ilo,+                           lapack_int ihi, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           lapack_int l, const lapack_complex_float* a,+                           lapack_int lda, const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans,+                           lapack_int m, lapack_int n, lapack_int k,+                           lapack_int l, const lapack_complex_double* a,+                           lapack_int lda, const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n,+                           const lapack_complex_float* a, lapack_int lda,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n,+                           const lapack_complex_double* a, lapack_int lda,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_cupgtr( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_float* ap,+                           const lapack_complex_float* tau,+                           lapack_complex_float* q, lapack_int ldq );+lapack_int LAPACKE_zupgtr( int matrix_order, char uplo, lapack_int n,+                           const lapack_complex_double* ap,+                           const lapack_complex_double* tau,+                           lapack_complex_double* q, lapack_int ldq );++lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n,+                           const lapack_complex_float* ap,+                           const lapack_complex_float* tau,+                           lapack_complex_float* c, lapack_int ldc );+lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans,+                           lapack_int m, lapack_int n,+                           const lapack_complex_double* ap,+                           const lapack_complex_double* tau,+                           lapack_complex_double* c, lapack_int ldc );++lapack_int LAPACKE_sbdsdc_work( int matrix_order, char uplo, char compq,+                                lapack_int n, float* d, float* e, float* u,+                                lapack_int ldu, float* vt, lapack_int ldvt,+                                float* q, lapack_int* iq, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dbdsdc_work( int matrix_order, char uplo, char compq,+                                lapack_int n, double* d, double* e, double* u,+                                lapack_int ldu, double* vt, lapack_int ldvt,+                                double* q, lapack_int* iq, double* work,+                                lapack_int* iwork );++lapack_int LAPACKE_sbdsqr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int ncvt, lapack_int nru, lapack_int ncc,+                                float* d, float* e, float* vt, lapack_int ldvt,+                                float* u, lapack_int ldu, float* c,+                                lapack_int ldc, float* work );+lapack_int LAPACKE_dbdsqr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int ncvt, lapack_int nru, lapack_int ncc,+                                double* d, double* e, double* vt,+                                lapack_int ldvt, double* u, lapack_int ldu,+                                double* c, lapack_int ldc, double* work );+lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int ncvt, lapack_int nru, lapack_int ncc,+                                float* d, float* e, lapack_complex_float* vt,+                                lapack_int ldvt, lapack_complex_float* u,+                                lapack_int ldu, lapack_complex_float* c,+                                lapack_int ldc, float* work );+lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int ncvt, lapack_int nru, lapack_int ncc,+                                double* d, double* e, lapack_complex_double* vt,+                                lapack_int ldvt, lapack_complex_double* u,+                                lapack_int ldu, lapack_complex_double* c,+                                lapack_int ldc, double* work );++lapack_int LAPACKE_sdisna_work( char job, lapack_int m, lapack_int n,+                                const float* d, float* sep );+lapack_int LAPACKE_ddisna_work( char job, lapack_int m, lapack_int n,+                                const double* d, double* sep );++lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int ncc, lapack_int kl,+                                lapack_int ku, float* ab, lapack_int ldab,+                                float* d, float* e, float* q, lapack_int ldq,+                                float* pt, lapack_int ldpt, float* c,+                                lapack_int ldc, float* work );+lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int ncc, lapack_int kl,+                                lapack_int ku, double* ab, lapack_int ldab,+                                double* d, double* e, double* q, lapack_int ldq,+                                double* pt, lapack_int ldpt, double* c,+                                lapack_int ldc, double* work );+lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int ncc, lapack_int kl,+                                lapack_int ku, lapack_complex_float* ab,+                                lapack_int ldab, float* d, float* e,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* pt, lapack_int ldpt,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int ncc, lapack_int kl,+                                lapack_int ku, lapack_complex_double* ab,+                                lapack_int ldab, double* d, double* e,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* pt, lapack_int ldpt,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgbcon_work( int matrix_order, char norm, lapack_int n,+                                lapack_int kl, lapack_int ku, const float* ab,+                                lapack_int ldab, const lapack_int* ipiv,+                                float anorm, float* rcond, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dgbcon_work( int matrix_order, char norm, lapack_int n,+                                lapack_int kl, lapack_int ku, const double* ab,+                                lapack_int ldab, const lapack_int* ipiv,+                                double anorm, double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                const lapack_complex_float* ab, lapack_int ldab,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                const lapack_complex_double* ab,+                                lapack_int ldab, const lapack_int* ipiv,+                                double anorm, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgbequ_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const float* ab,+                                lapack_int ldab, float* r, float* c,+                                float* rowcnd, float* colcnd, float* amax );+lapack_int LAPACKE_dgbequ_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const double* ab,+                                lapack_int ldab, double* r, double* c,+                                double* rowcnd, double* colcnd, double* amax );+lapack_int LAPACKE_cgbequ_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                const lapack_complex_float* ab, lapack_int ldab,+                                float* r, float* c, float* rowcnd,+                                float* colcnd, float* amax );+lapack_int LAPACKE_zgbequ_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                const lapack_complex_double* ab,+                                lapack_int ldab, double* r, double* c,+                                double* rowcnd, double* colcnd, double* amax );++lapack_int LAPACKE_sgbequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_int kl, lapack_int ku, const float* ab,+                                 lapack_int ldab, float* r, float* c,+                                 float* rowcnd, float* colcnd, float* amax );+lapack_int LAPACKE_dgbequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_int kl, lapack_int ku, const double* ab,+                                 lapack_int ldab, double* r, double* c,+                                 double* rowcnd, double* colcnd, double* amax );+lapack_int LAPACKE_cgbequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_int kl, lapack_int ku,+                                 const lapack_complex_float* ab,+                                 lapack_int ldab, float* r, float* c,+                                 float* rowcnd, float* colcnd, float* amax );+lapack_int LAPACKE_zgbequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_int kl, lapack_int ku,+                                 const lapack_complex_double* ab,+                                 lapack_int ldab, double* r, double* c,+                                 double* rowcnd, double* colcnd, double* amax );++lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const float* ab, lapack_int ldab,+                                const float* afb, lapack_int ldafb,+                                const lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const double* ab, lapack_int ldab,+                                const double* afb, lapack_int ldafb,+                                const lapack_int* ipiv, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const lapack_complex_float* ab, lapack_int ldab,+                                const lapack_complex_float* afb,+                                lapack_int ldafb, const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab,+                                const lapack_complex_double* afb,+                                lapack_int ldafb, const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, const float* ab,+                                 lapack_int ldab, const float* afb,+                                 lapack_int ldafb, const lapack_int* ipiv,+                                 const float* r, const float* c, const float* b,+                                 lapack_int ldb, float* x, lapack_int ldx,+                                 float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, const double* ab,+                                 lapack_int ldab, const double* afb,+                                 lapack_int ldafb, const lapack_int* ipiv,+                                 const double* r, const double* c,+                                 const double* b, lapack_int ldb, double* x,+                                 lapack_int ldx, double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs,+                                 const lapack_complex_float* ab,+                                 lapack_int ldab,+                                 const lapack_complex_float* afb,+                                 lapack_int ldafb, const lapack_int* ipiv,+                                 const float* r, const float* c,+                                 const lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs,+                                 const lapack_complex_double* ab,+                                 lapack_int ldab,+                                 const lapack_complex_double* afb,+                                 lapack_int ldafb, const lapack_int* ipiv,+                                 const double* r, const double* c,+                                 const lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_sgbsv_work( int matrix_order, lapack_int n, lapack_int kl,+                               lapack_int ku, lapack_int nrhs, float* ab,+                               lapack_int ldab, lapack_int* ipiv, float* b,+                               lapack_int ldb );+lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl,+                               lapack_int ku, lapack_int nrhs, double* ab,+                               lapack_int ldab, lapack_int* ipiv, double* b,+                               lapack_int ldb );+lapack_int LAPACKE_cgbsv_work( int matrix_order, lapack_int n, lapack_int kl,+                               lapack_int ku, lapack_int nrhs,+                               lapack_complex_float* ab, lapack_int ldab,+                               lapack_int* ipiv, lapack_complex_float* b,+                               lapack_int ldb );+lapack_int LAPACKE_zgbsv_work( int matrix_order, lapack_int n, lapack_int kl,+                               lapack_int ku, lapack_int nrhs,+                               lapack_complex_double* ab, lapack_int ldab,+                               lapack_int* ipiv, lapack_complex_double* b,+                               lapack_int ldb );++lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int kl, lapack_int ku,+                                lapack_int nrhs, float* ab, lapack_int ldab,+                                float* afb, lapack_int ldafb, lapack_int* ipiv,+                                char* equed, float* r, float* c, float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int kl, lapack_int ku,+                                lapack_int nrhs, double* ab, lapack_int ldab,+                                double* afb, lapack_int ldafb, lapack_int* ipiv,+                                char* equed, double* r, double* c, double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int kl, lapack_int ku,+                                lapack_int nrhs, lapack_complex_float* ab,+                                lapack_int ldab, lapack_complex_float* afb,+                                lapack_int ldafb, lapack_int* ipiv, char* equed,+                                float* r, float* c, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int kl, lapack_int ku,+                                lapack_int nrhs, lapack_complex_double* ab,+                                lapack_int ldab, lapack_complex_double* afb,+                                lapack_int ldafb, lapack_int* ipiv, char* equed,+                                double* r, double* c, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, float* ab, lapack_int ldab,+                                 float* afb, lapack_int ldafb, lapack_int* ipiv,+                                 char* equed, float* r, float* c, float* b,+                                 lapack_int ldb, float* x, lapack_int ldx,+                                 float* rcond, float* rpvgrw, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, double* ab, lapack_int ldab,+                                 double* afb, lapack_int ldafb,+                                 lapack_int* ipiv, char* equed, double* r,+                                 double* c, double* b, lapack_int ldb,+                                 double* x, lapack_int ldx, double* rcond,+                                 double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, lapack_complex_float* ab,+                                 lapack_int ldab, lapack_complex_float* afb,+                                 lapack_int ldafb, lapack_int* ipiv,+                                 char* equed, float* r, float* c,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* rpvgrw, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int kl, lapack_int ku,+                                 lapack_int nrhs, lapack_complex_double* ab,+                                 lapack_int ldab, lapack_complex_double* afb,+                                 lapack_int ldafb, lapack_int* ipiv,+                                 char* equed, double* r, double* c,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_sgbtrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, float* ab,+                                lapack_int ldab, lapack_int* ipiv );+lapack_int LAPACKE_dgbtrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, double* ab,+                                lapack_int ldab, lapack_int* ipiv );+lapack_int LAPACKE_cgbtrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                lapack_complex_float* ab, lapack_int ldab,+                                lapack_int* ipiv );+lapack_int LAPACKE_zgbtrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku,+                                lapack_complex_double* ab, lapack_int ldab,+                                lapack_int* ipiv );++lapack_int LAPACKE_sgbtrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const float* ab, lapack_int ldab,+                                const lapack_int* ipiv, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dgbtrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const double* ab, lapack_int ldab,+                                const lapack_int* ipiv, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_cgbtrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const lapack_complex_float* ab, lapack_int ldab,+                                const lapack_int* ipiv, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zgbtrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int kl, lapack_int ku, lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab, const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sgebak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const float* scale, lapack_int m, float* v,+                                lapack_int ldv );+lapack_int LAPACKE_dgebak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const double* scale, lapack_int m, double* v,+                                lapack_int ldv );+lapack_int LAPACKE_cgebak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const float* scale, lapack_int m,+                                lapack_complex_float* v, lapack_int ldv );+lapack_int LAPACKE_zgebak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const double* scale, lapack_int m,+                                lapack_complex_double* v, lapack_int ldv );++lapack_int LAPACKE_sgebal_work( int matrix_order, char job, lapack_int n,+                                float* a, lapack_int lda, lapack_int* ilo,+                                lapack_int* ihi, float* scale );+lapack_int LAPACKE_dgebal_work( int matrix_order, char job, lapack_int n,+                                double* a, lapack_int lda, lapack_int* ilo,+                                lapack_int* ihi, double* scale );+lapack_int LAPACKE_cgebal_work( int matrix_order, char job, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* ilo, lapack_int* ihi,+                                float* scale );+lapack_int LAPACKE_zgebal_work( int matrix_order, char job, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ilo, lapack_int* ihi,+                                double* scale );++lapack_int LAPACKE_sgebrd_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* d, float* e,+                                float* tauq, float* taup, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dgebrd_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* d, double* e,+                                double* tauq, double* taup, double* work,+                                lapack_int lwork );+lapack_int LAPACKE_cgebrd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                float* d, float* e, lapack_complex_float* tauq,+                                lapack_complex_float* taup,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                double* d, double* e,+                                lapack_complex_double* tauq,+                                lapack_complex_double* taup,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgecon_work( int matrix_order, char norm, lapack_int n,+                                const float* a, lapack_int lda, float anorm,+                                float* rcond, float* work, lapack_int* iwork );+lapack_int LAPACKE_dgecon_work( int matrix_order, char norm, lapack_int n,+                                const double* a, lapack_int lda, double anorm,+                                double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cgecon_work( int matrix_order, char norm, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float anorm, float* rcond,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgecon_work( int matrix_order, char norm, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double anorm, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgeequ_work( int matrix_order, lapack_int m, lapack_int n,+                                const float* a, lapack_int lda, float* r,+                                float* c, float* rowcnd, float* colcnd,+                                float* amax );+lapack_int LAPACKE_dgeequ_work( int matrix_order, lapack_int m, lapack_int n,+                                const double* a, lapack_int lda, double* r,+                                double* c, double* rowcnd, double* colcnd,+                                double* amax );+lapack_int LAPACKE_cgeequ_work( int matrix_order, lapack_int m, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float* r, float* c, float* rowcnd,+                                float* colcnd, float* amax );+lapack_int LAPACKE_zgeequ_work( int matrix_order, lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double* r, double* c, double* rowcnd,+                                double* colcnd, double* amax );++lapack_int LAPACKE_sgeequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 const float* a, lapack_int lda, float* r,+                                 float* c, float* rowcnd, float* colcnd,+                                 float* amax );+lapack_int LAPACKE_dgeequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 const double* a, lapack_int lda, double* r,+                                 double* c, double* rowcnd, double* colcnd,+                                 double* amax );+lapack_int LAPACKE_cgeequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 const lapack_complex_float* a, lapack_int lda,+                                 float* r, float* c, float* rowcnd,+                                 float* colcnd, float* amax );+lapack_int LAPACKE_zgeequb_work( int matrix_order, lapack_int m, lapack_int n,+                                 const lapack_complex_double* a, lapack_int lda,+                                 double* r, double* c, double* rowcnd,+                                 double* colcnd, double* amax );++lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort,+                               LAPACK_S_SELECT2 select, lapack_int n, float* a,+                               lapack_int lda, lapack_int* sdim, float* wr,+                               float* wi, float* vs, lapack_int ldvs,+                               float* work, lapack_int lwork,+                               lapack_logical* bwork );+lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort,+                               LAPACK_D_SELECT2 select, lapack_int n, double* a,+                               lapack_int lda, lapack_int* sdim, double* wr,+                               double* wi, double* vs, lapack_int ldvs,+                               double* work, lapack_int lwork,+                               lapack_logical* bwork );+lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort,+                               LAPACK_C_SELECT1 select, lapack_int n,+                               lapack_complex_float* a, lapack_int lda,+                               lapack_int* sdim, lapack_complex_float* w,+                               lapack_complex_float* vs, lapack_int ldvs,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork, lapack_logical* bwork );+lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort,+                               LAPACK_Z_SELECT1 select, lapack_int n,+                               lapack_complex_double* a, lapack_int lda,+                               lapack_int* sdim, lapack_complex_double* w,+                               lapack_complex_double* vs, lapack_int ldvs,+                               lapack_complex_double* work, lapack_int lwork,+                               double* rwork, lapack_logical* bwork );++lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort,+                                LAPACK_S_SELECT2 select, char sense,+                                lapack_int n, float* a, lapack_int lda,+                                lapack_int* sdim, float* wr, float* wi,+                                float* vs, lapack_int ldvs, float* rconde,+                                float* rcondv, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork,+                                lapack_logical* bwork );+lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort,+                                LAPACK_D_SELECT2 select, char sense,+                                lapack_int n, double* a, lapack_int lda,+                                lapack_int* sdim, double* wr, double* wi,+                                double* vs, lapack_int ldvs, double* rconde,+                                double* rcondv, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork,+                                lapack_logical* bwork );+lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort,+                                LAPACK_C_SELECT1 select, char sense,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, lapack_int* sdim,+                                lapack_complex_float* w,+                                lapack_complex_float* vs, lapack_int ldvs,+                                float* rconde, float* rcondv,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_logical* bwork );+lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort,+                                LAPACK_Z_SELECT1 select, char sense,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, lapack_int* sdim,+                                lapack_complex_double* w,+                                lapack_complex_double* vs, lapack_int ldvs,+                                double* rconde, double* rcondv,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_logical* bwork );++lapack_int LAPACKE_sgeev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, float* a, lapack_int lda,+                               float* wr, float* wi, float* vl, lapack_int ldvl,+                               float* vr, lapack_int ldvr, float* work,+                               lapack_int lwork );+lapack_int LAPACKE_dgeev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, double* a, lapack_int lda,+                               double* wr, double* wi, double* vl,+                               lapack_int ldvl, double* vr, lapack_int ldvr,+                               double* work, lapack_int lwork );+lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, lapack_complex_float* a,+                               lapack_int lda, lapack_complex_float* w,+                               lapack_complex_float* vl, lapack_int ldvl,+                               lapack_complex_float* vr, lapack_int ldvr,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork );+lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, lapack_complex_double* a,+                               lapack_int lda, lapack_complex_double* w,+                               lapack_complex_double* vl, lapack_int ldvl,+                               lapack_complex_double* vr, lapack_int ldvr,+                               lapack_complex_double* work, lapack_int lwork,+                               double* rwork );++lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n, float* a,+                                lapack_int lda, float* wr, float* wi, float* vl,+                                lapack_int ldvl, float* vr, lapack_int ldvr,+                                lapack_int* ilo, lapack_int* ihi, float* scale,+                                float* abnrm, float* rconde, float* rcondv,+                                float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n, double* a,+                                lapack_int lda, double* wr, double* wi,+                                double* vl, lapack_int ldvl, double* vr,+                                lapack_int ldvr, lapack_int* ilo,+                                lapack_int* ihi, double* scale, double* abnrm,+                                double* rconde, double* rcondv, double* work,+                                lapack_int lwork, lapack_int* iwork );+lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* w,+                                lapack_complex_float* vl, lapack_int ldvl,+                                lapack_complex_float* vr, lapack_int ldvr,+                                lapack_int* ilo, lapack_int* ihi, float* scale,+                                float* abnrm, float* rconde, float* rcondv,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork );+lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* w,+                                lapack_complex_double* vl, lapack_int ldvl,+                                lapack_complex_double* vr, lapack_int ldvr,+                                lapack_int* ilo, lapack_int* ihi, double* scale,+                                double* abnrm, double* rconde, double* rcondv,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork );++lapack_int LAPACKE_sgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, float* a, lapack_int lda,+                                float* tau, float* work, lapack_int lwork );+lapack_int LAPACKE_dgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, double* a, lapack_int lda,+                                double* tau, double* work, lapack_int lwork );+lapack_int LAPACKE_cgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgehrd_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu,+                                char jobv, char jobr, char jobt, char jobp,+                                lapack_int m, lapack_int n, float* a,+                                lapack_int lda, float* sva, float* u,+                                lapack_int ldu, float* v, lapack_int ldv,+                                float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu,+                                char jobv, char jobr, char jobt, char jobp,+                                lapack_int m, lapack_int n, double* a,+                                lapack_int lda, double* sva, double* u,+                                lapack_int ldu, double* v, lapack_int ldv,+                                double* work, lapack_int lwork,+                                lapack_int* iwork );++lapack_int LAPACKE_sgelq2_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work );+lapack_int LAPACKE_dgelq2_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work );+lapack_int LAPACKE_cgelq2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work );+lapack_int LAPACKE_zgelq2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work );++lapack_int LAPACKE_sgelqf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgelqf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgelqf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgelqf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgels_work( int matrix_order, char trans, lapack_int m,+                               lapack_int n, lapack_int nrhs, float* a,+                               lapack_int lda, float* b, lapack_int ldb,+                               float* work, lapack_int lwork );+lapack_int LAPACKE_dgels_work( int matrix_order, char trans, lapack_int m,+                               lapack_int n, lapack_int nrhs, double* a,+                               lapack_int lda, double* b, lapack_int ldb,+                               double* work, lapack_int lwork );+lapack_int LAPACKE_cgels_work( int matrix_order, char trans, lapack_int m,+                               lapack_int n, lapack_int nrhs,+                               lapack_complex_float* a, lapack_int lda,+                               lapack_complex_float* b, lapack_int ldb,+                               lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgels_work( int matrix_order, char trans, lapack_int m,+                               lapack_int n, lapack_int nrhs,+                               lapack_complex_double* a, lapack_int lda,+                               lapack_complex_double* b, lapack_int ldb,+                               lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgelsd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, float* a, lapack_int lda,+                                float* b, lapack_int ldb, float* s, float rcond,+                                lapack_int* rank, float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dgelsd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double* s,+                                double rcond, lapack_int* rank, double* work,+                                lapack_int lwork, lapack_int* iwork );+lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, float* s, float rcond,+                                lapack_int* rank, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int* iwork );+lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, double* s, double rcond,+                                lapack_int* rank, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int* iwork );++lapack_int LAPACKE_sgelss_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, float* a, lapack_int lda,+                                float* b, lapack_int ldb, float* s, float rcond,+                                lapack_int* rank, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dgelss_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double* s,+                                double rcond, lapack_int* rank, double* work,+                                lapack_int lwork );+lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, float* s, float rcond,+                                lapack_int* rank, lapack_complex_float* work,+                                lapack_int lwork, float* rwork );+lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, double* s, double rcond,+                                lapack_int* rank, lapack_complex_double* work,+                                lapack_int lwork, double* rwork );++lapack_int LAPACKE_sgelsy_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, float* a, lapack_int lda,+                                float* b, lapack_int ldb, lapack_int* jpvt,+                                float rcond, lapack_int* rank, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dgelsy_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, double* a, lapack_int lda,+                                double* b, lapack_int ldb, lapack_int* jpvt,+                                double rcond, lapack_int* rank, double* work,+                                lapack_int lwork );+lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, lapack_int* jpvt, float rcond,+                                lapack_int* rank, lapack_complex_float* work,+                                lapack_int lwork, float* rwork );+lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nrhs, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, lapack_int* jpvt, double rcond,+                                lapack_int* rank, lapack_complex_double* work,+                                lapack_int lwork, double* rwork );++lapack_int LAPACKE_sgeqlf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgeqlf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgeqlf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgeqlf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgeqp3_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, lapack_int* jpvt,+                                float* tau, float* work, lapack_int lwork );+lapack_int LAPACKE_dgeqp3_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, lapack_int* jpvt,+                                double* tau, double* work, lapack_int lwork );+lapack_int LAPACKE_cgeqp3_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* jpvt, lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork );+lapack_int LAPACKE_zgeqp3_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* jpvt, lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork );++lapack_int LAPACKE_sgeqpf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, lapack_int* jpvt,+                                float* tau, float* work );+lapack_int LAPACKE_dgeqpf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, lapack_int* jpvt,+                                double* tau, double* work );+lapack_int LAPACKE_cgeqpf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* jpvt, lapack_complex_float* tau,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgeqpf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* jpvt, lapack_complex_double* tau,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgeqr2_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work );+lapack_int LAPACKE_dgeqr2_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work );+lapack_int LAPACKE_cgeqr2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work );+lapack_int LAPACKE_zgeqr2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work );++lapack_int LAPACKE_sgeqrf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgeqrf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgeqrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgeqrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,+                                 float* a, lapack_int lda, float* tau,+                                 float* work, lapack_int lwork );+lapack_int LAPACKE_dgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,+                                 double* a, lapack_int lda, double* tau,+                                 double* work, lapack_int lwork );+lapack_int LAPACKE_cgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* tau,+                                 lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgeqrfp_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* tau,+                                 lapack_complex_double* work,+                                 lapack_int lwork );++lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                const float* af, lapack_int ldaf,+                                const lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, const double* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_complex_double* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int nrhs, const float* a,+                                 lapack_int lda, const float* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const float* r, const float* c, const float* b,+                                 lapack_int ldb, float* x, lapack_int ldx,+                                 float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int nrhs, const double* a,+                                 lapack_int lda, const double* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const double* r, const double* c,+                                 const double* b, lapack_int ldb, double* x,+                                 lapack_int ldx, double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_float* a, lapack_int lda,+                                 const lapack_complex_float* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const float* r, const float* c,+                                 const lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_double* a, lapack_int lda,+                                 const lapack_complex_double* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const double* r, const double* c,+                                 const lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_sgerqf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgerqf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgerqf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgesdd_work( int matrix_order, char jobz, lapack_int m,+                                lapack_int n, float* a, lapack_int lda,+                                float* s, float* u, lapack_int ldu, float* vt,+                                lapack_int ldvt, float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dgesdd_work( int matrix_order, char jobz, lapack_int m,+                                lapack_int n, double* a, lapack_int lda,+                                double* s, double* u, lapack_int ldu,+                                double* vt, lapack_int ldvt, double* work,+                                lapack_int lwork, lapack_int* iwork );+lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, float* s,+                                lapack_complex_float* u, lapack_int ldu,+                                lapack_complex_float* vt, lapack_int ldvt,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int* iwork );+lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, double* s,+                                lapack_complex_double* u, lapack_int ldu,+                                lapack_complex_double* vt, lapack_int ldvt,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int* iwork );++lapack_int LAPACKE_sgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               float* a, lapack_int lda, lapack_int* ipiv,+                               float* b, lapack_int ldb );+lapack_int LAPACKE_dgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               double* a, lapack_int lda, lapack_int* ipiv,+                               double* b, lapack_int ldb );+lapack_int LAPACKE_cgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               lapack_complex_float* a, lapack_int lda,+                               lapack_int* ipiv, lapack_complex_float* b,+                               lapack_int ldb );+lapack_int LAPACKE_zgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               lapack_complex_double* a, lapack_int lda,+                               lapack_int* ipiv, lapack_complex_double* b,+                               lapack_int ldb );+lapack_int LAPACKE_dsgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                double* a, lapack_int lda, lapack_int* ipiv,+                                double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* work, float* swork,+                                lapack_int* iter );+lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ipiv, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, lapack_complex_double* work,+                                lapack_complex_float* swork, double* rwork,+                                lapack_int* iter );++lapack_int LAPACKE_sgesvd_work( int matrix_order, char jobu, char jobvt,+                                lapack_int m, lapack_int n, float* a,+                                lapack_int lda, float* s, float* u,+                                lapack_int ldu, float* vt, lapack_int ldvt,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgesvd_work( int matrix_order, char jobu, char jobvt,+                                lapack_int m, lapack_int n, double* a,+                                lapack_int lda, double* s, double* u,+                                lapack_int ldu, double* vt, lapack_int ldvt,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgesvd_work( int matrix_order, char jobu, char jobvt,+                                lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                float* s, lapack_complex_float* u,+                                lapack_int ldu, lapack_complex_float* vt,+                                lapack_int ldvt, lapack_complex_float* work,+                                lapack_int lwork, float* rwork );+lapack_int LAPACKE_zgesvd_work( int matrix_order, char jobu, char jobvt,+                                lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                double* s, lapack_complex_double* u,+                                lapack_int ldu, lapack_complex_double* vt,+                                lapack_int ldvt, lapack_complex_double* work,+                                lapack_int lwork, double* rwork );++lapack_int LAPACKE_sgesvj_work( int matrix_order, char joba, char jobu,+                                char jobv, lapack_int m, lapack_int n, float* a,+                                lapack_int lda, float* sva, lapack_int mv,+                                float* v, lapack_int ldv, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dgesvj_work( int matrix_order, char joba, char jobu,+                                char jobv, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* sva,+                                lapack_int mv, double* v, lapack_int ldv,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sgesvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs, float* a,+                                lapack_int lda, float* af, lapack_int ldaf,+                                lapack_int* ipiv, char* equed, float* r,+                                float* c, float* b, lapack_int ldb, float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, float* work, lapack_int* iwork );+lapack_int LAPACKE_dgesvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs, double* a,+                                lapack_int lda, double* af, lapack_int ldaf,+                                lapack_int* ipiv, char* equed, double* r,+                                double* c, double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, double* work, lapack_int* iwork );+lapack_int LAPACKE_cgesvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* af, lapack_int ldaf,+                                lapack_int* ipiv, char* equed, float* r,+                                float* c, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zgesvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* af, lapack_int ldaf,+                                lapack_int* ipiv, char* equed, double* r,+                                double* c, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_sgesvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int nrhs, float* a,+                                 lapack_int lda, float* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, float* r,+                                 float* c, float* b, lapack_int ldb, float* x,+                                 lapack_int ldx, float* rcond, float* rpvgrw,+                                 float* berr, lapack_int n_err_bnds,+                                 float* err_bnds_norm, float* err_bnds_comp,+                                 lapack_int nparams, float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dgesvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int nrhs, double* a,+                                 lapack_int lda, double* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, double* r,+                                 double* c, double* b, lapack_int ldb,+                                 double* x, lapack_int ldx, double* rcond,+                                 double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cgesvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, float* r,+                                 float* c, lapack_complex_float* b,+                                 lapack_int ldb, lapack_complex_float* x,+                                 lapack_int ldx, float* rcond, float* rpvgrw,+                                 float* berr, lapack_int n_err_bnds,+                                 float* err_bnds_norm, float* err_bnds_comp,+                                 lapack_int nparams, float* params,+                                 lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgesvxx_work( int matrix_order, char fact, char trans,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, double* r,+                                 double* c, lapack_complex_double* b,+                                 lapack_int ldb, lapack_complex_double* x,+                                 lapack_int ldx, double* rcond, double* rpvgrw,+                                 double* berr, lapack_int n_err_bnds,+                                 double* err_bnds_norm, double* err_bnds_comp,+                                 lapack_int nparams, double* params,+                                 lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgetf2_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_dgetf2_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_cgetf2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* ipiv );+lapack_int LAPACKE_zgetf2_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ipiv );++lapack_int LAPACKE_sgetrf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_dgetrf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, lapack_int* ipiv );+lapack_int LAPACKE_cgetrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* ipiv );+lapack_int LAPACKE_zgetrf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ipiv );++lapack_int LAPACKE_sgetri_work( int matrix_order, lapack_int n, float* a,+                                lapack_int lda, const lapack_int* ipiv,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dgetri_work( int matrix_order, lapack_int n, double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_cgetri_work( int matrix_order, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgetri_work( int matrix_order, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgetrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                const lapack_int* ipiv, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dgetrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                double* b, lapack_int ldb );+lapack_int LAPACKE_cgetrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zgetrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sggbak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const float* lscale, const float* rscale,+                                lapack_int m, float* v, lapack_int ldv );+lapack_int LAPACKE_dggbak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const double* lscale, const double* rscale,+                                lapack_int m, double* v, lapack_int ldv );+lapack_int LAPACKE_cggbak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const float* lscale, const float* rscale,+                                lapack_int m, lapack_complex_float* v,+                                lapack_int ldv );+lapack_int LAPACKE_zggbak_work( int matrix_order, char job, char side,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                const double* lscale, const double* rscale,+                                lapack_int m, lapack_complex_double* v,+                                lapack_int ldv );++lapack_int LAPACKE_sggbal_work( int matrix_order, char job, lapack_int n,+                                float* a, lapack_int lda, float* b,+                                lapack_int ldb, lapack_int* ilo,+                                lapack_int* ihi, float* lscale, float* rscale,+                                float* work );+lapack_int LAPACKE_dggbal_work( int matrix_order, char job, lapack_int n,+                                double* a, lapack_int lda, double* b,+                                lapack_int ldb, lapack_int* ilo,+                                lapack_int* ihi, double* lscale, double* rscale,+                                double* work );+lapack_int LAPACKE_cggbal_work( int matrix_order, char job, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_int* ilo, lapack_int* ihi, float* lscale,+                                float* rscale, float* work );+lapack_int LAPACKE_zggbal_work( int matrix_order, char job, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_int* ilo, lapack_int* ihi,+                                double* lscale, double* rscale, double* work );++lapack_int LAPACKE_sgges_work( int matrix_order, char jobvsl, char jobvsr,+                               char sort, LAPACK_S_SELECT3 selctg, lapack_int n,+                               float* a, lapack_int lda, float* b,+                               lapack_int ldb, lapack_int* sdim, float* alphar,+                               float* alphai, float* beta, float* vsl,+                               lapack_int ldvsl, float* vsr, lapack_int ldvsr,+                               float* work, lapack_int lwork,+                               lapack_logical* bwork );+lapack_int LAPACKE_dgges_work( int matrix_order, char jobvsl, char jobvsr,+                               char sort, LAPACK_D_SELECT3 selctg, lapack_int n,+                               double* a, lapack_int lda, double* b,+                               lapack_int ldb, lapack_int* sdim, double* alphar,+                               double* alphai, double* beta, double* vsl,+                               lapack_int ldvsl, double* vsr, lapack_int ldvsr,+                               double* work, lapack_int lwork,+                               lapack_logical* bwork );+lapack_int LAPACKE_cgges_work( int matrix_order, char jobvsl, char jobvsr,+                               char sort, LAPACK_C_SELECT2 selctg, lapack_int n,+                               lapack_complex_float* a, lapack_int lda,+                               lapack_complex_float* b, lapack_int ldb,+                               lapack_int* sdim, lapack_complex_float* alpha,+                               lapack_complex_float* beta,+                               lapack_complex_float* vsl, lapack_int ldvsl,+                               lapack_complex_float* vsr, lapack_int ldvsr,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork, lapack_logical* bwork );+lapack_int LAPACKE_zgges_work( int matrix_order, char jobvsl, char jobvsr,+                               char sort, LAPACK_Z_SELECT2 selctg, lapack_int n,+                               lapack_complex_double* a, lapack_int lda,+                               lapack_complex_double* b, lapack_int ldb,+                               lapack_int* sdim, lapack_complex_double* alpha,+                               lapack_complex_double* beta,+                               lapack_complex_double* vsl, lapack_int ldvsl,+                               lapack_complex_double* vsr, lapack_int ldvsr,+                               lapack_complex_double* work, lapack_int lwork,+                               double* rwork, lapack_logical* bwork );++lapack_int LAPACKE_sggesx_work( int matrix_order, char jobvsl, char jobvsr,+                                char sort, LAPACK_S_SELECT3 selctg, char sense,+                                lapack_int n, float* a, lapack_int lda,+                                float* b, lapack_int ldb, lapack_int* sdim,+                                float* alphar, float* alphai, float* beta,+                                float* vsl, lapack_int ldvsl, float* vsr,+                                lapack_int ldvsr, float* rconde, float* rcondv,+                                float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork,+                                lapack_logical* bwork );+lapack_int LAPACKE_dggesx_work( int matrix_order, char jobvsl, char jobvsr,+                                char sort, LAPACK_D_SELECT3 selctg, char sense,+                                lapack_int n, double* a, lapack_int lda,+                                double* b, lapack_int ldb, lapack_int* sdim,+                                double* alphar, double* alphai, double* beta,+                                double* vsl, lapack_int ldvsl, double* vsr,+                                lapack_int ldvsr, double* rconde,+                                double* rcondv, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork,+                                lapack_logical* bwork );+lapack_int LAPACKE_cggesx_work( int matrix_order, char jobvsl, char jobvsr,+                                char sort, LAPACK_C_SELECT2 selctg, char sense,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, lapack_int* sdim,+                                lapack_complex_float* alpha,+                                lapack_complex_float* beta,+                                lapack_complex_float* vsl, lapack_int ldvsl,+                                lapack_complex_float* vsr, lapack_int ldvsr,+                                float* rconde, float* rcondv,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int* iwork,+                                lapack_int liwork, lapack_logical* bwork );+lapack_int LAPACKE_zggesx_work( int matrix_order, char jobvsl, char jobvsr,+                                char sort, LAPACK_Z_SELECT2 selctg, char sense,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, lapack_int* sdim,+                                lapack_complex_double* alpha,+                                lapack_complex_double* beta,+                                lapack_complex_double* vsl, lapack_int ldvsl,+                                lapack_complex_double* vsr, lapack_int ldvsr,+                                double* rconde, double* rcondv,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int* iwork,+                                lapack_int liwork, lapack_logical* bwork );++lapack_int LAPACKE_sggev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, float* a, lapack_int lda, float* b,+                               lapack_int ldb, float* alphar, float* alphai,+                               float* beta, float* vl, lapack_int ldvl,+                               float* vr, lapack_int ldvr, float* work,+                               lapack_int lwork );+lapack_int LAPACKE_dggev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, double* a, lapack_int lda,+                               double* b, lapack_int ldb, double* alphar,+                               double* alphai, double* beta, double* vl,+                               lapack_int ldvl, double* vr, lapack_int ldvr,+                               double* work, lapack_int lwork );+lapack_int LAPACKE_cggev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, lapack_complex_float* a,+                               lapack_int lda, lapack_complex_float* b,+                               lapack_int ldb, lapack_complex_float* alpha,+                               lapack_complex_float* beta,+                               lapack_complex_float* vl, lapack_int ldvl,+                               lapack_complex_float* vr, lapack_int ldvr,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork );+lapack_int LAPACKE_zggev_work( int matrix_order, char jobvl, char jobvr,+                               lapack_int n, lapack_complex_double* a,+                               lapack_int lda, lapack_complex_double* b,+                               lapack_int ldb, lapack_complex_double* alpha,+                               lapack_complex_double* beta,+                               lapack_complex_double* vl, lapack_int ldvl,+                               lapack_complex_double* vr, lapack_int ldvr,+                               lapack_complex_double* work, lapack_int lwork,+                               double* rwork );++lapack_int LAPACKE_sggevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n, float* a,+                                lapack_int lda, float* b, lapack_int ldb,+                                float* alphar, float* alphai, float* beta,+                                float* vl, lapack_int ldvl, float* vr,+                                lapack_int ldvr, lapack_int* ilo,+                                lapack_int* ihi, float* lscale, float* rscale,+                                float* abnrm, float* bbnrm, float* rconde,+                                float* rcondv, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_logical* bwork );+lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                double* alphar, double* alphai, double* beta,+                                double* vl, lapack_int ldvl, double* vr,+                                lapack_int ldvr, lapack_int* ilo,+                                lapack_int* ihi, double* lscale, double* rscale,+                                double* abnrm, double* bbnrm, double* rconde,+                                double* rcondv, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_logical* bwork );+lapack_int LAPACKE_cggevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* alpha,+                                lapack_complex_float* beta,+                                lapack_complex_float* vl, lapack_int ldvl,+                                lapack_complex_float* vr, lapack_int ldvr,+                                lapack_int* ilo, lapack_int* ihi, float* lscale,+                                float* rscale, float* abnrm, float* bbnrm,+                                float* rconde, float* rcondv,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int* iwork,+                                lapack_logical* bwork );+lapack_int LAPACKE_zggevx_work( int matrix_order, char balanc, char jobvl,+                                char jobvr, char sense, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* alpha,+                                lapack_complex_double* beta,+                                lapack_complex_double* vl, lapack_int ldvl,+                                lapack_complex_double* vr, lapack_int ldvr,+                                lapack_int* ilo, lapack_int* ihi,+                                double* lscale, double* rscale, double* abnrm,+                                double* bbnrm, double* rconde, double* rcondv,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int* iwork,+                                lapack_logical* bwork );++lapack_int LAPACKE_sggglm_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, float* a, lapack_int lda,+                                float* b, lapack_int ldb, float* d, float* x,+                                float* y, float* work, lapack_int lwork );+lapack_int LAPACKE_dggglm_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double* d, double* x,+                                double* y, double* work, lapack_int lwork );+lapack_int LAPACKE_cggglm_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* d,+                                lapack_complex_float* x,+                                lapack_complex_float* y,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zggglm_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* d,+                                lapack_complex_double* x,+                                lapack_complex_double* y,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sgghrd_work( int matrix_order, char compq, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                float* a, lapack_int lda, float* b,+                                lapack_int ldb, float* q, lapack_int ldq,+                                float* z, lapack_int ldz );+lapack_int LAPACKE_dgghrd_work( int matrix_order, char compq, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                double* a, lapack_int lda, double* b,+                                lapack_int ldb, double* q, lapack_int ldq,+                                double* z, lapack_int ldz );+lapack_int LAPACKE_cgghrd_work( int matrix_order, char compq, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* z, lapack_int ldz );+lapack_int LAPACKE_zgghrd_work( int matrix_order, char compq, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* z, lapack_int ldz );++lapack_int LAPACKE_sgglse_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int p, float* a, lapack_int lda,+                                float* b, lapack_int ldb, float* c, float* d,+                                float* x, float* work, lapack_int lwork );+lapack_int LAPACKE_dgglse_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int p, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double* c, double* d,+                                double* x, double* work, lapack_int lwork );+lapack_int LAPACKE_cgglse_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int p, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* c,+                                lapack_complex_float* d,+                                lapack_complex_float* x,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zgglse_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int p, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* c,+                                lapack_complex_double* d,+                                lapack_complex_double* x,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sggqrf_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, float* a, lapack_int lda,+                                float* taua, float* b, lapack_int ldb,+                                float* taub, float* work, lapack_int lwork );+lapack_int LAPACKE_dggqrf_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, double* a, lapack_int lda,+                                double* taua, double* b, lapack_int ldb,+                                double* taub, double* work, lapack_int lwork );+lapack_int LAPACKE_cggqrf_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* taua,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* taub,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zggqrf_work( int matrix_order, lapack_int n, lapack_int m,+                                lapack_int p, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* taua,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* taub,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sggrqf_work( int matrix_order, lapack_int m, lapack_int p,+                                lapack_int n, float* a, lapack_int lda,+                                float* taua, float* b, lapack_int ldb,+                                float* taub, float* work, lapack_int lwork );+lapack_int LAPACKE_dggrqf_work( int matrix_order, lapack_int m, lapack_int p,+                                lapack_int n, double* a, lapack_int lda,+                                double* taua, double* b, lapack_int ldb,+                                double* taub, double* work, lapack_int lwork );+lapack_int LAPACKE_cggrqf_work( int matrix_order, lapack_int m, lapack_int p,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* taua,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* taub,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zggrqf_work( int matrix_order, lapack_int m, lapack_int p,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* taua,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* taub,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_sggsvd_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int n,+                                lapack_int p, lapack_int* k, lapack_int* l,+                                float* a, lapack_int lda, float* b,+                                lapack_int ldb, float* alpha, float* beta,+                                float* u, lapack_int ldu, float* v,+                                lapack_int ldv, float* q, lapack_int ldq,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dggsvd_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int n,+                                lapack_int p, lapack_int* k, lapack_int* l,+                                double* a, lapack_int lda, double* b,+                                lapack_int ldb, double* alpha, double* beta,+                                double* u, lapack_int ldu, double* v,+                                lapack_int ldv, double* q, lapack_int ldq,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cggsvd_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int n,+                                lapack_int p, lapack_int* k, lapack_int* l,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                float* alpha, float* beta,+                                lapack_complex_float* u, lapack_int ldu,+                                lapack_complex_float* v, lapack_int ldv,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* work, float* rwork,+                                lapack_int* iwork );+lapack_int LAPACKE_zggsvd_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int n,+                                lapack_int p, lapack_int* k, lapack_int* l,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                double* alpha, double* beta,+                                lapack_complex_double* u, lapack_int ldu,+                                lapack_complex_double* v, lapack_int ldv,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* work, double* rwork,+                                lapack_int* iwork );++lapack_int LAPACKE_sggsvp_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, float* a, lapack_int lda,+                                float* b, lapack_int ldb, float tola,+                                float tolb, lapack_int* k, lapack_int* l,+                                float* u, lapack_int ldu, float* v,+                                lapack_int ldv, float* q, lapack_int ldq,+                                lapack_int* iwork, float* tau, float* work );+lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double tola,+                                double tolb, lapack_int* k, lapack_int* l,+                                double* u, lapack_int ldu, double* v,+                                lapack_int ldv, double* q, lapack_int ldq,+                                lapack_int* iwork, double* tau, double* work );+lapack_int LAPACKE_cggsvp_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb, float tola, float tolb,+                                lapack_int* k, lapack_int* l,+                                lapack_complex_float* u, lapack_int ldu,+                                lapack_complex_float* v, lapack_int ldv,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_int* iwork, float* rwork,+                                lapack_complex_float* tau,+                                lapack_complex_float* work );+lapack_int LAPACKE_zggsvp_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, double tola, double tolb,+                                lapack_int* k, lapack_int* l,+                                lapack_complex_double* u, lapack_int ldu,+                                lapack_complex_double* v, lapack_int ldv,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_int* iwork, double* rwork,+                                lapack_complex_double* tau,+                                lapack_complex_double* work );++lapack_int LAPACKE_sgtcon_work( char norm, lapack_int n, const float* dl,+                                const float* d, const float* du,+                                const float* du2, const lapack_int* ipiv,+                                float anorm, float* rcond, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dgtcon_work( char norm, lapack_int n, const double* dl,+                                const double* d, const double* du,+                                const double* du2, const lapack_int* ipiv,+                                double anorm, double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cgtcon_work( char norm, lapack_int n,+                                const lapack_complex_float* dl,+                                const lapack_complex_float* d,+                                const lapack_complex_float* du,+                                const lapack_complex_float* du2,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work );+lapack_int LAPACKE_zgtcon_work( char norm, lapack_int n,+                                const lapack_complex_double* dl,+                                const lapack_complex_double* d,+                                const lapack_complex_double* du,+                                const lapack_complex_double* du2,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, lapack_complex_double* work );++lapack_int LAPACKE_sgtrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const float* dl,+                                const float* d, const float* du,+                                const float* dlf, const float* df,+                                const float* duf, const float* du2,+                                const lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dgtrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const double* dl,+                                const double* d, const double* du,+                                const double* dlf, const double* df,+                                const double* duf, const double* du2,+                                const lapack_int* ipiv, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cgtrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* dl,+                                const lapack_complex_float* d,+                                const lapack_complex_float* du,+                                const lapack_complex_float* dlf,+                                const lapack_complex_float* df,+                                const lapack_complex_float* duf,+                                const lapack_complex_float* du2,+                                const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgtrfs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* dl,+                                const lapack_complex_double* d,+                                const lapack_complex_double* du,+                                const lapack_complex_double* dlf,+                                const lapack_complex_double* df,+                                const lapack_complex_double* duf,+                                const lapack_complex_double* du2,+                                const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               float* dl, float* d, float* du, float* b,+                               lapack_int ldb );+lapack_int LAPACKE_dgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               double* dl, double* d, double* du, double* b,+                               lapack_int ldb );+lapack_int LAPACKE_cgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               lapack_complex_float* dl,+                               lapack_complex_float* d,+                               lapack_complex_float* du,+                               lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               lapack_complex_double* dl,+                               lapack_complex_double* d,+                               lapack_complex_double* du,+                               lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sgtsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs, const float* dl,+                                const float* d, const float* du, float* dlf,+                                float* df, float* duf, float* du2,+                                lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dgtsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs, const double* dl,+                                const double* d, const double* du, double* dlf,+                                double* df, double* duf, double* du2,+                                lapack_int* ipiv, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cgtsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* dl,+                                const lapack_complex_float* d,+                                const lapack_complex_float* du,+                                lapack_complex_float* dlf,+                                lapack_complex_float* df,+                                lapack_complex_float* duf,+                                lapack_complex_float* du2, lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zgtsvx_work( int matrix_order, char fact, char trans,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* dl,+                                const lapack_complex_double* d,+                                const lapack_complex_double* du,+                                lapack_complex_double* dlf,+                                lapack_complex_double* df,+                                lapack_complex_double* duf,+                                lapack_complex_double* du2, lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sgttrf_work( lapack_int n, float* dl, float* d, float* du,+                                float* du2, lapack_int* ipiv );+lapack_int LAPACKE_dgttrf_work( lapack_int n, double* dl, double* d, double* du,+                                double* du2, lapack_int* ipiv );+lapack_int LAPACKE_cgttrf_work( lapack_int n, lapack_complex_float* dl,+                                lapack_complex_float* d,+                                lapack_complex_float* du,+                                lapack_complex_float* du2, lapack_int* ipiv );+lapack_int LAPACKE_zgttrf_work( lapack_int n, lapack_complex_double* dl,+                                lapack_complex_double* d,+                                lapack_complex_double* du,+                                lapack_complex_double* du2, lapack_int* ipiv );++lapack_int LAPACKE_sgttrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const float* dl,+                                const float* d, const float* du,+                                const float* du2, const lapack_int* ipiv,+                                float* b, lapack_int ldb );+lapack_int LAPACKE_dgttrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const double* dl,+                                const double* d, const double* du,+                                const double* du2, const lapack_int* ipiv,+                                double* b, lapack_int ldb );+lapack_int LAPACKE_cgttrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* dl,+                                const lapack_complex_float* d,+                                const lapack_complex_float* du,+                                const lapack_complex_float* du2,+                                const lapack_int* ipiv, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zgttrs_work( int matrix_order, char trans, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* dl,+                                const lapack_complex_double* d,+                                const lapack_complex_double* du,+                                const lapack_complex_double* du2,+                                const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_chbev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int kd,+                               lapack_complex_float* ab, lapack_int ldab,+                               float* w, lapack_complex_float* z,+                               lapack_int ldz, lapack_complex_float* work,+                               float* rwork );+lapack_int LAPACKE_zhbev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int kd,+                               lapack_complex_double* ab, lapack_int ldab,+                               double* w, lapack_complex_double* z,+                               lapack_int ldz, lapack_complex_double* work,+                               double* rwork );++lapack_int LAPACKE_chbevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int kd,+                                lapack_complex_float* ab, lapack_int ldab,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zhbevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int kd,+                                lapack_complex_double* ab, lapack_int ldab,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_chbevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int kd,+                                lapack_complex_float* ab, lapack_int ldab,+                                lapack_complex_float* q, lapack_int ldq,+                                float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                float* rwork, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_zhbevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int kd,+                                lapack_complex_double* ab, lapack_int ldab,+                                lapack_complex_double* q, lapack_int ldq,+                                double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                double* rwork, lapack_int* iwork,+                                lapack_int* ifail );++lapack_int LAPACKE_chbgst_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                lapack_complex_float* ab, lapack_int ldab,+                                const lapack_complex_float* bb, lapack_int ldbb,+                                lapack_complex_float* x, lapack_int ldx,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zhbgst_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                lapack_complex_double* ab, lapack_int ldab,+                                const lapack_complex_double* bb,+                                lapack_int ldbb, lapack_complex_double* x,+                                lapack_int ldx, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_chbgv_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int ka, lapack_int kb,+                               lapack_complex_float* ab, lapack_int ldab,+                               lapack_complex_float* bb, lapack_int ldbb,+                               float* w, lapack_complex_float* z,+                               lapack_int ldz, lapack_complex_float* work,+                               float* rwork );+lapack_int LAPACKE_zhbgv_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int ka, lapack_int kb,+                               lapack_complex_double* ab, lapack_int ldab,+                               lapack_complex_double* bb, lapack_int ldbb,+                               double* w, lapack_complex_double* z,+                               lapack_int ldz, lapack_complex_double* work,+                               double* rwork );++lapack_int LAPACKE_chbgvd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                lapack_complex_float* ab, lapack_int ldab,+                                lapack_complex_float* bb, lapack_int ldbb,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zhbgvd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                lapack_complex_double* ab, lapack_int ldab,+                                lapack_complex_double* bb, lapack_int ldbb,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_chbgvx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int ka,+                                lapack_int kb, lapack_complex_float* ab,+                                lapack_int ldab, lapack_complex_float* bb,+                                lapack_int ldbb, lapack_complex_float* q,+                                lapack_int ldq, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, float* rwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_zhbgvx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int ka,+                                lapack_int kb, lapack_complex_double* ab,+                                lapack_int ldab, lapack_complex_double* bb,+                                lapack_int ldbb, lapack_complex_double* q,+                                lapack_int ldq, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, double* rwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_chbtrd_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int kd,+                                lapack_complex_float* ab, lapack_int ldab,+                                float* d, float* e, lapack_complex_float* q,+                                lapack_int ldq, lapack_complex_float* work );+lapack_int LAPACKE_zhbtrd_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int kd,+                                lapack_complex_double* ab, lapack_int ldab,+                                double* d, double* e, lapack_complex_double* q,+                                lapack_int ldq, lapack_complex_double* work );++lapack_int LAPACKE_checon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work );+lapack_int LAPACKE_zhecon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, lapack_complex_double* work );++lapack_int LAPACKE_cheequb_work( int matrix_order, char uplo, lapack_int n,+                                 const lapack_complex_float* a, lapack_int lda,+                                 float* s, float* scond, float* amax,+                                 lapack_complex_float* work );+lapack_int LAPACKE_zheequb_work( int matrix_order, char uplo, lapack_int n,+                                 const lapack_complex_double* a, lapack_int lda,+                                 double* s, double* scond, double* amax,+                                 lapack_complex_double* work );++lapack_int LAPACKE_cheev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_complex_float* a,+                               lapack_int lda, float* w,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork );+lapack_int LAPACKE_zheev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_complex_double* a,+                               lapack_int lda, double* w,+                               lapack_complex_double* work, lapack_int lwork,+                               double* rwork );++lapack_int LAPACKE_cheevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, float* w,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_zheevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, double* w,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_cheevr_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_int* isuppz,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_zheevr_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_int* isuppz,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_cheevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_zheevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_chegst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zhegst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda, const lapack_complex_double* b,+                                lapack_int ldb );++lapack_int LAPACKE_chegv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n, lapack_complex_float* a,+                               lapack_int lda, lapack_complex_float* b,+                               lapack_int ldb, float* w,+                               lapack_complex_float* work, lapack_int lwork,+                               float* rwork );+lapack_int LAPACKE_zhegv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n,+                               lapack_complex_double* a, lapack_int lda,+                               lapack_complex_double* b, lapack_int ldb,+                               double* w, lapack_complex_double* work,+                               lapack_int lwork, double* rwork );++lapack_int LAPACKE_chegvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                float* w, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zhegvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                double* w, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_chegvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_zhegvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_cherfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zherfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_complex_double* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_float* a, lapack_int lda,+                                 const lapack_complex_float* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const float* s, const lapack_complex_float* b,+                                 lapack_int ldb, lapack_complex_float* x,+                                 lapack_int ldx, float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_double* a, lapack_int lda,+                                 const lapack_complex_double* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const double* s,+                                 const lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_chesv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* a,+                               lapack_int lda, lapack_int* ipiv,+                               lapack_complex_float* b, lapack_int ldb,+                               lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zhesv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* a,+                               lapack_int lda, lapack_int* ipiv,+                               lapack_complex_double* b, lapack_int ldb,+                               lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* af, lapack_int ldaf,+                                lapack_int* ipiv, const lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                lapack_int lwork, float* rwork );+lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* af, lapack_int ldaf,+                                lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork );++lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, float* s,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* rpvgrw, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, double* s,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_chetrd_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                float* d, float* e, lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zhetrd_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                double* d, double* e,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_chetrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* ipiv, lapack_complex_float* work,+                                lapack_int lwork );+lapack_int LAPACKE_zhetrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ipiv, lapack_complex_double* work,+                                lapack_int lwork );++lapack_int LAPACKE_chetri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_float* work );+lapack_int LAPACKE_zhetri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_double* work );++lapack_int LAPACKE_chetrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zhetrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_chfrk_work( int matrix_order, char transr, char uplo,+                               char trans, lapack_int n, lapack_int k,+                               float alpha, const lapack_complex_float* a,+                               lapack_int lda, float beta,+                               lapack_complex_float* c );+lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo,+                               char trans, lapack_int n, lapack_int k,+                               double alpha, const lapack_complex_double* a,+                               lapack_int lda, double beta,+                               lapack_complex_double* c );++lapack_int LAPACKE_shgeqz_work( int matrix_order, char job, char compq,+                                char compz, lapack_int n, lapack_int ilo,+                                lapack_int ihi, float* h, lapack_int ldh,+                                float* t, lapack_int ldt, float* alphar,+                                float* alphai, float* beta, float* q,+                                lapack_int ldq, float* z, lapack_int ldz,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dhgeqz_work( int matrix_order, char job, char compq,+                                char compz, lapack_int n, lapack_int ilo,+                                lapack_int ihi, double* h, lapack_int ldh,+                                double* t, lapack_int ldt, double* alphar,+                                double* alphai, double* beta, double* q,+                                lapack_int ldq, double* z, lapack_int ldz,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq,+                                char compz, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_float* h,+                                lapack_int ldh, lapack_complex_float* t,+                                lapack_int ldt, lapack_complex_float* alpha,+                                lapack_complex_float* beta,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork );+lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq,+                                char compz, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_double* h,+                                lapack_int ldh, lapack_complex_double* t,+                                lapack_int ldt, lapack_complex_double* alpha,+                                lapack_complex_double* beta,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork );++lapack_int LAPACKE_chpcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work );+lapack_int LAPACKE_zhpcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, lapack_complex_double* work );++lapack_int LAPACKE_chpev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_complex_float* ap, float* w,+                               lapack_complex_float* z, lapack_int ldz,+                               lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zhpev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_complex_double* ap,+                               double* w, lapack_complex_double* z,+                               lapack_int ldz, lapack_complex_double* work,+                               double* rwork );++lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_complex_float* ap,+                                float* w, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_complex_double* ap,+                                double* w, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_float* ap, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, float* rwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n,+                                lapack_complex_double* ap, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, double* rwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_chpgst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, lapack_complex_float* ap,+                                const lapack_complex_float* bp );+lapack_int LAPACKE_zhpgst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, lapack_complex_double* ap,+                                const lapack_complex_double* bp );++lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n,+                               lapack_complex_float* ap,+                               lapack_complex_float* bp, float* w,+                               lapack_complex_float* z, lapack_int ldz,+                               lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n,+                               lapack_complex_double* ap,+                               lapack_complex_double* bp, double* w,+                               lapack_complex_double* z, lapack_int ldz,+                               lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n,+                                lapack_complex_float* ap,+                                lapack_complex_float* bp, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n,+                                lapack_complex_double* ap,+                                lapack_complex_double* bp, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork, lapack_int lrwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n,+                                lapack_complex_float* ap,+                                lapack_complex_float* bp, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, float* rwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n,+                                lapack_complex_double* ap,+                                lapack_complex_double* bp, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, double* rwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                const lapack_complex_float* afp,+                                const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* afp,+                                const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_chpsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* ap,+                               lapack_int* ipiv, lapack_complex_float* b,+                               lapack_int ldb );+lapack_int LAPACKE_zhpsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* ap,+                               lapack_int* ipiv, lapack_complex_double* b,+                               lapack_int ldb );++lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* ap,+                                lapack_complex_float* afp, lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* ap,+                                lapack_complex_double* afp, lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_chptrd_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap, float* d, float* e,+                                lapack_complex_float* tau );+lapack_int LAPACKE_zhptrd_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap, double* d, double* e,+                                lapack_complex_double* tau );++lapack_int LAPACKE_chptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap, lapack_int* ipiv );+lapack_int LAPACKE_zhptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap, lapack_int* ipiv );++lapack_int LAPACKE_chptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap,+                                const lapack_int* ipiv,+                                lapack_complex_float* work );+lapack_int LAPACKE_zhptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap,+                                const lapack_int* ipiv,+                                lapack_complex_double* work );++lapack_int LAPACKE_chptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                const lapack_int* ipiv, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zhptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_shsein_work( int matrix_order, char job, char eigsrc,+                                char initv, lapack_logical* select,+                                lapack_int n, const float* h, lapack_int ldh,+                                float* wr, const float* wi, float* vl,+                                lapack_int ldvl, float* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m, float* work,+                                lapack_int* ifaill, lapack_int* ifailr );+lapack_int LAPACKE_dhsein_work( int matrix_order, char job, char eigsrc,+                                char initv, lapack_logical* select,+                                lapack_int n, const double* h, lapack_int ldh,+                                double* wr, const double* wi, double* vl,+                                lapack_int ldvl, double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m, double* work,+                                lapack_int* ifaill, lapack_int* ifailr );+lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc,+                                char initv, const lapack_logical* select,+                                lapack_int n, const lapack_complex_float* h,+                                lapack_int ldh, lapack_complex_float* w,+                                lapack_complex_float* vl, lapack_int ldvl,+                                lapack_complex_float* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_float* work, float* rwork,+                                lapack_int* ifaill, lapack_int* ifailr );+lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc,+                                char initv, const lapack_logical* select,+                                lapack_int n, const lapack_complex_double* h,+                                lapack_int ldh, lapack_complex_double* w,+                                lapack_complex_double* vl, lapack_int ldvl,+                                lapack_complex_double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_double* work, double* rwork,+                                lapack_int* ifaill, lapack_int* ifailr );++lapack_int LAPACKE_shseqr_work( int matrix_order, char job, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                float* h, lapack_int ldh, float* wr, float* wi,+                                float* z, lapack_int ldz, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dhseqr_work( int matrix_order, char job, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                double* h, lapack_int ldh, double* wr,+                                double* wi, double* z, lapack_int ldz,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                lapack_complex_float* h, lapack_int ldh,+                                lapack_complex_float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz,+                                lapack_int n, lapack_int ilo, lapack_int ihi,+                                lapack_complex_double* h, lapack_int ldh,+                                lapack_complex_double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_clacgv_work( lapack_int n, lapack_complex_float* x,+                                lapack_int incx );+lapack_int LAPACKE_zlacgv_work( lapack_int n, lapack_complex_double* x,+                                lapack_int incx );++lapack_int LAPACKE_slacpy_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, const float* a, lapack_int lda,+                                float* b, lapack_int ldb );+lapack_int LAPACKE_dlacpy_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, const double* a, lapack_int lda,+                                double* b, lapack_int ldb );+lapack_int LAPACKE_clacpy_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, const lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zlacpy_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, const lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb );++lapack_int LAPACKE_zlag2c_work( int matrix_order, lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                lapack_complex_float* sa, lapack_int ldsa );++lapack_int LAPACKE_slag2d_work( int matrix_order, lapack_int m, lapack_int n,+                                const float* sa, lapack_int ldsa, double* a,+                                lapack_int lda );++lapack_int LAPACKE_dlag2s_work( int matrix_order, lapack_int m, lapack_int n,+                                const double* a, lapack_int lda, float* sa,+                                lapack_int ldsa );++lapack_int LAPACKE_clag2z_work( int matrix_order, lapack_int m, lapack_int n,+                                const lapack_complex_float* sa, lapack_int ldsa,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_slagge_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const float* d,+                                float* a, lapack_int lda, lapack_int* iseed,+                                float* work );+lapack_int LAPACKE_dlagge_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const double* d,+                                double* a, lapack_int lda, lapack_int* iseed,+                                double* work );+lapack_int LAPACKE_clagge_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const float* d,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* iseed, lapack_complex_float* work );+lapack_int LAPACKE_zlagge_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int kl, lapack_int ku, const double* d,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* iseed,+                                lapack_complex_double* work );+                                +float LAPACKE_slamch_work( char cmach );+double LAPACKE_dlamch_work( char cmach );++float LAPACKE_slange_work( int matrix_order, char norm, lapack_int m,+                                lapack_int n, const float* a, lapack_int lda,+                                float* work );+double LAPACKE_dlange_work( int matrix_order, char norm, lapack_int m,+                                lapack_int n, const double* a, lapack_int lda,+                                double* work );+float LAPACKE_clange_work( int matrix_order, char norm, lapack_int m,+                                lapack_int n, const lapack_complex_float* a,+                                lapack_int lda, float* work );+double LAPACKE_zlange_work( int matrix_order, char norm, lapack_int m,+                                lapack_int n, const lapack_complex_double* a,+                                lapack_int lda, double* work );++float LAPACKE_clanhe_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const lapack_complex_float* a,+                                lapack_int lda, float* work );+double LAPACKE_zlanhe_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const lapack_complex_double* a,+                                lapack_int lda, double* work );++float LAPACKE_slansy_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const float* a, lapack_int lda,+                                float* work );+double LAPACKE_dlansy_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const double* a, lapack_int lda,+                                double* work );+float LAPACKE_clansy_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const lapack_complex_float* a,+                                lapack_int lda, float* work );+double LAPACKE_zlansy_work( int matrix_order, char norm, char uplo,+                                lapack_int n, const lapack_complex_double* a,+                                lapack_int lda, double* work );++float LAPACKE_slantr_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int m, lapack_int n, const float* a,+                                lapack_int lda, float* work );+double LAPACKE_dlantr_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int m, lapack_int n,+                                const double* a, lapack_int lda, double* work );+float LAPACKE_clantr_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int m, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float* work );+double LAPACKE_zlantr_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double* work );++lapack_int LAPACKE_slarfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, const float* v,+                                lapack_int ldv, const float* t, lapack_int ldt,+                                float* c, lapack_int ldc, float* work,+                                lapack_int ldwork );+lapack_int LAPACKE_dlarfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, const double* v,+                                lapack_int ldv, const double* t, lapack_int ldt,+                                double* c, lapack_int ldc, double* work,+                                lapack_int ldwork );+lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k,+                                const lapack_complex_float* v, lapack_int ldv,+                                const lapack_complex_float* t, lapack_int ldt,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int ldwork );+lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k,+                                const lapack_complex_double* v, lapack_int ldv,+                                const lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work,+                                lapack_int ldwork );++lapack_int LAPACKE_slarfg_work( lapack_int n, float* alpha, float* x,+                                lapack_int incx, float* tau );+lapack_int LAPACKE_dlarfg_work( lapack_int n, double* alpha, double* x,+                                lapack_int incx, double* tau );+lapack_int LAPACKE_clarfg_work( lapack_int n, lapack_complex_float* alpha,+                                lapack_complex_float* x, lapack_int incx,+                                lapack_complex_float* tau );+lapack_int LAPACKE_zlarfg_work( lapack_int n, lapack_complex_double* alpha,+                                lapack_complex_double* x, lapack_int incx,+                                lapack_complex_double* tau );++lapack_int LAPACKE_slarft_work( int matrix_order, char direct, char storev,+                                lapack_int n, lapack_int k, const float* v,+                                lapack_int ldv, const float* tau, float* t,+                                lapack_int ldt );+lapack_int LAPACKE_dlarft_work( int matrix_order, char direct, char storev,+                                lapack_int n, lapack_int k, const double* v,+                                lapack_int ldv, const double* tau, double* t,+                                lapack_int ldt );+lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev,+                                lapack_int n, lapack_int k,+                                const lapack_complex_float* v, lapack_int ldv,+                                const lapack_complex_float* tau,+                                lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev,+                                lapack_int n, lapack_int k,+                                const lapack_complex_double* v, lapack_int ldv,+                                const lapack_complex_double* tau,+                                lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_slarfx_work( int matrix_order, char side, lapack_int m,+                                lapack_int n, const float* v, float tau,+                                float* c, lapack_int ldc, float* work );+lapack_int LAPACKE_dlarfx_work( int matrix_order, char side, lapack_int m,+                                lapack_int n, const double* v, double tau,+                                double* c, lapack_int ldc, double* work );+lapack_int LAPACKE_clarfx_work( int matrix_order, char side, lapack_int m,+                                lapack_int n, const lapack_complex_float* v,+                                lapack_complex_float tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work );+lapack_int LAPACKE_zlarfx_work( int matrix_order, char side, lapack_int m,+                                lapack_int n, const lapack_complex_double* v,+                                lapack_complex_double tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work );++lapack_int LAPACKE_slarnv_work( lapack_int idist, lapack_int* iseed,+                                lapack_int n, float* x );+lapack_int LAPACKE_dlarnv_work( lapack_int idist, lapack_int* iseed,+                                lapack_int n, double* x );+lapack_int LAPACKE_clarnv_work( lapack_int idist, lapack_int* iseed,+                                lapack_int n, lapack_complex_float* x );+lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed,+                                lapack_int n, lapack_complex_double* x );++lapack_int LAPACKE_slaset_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, float alpha, float beta, float* a,+                                lapack_int lda );+lapack_int LAPACKE_dlaset_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, double alpha, double beta,+                                double* a, lapack_int lda );+lapack_int LAPACKE_claset_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, lapack_complex_float alpha,+                                lapack_complex_float beta,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m,+                                lapack_int n, lapack_complex_double alpha,+                                lapack_complex_double beta,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d );+lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d );++lapack_int LAPACKE_slaswp_work( int matrix_order, lapack_int n, float* a,+                                lapack_int lda, lapack_int k1, lapack_int k2,+                                const lapack_int* ipiv, lapack_int incx );+lapack_int LAPACKE_dlaswp_work( int matrix_order, lapack_int n, double* a,+                                lapack_int lda, lapack_int k1, lapack_int k2,+                                const lapack_int* ipiv, lapack_int incx );+lapack_int LAPACKE_claswp_work( int matrix_order, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int k1, lapack_int k2,+                                const lapack_int* ipiv, lapack_int incx );+lapack_int LAPACKE_zlaswp_work( int matrix_order, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int k1, lapack_int k2,+                                const lapack_int* ipiv, lapack_int incx );++lapack_int LAPACKE_slatms_work( int matrix_order, lapack_int m, lapack_int n,+                                char dist, lapack_int* iseed, char sym,+                                float* d, lapack_int mode, float cond,+                                float dmax, lapack_int kl, lapack_int ku,+                                char pack, float* a, lapack_int lda,+                                float* work );+lapack_int LAPACKE_dlatms_work( int matrix_order, lapack_int m, lapack_int n,+                                char dist, lapack_int* iseed, char sym,+                                double* d, lapack_int mode, double cond,+                                double dmax, lapack_int kl, lapack_int ku,+                                char pack, double* a, lapack_int lda,+                                double* work );+lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n,+                                char dist, lapack_int* iseed, char sym,+                                float* d, lapack_int mode, float cond,+                                float dmax, lapack_int kl, lapack_int ku,+                                char pack, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* work );+lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n,+                                char dist, lapack_int* iseed, char sym,+                                double* d, lapack_int mode, double cond,+                                double dmax, lapack_int kl, lapack_int ku,+                                char pack, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* work );++lapack_int LAPACKE_slauum_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda );+lapack_int LAPACKE_dlauum_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda );+lapack_int LAPACKE_clauum_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zlauum_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_sopgtr_work( int matrix_order, char uplo, lapack_int n,+                                const float* ap, const float* tau, float* q,+                                lapack_int ldq, float* work );+lapack_int LAPACKE_dopgtr_work( int matrix_order, char uplo, lapack_int n,+                                const double* ap, const double* tau, double* q,+                                lapack_int ldq, double* work );++lapack_int LAPACKE_sopmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const float* ap, const float* tau, float* c,+                                lapack_int ldc, float* work );+lapack_int LAPACKE_dopmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const double* ap, const double* tau, double* c,+                                lapack_int ldc, double* work );++lapack_int LAPACKE_sorgbr_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int k, float* a,+                                lapack_int lda, const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorgbr_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int k, double* a,+                                lapack_int lda, const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorghr_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, float* a, lapack_int lda,+                                const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorghr_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, double* a, lapack_int lda,+                                const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorglq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, float* a, lapack_int lda,+                                const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorglq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, double* a, lapack_int lda,+                                const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorgql_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, float* a, lapack_int lda,+                                const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorgql_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, double* a, lapack_int lda,+                                const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorgqr_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, float* a, lapack_int lda,+                                const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorgqr_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, double* a, lapack_int lda,+                                const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorgrq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, float* a, lapack_int lda,+                                const float* tau, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorgrq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, double* a, lapack_int lda,+                                const double* tau, double* work,+                                lapack_int lwork );++lapack_int LAPACKE_sorgtr_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda, const float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dorgtr_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda, const double* tau,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormbr_work( int matrix_order, char vect, char side,+                                char trans, lapack_int m, lapack_int n,+                                lapack_int k, const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormbr_work( int matrix_order, char vect, char side,+                                char trans, lapack_int m, lapack_int n,+                                lapack_int k, const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormhr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int ilo,+                                lapack_int ihi, const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormhr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int ilo,+                                lapack_int ihi, const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormlq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormlq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormql_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormql_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormqr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormqr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormrq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormrq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormrz_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                lapack_int l, const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormrz_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                lapack_int l, const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_sormtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const float* a, lapack_int lda,+                                const float* tau, float* c, lapack_int ldc,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dormtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const double* a, lapack_int lda,+                                const double* tau, double* c, lapack_int ldc,+                                double* work, lapack_int lwork );++lapack_int LAPACKE_spbcon_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const float* ab, lapack_int ldab,+                                float anorm, float* rcond, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dpbcon_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const double* ab,+                                lapack_int ldab, double anorm, double* rcond,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cpbcon_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const lapack_complex_float* ab,+                                lapack_int ldab, float anorm, float* rcond,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zpbcon_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const lapack_complex_double* ab,+                                lapack_int ldab, double anorm, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_spbequ_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const float* ab, lapack_int ldab,+                                float* s, float* scond, float* amax );+lapack_int LAPACKE_dpbequ_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const double* ab,+                                lapack_int ldab, double* s, double* scond,+                                double* amax );+lapack_int LAPACKE_cpbequ_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const lapack_complex_float* ab,+                                lapack_int ldab, float* s, float* scond,+                                float* amax );+lapack_int LAPACKE_zpbequ_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, const lapack_complex_double* ab,+                                lapack_int ldab, double* s, double* scond,+                                double* amax );++lapack_int LAPACKE_spbrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs, const float* ab,+                                lapack_int ldab, const float* afb,+                                lapack_int ldafb, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dpbrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const double* ab, lapack_int ldab,+                                const double* afb, lapack_int ldafb,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const lapack_complex_float* ab, lapack_int ldab,+                                const lapack_complex_float* afb,+                                lapack_int ldafb, const lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab,+                                const lapack_complex_double* afb,+                                lapack_int ldafb,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_spbstf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kb, float* bb, lapack_int ldbb );+lapack_int LAPACKE_dpbstf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kb, double* bb, lapack_int ldbb );+lapack_int LAPACKE_cpbstf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kb, lapack_complex_float* bb,+                                lapack_int ldbb );+lapack_int LAPACKE_zpbstf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kb, lapack_complex_double* bb,+                                lapack_int ldbb );++lapack_int LAPACKE_spbsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int kd, lapack_int nrhs, float* ab,+                               lapack_int ldab, float* b, lapack_int ldb );+lapack_int LAPACKE_dpbsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int kd, lapack_int nrhs, double* ab,+                               lapack_int ldab, double* b, lapack_int ldb );+lapack_int LAPACKE_cpbsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int kd, lapack_int nrhs,+                               lapack_complex_float* ab, lapack_int ldab,+                               lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpbsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int kd, lapack_int nrhs,+                               lapack_complex_double* ab, lapack_int ldab,+                               lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spbsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int kd, lapack_int nrhs,+                                float* ab, lapack_int ldab, float* afb,+                                lapack_int ldafb, char* equed, float* s,+                                float* b, lapack_int ldb, float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, float* work, lapack_int* iwork );+lapack_int LAPACKE_dpbsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int kd, lapack_int nrhs,+                                double* ab, lapack_int ldab, double* afb,+                                lapack_int ldafb, char* equed, double* s,+                                double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, double* work, lapack_int* iwork );+lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int kd, lapack_int nrhs,+                                lapack_complex_float* ab, lapack_int ldab,+                                lapack_complex_float* afb, lapack_int ldafb,+                                char* equed, float* s, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int kd, lapack_int nrhs,+                                lapack_complex_double* ab, lapack_int ldab,+                                lapack_complex_double* afb, lapack_int ldafb,+                                char* equed, double* s,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_spbtrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, float* ab, lapack_int ldab );+lapack_int LAPACKE_dpbtrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, double* ab, lapack_int ldab );+lapack_int LAPACKE_cpbtrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_complex_float* ab,+                                lapack_int ldab );+lapack_int LAPACKE_zpbtrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_complex_double* ab,+                                lapack_int ldab );++lapack_int LAPACKE_spbtrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs, const float* ab,+                                lapack_int ldab, float* b, lapack_int ldb );+lapack_int LAPACKE_dpbtrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const double* ab, lapack_int ldab, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_cpbtrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const lapack_complex_float* ab, lapack_int ldab,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpbtrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int kd, lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab, lapack_complex_double* b,+                                lapack_int ldb );++lapack_int LAPACKE_spftrf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, float* a );+lapack_int LAPACKE_dpftrf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, double* a );+lapack_int LAPACKE_cpftrf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_complex_float* a );+lapack_int LAPACKE_zpftrf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_complex_double* a );++lapack_int LAPACKE_spftri_work( int matrix_order, char transr, char uplo,+                                lapack_int n, float* a );+lapack_int LAPACKE_dpftri_work( int matrix_order, char transr, char uplo,+                                lapack_int n, double* a );+lapack_int LAPACKE_cpftri_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_complex_float* a );+lapack_int LAPACKE_zpftri_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_complex_double* a );++lapack_int LAPACKE_spftrs_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_int nrhs, const float* a,+                                float* b, lapack_int ldb );+lapack_int LAPACKE_dpftrs_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_int nrhs, const double* a,+                                double* b, lapack_int ldb );+lapack_int LAPACKE_cpftrs_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* a,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpftrs_work( int matrix_order, char transr, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* a,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spocon_work( int matrix_order, char uplo, lapack_int n,+                                const float* a, lapack_int lda, float anorm,+                                float* rcond, float* work, lapack_int* iwork );+lapack_int LAPACKE_dpocon_work( int matrix_order, char uplo, lapack_int n,+                                const double* a, lapack_int lda, double anorm,+                                double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cpocon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float anorm, float* rcond,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zpocon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double anorm, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_spoequ_work( int matrix_order, lapack_int n, const float* a,+                                lapack_int lda, float* s, float* scond,+                                float* amax );+lapack_int LAPACKE_dpoequ_work( int matrix_order, lapack_int n, const double* a,+                                lapack_int lda, double* s, double* scond,+                                double* amax );+lapack_int LAPACKE_cpoequ_work( int matrix_order, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float* s, float* scond, float* amax );+lapack_int LAPACKE_zpoequ_work( int matrix_order, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double* s, double* scond, double* amax );++lapack_int LAPACKE_spoequb_work( int matrix_order, lapack_int n, const float* a,+                                 lapack_int lda, float* s, float* scond,+                                 float* amax );+lapack_int LAPACKE_dpoequb_work( int matrix_order, lapack_int n,+                                 const double* a, lapack_int lda, double* s,+                                 double* scond, double* amax );+lapack_int LAPACKE_cpoequb_work( int matrix_order, lapack_int n,+                                 const lapack_complex_float* a, lapack_int lda,+                                 float* s, float* scond, float* amax );+lapack_int LAPACKE_zpoequb_work( int matrix_order, lapack_int n,+                                 const lapack_complex_double* a, lapack_int lda,+                                 double* s, double* scond, double* amax );++lapack_int LAPACKE_sporfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                const float* af, lapack_int ldaf,+                                const float* b, lapack_int ldb, float* x,+                                lapack_int ldx, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dporfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, const double* af,+                                lapack_int ldaf, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* af,+                                lapack_int ldaf, const lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_complex_double* af,+                                lapack_int ldaf, const lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs, const float* a,+                                 lapack_int lda, const float* af,+                                 lapack_int ldaf, const float* s,+                                 const float* b, lapack_int ldb, float* x,+                                 lapack_int ldx, float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs, const double* a,+                                 lapack_int lda, const double* af,+                                 lapack_int ldaf, const double* s,+                                 const double* b, lapack_int ldb, double* x,+                                 lapack_int ldx, double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_float* a, lapack_int lda,+                                 const lapack_complex_float* af,+                                 lapack_int ldaf, const float* s,+                                 const lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_double* a, lapack_int lda,+                                 const lapack_complex_double* af,+                                 lapack_int ldaf, const double* s,+                                 const lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_sposv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, float* a, lapack_int lda,+                               float* b, lapack_int ldb );+lapack_int LAPACKE_dposv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, double* a, lapack_int lda,+                               double* b, lapack_int ldb );+lapack_int LAPACKE_cposv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* a,+                               lapack_int lda, lapack_complex_float* b,+                               lapack_int ldb );+lapack_int LAPACKE_zposv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* a,+                               lapack_int lda, lapack_complex_double* b,+                               lapack_int ldb );+lapack_int LAPACKE_dsposv_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, double* a, lapack_int lda,+                                double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* work, float* swork,+                                lapack_int* iter );+lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, lapack_complex_double* work,+                                lapack_complex_float* swork, double* rwork,+                                lapack_int* iter );++lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, float* a,+                                lapack_int lda, float* af, lapack_int ldaf,+                                char* equed, float* s, float* b, lapack_int ldb,+                                float* x, lapack_int ldx, float* rcond,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, double* a,+                                lapack_int lda, double* af, lapack_int ldaf,+                                char* equed, double* s, double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* af, lapack_int ldaf,+                                char* equed, float* s, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* af, lapack_int ldaf,+                                char* equed, double* s,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs, float* a,+                                 lapack_int lda, float* af, lapack_int ldaf,+                                 char* equed, float* s, float* b,+                                 lapack_int ldb, float* x, lapack_int ldx,+                                 float* rcond, float* rpvgrw, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs, double* a,+                                 lapack_int lda, double* af, lapack_int ldaf,+                                 char* equed, double* s, double* b,+                                 lapack_int ldb, double* x, lapack_int ldx,+                                 double* rcond, double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* af, lapack_int ldaf,+                                 char* equed, float* s, lapack_complex_float* b,+                                 lapack_int ldb, lapack_complex_float* x,+                                 lapack_int ldx, float* rcond, float* rpvgrw,+                                 float* berr, lapack_int n_err_bnds,+                                 float* err_bnds_norm, float* err_bnds_comp,+                                 lapack_int nparams, float* params,+                                 lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* af, lapack_int ldaf,+                                 char* equed, double* s,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_spotrf_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda );+lapack_int LAPACKE_dpotrf_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda );+lapack_int LAPACKE_cpotrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zpotrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_spotri_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda );+lapack_int LAPACKE_dpotri_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda );+lapack_int LAPACKE_cpotri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_zpotri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_spotrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                float* b, lapack_int ldb );+lapack_int LAPACKE_dpotrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, double* b, lapack_int ldb );+lapack_int LAPACKE_cpotrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zpotrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* b,+                                lapack_int ldb );++lapack_int LAPACKE_sppcon_work( int matrix_order, char uplo, lapack_int n,+                                const float* ap, float anorm, float* rcond,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dppcon_work( int matrix_order, char uplo, lapack_int n,+                                const double* ap, double anorm, double* rcond,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cppcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap, float anorm,+                                float* rcond, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zppcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap, double anorm,+                                double* rcond, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_sppequ_work( int matrix_order, char uplo, lapack_int n,+                                const float* ap, float* s, float* scond,+                                float* amax );+lapack_int LAPACKE_dppequ_work( int matrix_order, char uplo, lapack_int n,+                                const double* ap, double* s, double* scond,+                                double* amax );+lapack_int LAPACKE_cppequ_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap, float* s,+                                float* scond, float* amax );+lapack_int LAPACKE_zppequ_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap, double* s,+                                double* scond, double* amax );++lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* ap,+                                const float* afp, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* ap,+                                const double* afp, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                const lapack_complex_float* afp,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* afp,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sppsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, float* ap, float* b,+                               lapack_int ldb );+lapack_int LAPACKE_dppsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, double* ap, double* b,+                               lapack_int ldb );+lapack_int LAPACKE_cppsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* ap,+                               lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zppsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* ap,+                               lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, float* ap,+                                float* afp, char* equed, float* s, float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, double* ap,+                                double* afp, char* equed, double* s, double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_float* ap,+                                lapack_complex_float* afp, char* equed,+                                float* s, lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                lapack_complex_double* ap,+                                lapack_complex_double* afp, char* equed,+                                double* s, lapack_complex_double* b,+                                lapack_int ldb, lapack_complex_double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_spptrf_work( int matrix_order, char uplo, lapack_int n,+                                float* ap );+lapack_int LAPACKE_dpptrf_work( int matrix_order, char uplo, lapack_int n,+                                double* ap );+lapack_int LAPACKE_cpptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap );+lapack_int LAPACKE_zpptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap );++lapack_int LAPACKE_spptri_work( int matrix_order, char uplo, lapack_int n,+                                float* ap );+lapack_int LAPACKE_dpptri_work( int matrix_order, char uplo, lapack_int n,+                                double* ap );+lapack_int LAPACKE_cpptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap );+lapack_int LAPACKE_zpptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap );++lapack_int LAPACKE_spptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* ap, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dpptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* ap, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_cpptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_spstrf_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda, lapack_int* piv,+                                lapack_int* rank, float tol, float* work );+lapack_int LAPACKE_dpstrf_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda, lapack_int* piv,+                                lapack_int* rank, double tol, double* work );+lapack_int LAPACKE_cpstrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* piv, lapack_int* rank, float tol,+                                float* work );+lapack_int LAPACKE_zpstrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* piv, lapack_int* rank, double tol,+                                double* work );++lapack_int LAPACKE_sptcon_work( lapack_int n, const float* d, const float* e,+                                float anorm, float* rcond, float* work );+lapack_int LAPACKE_dptcon_work( lapack_int n, const double* d, const double* e,+                                double anorm, double* rcond, double* work );+lapack_int LAPACKE_cptcon_work( lapack_int n, const float* d,+                                const lapack_complex_float* e, float anorm,+                                float* rcond, float* work );+lapack_int LAPACKE_zptcon_work( lapack_int n, const double* d,+                                const lapack_complex_double* e, double anorm,+                                double* rcond, double* work );++lapack_int LAPACKE_spteqr_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, float* z, lapack_int ldz,+                                float* work );+lapack_int LAPACKE_dpteqr_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, double* z, lapack_int ldz,+                                double* work );+lapack_int LAPACKE_cpteqr_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, lapack_complex_float* z,+                                lapack_int ldz, float* work );+lapack_int LAPACKE_zpteqr_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, lapack_complex_double* z,+                                lapack_int ldz, double* work );++lapack_int LAPACKE_sptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                const float* d, const float* e, const float* df,+                                const float* ef, const float* b, lapack_int ldb,+                                float* x, lapack_int ldx, float* ferr,+                                float* berr, float* work );+lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                const double* d, const double* e,+                                const double* df, const double* ef,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                double* work );+lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* d,+                                const lapack_complex_float* e, const float* df,+                                const lapack_complex_float* ef,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* d,+                                const lapack_complex_double* e,+                                const double* df,+                                const lapack_complex_double* ef,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               float* d, float* e, float* b, lapack_int ldb );+lapack_int LAPACKE_dptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               double* d, double* e, double* b,+                               lapack_int ldb );+lapack_int LAPACKE_cptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               float* d, lapack_complex_float* e,+                               lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zptsv_work( int matrix_order, lapack_int n, lapack_int nrhs,+                               double* d, lapack_complex_double* e,+                               lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n,+                                lapack_int nrhs, const float* d, const float* e,+                                float* df, float* ef, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work );+lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n,+                                lapack_int nrhs, const double* d,+                                const double* e, double* df, double* ef,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* rcond, double* ferr,+                                double* berr, double* work );+lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n,+                                lapack_int nrhs, const float* d,+                                const lapack_complex_float* e, float* df,+                                lapack_complex_float* ef,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n,+                                lapack_int nrhs, const double* d,+                                const lapack_complex_double* e, double* df,+                                lapack_complex_double* ef,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_spttrf_work( lapack_int n, float* d, float* e );+lapack_int LAPACKE_dpttrf_work( lapack_int n, double* d, double* e );+lapack_int LAPACKE_cpttrf_work( lapack_int n, float* d,+                                lapack_complex_float* e );+lapack_int LAPACKE_zpttrf_work( lapack_int n, double* d,+                                lapack_complex_double* e );++lapack_int LAPACKE_spttrs_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                const float* d, const float* e, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dpttrs_work( int matrix_order, lapack_int n, lapack_int nrhs,+                                const double* d, const double* e, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_cpttrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* d,+                                const lapack_complex_float* e,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zpttrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* d,+                                const lapack_complex_double* e,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_ssbev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int kd, float* ab,+                               lapack_int ldab, float* w, float* z,+                               lapack_int ldz, float* work );+lapack_int LAPACKE_dsbev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int kd, double* ab,+                               lapack_int ldab, double* w, double* z,+                               lapack_int ldz, double* work );++lapack_int LAPACKE_ssbevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int kd, float* ab,+                                lapack_int ldab, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dsbevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int kd, double* ab,+                                lapack_int ldab, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int kd,+                                float* ab, lapack_int ldab, float* q,+                                lapack_int ldq, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int kd,+                                double* ab, lapack_int ldab, double* q,+                                lapack_int ldq, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int* iwork,+                                lapack_int* ifail );++lapack_int LAPACKE_ssbgst_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                float* ab, lapack_int ldab, const float* bb,+                                lapack_int ldbb, float* x, lapack_int ldx,+                                float* work );+lapack_int LAPACKE_dsbgst_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                double* ab, lapack_int ldab, const double* bb,+                                lapack_int ldbb, double* x, lapack_int ldx,+                                double* work );++lapack_int LAPACKE_ssbgv_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int ka, lapack_int kb,+                               float* ab, lapack_int ldab, float* bb,+                               lapack_int ldbb, float* w, float* z,+                               lapack_int ldz, float* work );+lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, lapack_int ka, lapack_int kb,+                               double* ab, lapack_int ldab, double* bb,+                               lapack_int ldbb, double* w, double* z,+                               lapack_int ldz, double* work );++lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                float* ab, lapack_int ldab, float* bb,+                                lapack_int ldbb, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, lapack_int ka, lapack_int kb,+                                double* ab, lapack_int ldab, double* bb,+                                lapack_int ldbb, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int ka,+                                lapack_int kb, float* ab, lapack_int ldab,+                                float* bb, lapack_int ldbb, float* q,+                                lapack_int ldq, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, lapack_int ka,+                                lapack_int kb, double* ab, lapack_int ldab,+                                double* bb, lapack_int ldbb, double* q,+                                lapack_int ldq, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int* iwork,+                                lapack_int* ifail );++lapack_int LAPACKE_ssbtrd_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int kd, float* ab,+                                lapack_int ldab, float* d, float* e, float* q,+                                lapack_int ldq, float* work );+lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo,+                                lapack_int n, lapack_int kd, double* ab,+                                lapack_int ldab, double* d, double* e,+                                double* q, lapack_int ldq, double* work );++lapack_int LAPACKE_ssfrk_work( int matrix_order, char transr, char uplo,+                               char trans, lapack_int n, lapack_int k,+                               float alpha, const float* a, lapack_int lda,+                               float beta, float* c );+lapack_int LAPACKE_dsfrk_work( int matrix_order, char transr, char uplo,+                               char trans, lapack_int n, lapack_int k,+                               double alpha, const double* a, lapack_int lda,+                               double beta, double* c );++lapack_int LAPACKE_sspcon_work( int matrix_order, char uplo, lapack_int n,+                                const float* ap, const lapack_int* ipiv,+                                float anorm, float* rcond, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dspcon_work( int matrix_order, char uplo, lapack_int n,+                                const double* ap, const lapack_int* ipiv,+                                double anorm, double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_cspcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work );+lapack_int LAPACKE_zspcon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, lapack_complex_double* work );++lapack_int LAPACKE_sspev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, float* ap, float* w, float* z,+                               lapack_int ldz, float* work );+lapack_int LAPACKE_dspev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, double* ap, double* w, double* z,+                               lapack_int ldz, double* work );++lapack_int LAPACKE_sspevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, float* ap, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dspevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, double* ap, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, float* ap, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, lapack_int* m, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, double* ap, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, lapack_int* m, double* w,+                                double* z, lapack_int ldz, double* work,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_sspgst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, float* ap, const float* bp );+lapack_int LAPACKE_dspgst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, double* ap, const double* bp );++lapack_int LAPACKE_sspgv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n, float* ap, float* bp,+                               float* w, float* z, lapack_int ldz,+                               float* work );+lapack_int LAPACKE_dspgv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n, double* ap, double* bp,+                               double* w, double* z, lapack_int ldz,+                               double* work );++lapack_int LAPACKE_sspgvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n, float* ap, float* bp,+                                float* w, float* z, lapack_int ldz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_dspgvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n, double* ap, double* bp,+                                double* w, double* z, lapack_int ldz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n, float* ap,+                                float* bp, float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, float* z, lapack_int ldz, float* work,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n, double* ap,+                                double* bp, double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, double* z, lapack_int ldz,+                                double* work, lapack_int* iwork,+                                lapack_int* ifail );++lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* ap,+                                const float* afp, const lapack_int* ipiv,+                                const float* b, lapack_int ldb, float* x,+                                lapack_int ldx, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* ap,+                                const double* afp, const lapack_int* ipiv,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                const lapack_complex_float* afp,+                                const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* afp,+                                const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_sspsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, float* ap, lapack_int* ipiv,+                               float* b, lapack_int ldb );+lapack_int LAPACKE_dspsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, double* ap, lapack_int* ipiv,+                               double* b, lapack_int ldb );+lapack_int LAPACKE_cspsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* ap,+                               lapack_int* ipiv, lapack_complex_float* b,+                               lapack_int ldb );+lapack_int LAPACKE_zspsv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* ap,+                               lapack_int* ipiv, lapack_complex_double* b,+                               lapack_int ldb );++lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, const float* ap,+                                float* afp, lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, const double* ap,+                                double* afp, lapack_int* ipiv, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* ap,+                                lapack_complex_float* afp, lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* ap,+                                lapack_complex_double* afp, lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_ssptrd_work( int matrix_order, char uplo, lapack_int n,+                                float* ap, float* d, float* e, float* tau );+lapack_int LAPACKE_dsptrd_work( int matrix_order, char uplo, lapack_int n,+                                double* ap, double* d, double* e, double* tau );++lapack_int LAPACKE_ssptrf_work( int matrix_order, char uplo, lapack_int n,+                                float* ap, lapack_int* ipiv );+lapack_int LAPACKE_dsptrf_work( int matrix_order, char uplo, lapack_int n,+                                double* ap, lapack_int* ipiv );+lapack_int LAPACKE_csptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap, lapack_int* ipiv );+lapack_int LAPACKE_zsptrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap, lapack_int* ipiv );++lapack_int LAPACKE_ssptri_work( int matrix_order, char uplo, lapack_int n,+                                float* ap, const lapack_int* ipiv,+                                float* work );+lapack_int LAPACKE_dsptri_work( int matrix_order, char uplo, lapack_int n,+                                double* ap, const lapack_int* ipiv,+                                double* work );+lapack_int LAPACKE_csptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* ap,+                                const lapack_int* ipiv,+                                lapack_complex_float* work );+lapack_int LAPACKE_zsptri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* ap,+                                const lapack_int* ipiv,+                                lapack_complex_double* work );++lapack_int LAPACKE_ssptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* ap,+                                const lapack_int* ipiv, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dsptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* ap,+                                const lapack_int* ipiv, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_csptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* ap,+                                const lapack_int* ipiv, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_zsptrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_sstebz_work( char range, char order, lapack_int n, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, const float* d, const float* e,+                                lapack_int* m, lapack_int* nsplit, float* w,+                                lapack_int* iblock, lapack_int* isplit,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dstebz_work( char range, char order, lapack_int n, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, const double* d, const double* e,+                                lapack_int* m, lapack_int* nsplit, double* w,+                                lapack_int* iblock, lapack_int* isplit,+                                double* work, lapack_int* iwork );++lapack_int LAPACKE_sstedc_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, float* z, lapack_int ldz,+                                float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dstedc_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, double* z, lapack_int ldz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, lapack_complex_float* z,+                                lapack_int ldz, lapack_complex_float* work,+                                lapack_int lwork, float* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, lapack_complex_double* z,+                                lapack_int ldz, lapack_complex_double* work,+                                lapack_int lwork, double* rwork,+                                lapack_int lrwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, lapack_int* m, float* w, float* z,+                                lapack_int ldz, lapack_int* isuppz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, lapack_int* m, double* w,+                                double* z, lapack_int ldz, lapack_int* isuppz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, lapack_int* m, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_int* isuppz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, lapack_int* m, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_int* isuppz, double* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_sstein_work( int matrix_order, lapack_int n, const float* d,+                                const float* e, lapack_int m, const float* w,+                                const lapack_int* iblock,+                                const lapack_int* isplit, float* z,+                                lapack_int ldz, float* work, lapack_int* iwork,+                                lapack_int* ifailv );+lapack_int LAPACKE_dstein_work( int matrix_order, lapack_int n, const double* d,+                                const double* e, lapack_int m, const double* w,+                                const lapack_int* iblock,+                                const lapack_int* isplit, double* z,+                                lapack_int ldz, double* work, lapack_int* iwork,+                                lapack_int* ifailv );+lapack_int LAPACKE_cstein_work( int matrix_order, lapack_int n, const float* d,+                                const float* e, lapack_int m, const float* w,+                                const lapack_int* iblock,+                                const lapack_int* isplit,+                                lapack_complex_float* z, lapack_int ldz,+                                float* work, lapack_int* iwork,+                                lapack_int* ifailv );+lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d,+                                const double* e, lapack_int m, const double* w,+                                const lapack_int* iblock,+                                const lapack_int* isplit,+                                lapack_complex_double* z, lapack_int ldz,+                                double* work, lapack_int* iwork,+                                lapack_int* ifailv );++lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                lapack_int* m, float* w, float* z,+                                lapack_int ldz, lapack_int nzc,+                                lapack_int* isuppz, lapack_logical* tryrac,+                                float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                lapack_int* m, double* w, double* z,+                                lapack_int ldz, lapack_int nzc,+                                lapack_int* isuppz, lapack_logical* tryrac,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                lapack_int* m, float* w,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_int nzc, lapack_int* isuppz,+                                lapack_logical* tryrac, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                lapack_int* m, double* w,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_int nzc, lapack_int* isuppz,+                                lapack_logical* tryrac, double* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_ssteqr_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, float* z, lapack_int ldz,+                                float* work );+lapack_int LAPACKE_dsteqr_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, double* z, lapack_int ldz,+                                double* work );+lapack_int LAPACKE_csteqr_work( int matrix_order, char compz, lapack_int n,+                                float* d, float* e, lapack_complex_float* z,+                                lapack_int ldz, float* work );+lapack_int LAPACKE_zsteqr_work( int matrix_order, char compz, lapack_int n,+                                double* d, double* e, lapack_complex_double* z,+                                lapack_int ldz, double* work );++lapack_int LAPACKE_ssterf_work( lapack_int n, float* d, float* e );+lapack_int LAPACKE_dsterf_work( lapack_int n, double* d, double* e );++lapack_int LAPACKE_sstev_work( int matrix_order, char jobz, lapack_int n,+                               float* d, float* e, float* z, lapack_int ldz,+                               float* work );+lapack_int LAPACKE_dstev_work( int matrix_order, char jobz, lapack_int n,+                               double* d, double* e, double* z, lapack_int ldz,+                               double* work );++lapack_int LAPACKE_sstevd_work( int matrix_order, char jobz, lapack_int n,+                                float* d, float* e, float* z, lapack_int ldz,+                                float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dstevd_work( int matrix_order, char jobz, lapack_int n,+                                double* d, double* e, double* z, lapack_int ldz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, lapack_int* m, float* w, float* z,+                                lapack_int ldz, lapack_int* isuppz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, lapack_int* m, double* w,+                                double* z, lapack_int ldz, lapack_int* isuppz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_sstevx_work( int matrix_order, char jobz, char range,+                                lapack_int n, float* d, float* e, float vl,+                                float vu, lapack_int il, lapack_int iu,+                                float abstol, lapack_int* m, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_dstevx_work( int matrix_order, char jobz, char range,+                                lapack_int n, double* d, double* e, double vl,+                                double vu, lapack_int il, lapack_int iu,+                                double abstol, lapack_int* m, double* w,+                                double* z, lapack_int ldz, double* work,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_ssycon_work( int matrix_order, char uplo, lapack_int n,+                                const float* a, lapack_int lda,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, float* work, lapack_int* iwork );+lapack_int LAPACKE_dsycon_work( int matrix_order, char uplo, lapack_int n,+                                const double* a, lapack_int lda,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_csycon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_int* ipiv, float anorm,+                                float* rcond, lapack_complex_float* work );+lapack_int LAPACKE_zsycon_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_int* ipiv, double anorm,+                                double* rcond, lapack_complex_double* work );++lapack_int LAPACKE_ssyequb_work( int matrix_order, char uplo, lapack_int n,+                                 const float* a, lapack_int lda, float* s,+                                 float* scond, float* amax, float* work );+lapack_int LAPACKE_dsyequb_work( int matrix_order, char uplo, lapack_int n,+                                 const double* a, lapack_int lda, double* s,+                                 double* scond, double* amax, double* work );+lapack_int LAPACKE_csyequb_work( int matrix_order, char uplo, lapack_int n,+                                 const lapack_complex_float* a, lapack_int lda,+                                 float* s, float* scond, float* amax,+                                 lapack_complex_float* work );+lapack_int LAPACKE_zsyequb_work( int matrix_order, char uplo, lapack_int n,+                                 const lapack_complex_double* a, lapack_int lda,+                                 double* s, double* scond, double* amax,+                                 lapack_complex_double* work );++lapack_int LAPACKE_ssyev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, float* a, lapack_int lda, float* w,+                               float* work, lapack_int lwork );+lapack_int LAPACKE_dsyev_work( int matrix_order, char jobz, char uplo,+                               lapack_int n, double* a, lapack_int lda,+                               double* w, double* work, lapack_int lwork );++lapack_int LAPACKE_ssyevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, float* a, lapack_int lda,+                                float* w, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dsyevd_work( int matrix_order, char jobz, char uplo,+                                lapack_int n, double* a, lapack_int lda,+                                double* w, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, float* a,+                                lapack_int lda, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w, float* z,+                                lapack_int ldz, lapack_int* isuppz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, double* a,+                                lapack_int lda, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w, double* z,+                                lapack_int ldz, lapack_int* isuppz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, float* a,+                                lapack_int lda, float vl, float vu,+                                lapack_int il, lapack_int iu, float abstol,+                                lapack_int* m, float* w, float* z,+                                lapack_int ldz, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int* ifail );+lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range,+                                char uplo, lapack_int n, double* a,+                                lapack_int lda, double vl, double vu,+                                lapack_int il, lapack_int iu, double abstol,+                                lapack_int* m, double* w, double* z,+                                lapack_int ldz, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_ssygst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, float* a, lapack_int lda,+                                const float* b, lapack_int ldb );+lapack_int LAPACKE_dsygst_work( int matrix_order, lapack_int itype, char uplo,+                                lapack_int n, double* a, lapack_int lda,+                                const double* b, lapack_int ldb );++lapack_int LAPACKE_ssygv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n, float* a,+                               lapack_int lda, float* b, lapack_int ldb,+                               float* w, float* work, lapack_int lwork );+lapack_int LAPACKE_dsygv_work( int matrix_order, lapack_int itype, char jobz,+                               char uplo, lapack_int n, double* a,+                               lapack_int lda, double* b, lapack_int ldb,+                               double* w, double* work, lapack_int lwork );++lapack_int LAPACKE_ssygvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n, float* a,+                                lapack_int lda, float* b, lapack_int ldb,+                                float* w, float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dsygvd_work( int matrix_order, lapack_int itype, char jobz,+                                char uplo, lapack_int n, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                double* w, double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );++lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n, float* a,+                                lapack_int lda, float* b, lapack_int ldb,+                                float vl, float vu, lapack_int il,+                                lapack_int iu, float abstol, lapack_int* m,+                                float* w, float* z, lapack_int ldz, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int* ifail );+lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz,+                                char range, char uplo, lapack_int n, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                double vl, double vu, lapack_int il,+                                lapack_int iu, double abstol, lapack_int* m,+                                double* w, double* z, lapack_int ldz,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int* ifail );++lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                const float* af, lapack_int ldaf,+                                const lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, const double* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const double* b, lapack_int ldb, double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                double* work, lapack_int* iwork );+lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_complex_double* af,+                                lapack_int ldaf, const lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs, const float* a,+                                 lapack_int lda, const float* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const float* s, const float* b, lapack_int ldb,+                                 float* x, lapack_int ldx, float* rcond,+                                 float* berr, lapack_int n_err_bnds,+                                 float* err_bnds_norm, float* err_bnds_comp,+                                 lapack_int nparams, float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs, const double* a,+                                 lapack_int lda, const double* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const double* s, const double* b,+                                 lapack_int ldb, double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, double* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_float* a, lapack_int lda,+                                 const lapack_complex_float* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const float* s, const lapack_complex_float* b,+                                 lapack_int ldb, lapack_complex_float* x,+                                 lapack_int ldx, float* rcond, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed,+                                 lapack_int n, lapack_int nrhs,+                                 const lapack_complex_double* a, lapack_int lda,+                                 const lapack_complex_double* af,+                                 lapack_int ldaf, const lapack_int* ipiv,+                                 const double* s,+                                 const lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_ssysv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, float* a, lapack_int lda,+                               lapack_int* ipiv, float* b, lapack_int ldb,+                               float* work, lapack_int lwork );+lapack_int LAPACKE_dsysv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, double* a, lapack_int lda,+                               lapack_int* ipiv, double* b, lapack_int ldb,+                               double* work, lapack_int lwork );+lapack_int LAPACKE_csysv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_float* a,+                               lapack_int lda, lapack_int* ipiv,+                               lapack_complex_float* b, lapack_int ldb,+                               lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zsysv_work( int matrix_order, char uplo, lapack_int n,+                               lapack_int nrhs, lapack_complex_double* a,+                               lapack_int lda, lapack_int* ipiv,+                               lapack_complex_double* b, lapack_int ldb,+                               lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, const float* a,+                                lapack_int lda, float* af, lapack_int ldaf,+                                lapack_int* ipiv, const float* b,+                                lapack_int ldb, float* x, lapack_int ldx,+                                float* rcond, float* ferr, float* berr,+                                float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs, const double* a,+                                lapack_int lda, double* af, lapack_int ldaf,+                                lapack_int* ipiv, const double* b,+                                lapack_int ldb, double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                double* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* af, lapack_int ldaf,+                                lapack_int* ipiv, const lapack_complex_float* b,+                                lapack_int ldb, lapack_complex_float* x,+                                lapack_int ldx, float* rcond, float* ferr,+                                float* berr, lapack_complex_float* work,+                                lapack_int lwork, float* rwork );+lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo,+                                lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* af, lapack_int ldaf,+                                lapack_int* ipiv,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* x, lapack_int ldx,+                                double* rcond, double* ferr, double* berr,+                                lapack_complex_double* work, lapack_int lwork,+                                double* rwork );++lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs, float* a,+                                 lapack_int lda, float* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, float* s,+                                 float* b, lapack_int ldb, float* x,+                                 lapack_int ldx, float* rcond, float* rpvgrw,+                                 float* berr, lapack_int n_err_bnds,+                                 float* err_bnds_norm, float* err_bnds_comp,+                                 lapack_int nparams, float* params, float* work,+                                 lapack_int* iwork );+lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs, double* a,+                                 lapack_int lda, double* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, double* s,+                                 double* b, lapack_int ldb, double* x,+                                 lapack_int ldx, double* rcond, double* rpvgrw,+                                 double* berr, lapack_int n_err_bnds,+                                 double* err_bnds_norm, double* err_bnds_comp,+                                 lapack_int nparams, double* params,+                                 double* work, lapack_int* iwork );+lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, float* s,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* x, lapack_int ldx,+                                 float* rcond, float* rpvgrw, float* berr,+                                 lapack_int n_err_bnds, float* err_bnds_norm,+                                 float* err_bnds_comp, lapack_int nparams,+                                 float* params, lapack_complex_float* work,+                                 float* rwork );+lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo,+                                 lapack_int n, lapack_int nrhs,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* af, lapack_int ldaf,+                                 lapack_int* ipiv, char* equed, double* s,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* x, lapack_int ldx,+                                 double* rcond, double* rpvgrw, double* berr,+                                 lapack_int n_err_bnds, double* err_bnds_norm,+                                 double* err_bnds_comp, lapack_int nparams,+                                 double* params, lapack_complex_double* work,+                                 double* rwork );++lapack_int LAPACKE_ssytrd_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda, float* d, float* e,+                                float* tau, float* work, lapack_int lwork );+lapack_int LAPACKE_dsytrd_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda, double* d, double* e,+                                double* tau, double* work, lapack_int lwork );++lapack_int LAPACKE_ssytrf_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda, lapack_int* ipiv,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dsytrf_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda, lapack_int* ipiv,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_csytrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_int* ipiv, lapack_complex_float* work,+                                lapack_int lwork );+lapack_int LAPACKE_zsytrf_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_int* ipiv, lapack_complex_double* work,+                                lapack_int lwork );++lapack_int LAPACKE_ssytri_work( int matrix_order, char uplo, lapack_int n,+                                float* a, lapack_int lda,+                                const lapack_int* ipiv, float* work );+lapack_int LAPACKE_dsytri_work( int matrix_order, char uplo, lapack_int n,+                                double* a, lapack_int lda,+                                const lapack_int* ipiv, double* work );+lapack_int LAPACKE_csytri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_float* work );+lapack_int LAPACKE_zsytri_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                const lapack_int* ipiv,+                                lapack_complex_double* work );++lapack_int LAPACKE_ssytrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const float* a, lapack_int lda,+                                const lapack_int* ipiv, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dsytrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                double* b, lapack_int ldb );+lapack_int LAPACKE_csytrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_float* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_zsytrs_work( int matrix_order, char uplo, lapack_int n,+                                lapack_int nrhs, const lapack_complex_double* a,+                                lapack_int lda, const lapack_int* ipiv,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stbcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, lapack_int kd,+                                const float* ab, lapack_int ldab, float* rcond,+                                float* work, lapack_int* iwork );+lapack_int LAPACKE_dtbcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, lapack_int kd,+                                const double* ab, lapack_int ldab,+                                double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_ctbcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, lapack_int kd,+                                const lapack_complex_float* ab, lapack_int ldab,+                                float* rcond, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_ztbcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, lapack_int kd,+                                const lapack_complex_double* ab,+                                lapack_int ldab, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const float* ab,+                                lapack_int ldab, const float* b, lapack_int ldb,+                                const float* x, lapack_int ldx, float* ferr,+                                float* berr, float* work, lapack_int* iwork );+lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const double* ab,+                                lapack_int ldab, const double* b,+                                lapack_int ldb, const double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const lapack_complex_float* ab,+                                lapack_int ldab, const lapack_complex_float* b,+                                lapack_int ldb, const lapack_complex_float* x,+                                lapack_int ldx, float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab, const lapack_complex_double* b,+                                lapack_int ldb, const lapack_complex_double* x,+                                lapack_int ldx, double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_stbtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const float* ab,+                                lapack_int ldab, float* b, lapack_int ldb );+lapack_int LAPACKE_dtbtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const double* ab,+                                lapack_int ldab, double* b, lapack_int ldb );+lapack_int LAPACKE_ctbtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs, const lapack_complex_float* ab,+                                lapack_int ldab, lapack_complex_float* b,+                                lapack_int ldb );+lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int kd,+                                lapack_int nrhs,+                                const lapack_complex_double* ab,+                                lapack_int ldab, lapack_complex_double* b,+                                lapack_int ldb );++lapack_int LAPACKE_stfsm_work( int matrix_order, char transr, char side,+                               char uplo, char trans, char diag, lapack_int m,+                               lapack_int n, float alpha, const float* a,+                               float* b, lapack_int ldb );+lapack_int LAPACKE_dtfsm_work( int matrix_order, char transr, char side,+                               char uplo, char trans, char diag, lapack_int m,+                               lapack_int n, double alpha, const double* a,+                               double* b, lapack_int ldb );+lapack_int LAPACKE_ctfsm_work( int matrix_order, char transr, char side,+                               char uplo, char trans, char diag, lapack_int m,+                               lapack_int n, lapack_complex_float alpha,+                               const lapack_complex_float* a,+                               lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztfsm_work( int matrix_order, char transr, char side,+                               char uplo, char trans, char diag, lapack_int m,+                               lapack_int n, lapack_complex_double alpha,+                               const lapack_complex_double* a,+                               lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stftri_work( int matrix_order, char transr, char uplo,+                                char diag, lapack_int n, float* a );+lapack_int LAPACKE_dtftri_work( int matrix_order, char transr, char uplo,+                                char diag, lapack_int n, double* a );+lapack_int LAPACKE_ctftri_work( int matrix_order, char transr, char uplo,+                                char diag, lapack_int n,+                                lapack_complex_float* a );+lapack_int LAPACKE_ztftri_work( int matrix_order, char transr, char uplo,+                                char diag, lapack_int n,+                                lapack_complex_double* a );++lapack_int LAPACKE_stfttp_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const float* arf, float* ap );+lapack_int LAPACKE_dtfttp_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const double* arf, double* ap );+lapack_int LAPACKE_ctfttp_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_float* arf,+                                lapack_complex_float* ap );+lapack_int LAPACKE_ztfttp_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_double* arf,+                                lapack_complex_double* ap );++lapack_int LAPACKE_stfttr_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const float* arf, float* a,+                                lapack_int lda );+lapack_int LAPACKE_dtfttr_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const double* arf, double* a,+                                lapack_int lda );+lapack_int LAPACKE_ctfttr_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_float* arf,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_ztfttr_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_double* arf,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const float* s, lapack_int lds, const float* p,+                                lapack_int ldp, float* vl, lapack_int ldvl,+                                float* vr, lapack_int ldvr, lapack_int mm,+                                lapack_int* m, float* work );+lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const double* s, lapack_int lds,+                                const double* p, lapack_int ldp, double* vl,+                                lapack_int ldvl, double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m, double* work );+lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_float* s, lapack_int lds,+                                const lapack_complex_float* p, lapack_int ldp,+                                lapack_complex_float* vl, lapack_int ldvl,+                                lapack_complex_float* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_double* s, lapack_int lds,+                                const lapack_complex_double* p, lapack_int ldp,+                                lapack_complex_double* vl, lapack_int ldvl,+                                lapack_complex_double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq,+                                lapack_logical wantz, lapack_int n, float* a,+                                lapack_int lda, float* b, lapack_int ldb,+                                float* q, lapack_int ldq, float* z,+                                lapack_int ldz, lapack_int* ifst,+                                lapack_int* ilst, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq,+                                lapack_logical wantz, lapack_int n, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                double* q, lapack_int ldq, double* z,+                                lapack_int ldz, lapack_int* ifst,+                                lapack_int* ilst, double* work,+                                lapack_int lwork );+lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq,+                                lapack_logical wantz, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_int ifst, lapack_int ilst );+lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq,+                                lapack_logical wantz, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_int ifst, lapack_int ilst );++lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob,+                                lapack_logical wantq, lapack_logical wantz,+                                const lapack_logical* select, lapack_int n,+                                float* a, lapack_int lda, float* b,+                                lapack_int ldb, float* alphar, float* alphai,+                                float* beta, float* q, lapack_int ldq, float* z,+                                lapack_int ldz, lapack_int* m, float* pl,+                                float* pr, float* dif, float* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );+lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob,+                                lapack_logical wantq, lapack_logical wantz,+                                const lapack_logical* select, lapack_int n,+                                double* a, lapack_int lda, double* b,+                                lapack_int ldb, double* alphar, double* alphai,+                                double* beta, double* q, lapack_int ldq,+                                double* z, lapack_int ldz, lapack_int* m,+                                double* pl, double* pr, double* dif,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob,+                                lapack_logical wantq, lapack_logical wantz,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* alpha,+                                lapack_complex_float* beta,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* z, lapack_int ldz,+                                lapack_int* m, float* pl, float* pr, float* dif,+                                lapack_complex_float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob,+                                lapack_logical wantq, lapack_logical wantz,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* alpha,+                                lapack_complex_double* beta,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* z, lapack_int ldz,+                                lapack_int* m, double* pl, double* pr,+                                double* dif, lapack_complex_double* work,+                                lapack_int lwork, lapack_int* iwork,+                                lapack_int liwork );++lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_int k, lapack_int l,+                                float* a, lapack_int lda, float* b,+                                lapack_int ldb, float tola, float tolb,+                                float* alpha, float* beta, float* u,+                                lapack_int ldu, float* v, lapack_int ldv,+                                float* q, lapack_int ldq, float* work,+                                lapack_int* ncycle );+lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_int k, lapack_int l,+                                double* a, lapack_int lda, double* b,+                                lapack_int ldb, double tola, double tolb,+                                double* alpha, double* beta, double* u,+                                lapack_int ldu, double* v, lapack_int ldv,+                                double* q, lapack_int ldq, double* work,+                                lapack_int* ncycle );+lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_int k, lapack_int l,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                float tola, float tolb, float* alpha,+                                float* beta, lapack_complex_float* u,+                                lapack_int ldu, lapack_complex_float* v,+                                lapack_int ldv, lapack_complex_float* q,+                                lapack_int ldq, lapack_complex_float* work,+                                lapack_int* ncycle );+lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv,+                                char jobq, lapack_int m, lapack_int p,+                                lapack_int n, lapack_int k, lapack_int l,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                double tola, double tolb, double* alpha,+                                double* beta, lapack_complex_double* u,+                                lapack_int ldu, lapack_complex_double* v,+                                lapack_int ldv, lapack_complex_double* q,+                                lapack_int ldq, lapack_complex_double* work,+                                lapack_int* ncycle );++lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const float* a, lapack_int lda, const float* b,+                                lapack_int ldb, const float* vl,+                                lapack_int ldvl, const float* vr,+                                lapack_int ldvr, float* s, float* dif,+                                lapack_int mm, lapack_int* m, float* work,+                                lapack_int lwork, lapack_int* iwork );+lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const double* a, lapack_int lda,+                                const double* b, lapack_int ldb,+                                const double* vl, lapack_int ldvl,+                                const double* vr, lapack_int ldvr, double* s,+                                double* dif, lapack_int mm, lapack_int* m,+                                double* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* b, lapack_int ldb,+                                const lapack_complex_float* vl, lapack_int ldvl,+                                const lapack_complex_float* vr, lapack_int ldvr,+                                float* s, float* dif, lapack_int mm,+                                lapack_int* m, lapack_complex_float* work,+                                lapack_int lwork, lapack_int* iwork );+lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* b, lapack_int ldb,+                                const lapack_complex_double* vl,+                                lapack_int ldvl,+                                const lapack_complex_double* vr,+                                lapack_int ldvr, double* s, double* dif,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_double* work, lapack_int lwork,+                                lapack_int* iwork );++lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob,+                                lapack_int m, lapack_int n, const float* a,+                                lapack_int lda, const float* b, lapack_int ldb,+                                float* c, lapack_int ldc, const float* d,+                                lapack_int ldd, const float* e, lapack_int lde,+                                float* f, lapack_int ldf, float* scale,+                                float* dif, float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob,+                                lapack_int m, lapack_int n, const double* a,+                                lapack_int lda, const double* b, lapack_int ldb,+                                double* c, lapack_int ldc, const double* d,+                                lapack_int ldd, const double* e, lapack_int lde,+                                double* f, lapack_int ldf, double* scale,+                                double* dif, double* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob,+                                lapack_int m, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* c, lapack_int ldc,+                                const lapack_complex_float* d, lapack_int ldd,+                                const lapack_complex_float* e, lapack_int lde,+                                lapack_complex_float* f, lapack_int ldf,+                                float* scale, float* dif,+                                lapack_complex_float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob,+                                lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* c, lapack_int ldc,+                                const lapack_complex_double* d, lapack_int ldd,+                                const lapack_complex_double* e, lapack_int lde,+                                lapack_complex_double* f, lapack_int ldf,+                                double* scale, double* dif,+                                lapack_complex_double* work, lapack_int lwork,+                                lapack_int* iwork );++lapack_int LAPACKE_stpcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, const float* ap,+                                float* rcond, float* work, lapack_int* iwork );+lapack_int LAPACKE_dtpcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, const double* ap,+                                double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_ctpcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n,+                                const lapack_complex_float* ap, float* rcond,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztpcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n,+                                const lapack_complex_double* ap, double* rcond,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_stprfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const float* ap, const float* b, lapack_int ldb,+                                const float* x, lapack_int ldx, float* ferr,+                                float* berr, float* work, lapack_int* iwork );+lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const double* ap, const double* b,+                                lapack_int ldb, const double* x, lapack_int ldx,+                                double* ferr, double* berr, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* ap,+                                const lapack_complex_float* b, lapack_int ldb,+                                const lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* b, lapack_int ldb,+                                const lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_stptri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, float* ap );+lapack_int LAPACKE_dtptri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, double* ap );+lapack_int LAPACKE_ctptri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, lapack_complex_float* ap );+lapack_int LAPACKE_ztptri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, lapack_complex_double* ap );++lapack_int LAPACKE_stptrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const float* ap, float* b, lapack_int ldb );+lapack_int LAPACKE_dtptrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const double* ap, double* b, lapack_int ldb );+lapack_int LAPACKE_ctptrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* ap,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztptrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* ap,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_stpttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const float* ap, float* arf );+lapack_int LAPACKE_dtpttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const double* ap, double* arf );+lapack_int LAPACKE_ctpttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_float* ap,+                                lapack_complex_float* arf );+lapack_int LAPACKE_ztpttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_double* ap,+                                lapack_complex_double* arf );++lapack_int LAPACKE_stpttr_work( int matrix_order, char uplo, lapack_int n,+                                const float* ap, float* a, lapack_int lda );+lapack_int LAPACKE_dtpttr_work( int matrix_order, char uplo, lapack_int n,+                                const double* ap, double* a, lapack_int lda );+lapack_int LAPACKE_ctpttr_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap,+                                lapack_complex_float* a, lapack_int lda );+lapack_int LAPACKE_ztpttr_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap,+                                lapack_complex_double* a, lapack_int lda );++lapack_int LAPACKE_strcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, const float* a,+                                lapack_int lda, float* rcond, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dtrcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n, const double* a,+                                lapack_int lda, double* rcond, double* work,+                                lapack_int* iwork );+lapack_int LAPACKE_ctrcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                float* rcond, lapack_complex_float* work,+                                float* rwork );+lapack_int LAPACKE_ztrcon_work( int matrix_order, char norm, char uplo,+                                char diag, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                double* rcond, lapack_complex_double* work,+                                double* rwork );++lapack_int LAPACKE_strevc_work( int matrix_order, char side, char howmny,+                                lapack_logical* select, lapack_int n,+                                const float* t, lapack_int ldt, float* vl,+                                lapack_int ldvl, float* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m, float* work );+lapack_int LAPACKE_dtrevc_work( int matrix_order, char side, char howmny,+                                lapack_logical* select, lapack_int n,+                                const double* t, lapack_int ldt, double* vl,+                                lapack_int ldvl, double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m, double* work );+lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_float* t, lapack_int ldt,+                                lapack_complex_float* vl, lapack_int ldvl,+                                lapack_complex_float* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* vl, lapack_int ldvl,+                                lapack_complex_double* vr, lapack_int ldvr,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_strexc_work( int matrix_order, char compq, lapack_int n,+                                float* t, lapack_int ldt, float* q,+                                lapack_int ldq, lapack_int* ifst,+                                lapack_int* ilst, float* work );+lapack_int LAPACKE_dtrexc_work( int matrix_order, char compq, lapack_int n,+                                double* t, lapack_int ldt, double* q,+                                lapack_int ldq, lapack_int* ifst,+                                lapack_int* ilst, double* work );+lapack_int LAPACKE_ctrexc_work( int matrix_order, char compq, lapack_int n,+                                lapack_complex_float* t, lapack_int ldt,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_int ifst, lapack_int ilst );+lapack_int LAPACKE_ztrexc_work( int matrix_order, char compq, lapack_int n,+                                lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_int ifst, lapack_int ilst );++lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const float* a, lapack_int lda, const float* b,+                                lapack_int ldb, const float* x, lapack_int ldx,+                                float* ferr, float* berr, float* work,+                                lapack_int* iwork );+lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const double* a, lapack_int lda,+                                const double* b, lapack_int ldb,+                                const double* x, lapack_int ldx, double* ferr,+                                double* berr, double* work, lapack_int* iwork );+lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* b, lapack_int ldb,+                                const lapack_complex_float* x, lapack_int ldx,+                                float* ferr, float* berr,+                                lapack_complex_float* work, float* rwork );+lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* b, lapack_int ldb,+                                const lapack_complex_double* x, lapack_int ldx,+                                double* ferr, double* berr,+                                lapack_complex_double* work, double* rwork );++lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq,+                                const lapack_logical* select, lapack_int n,+                                float* t, lapack_int ldt, float* q,+                                lapack_int ldq, float* wr, float* wi,+                                lapack_int* m, float* s, float* sep,+                                float* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq,+                                const lapack_logical* select, lapack_int n,+                                double* t, lapack_int ldt, double* q,+                                lapack_int ldq, double* wr, double* wi,+                                lapack_int* m, double* s, double* sep,+                                double* work, lapack_int lwork,+                                lapack_int* iwork, lapack_int liwork );+lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_float* t, lapack_int ldt,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* w, lapack_int* m,+                                float* s, float* sep,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq,+                                const lapack_logical* select, lapack_int n,+                                lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* w, lapack_int* m,+                                double* s, double* sep,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const float* t, lapack_int ldt, const float* vl,+                                lapack_int ldvl, const float* vr,+                                lapack_int ldvr, float* s, float* sep,+                                lapack_int mm, lapack_int* m, float* work,+                                lapack_int ldwork, lapack_int* iwork );+lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const double* t, lapack_int ldt,+                                const double* vl, lapack_int ldvl,+                                const double* vr, lapack_int ldvr, double* s,+                                double* sep, lapack_int mm, lapack_int* m,+                                double* work, lapack_int ldwork,+                                lapack_int* iwork );+lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_float* t, lapack_int ldt,+                                const lapack_complex_float* vl, lapack_int ldvl,+                                const lapack_complex_float* vr, lapack_int ldvr,+                                float* s, float* sep, lapack_int mm,+                                lapack_int* m, lapack_complex_float* work,+                                lapack_int ldwork, float* rwork );+lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny,+                                const lapack_logical* select, lapack_int n,+                                const lapack_complex_double* t, lapack_int ldt,+                                const lapack_complex_double* vl,+                                lapack_int ldvl,+                                const lapack_complex_double* vr,+                                lapack_int ldvr, double* s, double* sep,+                                lapack_int mm, lapack_int* m,+                                lapack_complex_double* work, lapack_int ldwork,+                                double* rwork );++lapack_int LAPACKE_strsyl_work( int matrix_order, char trana, char tranb,+                                lapack_int isgn, lapack_int m, lapack_int n,+                                const float* a, lapack_int lda, const float* b,+                                lapack_int ldb, float* c, lapack_int ldc,+                                float* scale );+lapack_int LAPACKE_dtrsyl_work( int matrix_order, char trana, char tranb,+                                lapack_int isgn, lapack_int m, lapack_int n,+                                const double* a, lapack_int lda,+                                const double* b, lapack_int ldb, double* c,+                                lapack_int ldc, double* scale );+lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb,+                                lapack_int isgn, lapack_int m, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* b, lapack_int ldb,+                                lapack_complex_float* c, lapack_int ldc,+                                float* scale );+lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb,+                                lapack_int isgn, lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* c, lapack_int ldc,+                                double* scale );++lapack_int LAPACKE_strtri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, float* a, lapack_int lda );+lapack_int LAPACKE_dtrtri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, double* a, lapack_int lda );+lapack_int LAPACKE_ctrtri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, lapack_complex_float* a,+                                lapack_int lda );+lapack_int LAPACKE_ztrtri_work( int matrix_order, char uplo, char diag,+                                lapack_int n, lapack_complex_double* a,+                                lapack_int lda );++lapack_int LAPACKE_strtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const float* a, lapack_int lda, float* b,+                                lapack_int ldb );+lapack_int LAPACKE_dtrtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const double* a, lapack_int lda, double* b,+                                lapack_int ldb );+lapack_int LAPACKE_ctrtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztrtrs_work( int matrix_order, char uplo, char trans,+                                char diag, lapack_int n, lapack_int nrhs,+                                const lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_strttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const float* a, lapack_int lda,+                                float* arf );+lapack_int LAPACKE_dtrttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const double* a, lapack_int lda,+                                double* arf );+lapack_int LAPACKE_ctrttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* arf );+lapack_int LAPACKE_ztrttf_work( int matrix_order, char transr, char uplo,+                                lapack_int n, const lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* arf );++lapack_int LAPACKE_strttp_work( int matrix_order, char uplo, lapack_int n,+                                const float* a, lapack_int lda, float* ap );+lapack_int LAPACKE_dtrttp_work( int matrix_order, char uplo, lapack_int n,+                                const double* a, lapack_int lda, double* ap );+lapack_int LAPACKE_ctrttp_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* ap );+lapack_int LAPACKE_ztrttp_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* ap );++lapack_int LAPACKE_stzrzf_work( int matrix_order, lapack_int m, lapack_int n,+                                float* a, lapack_int lda, float* tau,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_dtzrzf_work( int matrix_order, lapack_int m, lapack_int n,+                                double* a, lapack_int lda, double* tau,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_ctzrzf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_ztzrzf_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cungbr_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int k,+                                lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zungbr_work( int matrix_order, char vect, lapack_int m,+                                lapack_int n, lapack_int k,+                                lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunghr_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunghr_work( int matrix_order, lapack_int n, lapack_int ilo,+                                lapack_int ihi, lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunglq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunglq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cungql_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zungql_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cungqr_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zungqr_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cungrq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zungrq_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int k, lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cungtr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zungtr_work( int matrix_order, char uplo, lapack_int n,+                                lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side,+                                char trans, lapack_int m, lapack_int n,+                                lapack_int k, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side,+                                char trans, lapack_int m, lapack_int n,+                                lapack_int k, const lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int ilo,+                                lapack_int ihi, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int ilo,+                                lapack_int ihi, const lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                lapack_int l, const lapack_complex_float* a,+                                lapack_int lda, const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans,+                                lapack_int m, lapack_int n, lapack_int k,+                                lapack_int l, const lapack_complex_double* a,+                                lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const lapack_complex_float* a, lapack_int lda,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const lapack_complex_double* a, lapack_int lda,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work, lapack_int lwork );++lapack_int LAPACKE_cupgtr_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_float* ap,+                                const lapack_complex_float* tau,+                                lapack_complex_float* q, lapack_int ldq,+                                lapack_complex_float* work );+lapack_int LAPACKE_zupgtr_work( int matrix_order, char uplo, lapack_int n,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* tau,+                                lapack_complex_double* q, lapack_int ldq,+                                lapack_complex_double* work );++lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const lapack_complex_float* ap,+                                const lapack_complex_float* tau,+                                lapack_complex_float* c, lapack_int ldc,+                                lapack_complex_float* work );+lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo,+                                char trans, lapack_int m, lapack_int n,+                                const lapack_complex_double* ap,+                                const lapack_complex_double* tau,+                                lapack_complex_double* c, lapack_int ldc,+                                lapack_complex_double* work );++lapack_int LAPACKE_claghe( int matrix_order, lapack_int n, lapack_int k,+                           const float* d, lapack_complex_float* a,+                           lapack_int lda, lapack_int* iseed );+lapack_int LAPACKE_zlaghe( int matrix_order, lapack_int n, lapack_int k,+                           const double* d, lapack_complex_double* a,+                           lapack_int lda, lapack_int* iseed );++lapack_int LAPACKE_slagsy( int matrix_order, lapack_int n, lapack_int k,+                           const float* d, float* a, lapack_int lda,+                           lapack_int* iseed );+lapack_int LAPACKE_dlagsy( int matrix_order, lapack_int n, lapack_int k,+                           const double* d, double* a, lapack_int lda,+                           lapack_int* iseed );+lapack_int LAPACKE_clagsy( int matrix_order, lapack_int n, lapack_int k,+                           const float* d, lapack_complex_float* a,+                           lapack_int lda, lapack_int* iseed );+lapack_int LAPACKE_zlagsy( int matrix_order, lapack_int n, lapack_int k,+                           const double* d, lapack_complex_double* a,+                           lapack_int lda, lapack_int* iseed );++lapack_int LAPACKE_slapmr( int matrix_order, lapack_logical forwrd,+                           lapack_int m, lapack_int n, float* x, lapack_int ldx,+                           lapack_int* k );+lapack_int LAPACKE_dlapmr( int matrix_order, lapack_logical forwrd,+                           lapack_int m, lapack_int n, double* x,+                           lapack_int ldx, lapack_int* k );+lapack_int LAPACKE_clapmr( int matrix_order, lapack_logical forwrd,+                           lapack_int m, lapack_int n, lapack_complex_float* x,+                           lapack_int ldx, lapack_int* k );+lapack_int LAPACKE_zlapmr( int matrix_order, lapack_logical forwrd,+                           lapack_int m, lapack_int n, lapack_complex_double* x,+                           lapack_int ldx, lapack_int* k );+++float LAPACKE_slapy2( float x, float y );+double LAPACKE_dlapy2( double x, double y );++float LAPACKE_slapy3( float x, float y, float z );+double LAPACKE_dlapy3( double x, double y, double z );++lapack_int LAPACKE_slartgp( float f, float g, float* cs, float* sn, float* r );+lapack_int LAPACKE_dlartgp( double f, double g, double* cs, double* sn,+                            double* r );++lapack_int LAPACKE_slartgs( float x, float y, float sigma, float* cs,+                            float* sn );+lapack_int LAPACKE_dlartgs( double x, double y, double sigma, double* cs,+                            double* sn );+++//LAPACK 3.3.0+lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, lapack_int m,+                           lapack_int p, lapack_int q, float* theta, float* phi,+                           lapack_complex_float* u1, lapack_int ldu1,+                           lapack_complex_float* u2, lapack_int ldu2,+                           lapack_complex_float* v1t, lapack_int ldv1t,+                           lapack_complex_float* v2t, lapack_int ldv2t,+                           float* b11d, float* b11e, float* b12d, float* b12e,+                           float* b21d, float* b21e, float* b22d, float* b22e );+lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                lapack_int m, lapack_int p, lapack_int q,+                                float* theta, float* phi,+                                lapack_complex_float* u1, lapack_int ldu1,+                                lapack_complex_float* u2, lapack_int ldu2,+                                lapack_complex_float* v1t, lapack_int ldv1t,+                                lapack_complex_float* v2t, lapack_int ldv2t,+                                float* b11d, float* b11e, float* b12d,+                                float* b12e, float* b21d, float* b21e,+                                float* b22d, float* b22e, float* rwork,+                                lapack_int lrwork );+lapack_int LAPACKE_cheswapr( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_float* a, lapack_int i1,+                             lapack_int i2 );+lapack_int LAPACKE_cheswapr_work( int matrix_order, char uplo, lapack_int n,+                                  lapack_complex_float* a, lapack_int i1,+                                  lapack_int i2 );+lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            const lapack_int* ipiv );+lapack_int LAPACKE_chetri2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 const lapack_int* ipiv,+                                 lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_chetri2x( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_float* a, lapack_int lda,+                             const lapack_int* ipiv, lapack_int nb );+lapack_int LAPACKE_chetri2x_work( int matrix_order, char uplo, lapack_int n,+                                  lapack_complex_float* a, lapack_int lda,+                                  const lapack_int* ipiv,+                                  lapack_complex_float* work, lapack_int nb );+lapack_int LAPACKE_chetrs2( int matrix_order, char uplo, lapack_int n,+                            lapack_int nrhs, const lapack_complex_float* a,+                            lapack_int lda, const lapack_int* ipiv,+                            lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_chetrs2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_int nrhs, const lapack_complex_float* a,+                                 lapack_int lda, const lapack_int* ipiv,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* work );+lapack_int LAPACKE_csyconv( int matrix_order, char uplo, char way, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            const lapack_int* ipiv );+lapack_int LAPACKE_csyconv_work( int matrix_order, char uplo, char way,+                                 lapack_int n, lapack_complex_float* a,+                                 lapack_int lda, const lapack_int* ipiv,+                                 lapack_complex_float* work );+lapack_int LAPACKE_csyswapr( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_float* a, lapack_int i1,+                             lapack_int i2 );+lapack_int LAPACKE_csyswapr_work( int matrix_order, char uplo, lapack_int n,+                                  lapack_complex_float* a, lapack_int i1,+                                  lapack_int i2 );+lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            const lapack_int* ipiv );+lapack_int LAPACKE_csytri2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 const lapack_int* ipiv,+                                 lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_csytri2x( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_float* a, lapack_int lda,+                             const lapack_int* ipiv, lapack_int nb );+lapack_int LAPACKE_csytri2x_work( int matrix_order, char uplo, lapack_int n,+                                  lapack_complex_float* a, lapack_int lda,+                                  const lapack_int* ipiv,+                                  lapack_complex_float* work, lapack_int nb );+lapack_int LAPACKE_csytrs2( int matrix_order, char uplo, lapack_int n,+                            lapack_int nrhs, const lapack_complex_float* a,+                            lapack_int lda, const lapack_int* ipiv,+                            lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_csytrs2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_int nrhs, const lapack_complex_float* a,+                                 lapack_int lda, const lapack_int* ipiv,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* work );+lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q,+                           lapack_complex_float* x11, lapack_int ldx11,+                           lapack_complex_float* x12, lapack_int ldx12,+                           lapack_complex_float* x21, lapack_int ldx21,+                           lapack_complex_float* x22, lapack_int ldx22,+                           float* theta, float* phi,+                           lapack_complex_float* taup1,+                           lapack_complex_float* taup2,+                           lapack_complex_float* tauq1,+                           lapack_complex_float* tauq2 );+lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs,+                                lapack_int m, lapack_int p, lapack_int q,+                                lapack_complex_float* x11, lapack_int ldx11,+                                lapack_complex_float* x12, lapack_int ldx12,+                                lapack_complex_float* x21, lapack_int ldx21,+                                lapack_complex_float* x22, lapack_int ldx22,+                                float* theta, float* phi,+                                lapack_complex_float* taup1,+                                lapack_complex_float* taup2,+                                lapack_complex_float* tauq1,+                                lapack_complex_float* tauq2,+                                lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q,+                           lapack_complex_float* x11, lapack_int ldx11,+                           lapack_complex_float* x12, lapack_int ldx12,+                           lapack_complex_float* x21, lapack_int ldx21,+                           lapack_complex_float* x22, lapack_int ldx22,+                           float* theta, lapack_complex_float* u1,+                           lapack_int ldu1, lapack_complex_float* u2,+                           lapack_int ldu2, lapack_complex_float* v1t,+                           lapack_int ldv1t, lapack_complex_float* v2t,+                           lapack_int ldv2t );+lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                char signs, lapack_int m, lapack_int p,+                                lapack_int q, lapack_complex_float* x11,+                                lapack_int ldx11, lapack_complex_float* x12,+                                lapack_int ldx12, lapack_complex_float* x21,+                                lapack_int ldx21, lapack_complex_float* x22,+                                lapack_int ldx22, float* theta,+                                lapack_complex_float* u1, lapack_int ldu1,+                                lapack_complex_float* u2, lapack_int ldu2,+                                lapack_complex_float* v1t, lapack_int ldv1t,+                                lapack_complex_float* v2t, lapack_int ldv2t,+                                lapack_complex_float* work, lapack_int lwork,+                                float* rwork, lapack_int lrwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, lapack_int m,+                           lapack_int p, lapack_int q, double* theta,+                           double* phi, double* u1, lapack_int ldu1, double* u2,+                           lapack_int ldu2, double* v1t, lapack_int ldv1t,+                           double* v2t, lapack_int ldv2t, double* b11d,+                           double* b11e, double* b12d, double* b12e,+                           double* b21d, double* b21e, double* b22d,+                           double* b22e );+lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                lapack_int m, lapack_int p, lapack_int q,+                                double* theta, double* phi, double* u1,+                                lapack_int ldu1, double* u2, lapack_int ldu2,+                                double* v1t, lapack_int ldv1t, double* v2t,+                                lapack_int ldv2t, double* b11d, double* b11e,+                                double* b12d, double* b12e, double* b21d,+                                double* b21e, double* b22d, double* b22e,+                                double* work, lapack_int lwork );+lapack_int LAPACKE_dorbdb( int matrix_order, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q,+                           double* x11, lapack_int ldx11, double* x12,+                           lapack_int ldx12, double* x21, lapack_int ldx21,+                           double* x22, lapack_int ldx22, double* theta,+                           double* phi, double* taup1, double* taup2,+                           double* tauq1, double* tauq2 );+lapack_int LAPACKE_dorbdb_work( int matrix_order, char trans, char signs,+                                lapack_int m, lapack_int p, lapack_int q,+                                double* x11, lapack_int ldx11, double* x12,+                                lapack_int ldx12, double* x21, lapack_int ldx21,+                                double* x22, lapack_int ldx22, double* theta,+                                double* phi, double* taup1, double* taup2,+                                double* tauq1, double* tauq2, double* work,+                                lapack_int lwork );+lapack_int LAPACKE_dorcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q,+                           double* x11, lapack_int ldx11, double* x12,+                           lapack_int ldx12, double* x21, lapack_int ldx21,+                           double* x22, lapack_int ldx22, double* theta,+                           double* u1, lapack_int ldu1, double* u2,+                           lapack_int ldu2, double* v1t, lapack_int ldv1t,+                           double* v2t, lapack_int ldv2t );+lapack_int LAPACKE_dorcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                char signs, lapack_int m, lapack_int p,+                                lapack_int q, double* x11, lapack_int ldx11,+                                double* x12, lapack_int ldx12, double* x21,+                                lapack_int ldx21, double* x22, lapack_int ldx22,+                                double* theta, double* u1, lapack_int ldu1,+                                double* u2, lapack_int ldu2, double* v1t,+                                lapack_int ldv1t, double* v2t, lapack_int ldv2t,+                                double* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_dsyconv( int matrix_order, char uplo, char way, lapack_int n,+                            double* a, lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_dsyconv_work( int matrix_order, char uplo, char way,+                                 lapack_int n, double* a, lapack_int lda,+                                 const lapack_int* ipiv, double* work );+lapack_int LAPACKE_dsyswapr( int matrix_order, char uplo, lapack_int n,+                             double* a, lapack_int i1, lapack_int i2 );+lapack_int LAPACKE_dsyswapr_work( int matrix_order, char uplo, lapack_int n,+                                  double* a, lapack_int i1, lapack_int i2 );+lapack_int LAPACKE_dsytri2( int matrix_order, char uplo, lapack_int n,+                            double* a, lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_dsytri2_work( int matrix_order, char uplo, lapack_int n,+                                 double* a, lapack_int lda,+                                 const lapack_int* ipiv,+                                 lapack_complex_double* work, lapack_int lwork );+lapack_int LAPACKE_dsytri2x( int matrix_order, char uplo, lapack_int n,+                             double* a, lapack_int lda, const lapack_int* ipiv,+                             lapack_int nb );+lapack_int LAPACKE_dsytri2x_work( int matrix_order, char uplo, lapack_int n,+                                  double* a, lapack_int lda,+                                  const lapack_int* ipiv, double* work,+                                  lapack_int nb );+lapack_int LAPACKE_dsytrs2( int matrix_order, char uplo, lapack_int n,+                            lapack_int nrhs, const double* a, lapack_int lda,+                            const lapack_int* ipiv, double* b, lapack_int ldb );+lapack_int LAPACKE_dsytrs2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_int nrhs, const double* a,+                                 lapack_int lda, const lapack_int* ipiv,+                                 double* b, lapack_int ldb, double* work );+lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, lapack_int m,+                           lapack_int p, lapack_int q, float* theta, float* phi,+                           float* u1, lapack_int ldu1, float* u2,+                           lapack_int ldu2, float* v1t, lapack_int ldv1t,+                           float* v2t, lapack_int ldv2t, float* b11d,+                           float* b11e, float* b12d, float* b12e, float* b21d,+                           float* b21e, float* b22d, float* b22e );+lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                lapack_int m, lapack_int p, lapack_int q,+                                float* theta, float* phi, float* u1,+                                lapack_int ldu1, float* u2, lapack_int ldu2,+                                float* v1t, lapack_int ldv1t, float* v2t,+                                lapack_int ldv2t, float* b11d, float* b11e,+                                float* b12d, float* b12e, float* b21d,+                                float* b21e, float* b22d, float* b22e,+                                float* work, lapack_int lwork );+lapack_int LAPACKE_sorbdb( int matrix_order, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q, float* x11,+                           lapack_int ldx11, float* x12, lapack_int ldx12,+                           float* x21, lapack_int ldx21, float* x22,+                           lapack_int ldx22, float* theta, float* phi,+                           float* taup1, float* taup2, float* tauq1,+                           float* tauq2 );+lapack_int LAPACKE_sorbdb_work( int matrix_order, char trans, char signs,+                                lapack_int m, lapack_int p, lapack_int q,+                                float* x11, lapack_int ldx11, float* x12,+                                lapack_int ldx12, float* x21, lapack_int ldx21,+                                float* x22, lapack_int ldx22, float* theta,+                                float* phi, float* taup1, float* taup2,+                                float* tauq1, float* tauq2, float* work,+                                lapack_int lwork );+lapack_int LAPACKE_sorcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, char signs,+                           lapack_int m, lapack_int p, lapack_int q, float* x11,+                           lapack_int ldx11, float* x12, lapack_int ldx12,+                           float* x21, lapack_int ldx21, float* x22,+                           lapack_int ldx22, float* theta, float* u1,+                           lapack_int ldu1, float* u2, lapack_int ldu2,+                           float* v1t, lapack_int ldv1t, float* v2t,+                           lapack_int ldv2t );+lapack_int LAPACKE_sorcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                char signs, lapack_int m, lapack_int p,+                                lapack_int q, float* x11, lapack_int ldx11,+                                float* x12, lapack_int ldx12, float* x21,+                                lapack_int ldx21, float* x22, lapack_int ldx22,+                                float* theta, float* u1, lapack_int ldu1,+                                float* u2, lapack_int ldu2, float* v1t,+                                lapack_int ldv1t, float* v2t, lapack_int ldv2t,+                                float* work, lapack_int lwork,+                                lapack_int* iwork );+lapack_int LAPACKE_ssyconv( int matrix_order, char uplo, char way, lapack_int n,+                            float* a, lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_ssyconv_work( int matrix_order, char uplo, char way,+                                 lapack_int n, float* a, lapack_int lda,+                                 const lapack_int* ipiv, float* work );+lapack_int LAPACKE_ssyswapr( int matrix_order, char uplo, lapack_int n,+                             float* a, lapack_int i1, lapack_int i2 );+lapack_int LAPACKE_ssyswapr_work( int matrix_order, char uplo, lapack_int n,+                                  float* a, lapack_int i1, lapack_int i2 );+lapack_int LAPACKE_ssytri2( int matrix_order, char uplo, lapack_int n, float* a,+                            lapack_int lda, const lapack_int* ipiv );+lapack_int LAPACKE_ssytri2_work( int matrix_order, char uplo, lapack_int n,+                                 float* a, lapack_int lda,+                                 const lapack_int* ipiv,+                                 lapack_complex_float* work, lapack_int lwork );+lapack_int LAPACKE_ssytri2x( int matrix_order, char uplo, lapack_int n,+                             float* a, lapack_int lda, const lapack_int* ipiv,+                             lapack_int nb );+lapack_int LAPACKE_ssytri2x_work( int matrix_order, char uplo, lapack_int n,+                                  float* a, lapack_int lda,+                                  const lapack_int* ipiv, float* work,+                                  lapack_int nb );+lapack_int LAPACKE_ssytrs2( int matrix_order, char uplo, lapack_int n,+                            lapack_int nrhs, const float* a, lapack_int lda,+                            const lapack_int* ipiv, float* b, lapack_int ldb );+lapack_int LAPACKE_ssytrs2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_int nrhs, const float* a,+                                 lapack_int lda, const lapack_int* ipiv,+                                 float* b, lapack_int ldb, float* work );+lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2,+                           char jobv1t, char jobv2t, char trans, lapack_int m,+                           lapack_int p, lapack_int q, double* theta,+                           double* phi, lapack_complex_double* u1,+                           lapack_int ldu1, lapack_complex_double* u2,+                           lapack_int ldu2, lapack_complex_double* v1t,+                           lapack_int ldv1t, lapack_complex_double* v2t,+                           lapack_int ldv2t, double* b11d, double* b11e,+                           double* b12d, double* b12e, double* b21d,+                           double* b21e, double* b22d, double* b22e );+lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2,+                                char jobv1t, char jobv2t, char trans,+                                lapack_int m, lapack_int p, lapack_int q,+                                double* theta, double* phi,+                                lapack_complex_double* u1, lapack_int ldu1,+                                lapack_complex_double* u2, lapack_int ldu2,+                                lapack_complex_double* v1t, lapack_int ldv1t,+                                lapack_complex_double* v2t, lapack_int ldv2t,+                                double* b11d, double* b11e, double* b12d,+                                double* b12e, double* b21d, double* b21e,+                                double* b22d, double* b22e, double* rwork,+                                lapack_int lrwork );+lapack_int LAPACKE_zheswapr( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_double* a, lapack_int i1,+                             lapack_int i2 );+lapack_int LAPACKE_zheswapr_work( int matrix_order, char uplo, lapack_int n,+                                  lapack_complex_double* a, lapack_int i1,+                                  lapack_int i2 );+lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n,+                            lapack_complex_double* a, lapack_int lda,+                            const lapack_int* ipiv );+lapack_int LAPACKE_zhetri2_work( int matrix_order, char uplo, lapack_int n,+                                 lapack_complex_double* a, lapack_int lda,+                                 const lapack_int* ipiv,+                                 lapack_complex_double* work, lapack_int lwork );+lapack_int LAPACKE_zhetri2x( int matrix_order, char uplo, lapack_int n,+                             lapack_complex_double* a, lapack_int lda,+                             const lapack_int* ipiv, lapack_int nb );+//LAPACK 3.4.0+lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int nb, const float* v, lapack_int ldv,+                            const float* t, lapack_int ldt, float* c,+                            lapack_int ldc );+lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int nb, const double* v, lapack_int ldv,+                            const double* t, lapack_int ldt, double* c,+                            lapack_int ldc );+lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int nb, const lapack_complex_float* v,+                            lapack_int ldv, const lapack_complex_float* t,+                            lapack_int ldt, lapack_complex_float* c,+                            lapack_int ldc );+lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int nb, const lapack_complex_double* v,+                            lapack_int ldv, const lapack_complex_double* t,+                            lapack_int ldt, lapack_complex_double* c,+                            lapack_int ldc );++lapack_int LAPACKE_sgeqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nb, float* a, lapack_int lda, float* t,+                           lapack_int ldt );+lapack_int LAPACKE_dgeqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nb, double* a, lapack_int lda, double* t,+                           lapack_int ldt );+lapack_int LAPACKE_cgeqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nb, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* t,+                           lapack_int ldt );+lapack_int LAPACKE_zgeqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int nb, lapack_complex_double* a,+                           lapack_int lda, lapack_complex_double* t,+                           lapack_int ldt );++lapack_int LAPACKE_sgeqrt2( int matrix_order, lapack_int m, lapack_int n,+                            float* a, lapack_int lda, float* t,+                            lapack_int ldt );+lapack_int LAPACKE_dgeqrt2( int matrix_order, lapack_int m, lapack_int n,+                            double* a, lapack_int lda, double* t,+                            lapack_int ldt );+lapack_int LAPACKE_cgeqrt2( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zgeqrt2( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_sgeqrt3( int matrix_order, lapack_int m, lapack_int n,+                            float* a, lapack_int lda, float* t,+                            lapack_int ldt );+lapack_int LAPACKE_dgeqrt3( int matrix_order, lapack_int m, lapack_int n,+                            double* a, lapack_int lda, double* t,+                            lapack_int ldt );+lapack_int LAPACKE_cgeqrt3( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zgeqrt3( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int l, lapack_int nb, const float* v,+                            lapack_int ldv, const float* t, lapack_int ldt,+                            float* a, lapack_int lda, float* b,+                            lapack_int ldb );+lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int l, lapack_int nb, const double* v,+                            lapack_int ldv, const double* t, lapack_int ldt,+                            double* a, lapack_int lda, double* b,+                            lapack_int ldb );+lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int l, lapack_int nb,+                            const lapack_complex_float* v, lapack_int ldv,+                            const lapack_complex_float* t, lapack_int ldt,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* b, lapack_int ldb );+lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans,+                            lapack_int m, lapack_int n, lapack_int k,+                            lapack_int l, lapack_int nb,+                            const lapack_complex_double* v, lapack_int ldv,+                            const lapack_complex_double* t, lapack_int ldt,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* b, lapack_int ldb );++lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int l, lapack_int nb, double* a,+                           lapack_int lda, double* b, lapack_int ldb, double* t,+                           lapack_int ldt );+lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int l, lapack_int nb, lapack_complex_float* a,+                           lapack_int lda, lapack_complex_float* t,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_int ldt );+lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n,+                           lapack_int l, lapack_int nb,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_stpqrt2( int matrix_order, lapack_int m, lapack_int n,+                            float* a, lapack_int lda, float* b, lapack_int ldb,+                            float* t, lapack_int ldt );+lapack_int LAPACKE_dtpqrt2( int matrix_order, lapack_int m, lapack_int n,+                            double* a, lapack_int lda, double* b,+                            lapack_int ldb, double* t, lapack_int ldt );+lapack_int LAPACKE_ctpqrt2( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_float* a, lapack_int lda,+                            lapack_complex_float* b, lapack_int ldb,+                            lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_ztpqrt2( int matrix_order, lapack_int m, lapack_int n,+                            lapack_complex_double* a, lapack_int lda,+                            lapack_complex_double* b, lapack_int ldb,+                            lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, lapack_int l, const float* v,+                           lapack_int ldv, const float* t, lapack_int ldt,+                           float* a, lapack_int lda, float* b, lapack_int ldb,+                           lapack_int myldwork );+lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, lapack_int l, const double* v,+                           lapack_int ldv, const double* t, lapack_int ldt,+                           double* a, lapack_int lda, double* b, lapack_int ldb,+                           lapack_int myldwork );+lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, lapack_int l,+                           const lapack_complex_float* v, lapack_int ldv,+                           const lapack_complex_float* t, lapack_int ldt,+                           lapack_complex_float* a, lapack_int lda,+                           lapack_complex_float* b, lapack_int ldb,+                           lapack_int myldwork );+lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct,+                           char storev, lapack_int m, lapack_int n,+                           lapack_int k, lapack_int l,+                           const lapack_complex_double* v, lapack_int ldv,+                           const lapack_complex_double* t, lapack_int ldt,+                           lapack_complex_double* a, lapack_int lda,+                           lapack_complex_double* b, lapack_int ldb,+                           lapack_int myldwork );++lapack_int LAPACKE_sgemqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int nb, const float* v, lapack_int ldv,+                                 const float* t, lapack_int ldt, float* c,+                                 lapack_int ldc, float* work );+lapack_int LAPACKE_dgemqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int nb, const double* v, lapack_int ldv,+                                 const double* t, lapack_int ldt, double* c,+                                 lapack_int ldc, double* work );+lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int nb, const lapack_complex_float* v,+                                 lapack_int ldv, const lapack_complex_float* t,+                                 lapack_int ldt, lapack_complex_float* c,+                                 lapack_int ldc, lapack_complex_float* work );+lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int nb, const lapack_complex_double* v,+                                 lapack_int ldv, const lapack_complex_double* t,+                                 lapack_int ldt, lapack_complex_double* c,+                                 lapack_int ldc, lapack_complex_double* work );++lapack_int LAPACKE_sgeqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nb, float* a, lapack_int lda,+                                float* t, lapack_int ldt, float* work );+lapack_int LAPACKE_dgeqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nb, double* a, lapack_int lda,+                                double* t, lapack_int ldt, double* work );+lapack_int LAPACKE_cgeqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nb, lapack_complex_float* a,+                                lapack_int lda, lapack_complex_float* t,+                                lapack_int ldt, lapack_complex_float* work );+lapack_int LAPACKE_zgeqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int nb, lapack_complex_double* a,+                                lapack_int lda, lapack_complex_double* t,+                                lapack_int ldt, lapack_complex_double* work );++lapack_int LAPACKE_sgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 float* a, lapack_int lda, float* t,+                                 lapack_int ldt );+lapack_int LAPACKE_dgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 double* a, lapack_int lda, double* t,+                                 lapack_int ldt );+lapack_int LAPACKE_cgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zgeqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_sgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,+                                 float* a, lapack_int lda, float* t,+                                 lapack_int ldt );+lapack_int LAPACKE_dgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,+                                 double* a, lapack_int lda, double* t,+                                 lapack_int ldt );+lapack_int LAPACKE_cgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_zgeqrt3_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int l, lapack_int nb, const float* v,+                                 lapack_int ldv, const float* t, lapack_int ldt,+                                 float* a, lapack_int lda, float* b,+                                 lapack_int ldb, float* work );+lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int l, lapack_int nb, const double* v,+                                 lapack_int ldv, const double* t,+                                 lapack_int ldt, double* a, lapack_int lda,+                                 double* b, lapack_int ldb, double* work );+lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int l, lapack_int nb,+                                 const lapack_complex_float* v, lapack_int ldv,+                                 const lapack_complex_float* t, lapack_int ldt,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* work );+lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans,+                                 lapack_int m, lapack_int n, lapack_int k,+                                 lapack_int l, lapack_int nb,+                                 const lapack_complex_double* v, lapack_int ldv,+                                 const lapack_complex_double* t, lapack_int ldt,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* work );++lapack_int LAPACKE_dtpqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int l, lapack_int nb, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                double* t, lapack_int ldt, double* work );+lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int l, lapack_int nb,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* t,+                                lapack_complex_float* b, lapack_int ldb,+                                lapack_int ldt, lapack_complex_float* work );+lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n,+                                lapack_int l, lapack_int nb,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* work );++lapack_int LAPACKE_stpqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 float* a, lapack_int lda, float* b,+                                 lapack_int ldb, float* t, lapack_int ldt );+lapack_int LAPACKE_dtpqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 double* a, lapack_int lda, double* b,+                                 lapack_int ldb, double* t, lapack_int ldt );+lapack_int LAPACKE_ctpqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_float* a, lapack_int lda,+                                 lapack_complex_float* b, lapack_int ldb,+                                 lapack_complex_float* t, lapack_int ldt );+lapack_int LAPACKE_ztpqrt2_work( int matrix_order, lapack_int m, lapack_int n,+                                 lapack_complex_double* a, lapack_int lda,+                                 lapack_complex_double* b, lapack_int ldb,+                                 lapack_complex_double* t, lapack_int ldt );++lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, lapack_int l,+                                const float* v, lapack_int ldv, const float* t,+                                lapack_int ldt, float* a, lapack_int lda,+                                float* b, lapack_int ldb, const float* mywork,+                                lapack_int myldwork );+lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, lapack_int l,+                                const double* v, lapack_int ldv,+                                const double* t, lapack_int ldt, double* a,+                                lapack_int lda, double* b, lapack_int ldb,+                                const double* mywork, lapack_int myldwork );+lapack_int LAPACKE_ctprfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, lapack_int l,+                                const lapack_complex_float* v, lapack_int ldv,+                                const lapack_complex_float* t, lapack_int ldt,+                                lapack_complex_float* a, lapack_int lda,+                                lapack_complex_float* b, lapack_int ldb,+                                const float* mywork, lapack_int myldwork );+lapack_int LAPACKE_ztprfb_work( int matrix_order, char side, char trans,+                                char direct, char storev, lapack_int m,+                                lapack_int n, lapack_int k, lapack_int l,+                                const lapack_complex_double* v, lapack_int ldv,+                                const lapack_complex_double* t, lapack_int ldt,+                                lapack_complex_double* a, lapack_int lda,+                                lapack_complex_double* b, lapack_int ldb,+                                const double* mywork, lapack_int myldwork );+++#define LAPACK_sgetrf LAPACK_NAME(sgetrf,SGETRF)+#define LAPACK_dgetrf LAPACK_NAME(dgetrf,DGETRF)+#define LAPACK_cgetrf LAPACK_NAME(cgetrf,CGETRF)+#define LAPACK_zgetrf LAPACK_NAME(zgetrf,ZGETRF)+#define LAPACK_sgbtrf LAPACK_NAME(sgbtrf,SGBTRF)+#define LAPACK_dgbtrf LAPACK_NAME(dgbtrf,DGBTRF)+#define LAPACK_cgbtrf LAPACK_NAME(cgbtrf,CGBTRF)+#define LAPACK_zgbtrf LAPACK_NAME(zgbtrf,ZGBTRF)+#define LAPACK_sgttrf LAPACK_NAME(sgttrf,SGTTRF)+#define LAPACK_dgttrf LAPACK_NAME(dgttrf,DGTTRF)+#define LAPACK_cgttrf LAPACK_NAME(cgttrf,CGTTRF)+#define LAPACK_zgttrf LAPACK_NAME(zgttrf,ZGTTRF)+#define LAPACK_spotrf LAPACK_NAME(spotrf,SPOTRF)+#define LAPACK_dpotrf LAPACK_NAME(dpotrf,DPOTRF)+#define LAPACK_cpotrf LAPACK_NAME(cpotrf,CPOTRF)+#define LAPACK_zpotrf LAPACK_NAME(zpotrf,ZPOTRF)+#define LAPACK_dpstrf LAPACK_NAME(dpstrf,DPSTRF)+#define LAPACK_spstrf LAPACK_NAME(spstrf,SPSTRF)+#define LAPACK_zpstrf LAPACK_NAME(zpstrf,ZPSTRF)+#define LAPACK_cpstrf LAPACK_NAME(cpstrf,CPSTRF)+#define LAPACK_dpftrf LAPACK_NAME(dpftrf,DPFTRF)+#define LAPACK_spftrf LAPACK_NAME(spftrf,SPFTRF)+#define LAPACK_zpftrf LAPACK_NAME(zpftrf,ZPFTRF)+#define LAPACK_cpftrf LAPACK_NAME(cpftrf,CPFTRF)+#define LAPACK_spptrf LAPACK_NAME(spptrf,SPPTRF)+#define LAPACK_dpptrf LAPACK_NAME(dpptrf,DPPTRF)+#define LAPACK_cpptrf LAPACK_NAME(cpptrf,CPPTRF)+#define LAPACK_zpptrf LAPACK_NAME(zpptrf,ZPPTRF)+#define LAPACK_spbtrf LAPACK_NAME(spbtrf,SPBTRF)+#define LAPACK_dpbtrf LAPACK_NAME(dpbtrf,DPBTRF)+#define LAPACK_cpbtrf LAPACK_NAME(cpbtrf,CPBTRF)+#define LAPACK_zpbtrf LAPACK_NAME(zpbtrf,ZPBTRF)+#define LAPACK_spttrf LAPACK_NAME(spttrf,SPTTRF)+#define LAPACK_dpttrf LAPACK_NAME(dpttrf,DPTTRF)+#define LAPACK_cpttrf LAPACK_NAME(cpttrf,CPTTRF)+#define LAPACK_zpttrf LAPACK_NAME(zpttrf,ZPTTRF)+#define LAPACK_ssytrf LAPACK_NAME(ssytrf,SSYTRF)+#define LAPACK_dsytrf LAPACK_NAME(dsytrf,DSYTRF)+#define LAPACK_csytrf LAPACK_NAME(csytrf,CSYTRF)+#define LAPACK_zsytrf LAPACK_NAME(zsytrf,ZSYTRF)+#define LAPACK_chetrf LAPACK_NAME(chetrf,CHETRF)+#define LAPACK_zhetrf LAPACK_NAME(zhetrf,ZHETRF)+#define LAPACK_ssptrf LAPACK_NAME(ssptrf,SSPTRF)+#define LAPACK_dsptrf LAPACK_NAME(dsptrf,DSPTRF)+#define LAPACK_csptrf LAPACK_NAME(csptrf,CSPTRF)+#define LAPACK_zsptrf LAPACK_NAME(zsptrf,ZSPTRF)+#define LAPACK_chptrf LAPACK_NAME(chptrf,CHPTRF)+#define LAPACK_zhptrf LAPACK_NAME(zhptrf,ZHPTRF)+#define LAPACK_sgetrs LAPACK_NAME(sgetrs,SGETRS)+#define LAPACK_dgetrs LAPACK_NAME(dgetrs,DGETRS)+#define LAPACK_cgetrs LAPACK_NAME(cgetrs,CGETRS)+#define LAPACK_zgetrs LAPACK_NAME(zgetrs,ZGETRS)+#define LAPACK_sgbtrs LAPACK_NAME(sgbtrs,SGBTRS)+#define LAPACK_dgbtrs LAPACK_NAME(dgbtrs,DGBTRS)+#define LAPACK_cgbtrs LAPACK_NAME(cgbtrs,CGBTRS)+#define LAPACK_zgbtrs LAPACK_NAME(zgbtrs,ZGBTRS)+#define LAPACK_sgttrs LAPACK_NAME(sgttrs,SGTTRS)+#define LAPACK_dgttrs LAPACK_NAME(dgttrs,DGTTRS)+#define LAPACK_cgttrs LAPACK_NAME(cgttrs,CGTTRS)+#define LAPACK_zgttrs LAPACK_NAME(zgttrs,ZGTTRS)+#define LAPACK_spotrs LAPACK_NAME(spotrs,SPOTRS)+#define LAPACK_dpotrs LAPACK_NAME(dpotrs,DPOTRS)+#define LAPACK_cpotrs LAPACK_NAME(cpotrs,CPOTRS)+#define LAPACK_zpotrs LAPACK_NAME(zpotrs,ZPOTRS)+#define LAPACK_dpftrs LAPACK_NAME(dpftrs,DPFTRS)+#define LAPACK_spftrs LAPACK_NAME(spftrs,SPFTRS)+#define LAPACK_zpftrs LAPACK_NAME(zpftrs,ZPFTRS)+#define LAPACK_cpftrs LAPACK_NAME(cpftrs,CPFTRS)+#define LAPACK_spptrs LAPACK_NAME(spptrs,SPPTRS)+#define LAPACK_dpptrs LAPACK_NAME(dpptrs,DPPTRS)+#define LAPACK_cpptrs LAPACK_NAME(cpptrs,CPPTRS)+#define LAPACK_zpptrs LAPACK_NAME(zpptrs,ZPPTRS)+#define LAPACK_spbtrs LAPACK_NAME(spbtrs,SPBTRS)+#define LAPACK_dpbtrs LAPACK_NAME(dpbtrs,DPBTRS)+#define LAPACK_cpbtrs LAPACK_NAME(cpbtrs,CPBTRS)+#define LAPACK_zpbtrs LAPACK_NAME(zpbtrs,ZPBTRS)+#define LAPACK_spttrs LAPACK_NAME(spttrs,SPTTRS)+#define LAPACK_dpttrs LAPACK_NAME(dpttrs,DPTTRS)+#define LAPACK_cpttrs LAPACK_NAME(cpttrs,CPTTRS)+#define LAPACK_zpttrs LAPACK_NAME(zpttrs,ZPTTRS)+#define LAPACK_ssytrs LAPACK_NAME(ssytrs,SSYTRS)+#define LAPACK_dsytrs LAPACK_NAME(dsytrs,DSYTRS)+#define LAPACK_csytrs LAPACK_NAME(csytrs,CSYTRS)+#define LAPACK_zsytrs LAPACK_NAME(zsytrs,ZSYTRS)+#define LAPACK_chetrs LAPACK_NAME(chetrs,CHETRS)+#define LAPACK_zhetrs LAPACK_NAME(zhetrs,ZHETRS)+#define LAPACK_ssptrs LAPACK_NAME(ssptrs,SSPTRS)+#define LAPACK_dsptrs LAPACK_NAME(dsptrs,DSPTRS)+#define LAPACK_csptrs LAPACK_NAME(csptrs,CSPTRS)+#define LAPACK_zsptrs LAPACK_NAME(zsptrs,ZSPTRS)+#define LAPACK_chptrs LAPACK_NAME(chptrs,CHPTRS)+#define LAPACK_zhptrs LAPACK_NAME(zhptrs,ZHPTRS)+#define LAPACK_strtrs LAPACK_NAME(strtrs,STRTRS)+#define LAPACK_dtrtrs LAPACK_NAME(dtrtrs,DTRTRS)+#define LAPACK_ctrtrs LAPACK_NAME(ctrtrs,CTRTRS)+#define LAPACK_ztrtrs LAPACK_NAME(ztrtrs,ZTRTRS)+#define LAPACK_stptrs LAPACK_NAME(stptrs,STPTRS)+#define LAPACK_dtptrs LAPACK_NAME(dtptrs,DTPTRS)+#define LAPACK_ctptrs LAPACK_NAME(ctptrs,CTPTRS)+#define LAPACK_ztptrs LAPACK_NAME(ztptrs,ZTPTRS)+#define LAPACK_stbtrs LAPACK_NAME(stbtrs,STBTRS)+#define LAPACK_dtbtrs LAPACK_NAME(dtbtrs,DTBTRS)+#define LAPACK_ctbtrs LAPACK_NAME(ctbtrs,CTBTRS)+#define LAPACK_ztbtrs LAPACK_NAME(ztbtrs,ZTBTRS)+#define LAPACK_sgecon LAPACK_NAME(sgecon,SGECON)+#define LAPACK_dgecon LAPACK_NAME(dgecon,DGECON)+#define LAPACK_cgecon LAPACK_NAME(cgecon,CGECON)+#define LAPACK_zgecon LAPACK_NAME(zgecon,ZGECON)+#define LAPACK_sgbcon LAPACK_NAME(sgbcon,SGBCON)+#define LAPACK_dgbcon LAPACK_NAME(dgbcon,DGBCON)+#define LAPACK_cgbcon LAPACK_NAME(cgbcon,CGBCON)+#define LAPACK_zgbcon LAPACK_NAME(zgbcon,ZGBCON)+#define LAPACK_sgtcon LAPACK_NAME(sgtcon,SGTCON)+#define LAPACK_dgtcon LAPACK_NAME(dgtcon,DGTCON)+#define LAPACK_cgtcon LAPACK_NAME(cgtcon,CGTCON)+#define LAPACK_zgtcon LAPACK_NAME(zgtcon,ZGTCON)+#define LAPACK_spocon LAPACK_NAME(spocon,SPOCON)+#define LAPACK_dpocon LAPACK_NAME(dpocon,DPOCON)+#define LAPACK_cpocon LAPACK_NAME(cpocon,CPOCON)+#define LAPACK_zpocon LAPACK_NAME(zpocon,ZPOCON)+#define LAPACK_sppcon LAPACK_NAME(sppcon,SPPCON)+#define LAPACK_dppcon LAPACK_NAME(dppcon,DPPCON)+#define LAPACK_cppcon LAPACK_NAME(cppcon,CPPCON)+#define LAPACK_zppcon LAPACK_NAME(zppcon,ZPPCON)+#define LAPACK_spbcon LAPACK_NAME(spbcon,SPBCON)+#define LAPACK_dpbcon LAPACK_NAME(dpbcon,DPBCON)+#define LAPACK_cpbcon LAPACK_NAME(cpbcon,CPBCON)+#define LAPACK_zpbcon LAPACK_NAME(zpbcon,ZPBCON)+#define LAPACK_sptcon LAPACK_NAME(sptcon,SPTCON)+#define LAPACK_dptcon LAPACK_NAME(dptcon,DPTCON)+#define LAPACK_cptcon LAPACK_NAME(cptcon,CPTCON)+#define LAPACK_zptcon LAPACK_NAME(zptcon,ZPTCON)+#define LAPACK_ssycon LAPACK_NAME(ssycon,SSYCON)+#define LAPACK_dsycon LAPACK_NAME(dsycon,DSYCON)+#define LAPACK_csycon LAPACK_NAME(csycon,CSYCON)+#define LAPACK_zsycon LAPACK_NAME(zsycon,ZSYCON)+#define LAPACK_checon LAPACK_NAME(checon,CHECON)+#define LAPACK_zhecon LAPACK_NAME(zhecon,ZHECON)+#define LAPACK_sspcon LAPACK_NAME(sspcon,SSPCON)+#define LAPACK_dspcon LAPACK_NAME(dspcon,DSPCON)+#define LAPACK_cspcon LAPACK_NAME(cspcon,CSPCON)+#define LAPACK_zspcon LAPACK_NAME(zspcon,ZSPCON)+#define LAPACK_chpcon LAPACK_NAME(chpcon,CHPCON)+#define LAPACK_zhpcon LAPACK_NAME(zhpcon,ZHPCON)+#define LAPACK_strcon LAPACK_NAME(strcon,STRCON)+#define LAPACK_dtrcon LAPACK_NAME(dtrcon,DTRCON)+#define LAPACK_ctrcon LAPACK_NAME(ctrcon,CTRCON)+#define LAPACK_ztrcon LAPACK_NAME(ztrcon,ZTRCON)+#define LAPACK_stpcon LAPACK_NAME(stpcon,STPCON)+#define LAPACK_dtpcon LAPACK_NAME(dtpcon,DTPCON)+#define LAPACK_ctpcon LAPACK_NAME(ctpcon,CTPCON)+#define LAPACK_ztpcon LAPACK_NAME(ztpcon,ZTPCON)+#define LAPACK_stbcon LAPACK_NAME(stbcon,STBCON)+#define LAPACK_dtbcon LAPACK_NAME(dtbcon,DTBCON)+#define LAPACK_ctbcon LAPACK_NAME(ctbcon,CTBCON)+#define LAPACK_ztbcon LAPACK_NAME(ztbcon,ZTBCON)+#define LAPACK_sgerfs LAPACK_NAME(sgerfs,SGERFS)+#define LAPACK_dgerfs LAPACK_NAME(dgerfs,DGERFS)+#define LAPACK_cgerfs LAPACK_NAME(cgerfs,CGERFS)+#define LAPACK_zgerfs LAPACK_NAME(zgerfs,ZGERFS)+#define LAPACK_dgerfsx LAPACK_NAME(dgerfsx,DGERFSX)+#define LAPACK_sgerfsx LAPACK_NAME(sgerfsx,SGERFSX)+#define LAPACK_zgerfsx LAPACK_NAME(zgerfsx,ZGERFSX)+#define LAPACK_cgerfsx LAPACK_NAME(cgerfsx,CGERFSX)+#define LAPACK_sgbrfs LAPACK_NAME(sgbrfs,SGBRFS)+#define LAPACK_dgbrfs LAPACK_NAME(dgbrfs,DGBRFS)+#define LAPACK_cgbrfs LAPACK_NAME(cgbrfs,CGBRFS)+#define LAPACK_zgbrfs LAPACK_NAME(zgbrfs,ZGBRFS)+#define LAPACK_dgbrfsx LAPACK_NAME(dgbrfsx,DGBRFSX)+#define LAPACK_sgbrfsx LAPACK_NAME(sgbrfsx,SGBRFSX)+#define LAPACK_zgbrfsx LAPACK_NAME(zgbrfsx,ZGBRFSX)+#define LAPACK_cgbrfsx LAPACK_NAME(cgbrfsx,CGBRFSX)+#define LAPACK_sgtrfs LAPACK_NAME(sgtrfs,SGTRFS)+#define LAPACK_dgtrfs LAPACK_NAME(dgtrfs,DGTRFS)+#define LAPACK_cgtrfs LAPACK_NAME(cgtrfs,CGTRFS)+#define LAPACK_zgtrfs LAPACK_NAME(zgtrfs,ZGTRFS)+#define LAPACK_sporfs LAPACK_NAME(sporfs,SPORFS)+#define LAPACK_dporfs LAPACK_NAME(dporfs,DPORFS)+#define LAPACK_cporfs LAPACK_NAME(cporfs,CPORFS)+#define LAPACK_zporfs LAPACK_NAME(zporfs,ZPORFS)+#define LAPACK_dporfsx LAPACK_NAME(dporfsx,DPORFSX)+#define LAPACK_sporfsx LAPACK_NAME(sporfsx,SPORFSX)+#define LAPACK_zporfsx LAPACK_NAME(zporfsx,ZPORFSX)+#define LAPACK_cporfsx LAPACK_NAME(cporfsx,CPORFSX)+#define LAPACK_spprfs LAPACK_NAME(spprfs,SPPRFS)+#define LAPACK_dpprfs LAPACK_NAME(dpprfs,DPPRFS)+#define LAPACK_cpprfs LAPACK_NAME(cpprfs,CPPRFS)+#define LAPACK_zpprfs LAPACK_NAME(zpprfs,ZPPRFS)+#define LAPACK_spbrfs LAPACK_NAME(spbrfs,SPBRFS)+#define LAPACK_dpbrfs LAPACK_NAME(dpbrfs,DPBRFS)+#define LAPACK_cpbrfs LAPACK_NAME(cpbrfs,CPBRFS)+#define LAPACK_zpbrfs LAPACK_NAME(zpbrfs,ZPBRFS)+#define LAPACK_sptrfs LAPACK_NAME(sptrfs,SPTRFS)+#define LAPACK_dptrfs LAPACK_NAME(dptrfs,DPTRFS)+#define LAPACK_cptrfs LAPACK_NAME(cptrfs,CPTRFS)+#define LAPACK_zptrfs LAPACK_NAME(zptrfs,ZPTRFS)+#define LAPACK_ssyrfs LAPACK_NAME(ssyrfs,SSYRFS)+#define LAPACK_dsyrfs LAPACK_NAME(dsyrfs,DSYRFS)+#define LAPACK_csyrfs LAPACK_NAME(csyrfs,CSYRFS)+#define LAPACK_zsyrfs LAPACK_NAME(zsyrfs,ZSYRFS)+#define LAPACK_dsyrfsx LAPACK_NAME(dsyrfsx,DSYRFSX)+#define LAPACK_ssyrfsx LAPACK_NAME(ssyrfsx,SSYRFSX)+#define LAPACK_zsyrfsx LAPACK_NAME(zsyrfsx,ZSYRFSX)+#define LAPACK_csyrfsx LAPACK_NAME(csyrfsx,CSYRFSX)+#define LAPACK_cherfs LAPACK_NAME(cherfs,CHERFS)+#define LAPACK_zherfs LAPACK_NAME(zherfs,ZHERFS)+#define LAPACK_zherfsx LAPACK_NAME(zherfsx,ZHERFSX)+#define LAPACK_cherfsx LAPACK_NAME(cherfsx,CHERFSX)+#define LAPACK_ssprfs LAPACK_NAME(ssprfs,SSPRFS)+#define LAPACK_dsprfs LAPACK_NAME(dsprfs,DSPRFS)+#define LAPACK_csprfs LAPACK_NAME(csprfs,CSPRFS)+#define LAPACK_zsprfs LAPACK_NAME(zsprfs,ZSPRFS)+#define LAPACK_chprfs LAPACK_NAME(chprfs,CHPRFS)+#define LAPACK_zhprfs LAPACK_NAME(zhprfs,ZHPRFS)+#define LAPACK_strrfs LAPACK_NAME(strrfs,STRRFS)+#define LAPACK_dtrrfs LAPACK_NAME(dtrrfs,DTRRFS)+#define LAPACK_ctrrfs LAPACK_NAME(ctrrfs,CTRRFS)+#define LAPACK_ztrrfs LAPACK_NAME(ztrrfs,ZTRRFS)+#define LAPACK_stprfs LAPACK_NAME(stprfs,STPRFS)+#define LAPACK_dtprfs LAPACK_NAME(dtprfs,DTPRFS)+#define LAPACK_ctprfs LAPACK_NAME(ctprfs,CTPRFS)+#define LAPACK_ztprfs LAPACK_NAME(ztprfs,ZTPRFS)+#define LAPACK_stbrfs LAPACK_NAME(stbrfs,STBRFS)+#define LAPACK_dtbrfs LAPACK_NAME(dtbrfs,DTBRFS)+#define LAPACK_ctbrfs LAPACK_NAME(ctbrfs,CTBRFS)+#define LAPACK_ztbrfs LAPACK_NAME(ztbrfs,ZTBRFS)+#define LAPACK_sgetri LAPACK_NAME(sgetri,SGETRI)+#define LAPACK_dgetri LAPACK_NAME(dgetri,DGETRI)+#define LAPACK_cgetri LAPACK_NAME(cgetri,CGETRI)+#define LAPACK_zgetri LAPACK_NAME(zgetri,ZGETRI)+#define LAPACK_spotri LAPACK_NAME(spotri,SPOTRI)+#define LAPACK_dpotri LAPACK_NAME(dpotri,DPOTRI)+#define LAPACK_cpotri LAPACK_NAME(cpotri,CPOTRI)+#define LAPACK_zpotri LAPACK_NAME(zpotri,ZPOTRI)+#define LAPACK_dpftri LAPACK_NAME(dpftri,DPFTRI)+#define LAPACK_spftri LAPACK_NAME(spftri,SPFTRI)+#define LAPACK_zpftri LAPACK_NAME(zpftri,ZPFTRI)+#define LAPACK_cpftri LAPACK_NAME(cpftri,CPFTRI)+#define LAPACK_spptri LAPACK_NAME(spptri,SPPTRI)+#define LAPACK_dpptri LAPACK_NAME(dpptri,DPPTRI)+#define LAPACK_cpptri LAPACK_NAME(cpptri,CPPTRI)+#define LAPACK_zpptri LAPACK_NAME(zpptri,ZPPTRI)+#define LAPACK_ssytri LAPACK_NAME(ssytri,SSYTRI)+#define LAPACK_dsytri LAPACK_NAME(dsytri,DSYTRI)+#define LAPACK_csytri LAPACK_NAME(csytri,CSYTRI)+#define LAPACK_zsytri LAPACK_NAME(zsytri,ZSYTRI)+#define LAPACK_chetri LAPACK_NAME(chetri,CHETRI)+#define LAPACK_zhetri LAPACK_NAME(zhetri,ZHETRI)+#define LAPACK_ssptri LAPACK_NAME(ssptri,SSPTRI)+#define LAPACK_dsptri LAPACK_NAME(dsptri,DSPTRI)+#define LAPACK_csptri LAPACK_NAME(csptri,CSPTRI)+#define LAPACK_zsptri LAPACK_NAME(zsptri,ZSPTRI)+#define LAPACK_chptri LAPACK_NAME(chptri,CHPTRI)+#define LAPACK_zhptri LAPACK_NAME(zhptri,ZHPTRI)+#define LAPACK_strtri LAPACK_NAME(strtri,STRTRI)+#define LAPACK_dtrtri LAPACK_NAME(dtrtri,DTRTRI)+#define LAPACK_ctrtri LAPACK_NAME(ctrtri,CTRTRI)+#define LAPACK_ztrtri LAPACK_NAME(ztrtri,ZTRTRI)+#define LAPACK_dtftri LAPACK_NAME(dtftri,DTFTRI)+#define LAPACK_stftri LAPACK_NAME(stftri,STFTRI)+#define LAPACK_ztftri LAPACK_NAME(ztftri,ZTFTRI)+#define LAPACK_ctftri LAPACK_NAME(ctftri,CTFTRI)+#define LAPACK_stptri LAPACK_NAME(stptri,STPTRI)+#define LAPACK_dtptri LAPACK_NAME(dtptri,DTPTRI)+#define LAPACK_ctptri LAPACK_NAME(ctptri,CTPTRI)+#define LAPACK_ztptri LAPACK_NAME(ztptri,ZTPTRI)+#define LAPACK_sgeequ LAPACK_NAME(sgeequ,SGEEQU)+#define LAPACK_dgeequ LAPACK_NAME(dgeequ,DGEEQU)+#define LAPACK_cgeequ LAPACK_NAME(cgeequ,CGEEQU)+#define LAPACK_zgeequ LAPACK_NAME(zgeequ,ZGEEQU)+#define LAPACK_dgeequb LAPACK_NAME(dgeequb,DGEEQUB)+#define LAPACK_sgeequb LAPACK_NAME(sgeequb,SGEEQUB)+#define LAPACK_zgeequb LAPACK_NAME(zgeequb,ZGEEQUB)+#define LAPACK_cgeequb LAPACK_NAME(cgeequb,CGEEQUB)+#define LAPACK_sgbequ LAPACK_NAME(sgbequ,SGBEQU)+#define LAPACK_dgbequ LAPACK_NAME(dgbequ,DGBEQU)+#define LAPACK_cgbequ LAPACK_NAME(cgbequ,CGBEQU)+#define LAPACK_zgbequ LAPACK_NAME(zgbequ,ZGBEQU)+#define LAPACK_dgbequb LAPACK_NAME(dgbequb,DGBEQUB)+#define LAPACK_sgbequb LAPACK_NAME(sgbequb,SGBEQUB)+#define LAPACK_zgbequb LAPACK_NAME(zgbequb,ZGBEQUB)+#define LAPACK_cgbequb LAPACK_NAME(cgbequb,CGBEQUB)+#define LAPACK_spoequ LAPACK_NAME(spoequ,SPOEQU)+#define LAPACK_dpoequ LAPACK_NAME(dpoequ,DPOEQU)+#define LAPACK_cpoequ LAPACK_NAME(cpoequ,CPOEQU)+#define LAPACK_zpoequ LAPACK_NAME(zpoequ,ZPOEQU)+#define LAPACK_dpoequb LAPACK_NAME(dpoequb,DPOEQUB)+#define LAPACK_spoequb LAPACK_NAME(spoequb,SPOEQUB)+#define LAPACK_zpoequb LAPACK_NAME(zpoequb,ZPOEQUB)+#define LAPACK_cpoequb LAPACK_NAME(cpoequb,CPOEQUB)+#define LAPACK_sppequ LAPACK_NAME(sppequ,SPPEQU)+#define LAPACK_dppequ LAPACK_NAME(dppequ,DPPEQU)+#define LAPACK_cppequ LAPACK_NAME(cppequ,CPPEQU)+#define LAPACK_zppequ LAPACK_NAME(zppequ,ZPPEQU)+#define LAPACK_spbequ LAPACK_NAME(spbequ,SPBEQU)+#define LAPACK_dpbequ LAPACK_NAME(dpbequ,DPBEQU)+#define LAPACK_cpbequ LAPACK_NAME(cpbequ,CPBEQU)+#define LAPACK_zpbequ LAPACK_NAME(zpbequ,ZPBEQU)+#define LAPACK_dsyequb LAPACK_NAME(dsyequb,DSYEQUB)+#define LAPACK_ssyequb LAPACK_NAME(ssyequb,SSYEQUB)+#define LAPACK_zsyequb LAPACK_NAME(zsyequb,ZSYEQUB)+#define LAPACK_csyequb LAPACK_NAME(csyequb,CSYEQUB)+#define LAPACK_zheequb LAPACK_NAME(zheequb,ZHEEQUB)+#define LAPACK_cheequb LAPACK_NAME(cheequb,CHEEQUB)+#define LAPACK_sgesv LAPACK_NAME(sgesv,SGESV)+#define LAPACK_dgesv LAPACK_NAME(dgesv,DGESV)+#define LAPACK_cgesv LAPACK_NAME(cgesv,CGESV)+#define LAPACK_zgesv LAPACK_NAME(zgesv,ZGESV)+#define LAPACK_dsgesv LAPACK_NAME(dsgesv,DSGESV)+#define LAPACK_zcgesv LAPACK_NAME(zcgesv,ZCGESV)+#define LAPACK_sgesvx LAPACK_NAME(sgesvx,SGESVX)+#define LAPACK_dgesvx LAPACK_NAME(dgesvx,DGESVX)+#define LAPACK_cgesvx LAPACK_NAME(cgesvx,CGESVX)+#define LAPACK_zgesvx LAPACK_NAME(zgesvx,ZGESVX)+#define LAPACK_dgesvxx LAPACK_NAME(dgesvxx,DGESVXX)+#define LAPACK_sgesvxx LAPACK_NAME(sgesvxx,SGESVXX)+#define LAPACK_zgesvxx LAPACK_NAME(zgesvxx,ZGESVXX)+#define LAPACK_cgesvxx LAPACK_NAME(cgesvxx,CGESVXX)+#define LAPACK_sgbsv LAPACK_NAME(sgbsv,SGBSV)+#define LAPACK_dgbsv LAPACK_NAME(dgbsv,DGBSV)+#define LAPACK_cgbsv LAPACK_NAME(cgbsv,CGBSV)+#define LAPACK_zgbsv LAPACK_NAME(zgbsv,ZGBSV)+#define LAPACK_sgbsvx LAPACK_NAME(sgbsvx,SGBSVX)+#define LAPACK_dgbsvx LAPACK_NAME(dgbsvx,DGBSVX)+#define LAPACK_cgbsvx LAPACK_NAME(cgbsvx,CGBSVX)+#define LAPACK_zgbsvx LAPACK_NAME(zgbsvx,ZGBSVX)+#define LAPACK_dgbsvxx LAPACK_NAME(dgbsvxx,DGBSVXX)+#define LAPACK_sgbsvxx LAPACK_NAME(sgbsvxx,SGBSVXX)+#define LAPACK_zgbsvxx LAPACK_NAME(zgbsvxx,ZGBSVXX)+#define LAPACK_cgbsvxx LAPACK_NAME(cgbsvxx,CGBSVXX)+#define LAPACK_sgtsv LAPACK_NAME(sgtsv,SGTSV)+#define LAPACK_dgtsv LAPACK_NAME(dgtsv,DGTSV)+#define LAPACK_cgtsv LAPACK_NAME(cgtsv,CGTSV)+#define LAPACK_zgtsv LAPACK_NAME(zgtsv,ZGTSV)+#define LAPACK_sgtsvx LAPACK_NAME(sgtsvx,SGTSVX)+#define LAPACK_dgtsvx LAPACK_NAME(dgtsvx,DGTSVX)+#define LAPACK_cgtsvx LAPACK_NAME(cgtsvx,CGTSVX)+#define LAPACK_zgtsvx LAPACK_NAME(zgtsvx,ZGTSVX)+#define LAPACK_sposv LAPACK_NAME(sposv,SPOSV)+#define LAPACK_dposv LAPACK_NAME(dposv,DPOSV)+#define LAPACK_cposv LAPACK_NAME(cposv,CPOSV)+#define LAPACK_zposv LAPACK_NAME(zposv,ZPOSV)+#define LAPACK_dsposv LAPACK_NAME(dsposv,DSPOSV)+#define LAPACK_zcposv LAPACK_NAME(zcposv,ZCPOSV)+#define LAPACK_sposvx LAPACK_NAME(sposvx,SPOSVX)+#define LAPACK_dposvx LAPACK_NAME(dposvx,DPOSVX)+#define LAPACK_cposvx LAPACK_NAME(cposvx,CPOSVX)+#define LAPACK_zposvx LAPACK_NAME(zposvx,ZPOSVX)+#define LAPACK_dposvxx LAPACK_NAME(dposvxx,DPOSVXX)+#define LAPACK_sposvxx LAPACK_NAME(sposvxx,SPOSVXX)+#define LAPACK_zposvxx LAPACK_NAME(zposvxx,ZPOSVXX)+#define LAPACK_cposvxx LAPACK_NAME(cposvxx,CPOSVXX)+#define LAPACK_sppsv LAPACK_NAME(sppsv,SPPSV)+#define LAPACK_dppsv LAPACK_NAME(dppsv,DPPSV)+#define LAPACK_cppsv LAPACK_NAME(cppsv,CPPSV)+#define LAPACK_zppsv LAPACK_NAME(zppsv,ZPPSV)+#define LAPACK_sppsvx LAPACK_NAME(sppsvx,SPPSVX)+#define LAPACK_dppsvx LAPACK_NAME(dppsvx,DPPSVX)+#define LAPACK_cppsvx LAPACK_NAME(cppsvx,CPPSVX)+#define LAPACK_zppsvx LAPACK_NAME(zppsvx,ZPPSVX)+#define LAPACK_spbsv LAPACK_NAME(spbsv,SPBSV)+#define LAPACK_dpbsv LAPACK_NAME(dpbsv,DPBSV)+#define LAPACK_cpbsv LAPACK_NAME(cpbsv,CPBSV)+#define LAPACK_zpbsv LAPACK_NAME(zpbsv,ZPBSV)+#define LAPACK_spbsvx LAPACK_NAME(spbsvx,SPBSVX)+#define LAPACK_dpbsvx LAPACK_NAME(dpbsvx,DPBSVX)+#define LAPACK_cpbsvx LAPACK_NAME(cpbsvx,CPBSVX)+#define LAPACK_zpbsvx LAPACK_NAME(zpbsvx,ZPBSVX)+#define LAPACK_sptsv LAPACK_NAME(sptsv,SPTSV)+#define LAPACK_dptsv LAPACK_NAME(dptsv,DPTSV)+#define LAPACK_cptsv LAPACK_NAME(cptsv,CPTSV)+#define LAPACK_zptsv LAPACK_NAME(zptsv,ZPTSV)+#define LAPACK_sptsvx LAPACK_NAME(sptsvx,SPTSVX)+#define LAPACK_dptsvx LAPACK_NAME(dptsvx,DPTSVX)+#define LAPACK_cptsvx LAPACK_NAME(cptsvx,CPTSVX)+#define LAPACK_zptsvx LAPACK_NAME(zptsvx,ZPTSVX)+#define LAPACK_ssysv LAPACK_NAME(ssysv,SSYSV)+#define LAPACK_dsysv LAPACK_NAME(dsysv,DSYSV)+#define LAPACK_csysv LAPACK_NAME(csysv,CSYSV)+#define LAPACK_zsysv LAPACK_NAME(zsysv,ZSYSV)+#define LAPACK_ssysvx LAPACK_NAME(ssysvx,SSYSVX)+#define LAPACK_dsysvx LAPACK_NAME(dsysvx,DSYSVX)+#define LAPACK_csysvx LAPACK_NAME(csysvx,CSYSVX)+#define LAPACK_zsysvx LAPACK_NAME(zsysvx,ZSYSVX)+#define LAPACK_dsysvxx LAPACK_NAME(dsysvxx,DSYSVXX)+#define LAPACK_ssysvxx LAPACK_NAME(ssysvxx,SSYSVXX)+#define LAPACK_zsysvxx LAPACK_NAME(zsysvxx,ZSYSVXX)+#define LAPACK_csysvxx LAPACK_NAME(csysvxx,CSYSVXX)+#define LAPACK_chesv LAPACK_NAME(chesv,CHESV)+#define LAPACK_zhesv LAPACK_NAME(zhesv,ZHESV)+#define LAPACK_chesvx LAPACK_NAME(chesvx,CHESVX)+#define LAPACK_zhesvx LAPACK_NAME(zhesvx,ZHESVX)+#define LAPACK_zhesvxx LAPACK_NAME(zhesvxx,ZHESVXX)+#define LAPACK_chesvxx LAPACK_NAME(chesvxx,CHESVXX)+#define LAPACK_sspsv LAPACK_NAME(sspsv,SSPSV)+#define LAPACK_dspsv LAPACK_NAME(dspsv,DSPSV)+#define LAPACK_cspsv LAPACK_NAME(cspsv,CSPSV)+#define LAPACK_zspsv LAPACK_NAME(zspsv,ZSPSV)+#define LAPACK_sspsvx LAPACK_NAME(sspsvx,SSPSVX)+#define LAPACK_dspsvx LAPACK_NAME(dspsvx,DSPSVX)+#define LAPACK_cspsvx LAPACK_NAME(cspsvx,CSPSVX)+#define LAPACK_zspsvx LAPACK_NAME(zspsvx,ZSPSVX)+#define LAPACK_chpsv LAPACK_NAME(chpsv,CHPSV)+#define LAPACK_zhpsv LAPACK_NAME(zhpsv,ZHPSV)+#define LAPACK_chpsvx LAPACK_NAME(chpsvx,CHPSVX)+#define LAPACK_zhpsvx LAPACK_NAME(zhpsvx,ZHPSVX)+#define LAPACK_sgeqrf LAPACK_NAME(sgeqrf,SGEQRF)+#define LAPACK_dgeqrf LAPACK_NAME(dgeqrf,DGEQRF)+#define LAPACK_cgeqrf LAPACK_NAME(cgeqrf,CGEQRF)+#define LAPACK_zgeqrf LAPACK_NAME(zgeqrf,ZGEQRF)+#define LAPACK_sgeqpf LAPACK_NAME(sgeqpf,SGEQPF)+#define LAPACK_dgeqpf LAPACK_NAME(dgeqpf,DGEQPF)+#define LAPACK_cgeqpf LAPACK_NAME(cgeqpf,CGEQPF)+#define LAPACK_zgeqpf LAPACK_NAME(zgeqpf,ZGEQPF)+#define LAPACK_sgeqp3 LAPACK_NAME(sgeqp3,SGEQP3)+#define LAPACK_dgeqp3 LAPACK_NAME(dgeqp3,DGEQP3)+#define LAPACK_cgeqp3 LAPACK_NAME(cgeqp3,CGEQP3)+#define LAPACK_zgeqp3 LAPACK_NAME(zgeqp3,ZGEQP3)+#define LAPACK_sorgqr LAPACK_NAME(sorgqr,SORGQR)+#define LAPACK_dorgqr LAPACK_NAME(dorgqr,DORGQR)+#define LAPACK_sormqr LAPACK_NAME(sormqr,SORMQR)+#define LAPACK_dormqr LAPACK_NAME(dormqr,DORMQR)+#define LAPACK_cungqr LAPACK_NAME(cungqr,CUNGQR)+#define LAPACK_zungqr LAPACK_NAME(zungqr,ZUNGQR)+#define LAPACK_cunmqr LAPACK_NAME(cunmqr,CUNMQR)+#define LAPACK_zunmqr LAPACK_NAME(zunmqr,ZUNMQR)+#define LAPACK_sgelqf LAPACK_NAME(sgelqf,SGELQF)+#define LAPACK_dgelqf LAPACK_NAME(dgelqf,DGELQF)+#define LAPACK_cgelqf LAPACK_NAME(cgelqf,CGELQF)+#define LAPACK_zgelqf LAPACK_NAME(zgelqf,ZGELQF)+#define LAPACK_sorglq LAPACK_NAME(sorglq,SORGLQ)+#define LAPACK_dorglq LAPACK_NAME(dorglq,DORGLQ)+#define LAPACK_sormlq LAPACK_NAME(sormlq,SORMLQ)+#define LAPACK_dormlq LAPACK_NAME(dormlq,DORMLQ)+#define LAPACK_cunglq LAPACK_NAME(cunglq,CUNGLQ)+#define LAPACK_zunglq LAPACK_NAME(zunglq,ZUNGLQ)+#define LAPACK_cunmlq LAPACK_NAME(cunmlq,CUNMLQ)+#define LAPACK_zunmlq LAPACK_NAME(zunmlq,ZUNMLQ)+#define LAPACK_sgeqlf LAPACK_NAME(sgeqlf,SGEQLF)+#define LAPACK_dgeqlf LAPACK_NAME(dgeqlf,DGEQLF)+#define LAPACK_cgeqlf LAPACK_NAME(cgeqlf,CGEQLF)+#define LAPACK_zgeqlf LAPACK_NAME(zgeqlf,ZGEQLF)+#define LAPACK_sorgql LAPACK_NAME(sorgql,SORGQL)+#define LAPACK_dorgql LAPACK_NAME(dorgql,DORGQL)+#define LAPACK_cungql LAPACK_NAME(cungql,CUNGQL)+#define LAPACK_zungql LAPACK_NAME(zungql,ZUNGQL)+#define LAPACK_sormql LAPACK_NAME(sormql,SORMQL)+#define LAPACK_dormql LAPACK_NAME(dormql,DORMQL)+#define LAPACK_cunmql LAPACK_NAME(cunmql,CUNMQL)+#define LAPACK_zunmql LAPACK_NAME(zunmql,ZUNMQL)+#define LAPACK_sgerqf LAPACK_NAME(sgerqf,SGERQF)+#define LAPACK_dgerqf LAPACK_NAME(dgerqf,DGERQF)+#define LAPACK_cgerqf LAPACK_NAME(cgerqf,CGERQF)+#define LAPACK_zgerqf LAPACK_NAME(zgerqf,ZGERQF)+#define LAPACK_sorgrq LAPACK_NAME(sorgrq,SORGRQ)+#define LAPACK_dorgrq LAPACK_NAME(dorgrq,DORGRQ)+#define LAPACK_cungrq LAPACK_NAME(cungrq,CUNGRQ)+#define LAPACK_zungrq LAPACK_NAME(zungrq,ZUNGRQ)+#define LAPACK_sormrq LAPACK_NAME(sormrq,SORMRQ)+#define LAPACK_dormrq LAPACK_NAME(dormrq,DORMRQ)+#define LAPACK_cunmrq LAPACK_NAME(cunmrq,CUNMRQ)+#define LAPACK_zunmrq LAPACK_NAME(zunmrq,ZUNMRQ)+#define LAPACK_stzrzf LAPACK_NAME(stzrzf,STZRZF)+#define LAPACK_dtzrzf LAPACK_NAME(dtzrzf,DTZRZF)+#define LAPACK_ctzrzf LAPACK_NAME(ctzrzf,CTZRZF)+#define LAPACK_ztzrzf LAPACK_NAME(ztzrzf,ZTZRZF)+#define LAPACK_sormrz LAPACK_NAME(sormrz,SORMRZ)+#define LAPACK_dormrz LAPACK_NAME(dormrz,DORMRZ)+#define LAPACK_cunmrz LAPACK_NAME(cunmrz,CUNMRZ)+#define LAPACK_zunmrz LAPACK_NAME(zunmrz,ZUNMRZ)+#define LAPACK_sggqrf LAPACK_NAME(sggqrf,SGGQRF)+#define LAPACK_dggqrf LAPACK_NAME(dggqrf,DGGQRF)+#define LAPACK_cggqrf LAPACK_NAME(cggqrf,CGGQRF)+#define LAPACK_zggqrf LAPACK_NAME(zggqrf,ZGGQRF)+#define LAPACK_sggrqf LAPACK_NAME(sggrqf,SGGRQF)+#define LAPACK_dggrqf LAPACK_NAME(dggrqf,DGGRQF)+#define LAPACK_cggrqf LAPACK_NAME(cggrqf,CGGRQF)+#define LAPACK_zggrqf LAPACK_NAME(zggrqf,ZGGRQF)+#define LAPACK_sgebrd LAPACK_NAME(sgebrd,SGEBRD)+#define LAPACK_dgebrd LAPACK_NAME(dgebrd,DGEBRD)+#define LAPACK_cgebrd LAPACK_NAME(cgebrd,CGEBRD)+#define LAPACK_zgebrd LAPACK_NAME(zgebrd,ZGEBRD)+#define LAPACK_sgbbrd LAPACK_NAME(sgbbrd,SGBBRD)+#define LAPACK_dgbbrd LAPACK_NAME(dgbbrd,DGBBRD)+#define LAPACK_cgbbrd LAPACK_NAME(cgbbrd,CGBBRD)+#define LAPACK_zgbbrd LAPACK_NAME(zgbbrd,ZGBBRD)+#define LAPACK_sorgbr LAPACK_NAME(sorgbr,SORGBR)+#define LAPACK_dorgbr LAPACK_NAME(dorgbr,DORGBR)+#define LAPACK_sormbr LAPACK_NAME(sormbr,SORMBR)+#define LAPACK_dormbr LAPACK_NAME(dormbr,DORMBR)+#define LAPACK_cungbr LAPACK_NAME(cungbr,CUNGBR)+#define LAPACK_zungbr LAPACK_NAME(zungbr,ZUNGBR)+#define LAPACK_cunmbr LAPACK_NAME(cunmbr,CUNMBR)+#define LAPACK_zunmbr LAPACK_NAME(zunmbr,ZUNMBR)+#define LAPACK_sbdsqr LAPACK_NAME(sbdsqr,SBDSQR)+#define LAPACK_dbdsqr LAPACK_NAME(dbdsqr,DBDSQR)+#define LAPACK_cbdsqr LAPACK_NAME(cbdsqr,CBDSQR)+#define LAPACK_zbdsqr LAPACK_NAME(zbdsqr,ZBDSQR)+#define LAPACK_sbdsdc LAPACK_NAME(sbdsdc,SBDSDC)+#define LAPACK_dbdsdc LAPACK_NAME(dbdsdc,DBDSDC)+#define LAPACK_ssytrd LAPACK_NAME(ssytrd,SSYTRD)+#define LAPACK_dsytrd LAPACK_NAME(dsytrd,DSYTRD)+#define LAPACK_sorgtr LAPACK_NAME(sorgtr,SORGTR)+#define LAPACK_dorgtr LAPACK_NAME(dorgtr,DORGTR)+#define LAPACK_sormtr LAPACK_NAME(sormtr,SORMTR)+#define LAPACK_dormtr LAPACK_NAME(dormtr,DORMTR)+#define LAPACK_chetrd LAPACK_NAME(chetrd,CHETRD)+#define LAPACK_zhetrd LAPACK_NAME(zhetrd,ZHETRD)+#define LAPACK_cungtr LAPACK_NAME(cungtr,CUNGTR)+#define LAPACK_zungtr LAPACK_NAME(zungtr,ZUNGTR)+#define LAPACK_cunmtr LAPACK_NAME(cunmtr,CUNMTR)+#define LAPACK_zunmtr LAPACK_NAME(zunmtr,ZUNMTR)+#define LAPACK_ssptrd LAPACK_NAME(ssptrd,SSPTRD)+#define LAPACK_dsptrd LAPACK_NAME(dsptrd,DSPTRD)+#define LAPACK_sopgtr LAPACK_NAME(sopgtr,SOPGTR)+#define LAPACK_dopgtr LAPACK_NAME(dopgtr,DOPGTR)+#define LAPACK_sopmtr LAPACK_NAME(sopmtr,SOPMTR)+#define LAPACK_dopmtr LAPACK_NAME(dopmtr,DOPMTR)+#define LAPACK_chptrd LAPACK_NAME(chptrd,CHPTRD)+#define LAPACK_zhptrd LAPACK_NAME(zhptrd,ZHPTRD)+#define LAPACK_cupgtr LAPACK_NAME(cupgtr,CUPGTR)+#define LAPACK_zupgtr LAPACK_NAME(zupgtr,ZUPGTR)+#define LAPACK_cupmtr LAPACK_NAME(cupmtr,CUPMTR)+#define LAPACK_zupmtr LAPACK_NAME(zupmtr,ZUPMTR)+#define LAPACK_ssbtrd LAPACK_NAME(ssbtrd,SSBTRD)+#define LAPACK_dsbtrd LAPACK_NAME(dsbtrd,DSBTRD)+#define LAPACK_chbtrd LAPACK_NAME(chbtrd,CHBTRD)+#define LAPACK_zhbtrd LAPACK_NAME(zhbtrd,ZHBTRD)+#define LAPACK_ssterf LAPACK_NAME(ssterf,SSTERF)+#define LAPACK_dsterf LAPACK_NAME(dsterf,DSTERF)+#define LAPACK_ssteqr LAPACK_NAME(ssteqr,SSTEQR)+#define LAPACK_dsteqr LAPACK_NAME(dsteqr,DSTEQR)+#define LAPACK_csteqr LAPACK_NAME(csteqr,CSTEQR)+#define LAPACK_zsteqr LAPACK_NAME(zsteqr,ZSTEQR)+#define LAPACK_sstemr LAPACK_NAME(sstemr,SSTEMR)+#define LAPACK_dstemr LAPACK_NAME(dstemr,DSTEMR)+#define LAPACK_cstemr LAPACK_NAME(cstemr,CSTEMR)+#define LAPACK_zstemr LAPACK_NAME(zstemr,ZSTEMR)+#define LAPACK_sstedc LAPACK_NAME(sstedc,SSTEDC)+#define LAPACK_dstedc LAPACK_NAME(dstedc,DSTEDC)+#define LAPACK_cstedc LAPACK_NAME(cstedc,CSTEDC)+#define LAPACK_zstedc LAPACK_NAME(zstedc,ZSTEDC)+#define LAPACK_sstegr LAPACK_NAME(sstegr,SSTEGR)+#define LAPACK_dstegr LAPACK_NAME(dstegr,DSTEGR)+#define LAPACK_cstegr LAPACK_NAME(cstegr,CSTEGR)+#define LAPACK_zstegr LAPACK_NAME(zstegr,ZSTEGR)+#define LAPACK_spteqr LAPACK_NAME(spteqr,SPTEQR)+#define LAPACK_dpteqr LAPACK_NAME(dpteqr,DPTEQR)+#define LAPACK_cpteqr LAPACK_NAME(cpteqr,CPTEQR)+#define LAPACK_zpteqr LAPACK_NAME(zpteqr,ZPTEQR)+#define LAPACK_sstebz LAPACK_NAME(sstebz,SSTEBZ)+#define LAPACK_dstebz LAPACK_NAME(dstebz,DSTEBZ)+#define LAPACK_sstein LAPACK_NAME(sstein,SSTEIN)+#define LAPACK_dstein LAPACK_NAME(dstein,DSTEIN)+#define LAPACK_cstein LAPACK_NAME(cstein,CSTEIN)+#define LAPACK_zstein LAPACK_NAME(zstein,ZSTEIN)+#define LAPACK_sdisna LAPACK_NAME(sdisna,SDISNA)+#define LAPACK_ddisna LAPACK_NAME(ddisna,DDISNA)+#define LAPACK_ssygst LAPACK_NAME(ssygst,SSYGST)+#define LAPACK_dsygst LAPACK_NAME(dsygst,DSYGST)+#define LAPACK_chegst LAPACK_NAME(chegst,CHEGST)+#define LAPACK_zhegst LAPACK_NAME(zhegst,ZHEGST)+#define LAPACK_sspgst LAPACK_NAME(sspgst,SSPGST)+#define LAPACK_dspgst LAPACK_NAME(dspgst,DSPGST)+#define LAPACK_chpgst LAPACK_NAME(chpgst,CHPGST)+#define LAPACK_zhpgst LAPACK_NAME(zhpgst,ZHPGST)+#define LAPACK_ssbgst LAPACK_NAME(ssbgst,SSBGST)+#define LAPACK_dsbgst LAPACK_NAME(dsbgst,DSBGST)+#define LAPACK_chbgst LAPACK_NAME(chbgst,CHBGST)+#define LAPACK_zhbgst LAPACK_NAME(zhbgst,ZHBGST)+#define LAPACK_spbstf LAPACK_NAME(spbstf,SPBSTF)+#define LAPACK_dpbstf LAPACK_NAME(dpbstf,DPBSTF)+#define LAPACK_cpbstf LAPACK_NAME(cpbstf,CPBSTF)+#define LAPACK_zpbstf LAPACK_NAME(zpbstf,ZPBSTF)+#define LAPACK_sgehrd LAPACK_NAME(sgehrd,SGEHRD)+#define LAPACK_dgehrd LAPACK_NAME(dgehrd,DGEHRD)+#define LAPACK_cgehrd LAPACK_NAME(cgehrd,CGEHRD)+#define LAPACK_zgehrd LAPACK_NAME(zgehrd,ZGEHRD)+#define LAPACK_sorghr LAPACK_NAME(sorghr,SORGHR)+#define LAPACK_dorghr LAPACK_NAME(dorghr,DORGHR)+#define LAPACK_sormhr LAPACK_NAME(sormhr,SORMHR)+#define LAPACK_dormhr LAPACK_NAME(dormhr,DORMHR)+#define LAPACK_cunghr LAPACK_NAME(cunghr,CUNGHR)+#define LAPACK_zunghr LAPACK_NAME(zunghr,ZUNGHR)+#define LAPACK_cunmhr LAPACK_NAME(cunmhr,CUNMHR)+#define LAPACK_zunmhr LAPACK_NAME(zunmhr,ZUNMHR)+#define LAPACK_sgebal LAPACK_NAME(sgebal,SGEBAL)+#define LAPACK_dgebal LAPACK_NAME(dgebal,DGEBAL)+#define LAPACK_cgebal LAPACK_NAME(cgebal,CGEBAL)+#define LAPACK_zgebal LAPACK_NAME(zgebal,ZGEBAL)+#define LAPACK_sgebak LAPACK_NAME(sgebak,SGEBAK)+#define LAPACK_dgebak LAPACK_NAME(dgebak,DGEBAK)+#define LAPACK_cgebak LAPACK_NAME(cgebak,CGEBAK)+#define LAPACK_zgebak LAPACK_NAME(zgebak,ZGEBAK)+#define LAPACK_shseqr LAPACK_NAME(shseqr,SHSEQR)+#define LAPACK_dhseqr LAPACK_NAME(dhseqr,DHSEQR)+#define LAPACK_chseqr LAPACK_NAME(chseqr,CHSEQR)+#define LAPACK_zhseqr LAPACK_NAME(zhseqr,ZHSEQR)+#define LAPACK_shsein LAPACK_NAME(shsein,SHSEIN)+#define LAPACK_dhsein LAPACK_NAME(dhsein,DHSEIN)+#define LAPACK_chsein LAPACK_NAME(chsein,CHSEIN)+#define LAPACK_zhsein LAPACK_NAME(zhsein,ZHSEIN)+#define LAPACK_strevc LAPACK_NAME(strevc,STREVC)+#define LAPACK_dtrevc LAPACK_NAME(dtrevc,DTREVC)+#define LAPACK_ctrevc LAPACK_NAME(ctrevc,CTREVC)+#define LAPACK_ztrevc LAPACK_NAME(ztrevc,ZTREVC)+#define LAPACK_strsna LAPACK_NAME(strsna,STRSNA)+#define LAPACK_dtrsna LAPACK_NAME(dtrsna,DTRSNA)+#define LAPACK_ctrsna LAPACK_NAME(ctrsna,CTRSNA)+#define LAPACK_ztrsna LAPACK_NAME(ztrsna,ZTRSNA)+#define LAPACK_strexc LAPACK_NAME(strexc,STREXC)+#define LAPACK_dtrexc LAPACK_NAME(dtrexc,DTREXC)+#define LAPACK_ctrexc LAPACK_NAME(ctrexc,CTREXC)+#define LAPACK_ztrexc LAPACK_NAME(ztrexc,ZTREXC)+#define LAPACK_strsen LAPACK_NAME(strsen,STRSEN)+#define LAPACK_dtrsen LAPACK_NAME(dtrsen,DTRSEN)+#define LAPACK_ctrsen LAPACK_NAME(ctrsen,CTRSEN)+#define LAPACK_ztrsen LAPACK_NAME(ztrsen,ZTRSEN)+#define LAPACK_strsyl LAPACK_NAME(strsyl,STRSYL)+#define LAPACK_dtrsyl LAPACK_NAME(dtrsyl,DTRSYL)+#define LAPACK_ctrsyl LAPACK_NAME(ctrsyl,CTRSYL)+#define LAPACK_ztrsyl LAPACK_NAME(ztrsyl,ZTRSYL)+#define LAPACK_sgghrd LAPACK_NAME(sgghrd,SGGHRD)+#define LAPACK_dgghrd LAPACK_NAME(dgghrd,DGGHRD)+#define LAPACK_cgghrd LAPACK_NAME(cgghrd,CGGHRD)+#define LAPACK_zgghrd LAPACK_NAME(zgghrd,ZGGHRD)+#define LAPACK_sggbal LAPACK_NAME(sggbal,SGGBAL)+#define LAPACK_dggbal LAPACK_NAME(dggbal,DGGBAL)+#define LAPACK_cggbal LAPACK_NAME(cggbal,CGGBAL)+#define LAPACK_zggbal LAPACK_NAME(zggbal,ZGGBAL)+#define LAPACK_sggbak LAPACK_NAME(sggbak,SGGBAK)+#define LAPACK_dggbak LAPACK_NAME(dggbak,DGGBAK)+#define LAPACK_cggbak LAPACK_NAME(cggbak,CGGBAK)+#define LAPACK_zggbak LAPACK_NAME(zggbak,ZGGBAK)+#define LAPACK_shgeqz LAPACK_NAME(shgeqz,SHGEQZ)+#define LAPACK_dhgeqz LAPACK_NAME(dhgeqz,DHGEQZ)+#define LAPACK_chgeqz LAPACK_NAME(chgeqz,CHGEQZ)+#define LAPACK_zhgeqz LAPACK_NAME(zhgeqz,ZHGEQZ)+#define LAPACK_stgevc LAPACK_NAME(stgevc,STGEVC)+#define LAPACK_dtgevc LAPACK_NAME(dtgevc,DTGEVC)+#define LAPACK_ctgevc LAPACK_NAME(ctgevc,CTGEVC)+#define LAPACK_ztgevc LAPACK_NAME(ztgevc,ZTGEVC)+#define LAPACK_stgexc LAPACK_NAME(stgexc,STGEXC)+#define LAPACK_dtgexc LAPACK_NAME(dtgexc,DTGEXC)+#define LAPACK_ctgexc LAPACK_NAME(ctgexc,CTGEXC)+#define LAPACK_ztgexc LAPACK_NAME(ztgexc,ZTGEXC)+#define LAPACK_stgsen LAPACK_NAME(stgsen,STGSEN)+#define LAPACK_dtgsen LAPACK_NAME(dtgsen,DTGSEN)+#define LAPACK_ctgsen LAPACK_NAME(ctgsen,CTGSEN)+#define LAPACK_ztgsen LAPACK_NAME(ztgsen,ZTGSEN)+#define LAPACK_stgsyl LAPACK_NAME(stgsyl,STGSYL)+#define LAPACK_dtgsyl LAPACK_NAME(dtgsyl,DTGSYL)+#define LAPACK_ctgsyl LAPACK_NAME(ctgsyl,CTGSYL)+#define LAPACK_ztgsyl LAPACK_NAME(ztgsyl,ZTGSYL)+#define LAPACK_stgsna LAPACK_NAME(stgsna,STGSNA)+#define LAPACK_dtgsna LAPACK_NAME(dtgsna,DTGSNA)+#define LAPACK_ctgsna LAPACK_NAME(ctgsna,CTGSNA)+#define LAPACK_ztgsna LAPACK_NAME(ztgsna,ZTGSNA)+#define LAPACK_sggsvp LAPACK_NAME(sggsvp,SGGSVP)+#define LAPACK_dggsvp LAPACK_NAME(dggsvp,DGGSVP)+#define LAPACK_cggsvp LAPACK_NAME(cggsvp,CGGSVP)+#define LAPACK_zggsvp LAPACK_NAME(zggsvp,ZGGSVP)+#define LAPACK_stgsja LAPACK_NAME(stgsja,STGSJA)+#define LAPACK_dtgsja LAPACK_NAME(dtgsja,DTGSJA)+#define LAPACK_ctgsja LAPACK_NAME(ctgsja,CTGSJA)+#define LAPACK_ztgsja LAPACK_NAME(ztgsja,ZTGSJA)+#define LAPACK_sgels LAPACK_NAME(sgels,SGELS)+#define LAPACK_dgels LAPACK_NAME(dgels,DGELS)+#define LAPACK_cgels LAPACK_NAME(cgels,CGELS)+#define LAPACK_zgels LAPACK_NAME(zgels,ZGELS)+#define LAPACK_sgelsy LAPACK_NAME(sgelsy,SGELSY)+#define LAPACK_dgelsy LAPACK_NAME(dgelsy,DGELSY)+#define LAPACK_cgelsy LAPACK_NAME(cgelsy,CGELSY)+#define LAPACK_zgelsy LAPACK_NAME(zgelsy,ZGELSY)+#define LAPACK_sgelss LAPACK_NAME(sgelss,SGELSS)+#define LAPACK_dgelss LAPACK_NAME(dgelss,DGELSS)+#define LAPACK_cgelss LAPACK_NAME(cgelss,CGELSS)+#define LAPACK_zgelss LAPACK_NAME(zgelss,ZGELSS)+#define LAPACK_sgelsd LAPACK_NAME(sgelsd,SGELSD)+#define LAPACK_dgelsd LAPACK_NAME(dgelsd,DGELSD)+#define LAPACK_cgelsd LAPACK_NAME(cgelsd,CGELSD)+#define LAPACK_zgelsd LAPACK_NAME(zgelsd,ZGELSD)+#define LAPACK_sgglse LAPACK_NAME(sgglse,SGGLSE)+#define LAPACK_dgglse LAPACK_NAME(dgglse,DGGLSE)+#define LAPACK_cgglse LAPACK_NAME(cgglse,CGGLSE)+#define LAPACK_zgglse LAPACK_NAME(zgglse,ZGGLSE)+#define LAPACK_sggglm LAPACK_NAME(sggglm,SGGGLM)+#define LAPACK_dggglm LAPACK_NAME(dggglm,DGGGLM)+#define LAPACK_cggglm LAPACK_NAME(cggglm,CGGGLM)+#define LAPACK_zggglm LAPACK_NAME(zggglm,ZGGGLM)+#define LAPACK_ssyev LAPACK_NAME(ssyev,SSYEV)+#define LAPACK_dsyev LAPACK_NAME(dsyev,DSYEV)+#define LAPACK_cheev LAPACK_NAME(cheev,CHEEV)+#define LAPACK_zheev LAPACK_NAME(zheev,ZHEEV)+#define LAPACK_ssyevd LAPACK_NAME(ssyevd,SSYEVD)+#define LAPACK_dsyevd LAPACK_NAME(dsyevd,DSYEVD)+#define LAPACK_cheevd LAPACK_NAME(cheevd,CHEEVD)+#define LAPACK_zheevd LAPACK_NAME(zheevd,ZHEEVD)+#define LAPACK_ssyevx LAPACK_NAME(ssyevx,SSYEVX)+#define LAPACK_dsyevx LAPACK_NAME(dsyevx,DSYEVX)+#define LAPACK_cheevx LAPACK_NAME(cheevx,CHEEVX)+#define LAPACK_zheevx LAPACK_NAME(zheevx,ZHEEVX)+#define LAPACK_ssyevr LAPACK_NAME(ssyevr,SSYEVR)+#define LAPACK_dsyevr LAPACK_NAME(dsyevr,DSYEVR)+#define LAPACK_cheevr LAPACK_NAME(cheevr,CHEEVR)+#define LAPACK_zheevr LAPACK_NAME(zheevr,ZHEEVR)+#define LAPACK_sspev LAPACK_NAME(sspev,SSPEV)+#define LAPACK_dspev LAPACK_NAME(dspev,DSPEV)+#define LAPACK_chpev LAPACK_NAME(chpev,CHPEV)+#define LAPACK_zhpev LAPACK_NAME(zhpev,ZHPEV)+#define LAPACK_sspevd LAPACK_NAME(sspevd,SSPEVD)+#define LAPACK_dspevd LAPACK_NAME(dspevd,DSPEVD)+#define LAPACK_chpevd LAPACK_NAME(chpevd,CHPEVD)+#define LAPACK_zhpevd LAPACK_NAME(zhpevd,ZHPEVD)+#define LAPACK_sspevx LAPACK_NAME(sspevx,SSPEVX)+#define LAPACK_dspevx LAPACK_NAME(dspevx,DSPEVX)+#define LAPACK_chpevx LAPACK_NAME(chpevx,CHPEVX)+#define LAPACK_zhpevx LAPACK_NAME(zhpevx,ZHPEVX)+#define LAPACK_ssbev LAPACK_NAME(ssbev,SSBEV)+#define LAPACK_dsbev LAPACK_NAME(dsbev,DSBEV)+#define LAPACK_chbev LAPACK_NAME(chbev,CHBEV)+#define LAPACK_zhbev LAPACK_NAME(zhbev,ZHBEV)+#define LAPACK_ssbevd LAPACK_NAME(ssbevd,SSBEVD)+#define LAPACK_dsbevd LAPACK_NAME(dsbevd,DSBEVD)+#define LAPACK_chbevd LAPACK_NAME(chbevd,CHBEVD)+#define LAPACK_zhbevd LAPACK_NAME(zhbevd,ZHBEVD)+#define LAPACK_ssbevx LAPACK_NAME(ssbevx,SSBEVX)+#define LAPACK_dsbevx LAPACK_NAME(dsbevx,DSBEVX)+#define LAPACK_chbevx LAPACK_NAME(chbevx,CHBEVX)+#define LAPACK_zhbevx LAPACK_NAME(zhbevx,ZHBEVX)+#define LAPACK_sstev LAPACK_NAME(sstev,SSTEV)+#define LAPACK_dstev LAPACK_NAME(dstev,DSTEV)+#define LAPACK_sstevd LAPACK_NAME(sstevd,SSTEVD)+#define LAPACK_dstevd LAPACK_NAME(dstevd,DSTEVD)+#define LAPACK_sstevx LAPACK_NAME(sstevx,SSTEVX)+#define LAPACK_dstevx LAPACK_NAME(dstevx,DSTEVX)+#define LAPACK_sstevr LAPACK_NAME(sstevr,SSTEVR)+#define LAPACK_dstevr LAPACK_NAME(dstevr,DSTEVR)+#define LAPACK_sgees LAPACK_NAME(sgees,SGEES)+#define LAPACK_dgees LAPACK_NAME(dgees,DGEES)+#define LAPACK_cgees LAPACK_NAME(cgees,CGEES)+#define LAPACK_zgees LAPACK_NAME(zgees,ZGEES)+#define LAPACK_sgeesx LAPACK_NAME(sgeesx,SGEESX)+#define LAPACK_dgeesx LAPACK_NAME(dgeesx,DGEESX)+#define LAPACK_cgeesx LAPACK_NAME(cgeesx,CGEESX)+#define LAPACK_zgeesx LAPACK_NAME(zgeesx,ZGEESX)+#define LAPACK_sgeev LAPACK_NAME(sgeev,SGEEV)+#define LAPACK_dgeev LAPACK_NAME(dgeev,DGEEV)+#define LAPACK_cgeev LAPACK_NAME(cgeev,CGEEV)+#define LAPACK_zgeev LAPACK_NAME(zgeev,ZGEEV)+#define LAPACK_sgeevx LAPACK_NAME(sgeevx,SGEEVX)+#define LAPACK_dgeevx LAPACK_NAME(dgeevx,DGEEVX)+#define LAPACK_cgeevx LAPACK_NAME(cgeevx,CGEEVX)+#define LAPACK_zgeevx LAPACK_NAME(zgeevx,ZGEEVX)+#define LAPACK_sgesvd LAPACK_NAME(sgesvd,SGESVD)+#define LAPACK_dgesvd LAPACK_NAME(dgesvd,DGESVD)+#define LAPACK_cgesvd LAPACK_NAME(cgesvd,CGESVD)+#define LAPACK_zgesvd LAPACK_NAME(zgesvd,ZGESVD)+#define LAPACK_sgesdd LAPACK_NAME(sgesdd,SGESDD)+#define LAPACK_dgesdd LAPACK_NAME(dgesdd,DGESDD)+#define LAPACK_cgesdd LAPACK_NAME(cgesdd,CGESDD)+#define LAPACK_zgesdd LAPACK_NAME(zgesdd,ZGESDD)+#define LAPACK_dgejsv LAPACK_NAME(dgejsv,DGEJSV)+#define LAPACK_sgejsv LAPACK_NAME(sgejsv,SGEJSV)+#define LAPACK_dgesvj LAPACK_NAME(dgesvj,DGESVJ)+#define LAPACK_sgesvj LAPACK_NAME(sgesvj,SGESVJ)+#define LAPACK_sggsvd LAPACK_NAME(sggsvd,SGGSVD)+#define LAPACK_dggsvd LAPACK_NAME(dggsvd,DGGSVD)+#define LAPACK_cggsvd LAPACK_NAME(cggsvd,CGGSVD)+#define LAPACK_zggsvd LAPACK_NAME(zggsvd,ZGGSVD)+#define LAPACK_ssygv LAPACK_NAME(ssygv,SSYGV)+#define LAPACK_dsygv LAPACK_NAME(dsygv,DSYGV)+#define LAPACK_chegv LAPACK_NAME(chegv,CHEGV)+#define LAPACK_zhegv LAPACK_NAME(zhegv,ZHEGV)+#define LAPACK_ssygvd LAPACK_NAME(ssygvd,SSYGVD)+#define LAPACK_dsygvd LAPACK_NAME(dsygvd,DSYGVD)+#define LAPACK_chegvd LAPACK_NAME(chegvd,CHEGVD)+#define LAPACK_zhegvd LAPACK_NAME(zhegvd,ZHEGVD)+#define LAPACK_ssygvx LAPACK_NAME(ssygvx,SSYGVX)+#define LAPACK_dsygvx LAPACK_NAME(dsygvx,DSYGVX)+#define LAPACK_chegvx LAPACK_NAME(chegvx,CHEGVX)+#define LAPACK_zhegvx LAPACK_NAME(zhegvx,ZHEGVX)+#define LAPACK_sspgv LAPACK_NAME(sspgv,SSPGV)+#define LAPACK_dspgv LAPACK_NAME(dspgv,DSPGV)+#define LAPACK_chpgv LAPACK_NAME(chpgv,CHPGV)+#define LAPACK_zhpgv LAPACK_NAME(zhpgv,ZHPGV)+#define LAPACK_sspgvd LAPACK_NAME(sspgvd,SSPGVD)+#define LAPACK_dspgvd LAPACK_NAME(dspgvd,DSPGVD)+#define LAPACK_chpgvd LAPACK_NAME(chpgvd,CHPGVD)+#define LAPACK_zhpgvd LAPACK_NAME(zhpgvd,ZHPGVD)+#define LAPACK_sspgvx LAPACK_NAME(sspgvx,SSPGVX)+#define LAPACK_dspgvx LAPACK_NAME(dspgvx,DSPGVX)+#define LAPACK_chpgvx LAPACK_NAME(chpgvx,CHPGVX)+#define LAPACK_zhpgvx LAPACK_NAME(zhpgvx,ZHPGVX)+#define LAPACK_ssbgv LAPACK_NAME(ssbgv,SSBGV)+#define LAPACK_dsbgv LAPACK_NAME(dsbgv,DSBGV)+#define LAPACK_chbgv LAPACK_NAME(chbgv,CHBGV)+#define LAPACK_zhbgv LAPACK_NAME(zhbgv,ZHBGV)+#define LAPACK_ssbgvd LAPACK_NAME(ssbgvd,SSBGVD)+#define LAPACK_dsbgvd LAPACK_NAME(dsbgvd,DSBGVD)+#define LAPACK_chbgvd LAPACK_NAME(chbgvd,CHBGVD)+#define LAPACK_zhbgvd LAPACK_NAME(zhbgvd,ZHBGVD)+#define LAPACK_ssbgvx LAPACK_NAME(ssbgvx,SSBGVX)+#define LAPACK_dsbgvx LAPACK_NAME(dsbgvx,DSBGVX)+#define LAPACK_chbgvx LAPACK_NAME(chbgvx,CHBGVX)+#define LAPACK_zhbgvx LAPACK_NAME(zhbgvx,ZHBGVX)+#define LAPACK_sgges LAPACK_NAME(sgges,SGGES)+#define LAPACK_dgges LAPACK_NAME(dgges,DGGES)+#define LAPACK_cgges LAPACK_NAME(cgges,CGGES)+#define LAPACK_zgges LAPACK_NAME(zgges,ZGGES)+#define LAPACK_sggesx LAPACK_NAME(sggesx,SGGESX)+#define LAPACK_dggesx LAPACK_NAME(dggesx,DGGESX)+#define LAPACK_cggesx LAPACK_NAME(cggesx,CGGESX)+#define LAPACK_zggesx LAPACK_NAME(zggesx,ZGGESX)+#define LAPACK_sggev LAPACK_NAME(sggev,SGGEV)+#define LAPACK_dggev LAPACK_NAME(dggev,DGGEV)+#define LAPACK_cggev LAPACK_NAME(cggev,CGGEV)+#define LAPACK_zggev LAPACK_NAME(zggev,ZGGEV)+#define LAPACK_sggevx LAPACK_NAME(sggevx,SGGEVX)+#define LAPACK_dggevx LAPACK_NAME(dggevx,DGGEVX)+#define LAPACK_cggevx LAPACK_NAME(cggevx,CGGEVX)+#define LAPACK_zggevx LAPACK_NAME(zggevx,ZGGEVX)+#define LAPACK_dsfrk LAPACK_NAME(dsfrk,DSFRK)+#define LAPACK_ssfrk LAPACK_NAME(ssfrk,SSFRK)+#define LAPACK_zhfrk LAPACK_NAME(zhfrk,ZHFRK)+#define LAPACK_chfrk LAPACK_NAME(chfrk,CHFRK)+#define LAPACK_dtfsm LAPACK_NAME(dtfsm,DTFSM)+#define LAPACK_stfsm LAPACK_NAME(stfsm,STFSM)+#define LAPACK_ztfsm LAPACK_NAME(ztfsm,ZTFSM)+#define LAPACK_ctfsm LAPACK_NAME(ctfsm,CTFSM)+#define LAPACK_dtfttp LAPACK_NAME(dtfttp,DTFTTP)+#define LAPACK_stfttp LAPACK_NAME(stfttp,STFTTP)+#define LAPACK_ztfttp LAPACK_NAME(ztfttp,ZTFTTP)+#define LAPACK_ctfttp LAPACK_NAME(ctfttp,CTFTTP)+#define LAPACK_dtfttr LAPACK_NAME(dtfttr,DTFTTR)+#define LAPACK_stfttr LAPACK_NAME(stfttr,STFTTR)+#define LAPACK_ztfttr LAPACK_NAME(ztfttr,ZTFTTR)+#define LAPACK_ctfttr LAPACK_NAME(ctfttr,CTFTTR)+#define LAPACK_dtpttf LAPACK_NAME(dtpttf,DTPTTF)+#define LAPACK_stpttf LAPACK_NAME(stpttf,STPTTF)+#define LAPACK_ztpttf LAPACK_NAME(ztpttf,ZTPTTF)+#define LAPACK_ctpttf LAPACK_NAME(ctpttf,CTPTTF)+#define LAPACK_dtpttr LAPACK_NAME(dtpttr,DTPTTR)+#define LAPACK_stpttr LAPACK_NAME(stpttr,STPTTR)+#define LAPACK_ztpttr LAPACK_NAME(ztpttr,ZTPTTR)+#define LAPACK_ctpttr LAPACK_NAME(ctpttr,CTPTTR)+#define LAPACK_dtrttf LAPACK_NAME(dtrttf,DTRTTF)+#define LAPACK_strttf LAPACK_NAME(strttf,STRTTF)+#define LAPACK_ztrttf LAPACK_NAME(ztrttf,ZTRTTF)+#define LAPACK_ctrttf LAPACK_NAME(ctrttf,CTRTTF)+#define LAPACK_dtrttp LAPACK_NAME(dtrttp,DTRTTP)+#define LAPACK_strttp LAPACK_NAME(strttp,STRTTP)+#define LAPACK_ztrttp LAPACK_NAME(ztrttp,ZTRTTP)+#define LAPACK_ctrttp LAPACK_NAME(ctrttp,CTRTTP)+#define LAPACK_sgeqrfp LAPACK_NAME(sgeqrfp,SGEQRFP)+#define LAPACK_dgeqrfp LAPACK_NAME(dgeqrfp,DGEQRFP)+#define LAPACK_cgeqrfp LAPACK_NAME(cgeqrfp,CGEQRFP)+#define LAPACK_zgeqrfp LAPACK_NAME(zgeqrfp,ZGEQRFP)+#define LAPACK_clacgv LAPACK_NAME(clacgv,CLACGV)+#define LAPACK_zlacgv LAPACK_NAME(zlacgv,ZLACGV)+#define LAPACK_slarnv LAPACK_NAME(slarnv,SLARNV)+#define LAPACK_dlarnv LAPACK_NAME(dlarnv,DLARNV)+#define LAPACK_clarnv LAPACK_NAME(clarnv,CLARNV)+#define LAPACK_zlarnv LAPACK_NAME(zlarnv,ZLARNV)+#define LAPACK_sgeqr2 LAPACK_NAME(sgeqr2,SGEQR2)+#define LAPACK_dgeqr2 LAPACK_NAME(dgeqr2,DGEQR2)+#define LAPACK_cgeqr2 LAPACK_NAME(cgeqr2,CGEQR2)+#define LAPACK_zgeqr2 LAPACK_NAME(zgeqr2,ZGEQR2)+#define LAPACK_slacpy LAPACK_NAME(slacpy,SLACPY)+#define LAPACK_dlacpy LAPACK_NAME(dlacpy,DLACPY)+#define LAPACK_clacpy LAPACK_NAME(clacpy,CLACPY)+#define LAPACK_zlacpy LAPACK_NAME(zlacpy,ZLACPY)+#define LAPACK_sgetf2 LAPACK_NAME(sgetf2,SGETF2)+#define LAPACK_dgetf2 LAPACK_NAME(dgetf2,DGETF2)+#define LAPACK_cgetf2 LAPACK_NAME(cgetf2,CGETF2)+#define LAPACK_zgetf2 LAPACK_NAME(zgetf2,ZGETF2)+#define LAPACK_slaswp LAPACK_NAME(slaswp,SLASWP)+#define LAPACK_dlaswp LAPACK_NAME(dlaswp,DLASWP)+#define LAPACK_claswp LAPACK_NAME(claswp,CLASWP)+#define LAPACK_zlaswp LAPACK_NAME(zlaswp,ZLASWP)+#define LAPACK_slange LAPACK_NAME(slange,SLANGE)+#define LAPACK_dlange LAPACK_NAME(dlange,DLANGE)+#define LAPACK_clange LAPACK_NAME(clange,CLANGE)+#define LAPACK_zlange LAPACK_NAME(zlange,ZLANGE)+#define LAPACK_clanhe LAPACK_NAME(clanhe,CLANHE)+#define LAPACK_zlanhe LAPACK_NAME(zlanhe,ZLANHE)+#define LAPACK_slansy LAPACK_NAME(slansy,SLANSY)+#define LAPACK_dlansy LAPACK_NAME(dlansy,DLANSY)+#define LAPACK_clansy LAPACK_NAME(clansy,CLANSY)+#define LAPACK_zlansy LAPACK_NAME(zlansy,ZLANSY)+#define LAPACK_slantr LAPACK_NAME(slantr,SLANTR)+#define LAPACK_dlantr LAPACK_NAME(dlantr,DLANTR)+#define LAPACK_clantr LAPACK_NAME(clantr,CLANTR)+#define LAPACK_zlantr LAPACK_NAME(zlantr,ZLANTR)+#define LAPACK_slamch LAPACK_NAME(slamch,SLAMCH)+#define LAPACK_dlamch LAPACK_NAME(dlamch,DLAMCH)+#define LAPACK_sgelq2 LAPACK_NAME(sgelq2,SGELQ2)+#define LAPACK_dgelq2 LAPACK_NAME(dgelq2,DGELQ2)+#define LAPACK_cgelq2 LAPACK_NAME(cgelq2,CGELQ2)+#define LAPACK_zgelq2 LAPACK_NAME(zgelq2,ZGELQ2)+#define LAPACK_slarfb LAPACK_NAME(slarfb,SLARFB)+#define LAPACK_dlarfb LAPACK_NAME(dlarfb,DLARFB)+#define LAPACK_clarfb LAPACK_NAME(clarfb,CLARFB)+#define LAPACK_zlarfb LAPACK_NAME(zlarfb,ZLARFB)+#define LAPACK_slarfg LAPACK_NAME(slarfg,SLARFG)+#define LAPACK_dlarfg LAPACK_NAME(dlarfg,DLARFG)+#define LAPACK_clarfg LAPACK_NAME(clarfg,CLARFG)+#define LAPACK_zlarfg LAPACK_NAME(zlarfg,ZLARFG)+#define LAPACK_slarft LAPACK_NAME(slarft,SLARFT)+#define LAPACK_dlarft LAPACK_NAME(dlarft,DLARFT)+#define LAPACK_clarft LAPACK_NAME(clarft,CLARFT)+#define LAPACK_zlarft LAPACK_NAME(zlarft,ZLARFT)+#define LAPACK_slarfx LAPACK_NAME(slarfx,SLARFX)+#define LAPACK_dlarfx LAPACK_NAME(dlarfx,DLARFX)+#define LAPACK_clarfx LAPACK_NAME(clarfx,CLARFX)+#define LAPACK_zlarfx LAPACK_NAME(zlarfx,ZLARFX)+#define LAPACK_slatms LAPACK_NAME(slatms,SLATMS)+#define LAPACK_dlatms LAPACK_NAME(dlatms,DLATMS)+#define LAPACK_clatms LAPACK_NAME(clatms,CLATMS)+#define LAPACK_zlatms LAPACK_NAME(zlatms,ZLATMS)+#define LAPACK_slag2d LAPACK_NAME(slag2d,SLAG2D)+#define LAPACK_dlag2s LAPACK_NAME(dlag2s,DLAG2S)+#define LAPACK_clag2z LAPACK_NAME(clag2z,CLAG2Z)+#define LAPACK_zlag2c LAPACK_NAME(zlag2c,ZLAG2C)+#define LAPACK_slauum LAPACK_NAME(slauum,SLAUUM)+#define LAPACK_dlauum LAPACK_NAME(dlauum,DLAUUM)+#define LAPACK_clauum LAPACK_NAME(clauum,CLAUUM)+#define LAPACK_zlauum LAPACK_NAME(zlauum,ZLAUUM)+#define LAPACK_slagge LAPACK_NAME(slagge,SLAGGE)+#define LAPACK_dlagge LAPACK_NAME(dlagge,DLAGGE)+#define LAPACK_clagge LAPACK_NAME(clagge,CLAGGE)+#define LAPACK_zlagge LAPACK_NAME(zlagge,ZLAGGE)+#define LAPACK_slaset LAPACK_NAME(slaset,SLASET)+#define LAPACK_dlaset LAPACK_NAME(dlaset,DLASET)+#define LAPACK_claset LAPACK_NAME(claset,CLASET)+#define LAPACK_zlaset LAPACK_NAME(zlaset,ZLASET)+#define LAPACK_slasrt LAPACK_NAME(slasrt,SLASRT)+#define LAPACK_dlasrt LAPACK_NAME(dlasrt,DLASRT)+#define LAPACK_slagsy LAPACK_NAME(slagsy,SLAGSY)+#define LAPACK_dlagsy LAPACK_NAME(dlagsy,DLAGSY)+#define LAPACK_clagsy LAPACK_NAME(clagsy,CLAGSY)+#define LAPACK_zlagsy LAPACK_NAME(zlagsy,ZLAGSY)+#define LAPACK_claghe LAPACK_NAME(claghe,CLAGHE)+#define LAPACK_zlaghe LAPACK_NAME(zlaghe,ZLAGHE)+#define LAPACK_slapmr LAPACK_NAME(slapmr,SLAPMR)+#define LAPACK_dlapmr LAPACK_NAME(dlapmr,DLAPMR)+#define LAPACK_clapmr LAPACK_NAME(clapmr,CLAPMR)+#define LAPACK_zlapmr LAPACK_NAME(zlapmr,ZLAPMR)+#define LAPACK_slapy2 LAPACK_NAME(slapy2,SLAPY2)+#define LAPACK_dlapy2 LAPACK_NAME(dlapy2,DLAPY2)+#define LAPACK_slapy3 LAPACK_NAME(slapy3,SLAPY3)+#define LAPACK_dlapy3 LAPACK_NAME(dlapy3,DLAPY3)+#define LAPACK_slartgp LAPACK_NAME(slartgp,SLARTGP)+#define LAPACK_dlartgp LAPACK_NAME(dlartgp,DLARTGP)+#define LAPACK_slartgs LAPACK_NAME(slartgs,SLARTGS)+#define LAPACK_dlartgs LAPACK_NAME(dlartgs,DLARTGS)+// LAPACK 3.3.0+#define LAPACK_cbbcsd LAPACK_NAME(cbbcsd,CBBCSD)+#define LAPACK_cheswapr LAPACK_NAME(cheswapr,CHESWAPR)+#define LAPACK_chetri2 LAPACK_NAME(chetri2,CHETRI2)+#define LAPACK_chetri2x LAPACK_NAME(chetri2x,CHETRI2X)+#define LAPACK_chetrs2 LAPACK_NAME(chetrs2,CHETRS2)+#define LAPACK_csyconv LAPACK_NAME(csyconv,CSYCONV)+#define LAPACK_csyswapr LAPACK_NAME(csyswapr,CSYSWAPR)+#define LAPACK_csytri2 LAPACK_NAME(csytri2,CSYTRI2)+#define LAPACK_csytri2x LAPACK_NAME(csytri2x,CSYTRI2X)+#define LAPACK_csytrs2 LAPACK_NAME(csytrs2,CSYTRS2)+#define LAPACK_cunbdb LAPACK_NAME(cunbdb,CUNBDB)+#define LAPACK_cuncsd LAPACK_NAME(cuncsd,CUNCSD)+#define LAPACK_dbbcsd LAPACK_NAME(dbbcsd,DBBCSD)+#define LAPACK_dorbdb LAPACK_NAME(dorbdb,DORBDB)+#define LAPACK_dorcsd LAPACK_NAME(dorcsd,DORCSD)+#define LAPACK_dsyconv LAPACK_NAME(dsyconv,DSYCONV)+#define LAPACK_dsyswapr LAPACK_NAME(dsyswapr,DSYSWAPR)+#define LAPACK_dsytri2 LAPACK_NAME(dsytri2,DSYTRI2)+#define LAPACK_dsytri2x LAPACK_NAME(dsytri2x,DSYTRI2X)+#define LAPACK_dsytrs2 LAPACK_NAME(dsytrs2,DSYTRS2)+#define LAPACK_sbbcsd LAPACK_NAME(sbbcsd,SBBCSD)+#define LAPACK_sorbdb LAPACK_NAME(sorbdb,SORBDB)+#define LAPACK_sorcsd LAPACK_NAME(sorcsd,SORCSD)+#define LAPACK_ssyconv LAPACK_NAME(ssyconv,SSYCONV)+#define LAPACK_ssyswapr LAPACK_NAME(ssyswapr,SSYSWAPR)+#define LAPACK_ssytri2 LAPACK_NAME(ssytri2,SSYTRI2)+#define LAPACK_ssytri2x LAPACK_NAME(ssytri2x,SSYTRI2X)+#define LAPACK_ssytrs2 LAPACK_NAME(ssytrs2,SSYTRS2)+#define LAPACK_zbbcsd LAPACK_NAME(zbbcsd,ZBBCSD)+#define LAPACK_zheswapr LAPACK_NAME(zheswapr,ZHESWAPR)+#define LAPACK_zhetri2 LAPACK_NAME(zhetri2,ZHETRI2)+#define LAPACK_zhetri2x LAPACK_NAME(zhetri2x,ZHETRI2X)+#define LAPACK_zhetrs2 LAPACK_NAME(zhetrs2,ZHETRS2)+#define LAPACK_zsyconv LAPACK_NAME(zsyconv,ZSYCONV)+#define LAPACK_zsyswapr LAPACK_NAME(zsyswapr,ZSYSWAPR)+#define LAPACK_zsytri2 LAPACK_NAME(zsytri2,ZSYTRI2)+#define LAPACK_zsytri2x LAPACK_NAME(zsytri2x,ZSYTRI2X)+#define LAPACK_zsytrs2 LAPACK_NAME(zsytrs2,ZSYTRS2)+#define LAPACK_zunbdb LAPACK_NAME(zunbdb,ZUNBDB)+#define LAPACK_zuncsd LAPACK_NAME(zuncsd,ZUNCSD)+// LAPACK 3.4.0+#define LAPACK_sgemqrt LAPACK_NAME(sgemqrt,SGEMQRT)+#define LAPACK_dgemqrt LAPACK_NAME(dgemqrt,DGEMQRT)+#define LAPACK_cgemqrt LAPACK_NAME(cgemqrt,CGEMQRT)+#define LAPACK_zgemqrt LAPACK_NAME(zgemqrt,ZGEMQRT)+#define LAPACK_sgeqrt LAPACK_NAME(sgeqrt,SGEQRT)+#define LAPACK_dgeqrt LAPACK_NAME(dgeqrt,DGEQRT)+#define LAPACK_cgeqrt LAPACK_NAME(cgeqrt,CGEQRT)+#define LAPACK_zgeqrt LAPACK_NAME(zgeqrt,ZGEQRT)+#define LAPACK_sgeqrt2 LAPACK_NAME(sgeqrt2,SGEQRT2)+#define LAPACK_dgeqrt2 LAPACK_NAME(dgeqrt2,DGEQRT2)+#define LAPACK_cgeqrt2 LAPACK_NAME(cgeqrt2,CGEQRT2)+#define LAPACK_zgeqrt2 LAPACK_NAME(zgeqrt2,ZGEQRT2)+#define LAPACK_sgeqrt3 LAPACK_NAME(sgeqrt3,SGEQRT3)+#define LAPACK_dgeqrt3 LAPACK_NAME(dgeqrt3,DGEQRT3)+#define LAPACK_cgeqrt3 LAPACK_NAME(cgeqrt3,CGEQRT3)+#define LAPACK_zgeqrt3 LAPACK_NAME(zgeqrt3,ZGEQRT3)+#define LAPACK_stpmqrt LAPACK_NAME(stpmqrt,STPMQRT)+#define LAPACK_dtpmqrt LAPACK_NAME(dtpmqrt,DTPMQRT)+#define LAPACK_ctpmqrt LAPACK_NAME(ctpmqrt,CTPMQRT)+#define LAPACK_ztpmqrt LAPACK_NAME(ztpmqrt,ZTPMQRT)+#define LAPACK_dtpqrt LAPACK_NAME(dtpqrt,DTPQRT)+#define LAPACK_ctpqrt LAPACK_NAME(ctpqrt,CTPQRT)+#define LAPACK_ztpqrt LAPACK_NAME(ztpqrt,ZTPQRT)+#define LAPACK_stpqrt2 LAPACK_NAME(stpqrt2,STPQRT2)+#define LAPACK_dtpqrt2 LAPACK_NAME(dtpqrt2,DTPQRT2)+#define LAPACK_ctpqrt2 LAPACK_NAME(ctpqrt2,CTPQRT2)+#define LAPACK_ztpqrt2 LAPACK_NAME(ztpqrt2,ZTPQRT2)+#define LAPACK_stprfb LAPACK_NAME(stprfb,STPRFB)+#define LAPACK_dtprfb LAPACK_NAME(dtprfb,DTPRFB)+#define LAPACK_ctprfb LAPACK_NAME(ctprfb,CTPRFB)+#define LAPACK_ztprfb LAPACK_NAME(ztprfb,ZTPRFB)++void LAPACK_sgetrf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_dgetrf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_cgetrf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* ipiv, lapack_int *info );+void LAPACK_zgetrf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ipiv, lapack_int *info );+void LAPACK_sgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, float* ab, lapack_int* ldab,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_dgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, double* ab, lapack_int* ldab,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_cgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_complex_float* ab, lapack_int* ldab,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_zgbtrf( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_complex_double* ab, lapack_int* ldab,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_sgttrf( lapack_int* n, float* dl, float* d, float* du, float* du2,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_dgttrf( lapack_int* n, double* dl, double* d, double* du,+                    double* du2, lapack_int* ipiv, lapack_int *info );+void LAPACK_cgttrf( lapack_int* n, lapack_complex_float* dl,+                    lapack_complex_float* d, lapack_complex_float* du,+                    lapack_complex_float* du2, lapack_int* ipiv,+                    lapack_int *info );+void LAPACK_zgttrf( lapack_int* n, lapack_complex_double* dl,+                    lapack_complex_double* d, lapack_complex_double* du,+                    lapack_complex_double* du2, lapack_int* ipiv,+                    lapack_int *info );+void LAPACK_spotrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dpotrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_cpotrf( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_zpotrf( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_dpstrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* piv, lapack_int* rank, double* tol,+                    double* work, lapack_int *info );+void LAPACK_spstrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* piv, lapack_int* rank, float* tol, float* work,+                    lapack_int *info );+void LAPACK_zpstrf( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* piv, lapack_int* rank,+                    double* tol, double* work, lapack_int *info );+void LAPACK_cpstrf( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* piv, lapack_int* rank,+                    float* tol, float* work, lapack_int *info );+void LAPACK_dpftrf( char* transr, char* uplo, lapack_int* n, double* a,+                    lapack_int *info );+void LAPACK_spftrf( char* transr, char* uplo, lapack_int* n, float* a,+                    lapack_int *info );+void LAPACK_zpftrf( char* transr, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int *info );+void LAPACK_cpftrf( char* transr, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int *info );+void LAPACK_spptrf( char* uplo, lapack_int* n, float* ap, lapack_int *info );+void LAPACK_dpptrf( char* uplo, lapack_int* n, double* ap, lapack_int *info );+void LAPACK_cpptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    lapack_int *info );+void LAPACK_zpptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    lapack_int *info );+void LAPACK_spbtrf( char* uplo, lapack_int* n, lapack_int* kd, float* ab,+                    lapack_int* ldab, lapack_int *info );+void LAPACK_dpbtrf( char* uplo, lapack_int* n, lapack_int* kd, double* ab,+                    lapack_int* ldab, lapack_int *info );+void LAPACK_cpbtrf( char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_float* ab, lapack_int* ldab,+                    lapack_int *info );+void LAPACK_zpbtrf( char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_double* ab, lapack_int* ldab,+                    lapack_int *info );+void LAPACK_spttrf( lapack_int* n, float* d, float* e, lapack_int *info );+void LAPACK_dpttrf( lapack_int* n, double* d, double* e, lapack_int *info );+void LAPACK_cpttrf( lapack_int* n, float* d, lapack_complex_float* e,+                    lapack_int *info );+void LAPACK_zpttrf( lapack_int* n, double* d, lapack_complex_double* e,+                    lapack_int *info );+void LAPACK_ssytrf( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* ipiv, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dsytrf( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* ipiv, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_csytrf( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* ipiv,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zsytrf( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ipiv,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_chetrf( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* ipiv,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zhetrf( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ipiv,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_ssptrf( char* uplo, lapack_int* n, float* ap, lapack_int* ipiv,+                    lapack_int *info );+void LAPACK_dsptrf( char* uplo, lapack_int* n, double* ap, lapack_int* ipiv,+                    lapack_int *info );+void LAPACK_csptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_zsptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_chptrf( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_zhptrf( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_sgetrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const float* a, lapack_int* lda, const lapack_int* ipiv,+                    float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_dgetrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, const lapack_int* ipiv,+                    double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_cgetrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_zgetrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_sgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const float* ab, lapack_int* ldab,+                    const lapack_int* ipiv, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const double* ab, lapack_int* ldab,+                    const lapack_int* ipiv, double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_cgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const lapack_complex_float* ab,+                    lapack_int* ldab, const lapack_int* ipiv,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zgbtrs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const lapack_complex_double* ab,+                    lapack_int* ldab, const lapack_int* ipiv,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_sgttrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const float* dl, const float* d, const float* du,+                    const float* du2, const lapack_int* ipiv, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dgttrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const double* dl, const double* d, const double* du,+                    const double* du2, const lapack_int* ipiv, double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_cgttrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* dl,+                    const lapack_complex_float* d,+                    const lapack_complex_float* du,+                    const lapack_complex_float* du2, const lapack_int* ipiv,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zgttrs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* dl,+                    const lapack_complex_double* d,+                    const lapack_complex_double* du,+                    const lapack_complex_double* du2, const lapack_int* ipiv,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_spotrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,+                    lapack_int* lda, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_cpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zpotrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_spftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* a, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_complex_double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_cpftrs( char* transr, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_spptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* ap, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* ap, double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_cpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_zpptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap, lapack_complex_double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_spbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const float* ab, lapack_int* ldab, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const double* ab, lapack_int* ldab, double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_cpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zpbtrs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_spttrs( lapack_int* n, lapack_int* nrhs, const float* d,+                    const float* e, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dpttrs( lapack_int* n, lapack_int* nrhs, const double* d,+                    const double* e, double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_cpttrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* d,+                    const lapack_complex_float* e, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_zpttrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* d, const lapack_complex_double* e,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_ssytrs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,+                    lapack_int* lda, const lapack_int* ipiv, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dsytrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, const lapack_int* ipiv,+                    double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_csytrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_zsytrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_chetrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_zhetrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_ssptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* ap, const lapack_int* ipiv, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dsptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* ap, const lapack_int* ipiv, double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_csptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap, const lapack_int* ipiv,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zsptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap, const lapack_int* ipiv,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_chptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap, const lapack_int* ipiv,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zhptrs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap, const lapack_int* ipiv,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_strtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dtrtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const double* a, lapack_int* lda,+                    double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_ctrtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_ztrtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_stptrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const float* ap, float* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_dtptrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const double* ap, double* b,+                    lapack_int* ldb, lapack_int *info );+void LAPACK_ctptrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_float* ap,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_ztptrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_double* ap,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_stbtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs, const float* ab,+                    lapack_int* ldab, float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dtbtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs, const double* ab,+                    lapack_int* ldab, double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_ctbtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_ztbtrs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_sgecon( char* norm, lapack_int* n, const float* a, lapack_int* lda,+                    float* anorm, float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgecon( char* norm, lapack_int* n, const double* a, lapack_int* lda,+                    double* anorm, double* rcond, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cgecon( char* norm, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, float* anorm, float* rcond,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zgecon( char* norm, lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, double* anorm, double* rcond,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    const float* ab, lapack_int* ldab, const lapack_int* ipiv,+                    float* anorm, float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    const double* ab, lapack_int* ldab, const lapack_int* ipiv,+                    double* anorm, double* rcond, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    const lapack_int* ipiv, float* anorm, float* rcond,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zgbcon( char* norm, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sgtcon( char* norm, lapack_int* n, const float* dl, const float* d,+                    const float* du, const float* du2, const lapack_int* ipiv,+                    float* anorm, float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgtcon( char* norm, lapack_int* n, const double* dl,+                    const double* d, const double* du, const double* du2,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cgtcon( char* norm, lapack_int* n, const lapack_complex_float* dl,+                    const lapack_complex_float* d,+                    const lapack_complex_float* du,+                    const lapack_complex_float* du2, const lapack_int* ipiv,+                    float* anorm, float* rcond, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zgtcon( char* norm, lapack_int* n, const lapack_complex_double* dl,+                    const lapack_complex_double* d,+                    const lapack_complex_double* du,+                    const lapack_complex_double* du2, const lapack_int* ipiv,+                    double* anorm, double* rcond, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_spocon( char* uplo, lapack_int* n, const float* a, lapack_int* lda,+                    float* anorm, float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dpocon( char* uplo, lapack_int* n, const double* a, lapack_int* lda,+                    double* anorm, double* rcond, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cpocon( char* uplo, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, float* anorm, float* rcond,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zpocon( char* uplo, lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, double* anorm, double* rcond,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sppcon( char* uplo, lapack_int* n, const float* ap, float* anorm,+                    float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dppcon( char* uplo, lapack_int* n, const double* ap, double* anorm,+                    double* rcond, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cppcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    float* anorm, float* rcond, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zppcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    double* anorm, double* rcond, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_spbcon( char* uplo, lapack_int* n, lapack_int* kd, const float* ab,+                    lapack_int* ldab, float* anorm, float* rcond, float* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dpbcon( char* uplo, lapack_int* n, lapack_int* kd, const double* ab,+                    lapack_int* ldab, double* anorm, double* rcond,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cpbcon( char* uplo, lapack_int* n, lapack_int* kd,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    float* anorm, float* rcond, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zpbcon( char* uplo, lapack_int* n, lapack_int* kd,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    double* anorm, double* rcond, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_sptcon( lapack_int* n, const float* d, const float* e, float* anorm,+                    float* rcond, float* work, lapack_int *info );+void LAPACK_dptcon( lapack_int* n, const double* d, const double* e,+                    double* anorm, double* rcond, double* work,+                    lapack_int *info );+void LAPACK_cptcon( lapack_int* n, const float* d,+                    const lapack_complex_float* e, float* anorm, float* rcond,+                    float* work, lapack_int *info );+void LAPACK_zptcon( lapack_int* n, const double* d,+                    const lapack_complex_double* e, double* anorm,+                    double* rcond, double* work, lapack_int *info );+void LAPACK_ssycon( char* uplo, lapack_int* n, const float* a, lapack_int* lda,+                    const lapack_int* ipiv, float* anorm, float* rcond,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dsycon( char* uplo, lapack_int* n, const double* a, lapack_int* lda,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_csycon( char* uplo, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_int* ipiv, float* anorm,+                    float* rcond, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zsycon( char* uplo, lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_int* ipiv, double* anorm,+                    double* rcond, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_checon( char* uplo, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_int* ipiv, float* anorm,+                    float* rcond, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zhecon( char* uplo, lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_int* ipiv, double* anorm,+                    double* rcond, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_sspcon( char* uplo, lapack_int* n, const float* ap,+                    const lapack_int* ipiv, float* anorm, float* rcond,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dspcon( char* uplo, lapack_int* n, const double* ap,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cspcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    const lapack_int* ipiv, float* anorm, float* rcond,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zspcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_chpcon( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    const lapack_int* ipiv, float* anorm, float* rcond,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zhpcon( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    const lapack_int* ipiv, double* anorm, double* rcond,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_strcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const float* a, lapack_int* lda, float* rcond, float* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dtrcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const double* a, lapack_int* lda, double* rcond,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_ctrcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda,+                    float* rcond, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztrcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda,+                    double* rcond, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_stpcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const float* ap, float* rcond, float* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dtpcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const double* ap, double* rcond, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ctpcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const lapack_complex_float* ap, float* rcond,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztpcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    const lapack_complex_double* ap, double* rcond,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_stbcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    lapack_int* kd, const float* ab, lapack_int* ldab,+                    float* rcond, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dtbcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    lapack_int* kd, const double* ab, lapack_int* ldab,+                    double* rcond, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_ctbcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    lapack_int* kd, const lapack_complex_float* ab,+                    lapack_int* ldab, float* rcond, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_ztbcon( char* norm, char* uplo, char* diag, lapack_int* n,+                    lapack_int* kd, const lapack_complex_double* ab,+                    lapack_int* ldab, double* rcond,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sgerfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const float* a, lapack_int* lda, const float* af,+                    lapack_int* ldaf, const lapack_int* ipiv, const float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,+                    float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgerfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, const double* af,+                    lapack_int* ldaf, const lapack_int* ipiv, const double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cgerfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zgerfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_dgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,+                     const double* a, lapack_int* lda, const double* af,+                     lapack_int* ldaf, const lapack_int* ipiv, const double* r,+                     const double* c, const double* b, lapack_int* ldb,+                     double* x, lapack_int* ldx, double* rcond, double* berr,+                     lapack_int* n_err_bnds, double* err_bnds_norm,+                     double* err_bnds_comp, lapack_int* nparams, double* params,+                     double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_sgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,+                     const float* a, lapack_int* lda, const float* af,+                     lapack_int* ldaf, const lapack_int* ipiv, const float* r,+                     const float* c, const float* b, lapack_int* ldb, float* x,+                     lapack_int* ldx, float* rcond, float* berr,+                     lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_zgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_complex_double* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const double* r, const double* c,+                     const lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cgerfsx( char* trans, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_float* a, lapack_int* lda,+                     const lapack_complex_float* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const float* r, const float* c,+                     const lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const float* ab, lapack_int* ldab,+                    const float* afb, lapack_int* ldafb, const lapack_int* ipiv,+                    const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const double* ab, lapack_int* ldab,+                    const double* afb, lapack_int* ldafb,+                    const lapack_int* ipiv, const double* b, lapack_int* ldb,+                    double* x, lapack_int* ldx, double* ferr, double* berr,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const lapack_complex_float* ab,+                    lapack_int* ldab, const lapack_complex_float* afb,+                    lapack_int* ldafb, const lapack_int* ipiv,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zgbrfs( char* trans, lapack_int* n, lapack_int* kl, lapack_int* ku,+                    lapack_int* nrhs, const lapack_complex_double* ab,+                    lapack_int* ldab, const lapack_complex_double* afb,+                    lapack_int* ldafb, const lapack_int* ipiv,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_dgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs, const double* ab,+                     lapack_int* ldab, const double* afb, lapack_int* ldafb,+                     const lapack_int* ipiv, const double* r, const double* c,+                     const double* b, lapack_int* ldb, double* x,+                     lapack_int* ldx, double* rcond, double* berr,+                     lapack_int* n_err_bnds, double* err_bnds_norm,+                     double* err_bnds_comp, lapack_int* nparams, double* params,+                     double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_sgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs, const float* ab,+                     lapack_int* ldab, const float* afb, lapack_int* ldafb,+                     const lapack_int* ipiv, const float* r, const float* c,+                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                     float* rcond, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params, float* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_zgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs,+                     const lapack_complex_double* ab, lapack_int* ldab,+                     const lapack_complex_double* afb, lapack_int* ldafb,+                     const lapack_int* ipiv, const double* r, const double* c,+                     const lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cgbrfsx( char* trans, char* equed, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs,+                     const lapack_complex_float* ab, lapack_int* ldab,+                     const lapack_complex_float* afb, lapack_int* ldafb,+                     const lapack_int* ipiv, const float* r, const float* c,+                     const lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const float* dl, const float* d, const float* du,+                    const float* dlf, const float* df, const float* duf,+                    const float* du2, const lapack_int* ipiv, const float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,+                    float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const double* dl, const double* d, const double* du,+                    const double* dlf, const double* df, const double* duf,+                    const double* du2, const lapack_int* ipiv, const double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* dl,+                    const lapack_complex_float* d,+                    const lapack_complex_float* du,+                    const lapack_complex_float* dlf,+                    const lapack_complex_float* df,+                    const lapack_complex_float* duf,+                    const lapack_complex_float* du2, const lapack_int* ipiv,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zgtrfs( char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* dl,+                    const lapack_complex_double* d,+                    const lapack_complex_double* du,+                    const lapack_complex_double* dlf,+                    const lapack_complex_double* df,+                    const lapack_complex_double* duf,+                    const lapack_complex_double* du2, const lapack_int* ipiv,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sporfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,+                    lapack_int* lda, const float* af, lapack_int* ldaf,+                    const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dporfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, const double* af,+                    lapack_int* ldaf, const double* b, lapack_int* ldb,+                    double* x, lapack_int* ldx, double* ferr, double* berr,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cporfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* af, lapack_int* ldaf,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zporfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* af, lapack_int* ldaf,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_dporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const double* a, lapack_int* lda, const double* af,+                     lapack_int* ldaf, const double* s, const double* b,+                     lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params, double* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_sporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const float* a, lapack_int* lda, const float* af,+                     lapack_int* ldaf, const float* s, const float* b,+                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                     float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_zporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_complex_double* af, lapack_int* ldaf,+                     const double* s, const lapack_complex_double* b,+                     lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                     double* rcond, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cporfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_float* a, lapack_int* lda,+                     const lapack_complex_float* af, lapack_int* ldaf,+                     const float* s, const lapack_complex_float* b,+                     lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                     float* rcond, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_spprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* ap, const float* afp, const float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* ferr,+                    float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* ap, const double* afp, const double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap,+                    const lapack_complex_float* afp,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zpprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap,+                    const lapack_complex_double* afp,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_spbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const float* ab, lapack_int* ldab, const float* afb,+                    lapack_int* ldafb, const float* b, lapack_int* ldb,+                    float* x, lapack_int* ldx, float* ferr, float* berr,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const double* ab, lapack_int* ldab, const double* afb,+                    lapack_int* ldafb, const double* b, lapack_int* ldb,+                    double* x, lapack_int* ldx, double* ferr, double* berr,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    const lapack_complex_float* afb, lapack_int* ldafb,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zpbrfs( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    const lapack_complex_double* afb, lapack_int* ldafb,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sptrfs( lapack_int* n, lapack_int* nrhs, const float* d,+                    const float* e, const float* df, const float* ef,+                    const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                    float* ferr, float* berr, float* work, lapack_int *info );+void LAPACK_dptrfs( lapack_int* n, lapack_int* nrhs, const double* d,+                    const double* e, const double* df, const double* ef,+                    const double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* ferr, double* berr, double* work,+                    lapack_int *info );+void LAPACK_cptrfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* d,+                    const lapack_complex_float* e, const float* df,+                    const lapack_complex_float* ef,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zptrfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* d, const lapack_complex_double* e,+                    const double* df, const lapack_complex_double* ef,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_ssyrfs( char* uplo, lapack_int* n, lapack_int* nrhs, const float* a,+                    lapack_int* lda, const float* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const float* b, lapack_int* ldb,+                    float* x, lapack_int* ldx, float* ferr, float* berr,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dsyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, const double* af,+                    lapack_int* ldaf, const lapack_int* ipiv, const double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_csyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zsyrfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_dsyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const double* a, lapack_int* lda, const double* af,+                     lapack_int* ldaf, const lapack_int* ipiv, const double* s,+                     const double* b, lapack_int* ldb, double* x,+                     lapack_int* ldx, double* rcond, double* berr,+                     lapack_int* n_err_bnds, double* err_bnds_norm,+                     double* err_bnds_comp, lapack_int* nparams, double* params,+                     double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_ssyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const float* a, lapack_int* lda, const float* af,+                     lapack_int* ldaf, const lapack_int* ipiv, const float* s,+                     const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                     float* rcond, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params, float* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_zsyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_complex_double* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const double* s,+                     const lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_csyrfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_float* a, lapack_int* lda,+                     const lapack_complex_float* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const float* s,+                     const lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_cherfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zherfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* af, lapack_int* ldaf,+                    const lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_zherfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_complex_double* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const double* s,+                     const lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cherfsx( char* uplo, char* equed, lapack_int* n, lapack_int* nrhs,+                     const lapack_complex_float* a, lapack_int* lda,+                     const lapack_complex_float* af, lapack_int* ldaf,+                     const lapack_int* ipiv, const float* s,+                     const lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* berr, lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_ssprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* ap, const float* afp, const lapack_int* ipiv,+                    const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dsprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* ap, const double* afp, const lapack_int* ipiv,+                    const double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* ferr, double* berr, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_csprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap,+                    const lapack_complex_float* afp, const lapack_int* ipiv,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zsprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap,+                    const lapack_complex_double* afp, const lapack_int* ipiv,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_chprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap,+                    const lapack_complex_float* afp, const lapack_int* ipiv,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zhprfs( char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap,+                    const lapack_complex_double* afp, const lapack_int* ipiv,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* ferr,+                    double* berr, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_strrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const float* a, lapack_int* lda,+                    const float* b, lapack_int* ldb, const float* x,+                    lapack_int* ldx, float* ferr, float* berr, float* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dtrrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const double* a, lapack_int* lda,+                    const double* b, lapack_int* ldb, const double* x,+                    lapack_int* ldx, double* ferr, double* berr, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ctrrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* b,+                    lapack_int* ldb, const lapack_complex_float* x,+                    lapack_int* ldx, float* ferr, float* berr,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztrrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* b,+                    lapack_int* ldb, const lapack_complex_double* x,+                    lapack_int* ldx, double* ferr, double* berr,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_stprfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const float* ap, const float* b,+                    lapack_int* ldb, const float* x, lapack_int* ldx,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dtprfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const double* ap, const double* b,+                    lapack_int* ldb, const double* x, lapack_int* ldx,+                    double* ferr, double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_ctprfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_float* ap,+                    const lapack_complex_float* b, lapack_int* ldb,+                    const lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztprfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* nrhs, const lapack_complex_double* ap,+                    const lapack_complex_double* b, lapack_int* ldb,+                    const lapack_complex_double* x, lapack_int* ldx,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_stbrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs, const float* ab,+                    lapack_int* ldab, const float* b, lapack_int* ldb,+                    const float* x, lapack_int* ldx, float* ferr, float* berr,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dtbrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs, const double* ab,+                    lapack_int* ldab, const double* b, lapack_int* ldb,+                    const double* x, lapack_int* ldx, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_ctbrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_float* ab, lapack_int* ldab,+                    const lapack_complex_float* b, lapack_int* ldb,+                    const lapack_complex_float* x, lapack_int* ldx, float* ferr,+                    float* berr, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztbrfs( char* uplo, char* trans, char* diag, lapack_int* n,+                    lapack_int* kd, lapack_int* nrhs,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    const lapack_complex_double* b, lapack_int* ldb,+                    const lapack_complex_double* x, lapack_int* ldx,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_sgetri( lapack_int* n, float* a, lapack_int* lda,+                    const lapack_int* ipiv, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgetri( lapack_int* n, double* a, lapack_int* lda,+                    const lapack_int* ipiv, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgetri( lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zgetri( lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    const lapack_int* ipiv, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_spotri( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dpotri( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_cpotri( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_zpotri( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_dpftri( char* transr, char* uplo, lapack_int* n, double* a,+                    lapack_int *info );+void LAPACK_spftri( char* transr, char* uplo, lapack_int* n, float* a,+                    lapack_int *info );+void LAPACK_zpftri( char* transr, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int *info );+void LAPACK_cpftri( char* transr, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int *info );+void LAPACK_spptri( char* uplo, lapack_int* n, float* ap, lapack_int *info );+void LAPACK_dpptri( char* uplo, lapack_int* n, double* ap, lapack_int *info );+void LAPACK_cpptri( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    lapack_int *info );+void LAPACK_zpptri( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    lapack_int *info );+void LAPACK_ssytri( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    const lapack_int* ipiv, float* work, lapack_int *info );+void LAPACK_dsytri( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    const lapack_int* ipiv, double* work, lapack_int *info );+void LAPACK_csytri( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, const lapack_int* ipiv,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zsytri( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, const lapack_int* ipiv,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_chetri( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, const lapack_int* ipiv,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zhetri( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, const lapack_int* ipiv,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_ssptri( char* uplo, lapack_int* n, float* ap,+                    const lapack_int* ipiv, float* work, lapack_int *info );+void LAPACK_dsptri( char* uplo, lapack_int* n, double* ap,+                    const lapack_int* ipiv, double* work, lapack_int *info );+void LAPACK_csptri( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    const lapack_int* ipiv, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zsptri( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    const lapack_int* ipiv, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_chptri( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    const lapack_int* ipiv, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zhptri( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    const lapack_int* ipiv, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_strtri( char* uplo, char* diag, lapack_int* n, float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_dtrtri( char* uplo, char* diag, lapack_int* n, double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_ctrtri( char* uplo, char* diag, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_ztrtri( char* uplo, char* diag, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dtftri( char* transr, char* uplo, char* diag, lapack_int* n,+                    double* a, lapack_int *info );+void LAPACK_stftri( char* transr, char* uplo, char* diag, lapack_int* n,+                    float* a, lapack_int *info );+void LAPACK_ztftri( char* transr, char* uplo, char* diag, lapack_int* n,+                    lapack_complex_double* a, lapack_int *info );+void LAPACK_ctftri( char* transr, char* uplo, char* diag, lapack_int* n,+                    lapack_complex_float* a, lapack_int *info );+void LAPACK_stptri( char* uplo, char* diag, lapack_int* n, float* ap,+                    lapack_int *info );+void LAPACK_dtptri( char* uplo, char* diag, lapack_int* n, double* ap,+                    lapack_int *info );+void LAPACK_ctptri( char* uplo, char* diag, lapack_int* n,+                    lapack_complex_float* ap, lapack_int *info );+void LAPACK_ztptri( char* uplo, char* diag, lapack_int* n,+                    lapack_complex_double* ap, lapack_int *info );+void LAPACK_sgeequ( lapack_int* m, lapack_int* n, const float* a,+                    lapack_int* lda, float* r, float* c, float* rowcnd,+                    float* colcnd, float* amax, lapack_int *info );+void LAPACK_dgeequ( lapack_int* m, lapack_int* n, const double* a,+                    lapack_int* lda, double* r, double* c, double* rowcnd,+                    double* colcnd, double* amax, lapack_int *info );+void LAPACK_cgeequ( lapack_int* m, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, float* r, float* c, float* rowcnd,+                    float* colcnd, float* amax, lapack_int *info );+void LAPACK_zgeequ( lapack_int* m, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda, double* r,+                    double* c, double* rowcnd, double* colcnd, double* amax,+                    lapack_int *info );+void LAPACK_dgeequb( lapack_int* m, lapack_int* n, const double* a,+                     lapack_int* lda, double* r, double* c, double* rowcnd,+                     double* colcnd, double* amax, lapack_int *info );+void LAPACK_sgeequb( lapack_int* m, lapack_int* n, const float* a,+                     lapack_int* lda, float* r, float* c, float* rowcnd,+                     float* colcnd, float* amax, lapack_int *info );+void LAPACK_zgeequb( lapack_int* m, lapack_int* n,+                     const lapack_complex_double* a, lapack_int* lda, double* r,+                     double* c, double* rowcnd, double* colcnd, double* amax,+                     lapack_int *info );+void LAPACK_cgeequb( lapack_int* m, lapack_int* n,+                     const lapack_complex_float* a, lapack_int* lda, float* r,+                     float* c, float* rowcnd, float* colcnd, float* amax,+                     lapack_int *info );+void LAPACK_sgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const float* ab, lapack_int* ldab, float* r,+                    float* c, float* rowcnd, float* colcnd, float* amax,+                    lapack_int *info );+void LAPACK_dgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const double* ab, lapack_int* ldab,+                    double* r, double* c, double* rowcnd, double* colcnd,+                    double* amax, lapack_int *info );+void LAPACK_cgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const lapack_complex_float* ab,+                    lapack_int* ldab, float* r, float* c, float* rowcnd,+                    float* colcnd, float* amax, lapack_int *info );+void LAPACK_zgbequ( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const lapack_complex_double* ab,+                    lapack_int* ldab, double* r, double* c, double* rowcnd,+                    double* colcnd, double* amax, lapack_int *info );+void LAPACK_dgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, const double* ab, lapack_int* ldab,+                     double* r, double* c, double* rowcnd, double* colcnd,+                     double* amax, lapack_int *info );+void LAPACK_sgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, const float* ab, lapack_int* ldab,+                     float* r, float* c, float* rowcnd, float* colcnd,+                     float* amax, lapack_int *info );+void LAPACK_zgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, const lapack_complex_double* ab,+                     lapack_int* ldab, double* r, double* c, double* rowcnd,+                     double* colcnd, double* amax, lapack_int *info );+void LAPACK_cgbequb( lapack_int* m, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, const lapack_complex_float* ab,+                     lapack_int* ldab, float* r, float* c, float* rowcnd,+                     float* colcnd, float* amax, lapack_int *info );+void LAPACK_spoequ( lapack_int* n, const float* a, lapack_int* lda, float* s,+                    float* scond, float* amax, lapack_int *info );+void LAPACK_dpoequ( lapack_int* n, const double* a, lapack_int* lda, double* s,+                    double* scond, double* amax, lapack_int *info );+void LAPACK_cpoequ( lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, float* s, float* scond, float* amax,+                    lapack_int *info );+void LAPACK_zpoequ( lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, double* s, double* scond, double* amax,+                    lapack_int *info );+void LAPACK_dpoequb( lapack_int* n, const double* a, lapack_int* lda, double* s,+                     double* scond, double* amax, lapack_int *info );+void LAPACK_spoequb( lapack_int* n, const float* a, lapack_int* lda, float* s,+                     float* scond, float* amax, lapack_int *info );+void LAPACK_zpoequb( lapack_int* n, const lapack_complex_double* a,+                     lapack_int* lda, double* s, double* scond, double* amax,+                     lapack_int *info );+void LAPACK_cpoequb( lapack_int* n, const lapack_complex_float* a,+                     lapack_int* lda, float* s, float* scond, float* amax,+                     lapack_int *info );+void LAPACK_sppequ( char* uplo, lapack_int* n, const float* ap, float* s,+                    float* scond, float* amax, lapack_int *info );+void LAPACK_dppequ( char* uplo, lapack_int* n, const double* ap, double* s,+                    double* scond, double* amax, lapack_int *info );+void LAPACK_cppequ( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    float* s, float* scond, float* amax, lapack_int *info );+void LAPACK_zppequ( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    double* s, double* scond, double* amax, lapack_int *info );+void LAPACK_spbequ( char* uplo, lapack_int* n, lapack_int* kd, const float* ab,+                    lapack_int* ldab, float* s, float* scond, float* amax,+                    lapack_int *info );+void LAPACK_dpbequ( char* uplo, lapack_int* n, lapack_int* kd, const double* ab,+                    lapack_int* ldab, double* s, double* scond, double* amax,+                    lapack_int *info );+void LAPACK_cpbequ( char* uplo, lapack_int* n, lapack_int* kd,+                    const lapack_complex_float* ab, lapack_int* ldab, float* s,+                    float* scond, float* amax, lapack_int *info );+void LAPACK_zpbequ( char* uplo, lapack_int* n, lapack_int* kd,+                    const lapack_complex_double* ab, lapack_int* ldab,+                    double* s, double* scond, double* amax, lapack_int *info );+void LAPACK_dsyequb( char* uplo, lapack_int* n, const double* a,+                     lapack_int* lda, double* s, double* scond, double* amax,+                     double* work, lapack_int *info );+void LAPACK_ssyequb( char* uplo, lapack_int* n, const float* a, lapack_int* lda,+                     float* s, float* scond, float* amax, float* work,+                     lapack_int *info );+void LAPACK_zsyequb( char* uplo, lapack_int* n, const lapack_complex_double* a,+                     lapack_int* lda, double* s, double* scond, double* amax,+                     lapack_complex_double* work, lapack_int *info );+void LAPACK_csyequb( char* uplo, lapack_int* n, const lapack_complex_float* a,+                     lapack_int* lda, float* s, float* scond, float* amax,+                     lapack_complex_float* work, lapack_int *info );+void LAPACK_zheequb( char* uplo, lapack_int* n, const lapack_complex_double* a,+                     lapack_int* lda, double* s, double* scond, double* amax,+                     lapack_complex_double* work, lapack_int *info );+void LAPACK_cheequb( char* uplo, lapack_int* n, const lapack_complex_float* a,+                     lapack_int* lda, float* s, float* scond, float* amax,+                     lapack_complex_float* work, lapack_int *info );+void LAPACK_sgesv( lapack_int* n, lapack_int* nrhs, float* a, lapack_int* lda,+                   lapack_int* ipiv, float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dgesv( lapack_int* n, lapack_int* nrhs, double* a, lapack_int* lda,+                   lapack_int* ipiv, double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_cgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_float* a,+                   lapack_int* lda, lapack_int* ipiv, lapack_complex_float* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_zgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* a,+                   lapack_int* lda, lapack_int* ipiv, lapack_complex_double* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_dsgesv( lapack_int* n, lapack_int* nrhs, double* a, lapack_int* lda,+                    lapack_int* ipiv, double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* work, float* swork,+                    lapack_int* iter, lapack_int *info );+void LAPACK_zcgesv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ipiv, lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    lapack_complex_double* work, lapack_complex_float* swork,+                    double* rwork, lapack_int* iter, lapack_int *info );+void LAPACK_sgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    float* a, lapack_int* lda, float* af, lapack_int* ldaf,+                    lapack_int* ipiv, char* equed, float* r, float* c, float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    double* a, lapack_int* lda, double* af, lapack_int* ldaf,+                    lapack_int* ipiv, char* equed, double* r, double* c,+                    double* b, lapack_int* ldb, double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* af, lapack_int* ldaf,+                    lapack_int* ipiv, char* equed, float* r, float* c,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zgesvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* af, lapack_int* ldaf,+                    lapack_int* ipiv, char* equed, double* r, double* c,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_dgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                     double* a, lapack_int* lda, double* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, double* r, double* c,+                     double* b, lapack_int* ldb, double* x, lapack_int* ldx,+                     double* rcond, double* rpvgrw, double* berr,+                     lapack_int* n_err_bnds, double* err_bnds_norm,+                     double* err_bnds_comp, lapack_int* nparams, double* params,+                     double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_sgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                     float* a, lapack_int* lda, float* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, float* r, float* c,+                     float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                     float* rcond, float* rpvgrw, float* berr,+                     lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_zgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_double* a, lapack_int* lda,+                     lapack_complex_double* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, double* r, double* c,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cgesvxx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_float* a, lapack_int* lda,+                     lapack_complex_float* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, float* r, float* c,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,+                   lapack_int* nrhs, float* ab, lapack_int* ldab,+                   lapack_int* ipiv, float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,+                   lapack_int* nrhs, double* ab, lapack_int* ldab,+                   lapack_int* ipiv, double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_cgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,+                   lapack_int* nrhs, lapack_complex_float* ab, lapack_int* ldab,+                   lapack_int* ipiv, lapack_complex_float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_zgbsv( lapack_int* n, lapack_int* kl, lapack_int* ku,+                   lapack_int* nrhs, lapack_complex_double* ab,+                   lapack_int* ldab, lapack_int* ipiv, lapack_complex_double* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_sgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_int* nrhs, float* ab,+                    lapack_int* ldab, float* afb, lapack_int* ldafb,+                    lapack_int* ipiv, char* equed, float* r, float* c, float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_int* nrhs, double* ab,+                    lapack_int* ldab, double* afb, lapack_int* ldafb,+                    lapack_int* ipiv, char* equed, double* r, double* c,+                    double* b, lapack_int* ldb, double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_int* nrhs, lapack_complex_float* ab,+                    lapack_int* ldab, lapack_complex_float* afb,+                    lapack_int* ldafb, lapack_int* ipiv, char* equed, float* r,+                    float* c, lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zgbsvx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, lapack_int* nrhs, lapack_complex_double* ab,+                    lapack_int* ldab, lapack_complex_double* afb,+                    lapack_int* ldafb, lapack_int* ipiv, char* equed, double* r,+                    double* c, lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_dgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs, double* ab,+                     lapack_int* ldab, double* afb, lapack_int* ldafb,+                     lapack_int* ipiv, char* equed, double* r, double* c,+                     double* b, lapack_int* ldb, double* x, lapack_int* ldx,+                     double* rcond, double* rpvgrw, double* berr,+                     lapack_int* n_err_bnds, double* err_bnds_norm,+                     double* err_bnds_comp, lapack_int* nparams, double* params,+                     double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_sgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs, float* ab,+                     lapack_int* ldab, float* afb, lapack_int* ldafb,+                     lapack_int* ipiv, char* equed, float* r, float* c,+                     float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                     float* rcond, float* rpvgrw, float* berr,+                     lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_zgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs,+                     lapack_complex_double* ab, lapack_int* ldab,+                     lapack_complex_double* afb, lapack_int* ldafb,+                     lapack_int* ipiv, char* equed, double* r, double* c,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cgbsvxx( char* fact, char* trans, lapack_int* n, lapack_int* kl,+                     lapack_int* ku, lapack_int* nrhs, lapack_complex_float* ab,+                     lapack_int* ldab, lapack_complex_float* afb,+                     lapack_int* ldafb, lapack_int* ipiv, char* equed, float* r,+                     float* c, lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sgtsv( lapack_int* n, lapack_int* nrhs, float* dl, float* d,+                   float* du, float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_dgtsv( lapack_int* n, lapack_int* nrhs, double* dl, double* d,+                   double* du, double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_cgtsv( lapack_int* n, lapack_int* nrhs, lapack_complex_float* dl,+                   lapack_complex_float* d, lapack_complex_float* du,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_zgtsv( lapack_int* n, lapack_int* nrhs, lapack_complex_double* dl,+                   lapack_complex_double* d, lapack_complex_double* du,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_sgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    const float* dl, const float* d, const float* du,+                    float* dlf, float* df, float* duf, float* du2,+                    lapack_int* ipiv, const float* b, lapack_int* ldb, float* x,+                    lapack_int* ldx, float* rcond, float* ferr, float* berr,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    const double* dl, const double* d, const double* du,+                    double* dlf, double* df, double* duf, double* du2,+                    lapack_int* ipiv, const double* b, lapack_int* ldb,+                    double* x, lapack_int* ldx, double* rcond, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* dl,+                    const lapack_complex_float* d,+                    const lapack_complex_float* du, lapack_complex_float* dlf,+                    lapack_complex_float* df, lapack_complex_float* duf,+                    lapack_complex_float* du2, lapack_int* ipiv,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zgtsvx( char* fact, char* trans, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* dl,+                    const lapack_complex_double* d,+                    const lapack_complex_double* du, lapack_complex_double* dlf,+                    lapack_complex_double* df, lapack_complex_double* duf,+                    lapack_complex_double* du2, lapack_int* ipiv,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_sposv( char* uplo, lapack_int* n, lapack_int* nrhs, float* a,+                   lapack_int* lda, float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dposv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,+                   lapack_int* lda, double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_cposv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_zposv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dsposv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* work, float* swork,+                    lapack_int* iter, lapack_int *info );+void LAPACK_zcposv( char* uplo, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx,+                    lapack_complex_double* work, lapack_complex_float* swork,+                    double* rwork, lapack_int* iter, lapack_int *info );+void LAPACK_sposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    float* a, lapack_int* lda, float* af, lapack_int* ldaf,+                    char* equed, float* s, float* b, lapack_int* ldb, float* x,+                    lapack_int* ldx, float* rcond, float* ferr, float* berr,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    double* a, lapack_int* lda, double* af, lapack_int* ldaf,+                    char* equed, double* s, double* b, lapack_int* ldb,+                    double* x, lapack_int* ldx, double* rcond, double* ferr,+                    double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* af, lapack_int* ldaf, char* equed,+                    float* s, lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zposvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* af, lapack_int* ldaf, char* equed,+                    double* s, lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_dposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     double* a, lapack_int* lda, double* af, lapack_int* ldaf,+                     char* equed, double* s, double* b, lapack_int* ldb,+                     double* x, lapack_int* ldx, double* rcond, double* rpvgrw,+                     double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params, double* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_sposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     float* a, lapack_int* lda, float* af, lapack_int* ldaf,+                     char* equed, float* s, float* b, lapack_int* ldb, float* x,+                     lapack_int* ldx, float* rcond, float* rpvgrw, float* berr,+                     lapack_int* n_err_bnds, float* err_bnds_norm,+                     float* err_bnds_comp, lapack_int* nparams, float* params,+                     float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_zposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_double* a, lapack_int* lda,+                     lapack_complex_double* af, lapack_int* ldaf, char* equed,+                     double* s, lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_cposvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_float* a, lapack_int* lda,+                     lapack_complex_float* af, lapack_int* ldaf, char* equed,+                     float* s, lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sppsv( char* uplo, lapack_int* n, lapack_int* nrhs, float* ap,+                   float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_dppsv( char* uplo, lapack_int* n, lapack_int* nrhs, double* ap,+                   double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_cppsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* ap, lapack_complex_float* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_zppsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* ap, lapack_complex_double* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_sppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    float* ap, float* afp, char* equed, float* s, float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    double* ap, double* afp, char* equed, double* s, double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* ap, lapack_complex_float* afp,+                    char* equed, float* s, lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zppsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* ap, lapack_complex_double* afp,+                    char* equed, double* s, lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_spbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                   float* ab, lapack_int* ldab, float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                   double* ab, lapack_int* ldab, double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_cpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                   lapack_complex_float* ab, lapack_int* ldab,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_zpbsv( char* uplo, lapack_int* n, lapack_int* kd, lapack_int* nrhs,+                   lapack_complex_double* ab, lapack_int* ldab,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_spbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_int* nrhs, float* ab, lapack_int* ldab, float* afb,+                    lapack_int* ldafb, char* equed, float* s, float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_int* nrhs, double* ab, lapack_int* ldab, double* afb,+                    lapack_int* ldafb, char* equed, double* s, double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_cpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_int* nrhs, lapack_complex_float* ab,+                    lapack_int* ldab, lapack_complex_float* afb,+                    lapack_int* ldafb, char* equed, float* s,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zpbsvx( char* fact, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_int* nrhs, lapack_complex_double* ab,+                    lapack_int* ldab, lapack_complex_double* afb,+                    lapack_int* ldafb, char* equed, double* s,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_sptsv( lapack_int* n, lapack_int* nrhs, float* d, float* e,+                   float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_dptsv( lapack_int* n, lapack_int* nrhs, double* d, double* e,+                   double* b, lapack_int* ldb, lapack_int *info );+void LAPACK_cptsv( lapack_int* n, lapack_int* nrhs, float* d,+                   lapack_complex_float* e, lapack_complex_float* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_zptsv( lapack_int* n, lapack_int* nrhs, double* d,+                   lapack_complex_double* e, lapack_complex_double* b,+                   lapack_int* ldb, lapack_int *info );+void LAPACK_sptsvx( char* fact, lapack_int* n, lapack_int* nrhs, const float* d,+                    const float* e, float* df, float* ef, const float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int *info );+void LAPACK_dptsvx( char* fact, lapack_int* n, lapack_int* nrhs,+                    const double* d, const double* e, double* df, double* ef,+                    const double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* rcond, double* ferr, double* berr,+                    double* work, lapack_int *info );+void LAPACK_cptsvx( char* fact, lapack_int* n, lapack_int* nrhs, const float* d,+                    const lapack_complex_float* e, float* df,+                    lapack_complex_float* ef, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zptsvx( char* fact, lapack_int* n, lapack_int* nrhs,+                    const double* d, const lapack_complex_double* e, double* df,+                    lapack_complex_double* ef, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_ssysv( char* uplo, lapack_int* n, lapack_int* nrhs, float* a,+                   lapack_int* lda, lapack_int* ipiv, float* b, lapack_int* ldb,+                   float* work, lapack_int* lwork, lapack_int *info );+void LAPACK_dsysv( char* uplo, lapack_int* n, lapack_int* nrhs, double* a,+                   lapack_int* lda, lapack_int* ipiv, double* b,+                   lapack_int* ldb, double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_csysv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* a, lapack_int* lda, lapack_int* ipiv,+                   lapack_complex_float* b, lapack_int* ldb,+                   lapack_complex_float* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_zsysv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* a, lapack_int* lda, lapack_int* ipiv,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_complex_double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_ssysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* a, lapack_int* lda, float* af,+                    lapack_int* ldaf, lapack_int* ipiv, const float* b,+                    lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                    float* ferr, float* berr, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dsysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* a, lapack_int* lda, double* af,+                    lapack_int* ldaf, lapack_int* ipiv, const double* b,+                    lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,+                    double* ferr, double* berr, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_csysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* af, lapack_int* ldaf,+                    lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int *info );+void LAPACK_zsysvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* af, lapack_int* ldaf,+                    lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_dsysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     double* a, lapack_int* lda, double* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, double* s, double* b,+                     lapack_int* ldb, double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params, double* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_ssysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     float* a, lapack_int* lda, float* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, float* s, float* b,+                     lapack_int* ldb, float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params, float* work,+                     lapack_int* iwork, lapack_int *info );+void LAPACK_zsysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_double* a, lapack_int* lda,+                     lapack_complex_double* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, double* s,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_csysvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_float* a, lapack_int* lda,+                     lapack_complex_float* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, float* s,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_chesv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* a, lapack_int* lda, lapack_int* ipiv,+                   lapack_complex_float* b, lapack_int* ldb,+                   lapack_complex_float* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_zhesv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* a, lapack_int* lda, lapack_int* ipiv,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_complex_double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_chesvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* af, lapack_int* ldaf,+                    lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int *info );+void LAPACK_zhesvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* af, lapack_int* ldaf,+                    lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_zhesvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_double* a, lapack_int* lda,+                     lapack_complex_double* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, double* s,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* x, lapack_int* ldx, double* rcond,+                     double* rpvgrw, double* berr, lapack_int* n_err_bnds,+                     double* err_bnds_norm, double* err_bnds_comp,+                     lapack_int* nparams, double* params,+                     lapack_complex_double* work, double* rwork,+                     lapack_int *info );+void LAPACK_chesvxx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                     lapack_complex_float* a, lapack_int* lda,+                     lapack_complex_float* af, lapack_int* ldaf,+                     lapack_int* ipiv, char* equed, float* s,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* x, lapack_int* ldx, float* rcond,+                     float* rpvgrw, float* berr, lapack_int* n_err_bnds,+                     float* err_bnds_norm, float* err_bnds_comp,+                     lapack_int* nparams, float* params,+                     lapack_complex_float* work, float* rwork,+                     lapack_int *info );+void LAPACK_sspsv( char* uplo, lapack_int* n, lapack_int* nrhs, float* ap,+                   lapack_int* ipiv, float* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_dspsv( char* uplo, lapack_int* n, lapack_int* nrhs, double* ap,+                   lapack_int* ipiv, double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_cspsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* ap, lapack_int* ipiv,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_zspsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* ap, lapack_int* ipiv,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_sspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const float* ap, float* afp, lapack_int* ipiv,+                    const float* b, lapack_int* ldb, float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr, float* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const double* ap, double* afp, lapack_int* ipiv,+                    const double* b, lapack_int* ldb, double* x,+                    lapack_int* ldx, double* rcond, double* ferr, double* berr,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap, lapack_complex_float* afp,+                    lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zspsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap, lapack_complex_double* afp,+                    lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_chpsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* ap, lapack_int* ipiv,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int *info );+void LAPACK_zhpsv( char* uplo, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* ap, lapack_int* ipiv,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_int *info );+void LAPACK_chpsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_float* ap, lapack_complex_float* afp,+                    lapack_int* ipiv, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* x, lapack_int* ldx,+                    float* rcond, float* ferr, float* berr,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zhpsvx( char* fact, char* uplo, lapack_int* n, lapack_int* nrhs,+                    const lapack_complex_double* ap, lapack_complex_double* afp,+                    lapack_int* ipiv, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* x, lapack_int* ldx,+                    double* rcond, double* ferr, double* berr,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sgeqrf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgeqrf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgeqrf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zgeqrf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* jpvt, float* tau, float* work,+                    lapack_int *info );+void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* jpvt, double* tau, double* work,+                    lapack_int *info );+void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* jpvt,+                    lapack_complex_float* tau, lapack_complex_float* work,+                    float* rwork, lapack_int *info );+void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* jpvt,+                    lapack_complex_double* tau, lapack_complex_double* work,+                    double* rwork, lapack_int *info );+void LAPACK_sgeqp3( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* jpvt, float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dgeqp3( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* jpvt, double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cgeqp3( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* jpvt,+                    lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int *info );+void LAPACK_zgeqp3( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* jpvt,+                    lapack_complex_double* tau, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int *info );+void LAPACK_sorgqr( lapack_int* m, lapack_int* n, lapack_int* k, float* a,+                    lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorgqr( lapack_int* m, lapack_int* n, lapack_int* k, double* a,+                    lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sormqr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const float* a, lapack_int* lda,+                    const float* tau, float* c, lapack_int* ldc, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dormqr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const double* a, lapack_int* lda,+                    const double* tau, double* c, lapack_int* ldc, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cungqr( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zungqr( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmqr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmqr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgelqf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgelqf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgelqf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zgelqf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sorglq( lapack_int* m, lapack_int* n, lapack_int* k, float* a,+                    lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorglq( lapack_int* m, lapack_int* n, lapack_int* k, double* a,+                    lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sormlq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const float* a, lapack_int* lda,+                    const float* tau, float* c, lapack_int* ldc, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dormlq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const double* a, lapack_int* lda,+                    const double* tau, double* c, lapack_int* ldc, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cunglq( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zunglq( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmlq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmlq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgeqlf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgeqlf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgeqlf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zgeqlf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sorgql( lapack_int* m, lapack_int* n, lapack_int* k, float* a,+                    lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorgql( lapack_int* m, lapack_int* n, lapack_int* k, double* a,+                    lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cungql( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zungql( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sormql( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const float* a, lapack_int* lda,+                    const float* tau, float* c, lapack_int* ldc, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dormql( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const double* a, lapack_int* lda,+                    const double* tau, double* c, lapack_int* ldc, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cunmql( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmql( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgerqf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgerqf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgerqf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zgerqf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sorgrq( lapack_int* m, lapack_int* n, lapack_int* k, float* a,+                    lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorgrq( lapack_int* m, lapack_int* n, lapack_int* k, double* a,+                    lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cungrq( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zungrq( lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sormrq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const float* a, lapack_int* lda,+                    const float* tau, float* c, lapack_int* ldc, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dormrq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const double* a, lapack_int* lda,+                    const double* tau, double* c, lapack_int* ldc, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cunmrq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmrq( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_stzrzf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dtzrzf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_ctzrzf( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_ztzrzf( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sormrz( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, lapack_int* l, const float* a,+                    lapack_int* lda, const float* tau, float* c,+                    lapack_int* ldc, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dormrz( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, lapack_int* l, const double* a,+                    lapack_int* lda, const double* tau, double* c,+                    lapack_int* ldc, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmrz( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, lapack_int* l, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmrz( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* k, lapack_int* l,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau, lapack_complex_double* c,+                    lapack_int* ldc, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sggqrf( lapack_int* n, lapack_int* m, lapack_int* p, float* a,+                    lapack_int* lda, float* taua, float* b, lapack_int* ldb,+                    float* taub, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dggqrf( lapack_int* n, lapack_int* m, lapack_int* p, double* a,+                    lapack_int* lda, double* taua, double* b, lapack_int* ldb,+                    double* taub, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cggqrf( lapack_int* n, lapack_int* m, lapack_int* p,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* taua, lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* taub,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zggqrf( lapack_int* n, lapack_int* m, lapack_int* p,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* taua, lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* taub,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sggrqf( lapack_int* m, lapack_int* p, lapack_int* n, float* a,+                    lapack_int* lda, float* taua, float* b, lapack_int* ldb,+                    float* taub, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dggrqf( lapack_int* m, lapack_int* p, lapack_int* n, double* a,+                    lapack_int* lda, double* taua, double* b, lapack_int* ldb,+                    double* taub, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cggrqf( lapack_int* m, lapack_int* p, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* taua, lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* taub,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zggrqf( lapack_int* m, lapack_int* p, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* taua, lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* taub,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgebrd( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* d, float* e, float* tauq, float* taup, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dgebrd( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* d, double* e, double* tauq, double* taup,+                    double* work, lapack_int* lwork, lapack_int *info );+void LAPACK_cgebrd( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, float* d, float* e,+                    lapack_complex_float* tauq, lapack_complex_float* taup,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zgebrd( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, double* d, double* e,+                    lapack_complex_double* tauq, lapack_complex_double* taup,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,+                    lapack_int* kl, lapack_int* ku, float* ab, lapack_int* ldab,+                    float* d, float* e, float* q, lapack_int* ldq, float* pt,+                    lapack_int* ldpt, float* c, lapack_int* ldc, float* work,+                    lapack_int *info );+void LAPACK_dgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,+                    lapack_int* kl, lapack_int* ku, double* ab,+                    lapack_int* ldab, double* d, double* e, double* q,+                    lapack_int* ldq, double* pt, lapack_int* ldpt, double* c,+                    lapack_int* ldc, double* work, lapack_int *info );+void LAPACK_cgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,+                    lapack_int* kl, lapack_int* ku, lapack_complex_float* ab,+                    lapack_int* ldab, float* d, float* e,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* pt, lapack_int* ldpt,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zgbbrd( char* vect, lapack_int* m, lapack_int* n, lapack_int* ncc,+                    lapack_int* kl, lapack_int* ku, lapack_complex_double* ab,+                    lapack_int* ldab, double* d, double* e,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* pt, lapack_int* ldpt,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_sorgbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,+                    float* a, lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorgbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,+                    double* a, lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sormbr( char* vect, char* side, char* trans, lapack_int* m,+                    lapack_int* n, lapack_int* k, const float* a,+                    lapack_int* lda, const float* tau, float* c,+                    lapack_int* ldc, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dormbr( char* vect, char* side, char* trans, lapack_int* m,+                    lapack_int* n, lapack_int* k, const double* a,+                    lapack_int* lda, const double* tau, double* c,+                    lapack_int* ldc, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cungbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zungbr( char* vect, lapack_int* m, lapack_int* n, lapack_int* k,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmbr( char* vect, char* side, char* trans, lapack_int* m,+                    lapack_int* n, lapack_int* k, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmbr( char* vect, char* side, char* trans, lapack_int* m,+                    lapack_int* n, lapack_int* k,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau, lapack_complex_double* c,+                    lapack_int* ldc, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,+                    lapack_int* nru, lapack_int* ncc, float* d, float* e,+                    float* vt, lapack_int* ldvt, float* u, lapack_int* ldu,+                    float* c, lapack_int* ldc, float* work, lapack_int *info );+void LAPACK_dbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,+                    lapack_int* nru, lapack_int* ncc, double* d, double* e,+                    double* vt, lapack_int* ldvt, double* u, lapack_int* ldu,+                    double* c, lapack_int* ldc, double* work,+                    lapack_int *info );+void LAPACK_cbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,+                    lapack_int* nru, lapack_int* ncc, float* d, float* e,+                    lapack_complex_float* vt, lapack_int* ldvt,+                    lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* c, lapack_int* ldc, float* work,+                    lapack_int *info );+void LAPACK_zbdsqr( char* uplo, lapack_int* n, lapack_int* ncvt,+                    lapack_int* nru, lapack_int* ncc, double* d, double* e,+                    lapack_complex_double* vt, lapack_int* ldvt,+                    lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* c, lapack_int* ldc, double* work,+                    lapack_int *info );+void LAPACK_sbdsdc( char* uplo, char* compq, lapack_int* n, float* d, float* e,+                    float* u, lapack_int* ldu, float* vt, lapack_int* ldvt,+                    float* q, lapack_int* iq, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dbdsdc( char* uplo, char* compq, lapack_int* n, double* d,+                    double* e, double* u, lapack_int* ldu, double* vt,+                    lapack_int* ldvt, double* q, lapack_int* iq, double* work,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ssytrd( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    float* d, float* e, float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dsytrd( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    double* d, double* e, double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sorgtr( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    const float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dorgtr( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    const double* tau, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_sormtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const float* a, lapack_int* lda,+                    const float* tau, float* c, lapack_int* ldc, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dormtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const double* a, lapack_int* lda,+                    const double* tau, double* c, lapack_int* ldc, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_chetrd( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, float* d, float* e,+                    lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zhetrd( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, double* d, double* e,+                    lapack_complex_double* tau, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cungtr( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zungtr( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_zunmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_ssptrd( char* uplo, lapack_int* n, float* ap, float* d, float* e,+                    float* tau, lapack_int *info );+void LAPACK_dsptrd( char* uplo, lapack_int* n, double* ap, double* d, double* e,+                    double* tau, lapack_int *info );+void LAPACK_sopgtr( char* uplo, lapack_int* n, const float* ap,+                    const float* tau, float* q, lapack_int* ldq, float* work,+                    lapack_int *info );+void LAPACK_dopgtr( char* uplo, lapack_int* n, const double* ap,+                    const double* tau, double* q, lapack_int* ldq, double* work,+                    lapack_int *info );+void LAPACK_sopmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const float* ap, const float* tau, float* c,+                    lapack_int* ldc, float* work, lapack_int *info );+void LAPACK_dopmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const double* ap, const double* tau,+                    double* c, lapack_int* ldc, double* work,+                    lapack_int *info );+void LAPACK_chptrd( char* uplo, lapack_int* n, lapack_complex_float* ap,+                    float* d, float* e, lapack_complex_float* tau,+                    lapack_int *info );+void LAPACK_zhptrd( char* uplo, lapack_int* n, lapack_complex_double* ap,+                    double* d, double* e, lapack_complex_double* tau,+                    lapack_int *info );+void LAPACK_cupgtr( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    const lapack_complex_float* tau, lapack_complex_float* q,+                    lapack_int* ldq, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zupgtr( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    const lapack_complex_double* tau, lapack_complex_double* q,+                    lapack_int* ldq, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_cupmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const lapack_complex_float* ap,+                    const lapack_complex_float* tau, lapack_complex_float* c,+                    lapack_int* ldc, lapack_complex_float* work,+                    lapack_int *info );+void LAPACK_zupmtr( char* side, char* uplo, char* trans, lapack_int* m,+                    lapack_int* n, const lapack_complex_double* ap,+                    const lapack_complex_double* tau, lapack_complex_double* c,+                    lapack_int* ldc, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_ssbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,+                    float* ab, lapack_int* ldab, float* d, float* e, float* q,+                    lapack_int* ldq, float* work, lapack_int *info );+void LAPACK_dsbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,+                    double* ab, lapack_int* ldab, double* d, double* e,+                    double* q, lapack_int* ldq, double* work,+                    lapack_int *info );+void LAPACK_chbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_float* ab, lapack_int* ldab, float* d,+                    float* e, lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zhbtrd( char* vect, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_double* ab, lapack_int* ldab, double* d,+                    double* e, lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_ssterf( lapack_int* n, float* d, float* e, lapack_int *info );+void LAPACK_dsterf( lapack_int* n, double* d, double* e, lapack_int *info );+void LAPACK_ssteqr( char* compz, lapack_int* n, float* d, float* e, float* z,+                    lapack_int* ldz, float* work, lapack_int *info );+void LAPACK_dsteqr( char* compz, lapack_int* n, double* d, double* e, double* z,+                    lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_csteqr( char* compz, lapack_int* n, float* d, float* e,+                    lapack_complex_float* z, lapack_int* ldz, float* work,+                    lapack_int *info );+void LAPACK_zsteqr( char* compz, lapack_int* n, double* d, double* e,+                    lapack_complex_double* z, lapack_int* ldz, double* work,+                    lapack_int *info );+void LAPACK_sstemr( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    lapack_int* m, float* w, float* z, lapack_int* ldz,+                    lapack_int* nzc, lapack_int* isuppz, lapack_logical* tryrac,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_dstemr( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, lapack_int* m, double* w, double* z,+                    lapack_int* ldz, lapack_int* nzc, lapack_int* isuppz,+                    lapack_logical* tryrac, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_cstemr( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_int* nzc, lapack_int* isuppz,+                    lapack_logical* tryrac, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_zstemr( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, lapack_int* m, double* w,+                    lapack_complex_double* z, lapack_int* ldz, lapack_int* nzc,+                    lapack_int* isuppz, lapack_logical* tryrac, double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_sstedc( char* compz, lapack_int* n, float* d, float* e, float* z,+                    lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dstedc( char* compz, lapack_int* n, double* d, double* e, double* z,+                    lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_cstedc( char* compz, lapack_int* n, float* d, float* e,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zstedc( char* compz, lapack_int* n, double* d, double* e,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_sstegr( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w, float* z,+                    lapack_int* ldz, lapack_int* isuppz, float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_dstegr( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, lapack_int* isuppz,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_cstegr( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_int* isuppz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_zstegr( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_int* isuppz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_spteqr( char* compz, lapack_int* n, float* d, float* e, float* z,+                    lapack_int* ldz, float* work, lapack_int *info );+void LAPACK_dpteqr( char* compz, lapack_int* n, double* d, double* e, double* z,+                    lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_cpteqr( char* compz, lapack_int* n, float* d, float* e,+                    lapack_complex_float* z, lapack_int* ldz, float* work,+                    lapack_int *info );+void LAPACK_zpteqr( char* compz, lapack_int* n, double* d, double* e,+                    lapack_complex_double* z, lapack_int* ldz, double* work,+                    lapack_int *info );+void LAPACK_sstebz( char* range, char* order, lapack_int* n, float* vl,+                    float* vu, lapack_int* il, lapack_int* iu, float* abstol,+                    const float* d, const float* e, lapack_int* m,+                    lapack_int* nsplit, float* w, lapack_int* iblock,+                    lapack_int* isplit, float* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dstebz( char* range, char* order, lapack_int* n, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    const double* d, const double* e, lapack_int* m,+                    lapack_int* nsplit, double* w, lapack_int* iblock,+                    lapack_int* isplit, double* work, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_sstein( lapack_int* n, const float* d, const float* e,+                    lapack_int* m, const float* w, const lapack_int* iblock,+                    const lapack_int* isplit, float* z, lapack_int* ldz,+                    float* work, lapack_int* iwork, lapack_int* ifailv,+                    lapack_int *info );+void LAPACK_dstein( lapack_int* n, const double* d, const double* e,+                    lapack_int* m, const double* w, const lapack_int* iblock,+                    const lapack_int* isplit, double* z, lapack_int* ldz,+                    double* work, lapack_int* iwork, lapack_int* ifailv,+                    lapack_int *info );+void LAPACK_cstein( lapack_int* n, const float* d, const float* e,+                    lapack_int* m, const float* w, const lapack_int* iblock,+                    const lapack_int* isplit, lapack_complex_float* z,+                    lapack_int* ldz, float* work, lapack_int* iwork,+                    lapack_int* ifailv, lapack_int *info );+void LAPACK_zstein( lapack_int* n, const double* d, const double* e,+                    lapack_int* m, const double* w, const lapack_int* iblock,+                    const lapack_int* isplit, lapack_complex_double* z,+                    lapack_int* ldz, double* work, lapack_int* iwork,+                    lapack_int* ifailv, lapack_int *info );+void LAPACK_sdisna( char* job, lapack_int* m, lapack_int* n, const float* d,+                    float* sep, lapack_int *info );+void LAPACK_ddisna( char* job, lapack_int* m, lapack_int* n, const double* d,+                    double* sep, lapack_int *info );+void LAPACK_ssygst( lapack_int* itype, char* uplo, lapack_int* n, float* a,+                    lapack_int* lda, const float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_dsygst( lapack_int* itype, char* uplo, lapack_int* n, double* a,+                    lapack_int* lda, const double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_chegst( lapack_int* itype, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_zhegst( lapack_int* itype, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_int *info );+void LAPACK_sspgst( lapack_int* itype, char* uplo, lapack_int* n, float* ap,+                    const float* bp, lapack_int *info );+void LAPACK_dspgst( lapack_int* itype, char* uplo, lapack_int* n, double* ap,+                    const double* bp, lapack_int *info );+void LAPACK_chpgst( lapack_int* itype, char* uplo, lapack_int* n,+                    lapack_complex_float* ap, const lapack_complex_float* bp,+                    lapack_int *info );+void LAPACK_zhpgst( lapack_int* itype, char* uplo, lapack_int* n,+                    lapack_complex_double* ap, const lapack_complex_double* bp,+                    lapack_int *info );+void LAPACK_ssbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, float* ab, lapack_int* ldab,+                    const float* bb, lapack_int* ldbb, float* x,+                    lapack_int* ldx, float* work, lapack_int *info );+void LAPACK_dsbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, double* ab, lapack_int* ldab,+                    const double* bb, lapack_int* ldbb, double* x,+                    lapack_int* ldx, double* work, lapack_int *info );+void LAPACK_chbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,+                    const lapack_complex_float* bb, lapack_int* ldbb,+                    lapack_complex_float* x, lapack_int* ldx,+                    lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_zhbgst( char* vect, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,+                    const lapack_complex_double* bb, lapack_int* ldbb,+                    lapack_complex_double* x, lapack_int* ldx,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_spbstf( char* uplo, lapack_int* n, lapack_int* kb, float* bb,+                    lapack_int* ldbb, lapack_int *info );+void LAPACK_dpbstf( char* uplo, lapack_int* n, lapack_int* kb, double* bb,+                    lapack_int* ldbb, lapack_int *info );+void LAPACK_cpbstf( char* uplo, lapack_int* n, lapack_int* kb,+                    lapack_complex_float* bb, lapack_int* ldbb,+                    lapack_int *info );+void LAPACK_zpbstf( char* uplo, lapack_int* n, lapack_int* kb,+                    lapack_complex_double* bb, lapack_int* ldbb,+                    lapack_int *info );+void LAPACK_sgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi, float* a,+                    lapack_int* lda, float* tau, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi, double* a,+                    lapack_int* lda, double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zgehrd( lapack_int* n, lapack_int* ilo, lapack_int* ihi,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* tau, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sorghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi, float* a,+                    lapack_int* lda, const float* tau, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dorghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi, double* a,+                    lapack_int* lda, const double* tau, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sormhr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, const float* a,+                    lapack_int* lda, const float* tau, float* c,+                    lapack_int* ldc, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dormhr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, const double* a,+                    lapack_int* lda, const double* tau, double* c,+                    lapack_int* ldc, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi,+                    lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zunghr( lapack_int* n, lapack_int* ilo, lapack_int* ihi,+                    lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cunmhr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* tau, lapack_complex_float* c,+                    lapack_int* ldc, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zunmhr( char* side, char* trans, lapack_int* m, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* tau, lapack_complex_double* c,+                    lapack_int* ldc, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sgebal( char* job, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* ilo, lapack_int* ihi, float* scale,+                    lapack_int *info );+void LAPACK_dgebal( char* job, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* ilo, lapack_int* ihi, double* scale,+                    lapack_int *info );+void LAPACK_cgebal( char* job, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* ilo, lapack_int* ihi,+                    float* scale, lapack_int *info );+void LAPACK_zgebal( char* job, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ilo, lapack_int* ihi,+                    double* scale, lapack_int *info );+void LAPACK_sgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const float* scale, lapack_int* m,+                    float* v, lapack_int* ldv, lapack_int *info );+void LAPACK_dgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const double* scale, lapack_int* m,+                    double* v, lapack_int* ldv, lapack_int *info );+void LAPACK_cgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const float* scale, lapack_int* m,+                    lapack_complex_float* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_zgebak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const double* scale, lapack_int* m,+                    lapack_complex_double* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_shseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, float* h, lapack_int* ldh, float* wr,+                    float* wi, float* z, lapack_int* ldz, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dhseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, double* h, lapack_int* ldh, double* wr,+                    double* wi, double* z, lapack_int* ldz, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_chseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, lapack_complex_float* h, lapack_int* ldh,+                    lapack_complex_float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zhseqr( char* job, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, lapack_complex_double* h, lapack_int* ldh,+                    lapack_complex_double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_shsein( char* job, char* eigsrc, char* initv,+                    lapack_logical* select, lapack_int* n, const float* h,+                    lapack_int* ldh, float* wr, const float* wi, float* vl,+                    lapack_int* ldvl, float* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, float* work,+                    lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );+void LAPACK_dhsein( char* job, char* eigsrc, char* initv,+                    lapack_logical* select, lapack_int* n, const double* h,+                    lapack_int* ldh, double* wr, const double* wi, double* vl,+                    lapack_int* ldvl, double* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, double* work,+                    lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );+void LAPACK_chsein( char* job, char* eigsrc, char* initv,+                    const lapack_logical* select, lapack_int* n,+                    const lapack_complex_float* h, lapack_int* ldh,+                    lapack_complex_float* w, lapack_complex_float* vl,+                    lapack_int* ldvl, lapack_complex_float* vr,+                    lapack_int* ldvr, lapack_int* mm, lapack_int* m,+                    lapack_complex_float* work, float* rwork,+                    lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );+void LAPACK_zhsein( char* job, char* eigsrc, char* initv,+                    const lapack_logical* select, lapack_int* n,+                    const lapack_complex_double* h, lapack_int* ldh,+                    lapack_complex_double* w, lapack_complex_double* vl,+                    lapack_int* ldvl, lapack_complex_double* vr,+                    lapack_int* ldvr, lapack_int* mm, lapack_int* m,+                    lapack_complex_double* work, double* rwork,+                    lapack_int* ifaill, lapack_int* ifailr, lapack_int *info );+void LAPACK_strevc( char* side, char* howmny, lapack_logical* select,+                    lapack_int* n, const float* t, lapack_int* ldt, float* vl,+                    lapack_int* ldvl, float* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, float* work,+                    lapack_int *info );+void LAPACK_dtrevc( char* side, char* howmny, lapack_logical* select,+                    lapack_int* n, const double* t, lapack_int* ldt, double* vl,+                    lapack_int* ldvl, double* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, double* work,+                    lapack_int *info );+void LAPACK_ctrevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* vl, lapack_int* ldvl,+                    lapack_complex_float* vr, lapack_int* ldvr, lapack_int* mm,+                    lapack_int* m, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztrevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* vl, lapack_int* ldvl,+                    lapack_complex_double* vr, lapack_int* ldvr, lapack_int* mm,+                    lapack_int* m, lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_strsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const float* t, lapack_int* ldt,+                    const float* vl, lapack_int* ldvl, const float* vr,+                    lapack_int* ldvr, float* s, float* sep, lapack_int* mm,+                    lapack_int* m, float* work, lapack_int* ldwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dtrsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const double* t, lapack_int* ldt,+                    const double* vl, lapack_int* ldvl, const double* vr,+                    lapack_int* ldvr, double* s, double* sep, lapack_int* mm,+                    lapack_int* m, double* work, lapack_int* ldwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ctrsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_float* t,+                    lapack_int* ldt, const lapack_complex_float* vl,+                    lapack_int* ldvl, const lapack_complex_float* vr,+                    lapack_int* ldvr, float* s, float* sep, lapack_int* mm,+                    lapack_int* m, lapack_complex_float* work,+                    lapack_int* ldwork, float* rwork, lapack_int *info );+void LAPACK_ztrsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_double* t,+                    lapack_int* ldt, const lapack_complex_double* vl,+                    lapack_int* ldvl, const lapack_complex_double* vr,+                    lapack_int* ldvr, double* s, double* sep, lapack_int* mm,+                    lapack_int* m, lapack_complex_double* work,+                    lapack_int* ldwork, double* rwork, lapack_int *info );+void LAPACK_strexc( char* compq, lapack_int* n, float* t, lapack_int* ldt,+                    float* q, lapack_int* ldq, lapack_int* ifst,+                    lapack_int* ilst, float* work, lapack_int *info );+void LAPACK_dtrexc( char* compq, lapack_int* n, double* t, lapack_int* ldt,+                    double* q, lapack_int* ldq, lapack_int* ifst,+                    lapack_int* ilst, double* work, lapack_int *info );+void LAPACK_ctrexc( char* compq, lapack_int* n, lapack_complex_float* t,+                    lapack_int* ldt, lapack_complex_float* q, lapack_int* ldq,+                    lapack_int* ifst, lapack_int* ilst, lapack_int *info );+void LAPACK_ztrexc( char* compq, lapack_int* n, lapack_complex_double* t,+                    lapack_int* ldt, lapack_complex_double* q, lapack_int* ldq,+                    lapack_int* ifst, lapack_int* ilst, lapack_int *info );+void LAPACK_strsen( char* job, char* compq, const lapack_logical* select,+                    lapack_int* n, float* t, lapack_int* ldt, float* q,+                    lapack_int* ldq, float* wr, float* wi, lapack_int* m,+                    float* s, float* sep, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dtrsen( char* job, char* compq, const lapack_logical* select,+                    lapack_int* n, double* t, lapack_int* ldt, double* q,+                    lapack_int* ldq, double* wr, double* wi, lapack_int* m,+                    double* s, double* sep, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_ctrsen( char* job, char* compq, const lapack_logical* select,+                    lapack_int* n, lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* w, lapack_int* m, float* s,+                    float* sep, lapack_complex_float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_ztrsen( char* job, char* compq, const lapack_logical* select,+                    lapack_int* n, lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* w, lapack_int* m, double* s,+                    double* sep, lapack_complex_double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_strsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,+                    lapack_int* n, const float* a, lapack_int* lda,+                    const float* b, lapack_int* ldb, float* c, lapack_int* ldc,+                    float* scale, lapack_int *info );+void LAPACK_dtrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,+                    lapack_int* n, const double* a, lapack_int* lda,+                    const double* b, lapack_int* ldb, double* c,+                    lapack_int* ldc, double* scale, lapack_int *info );+void LAPACK_ctrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,+                    lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* b,+                    lapack_int* ldb, lapack_complex_float* c, lapack_int* ldc,+                    float* scale, lapack_int *info );+void LAPACK_ztrsyl( char* trana, char* tranb, lapack_int* isgn, lapack_int* m,+                    lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* b,+                    lapack_int* ldb, lapack_complex_double* c, lapack_int* ldc,+                    double* scale, lapack_int *info );+void LAPACK_sgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, float* q, lapack_int* ldq, float* z,+                    lapack_int* ldz, lapack_int *info );+void LAPACK_dgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, double* q, lapack_int* ldq, double* z,+                    lapack_int* ldz, lapack_int *info );+void LAPACK_cgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_int *info );+void LAPACK_zgghrd( char* compq, char* compz, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_int *info );+void LAPACK_sggbal( char* job, lapack_int* n, float* a, lapack_int* lda,+                    float* b, lapack_int* ldb, lapack_int* ilo, lapack_int* ihi,+                    float* lscale, float* rscale, float* work,+                    lapack_int *info );+void LAPACK_dggbal( char* job, lapack_int* n, double* a, lapack_int* lda,+                    double* b, lapack_int* ldb, lapack_int* ilo,+                    lapack_int* ihi, double* lscale, double* rscale,+                    double* work, lapack_int *info );+void LAPACK_cggbal( char* job, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,+                    lapack_int* ilo, lapack_int* ihi, float* lscale,+                    float* rscale, float* work, lapack_int *info );+void LAPACK_zggbal( char* job, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,+                    lapack_int* ilo, lapack_int* ihi, double* lscale,+                    double* rscale, double* work, lapack_int *info );+void LAPACK_sggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const float* lscale, const float* rscale,+                    lapack_int* m, float* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_dggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const double* lscale, const double* rscale,+                    lapack_int* m, double* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_cggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const float* lscale, const float* rscale,+                    lapack_int* m, lapack_complex_float* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_zggbak( char* job, char* side, lapack_int* n, lapack_int* ilo,+                    lapack_int* ihi, const double* lscale, const double* rscale,+                    lapack_int* m, lapack_complex_double* v, lapack_int* ldv,+                    lapack_int *info );+void LAPACK_shgeqz( char* job, char* compq, char* compz, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, float* h, lapack_int* ldh,+                    float* t, lapack_int* ldt, float* alphar, float* alphai,+                    float* beta, float* q, lapack_int* ldq, float* z,+                    lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dhgeqz( char* job, char* compq, char* compz, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, double* h,+                    lapack_int* ldh, double* t, lapack_int* ldt, double* alphar,+                    double* alphai, double* beta, double* q, lapack_int* ldq,+                    double* z, lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_chgeqz( char* job, char* compq, char* compz, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, lapack_complex_float* h,+                    lapack_int* ldh, lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* alpha, lapack_complex_float* beta,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int *info );+void LAPACK_zhgeqz( char* job, char* compq, char* compz, lapack_int* n,+                    lapack_int* ilo, lapack_int* ihi, lapack_complex_double* h,+                    lapack_int* ldh, lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* alpha, lapack_complex_double* beta,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_stgevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, const float* s, lapack_int* lds,+                    const float* p, lapack_int* ldp, float* vl,+                    lapack_int* ldvl, float* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, float* work,+                    lapack_int *info );+void LAPACK_dtgevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, const double* s, lapack_int* lds,+                    const double* p, lapack_int* ldp, double* vl,+                    lapack_int* ldvl, double* vr, lapack_int* ldvr,+                    lapack_int* mm, lapack_int* m, double* work,+                    lapack_int *info );+void LAPACK_ctgevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_float* s,+                    lapack_int* lds, const lapack_complex_float* p,+                    lapack_int* ldp, lapack_complex_float* vl, lapack_int* ldvl,+                    lapack_complex_float* vr, lapack_int* ldvr, lapack_int* mm,+                    lapack_int* m, lapack_complex_float* work, float* rwork,+                    lapack_int *info );+void LAPACK_ztgevc( char* side, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_double* s,+                    lapack_int* lds, const lapack_complex_double* p,+                    lapack_int* ldp, lapack_complex_double* vl,+                    lapack_int* ldvl, lapack_complex_double* vr,+                    lapack_int* ldvr, lapack_int* mm, lapack_int* m,+                    lapack_complex_double* work, double* rwork,+                    lapack_int *info );+void LAPACK_stgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,+                    float* a, lapack_int* lda, float* b, lapack_int* ldb,+                    float* q, lapack_int* ldq, float* z, lapack_int* ldz,+                    lapack_int* ifst, lapack_int* ilst, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dtgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    double* q, lapack_int* ldq, double* z, lapack_int* ldz,+                    lapack_int* ifst, lapack_int* ilst, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_ctgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* z, lapack_int* ldz, lapack_int* ifst,+                    lapack_int* ilst, lapack_int *info );+void LAPACK_ztgexc( lapack_logical* wantq, lapack_logical* wantz, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* z, lapack_int* ldz, lapack_int* ifst,+                    lapack_int* ilst, lapack_int *info );+void LAPACK_stgsen( lapack_int* ijob, lapack_logical* wantq,+                    lapack_logical* wantz, const lapack_logical* select,+                    lapack_int* n, float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, float* alphar, float* alphai, float* beta,+                    float* q, lapack_int* ldq, float* z, lapack_int* ldz,+                    lapack_int* m, float* pl, float* pr, float* dif,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_dtgsen( lapack_int* ijob, lapack_logical* wantq,+                    lapack_logical* wantz, const lapack_logical* select,+                    lapack_int* n, double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, double* alphar, double* alphai,+                    double* beta, double* q, lapack_int* ldq, double* z,+                    lapack_int* ldz, lapack_int* m, double* pl, double* pr,+                    double* dif, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_ctgsen( lapack_int* ijob, lapack_logical* wantq,+                    lapack_logical* wantz, const lapack_logical* select,+                    lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* alpha, lapack_complex_float* beta,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* z, lapack_int* ldz, lapack_int* m,+                    float* pl, float* pr, float* dif,+                    lapack_complex_float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_ztgsen( lapack_int* ijob, lapack_logical* wantq,+                    lapack_logical* wantz, const lapack_logical* select,+                    lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* alpha, lapack_complex_double* beta,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* z, lapack_int* ldz, lapack_int* m,+                    double* pl, double* pr, double* dif,+                    lapack_complex_double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_stgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,+                    const float* a, lapack_int* lda, const float* b,+                    lapack_int* ldb, float* c, lapack_int* ldc, const float* d,+                    lapack_int* ldd, const float* e, lapack_int* lde, float* f,+                    lapack_int* ldf, float* scale, float* dif, float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_dtgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,+                    const double* a, lapack_int* lda, const double* b,+                    lapack_int* ldb, double* c, lapack_int* ldc,+                    const double* d, lapack_int* ldd, const double* e,+                    lapack_int* lde, double* f, lapack_int* ldf, double* scale,+                    double* dif, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ctgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda,+                    const lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* c, lapack_int* ldc,+                    const lapack_complex_float* d, lapack_int* ldd,+                    const lapack_complex_float* e, lapack_int* lde,+                    lapack_complex_float* f, lapack_int* ldf, float* scale,+                    float* dif, lapack_complex_float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ztgsyl( char* trans, lapack_int* ijob, lapack_int* m, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda,+                    const lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* c, lapack_int* ldc,+                    const lapack_complex_double* d, lapack_int* ldd,+                    const lapack_complex_double* e, lapack_int* lde,+                    lapack_complex_double* f, lapack_int* ldf, double* scale,+                    double* dif, lapack_complex_double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_stgsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const float* a, lapack_int* lda,+                    const float* b, lapack_int* ldb, const float* vl,+                    lapack_int* ldvl, const float* vr, lapack_int* ldvr,+                    float* s, float* dif, lapack_int* mm, lapack_int* m,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dtgsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const double* a, lapack_int* lda,+                    const double* b, lapack_int* ldb, const double* vl,+                    lapack_int* ldvl, const double* vr, lapack_int* ldvr,+                    double* s, double* dif, lapack_int* mm, lapack_int* m,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_ctgsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, const lapack_complex_float* b,+                    lapack_int* ldb, const lapack_complex_float* vl,+                    lapack_int* ldvl, const lapack_complex_float* vr,+                    lapack_int* ldvr, float* s, float* dif, lapack_int* mm,+                    lapack_int* m, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_ztgsna( char* job, char* howmny, const lapack_logical* select,+                    lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, const lapack_complex_double* b,+                    lapack_int* ldb, const lapack_complex_double* vl,+                    lapack_int* ldvl, const lapack_complex_double* vr,+                    lapack_int* ldvr, double* s, double* dif, lapack_int* mm,+                    lapack_int* m, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_sggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, float* a, lapack_int* lda,+                    float* b, lapack_int* ldb, float* tola, float* tolb,+                    lapack_int* k, lapack_int* l, float* u, lapack_int* ldu,+                    float* v, lapack_int* ldv, float* q, lapack_int* ldq,+                    lapack_int* iwork, float* tau, float* work,+                    lapack_int *info );+void LAPACK_dggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, double* a, lapack_int* lda,+                    double* b, lapack_int* ldb, double* tola, double* tolb,+                    lapack_int* k, lapack_int* l, double* u, lapack_int* ldu,+                    double* v, lapack_int* ldv, double* q, lapack_int* ldq,+                    lapack_int* iwork, double* tau, double* work,+                    lapack_int *info );+void LAPACK_cggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,+                    float* tola, float* tolb, lapack_int* k, lapack_int* l,+                    lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* v, lapack_int* ldv,+                    lapack_complex_float* q, lapack_int* ldq, lapack_int* iwork,+                    float* rwork, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zggsvp( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,+                    double* tola, double* tolb, lapack_int* k, lapack_int* l,+                    lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* v, lapack_int* ldv,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_int* iwork, double* rwork,+                    lapack_complex_double* tau, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_stgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,+                    float* a, lapack_int* lda, float* b, lapack_int* ldb,+                    float* tola, float* tolb, float* alpha, float* beta,+                    float* u, lapack_int* ldu, float* v, lapack_int* ldv,+                    float* q, lapack_int* ldq, float* work, lapack_int* ncycle,+                    lapack_int *info );+void LAPACK_dtgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    double* tola, double* tolb, double* alpha, double* beta,+                    double* u, lapack_int* ldu, double* v, lapack_int* ldv,+                    double* q, lapack_int* ldq, double* work,+                    lapack_int* ncycle, lapack_int *info );+void LAPACK_ctgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* tola,+                    float* tolb, float* alpha, float* beta,+                    lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* v, lapack_int* ldv,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* work, lapack_int* ncycle,+                    lapack_int *info );+void LAPACK_ztgsja( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* p, lapack_int* n, lapack_int* k, lapack_int* l,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* tola,+                    double* tolb, double* alpha, double* beta,+                    lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* v, lapack_int* ldv,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* work, lapack_int* ncycle,+                    lapack_int *info );+void LAPACK_sgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,+                   float* a, lapack_int* lda, float* b, lapack_int* ldb,+                   float* work, lapack_int* lwork, lapack_int *info );+void LAPACK_dgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,+                   double* a, lapack_int* lda, double* b, lapack_int* ldb,+                   double* work, lapack_int* lwork, lapack_int *info );+void LAPACK_cgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* b, lapack_int* ldb,+                   lapack_complex_float* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_zgels( char* trans, lapack_int* m, lapack_int* n, lapack_int* nrhs,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_complex_double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_sgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,+                    lapack_int* lda, float* b, lapack_int* ldb,+                    lapack_int* jpvt, float* rcond, lapack_int* rank,+                    float* work, lapack_int* lwork, lapack_int *info );+void LAPACK_dgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb,+                    lapack_int* jpvt, double* rcond, lapack_int* rank,+                    double* work, lapack_int* lwork, lapack_int *info );+void LAPACK_cgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, lapack_int* jpvt,+                    float* rcond, lapack_int* rank, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int *info );+void LAPACK_zgelsy( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, lapack_int* jpvt,+                    double* rcond, lapack_int* rank,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_sgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,+                    lapack_int* lda, float* b, lapack_int* ldb, float* s,+                    float* rcond, lapack_int* rank, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb, double* s,+                    double* rcond, lapack_int* rank, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* s,+                    float* rcond, lapack_int* rank, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int *info );+void LAPACK_zgelss( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* s,+                    double* rcond, lapack_int* rank,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_sgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs, float* a,+                    lapack_int* lda, float* b, lapack_int* ldb, float* s,+                    float* rcond, lapack_int* rank, float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_dgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb, double* s,+                    double* rcond, lapack_int* rank, double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_cgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* s,+                    float* rcond, lapack_int* rank, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_zgelsd( lapack_int* m, lapack_int* n, lapack_int* nrhs,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* s,+                    double* rcond, lapack_int* rank,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* iwork, lapack_int *info );+void LAPACK_sgglse( lapack_int* m, lapack_int* n, lapack_int* p, float* a,+                    lapack_int* lda, float* b, lapack_int* ldb, float* c,+                    float* d, float* x, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dgglse( lapack_int* m, lapack_int* n, lapack_int* p, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb, double* c,+                    double* d, double* x, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cgglse( lapack_int* m, lapack_int* n, lapack_int* p,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* c, lapack_complex_float* d,+                    lapack_complex_float* x, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zgglse( lapack_int* m, lapack_int* n, lapack_int* p,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* c, lapack_complex_double* d,+                    lapack_complex_double* x, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sggglm( lapack_int* n, lapack_int* m, lapack_int* p, float* a,+                    lapack_int* lda, float* b, lapack_int* ldb, float* d,+                    float* x, float* y, float* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_dggglm( lapack_int* n, lapack_int* m, lapack_int* p, double* a,+                    lapack_int* lda, double* b, lapack_int* ldb, double* d,+                    double* x, double* y, double* work, lapack_int* lwork,+                    lapack_int *info );+void LAPACK_cggglm( lapack_int* n, lapack_int* m, lapack_int* p,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* d, lapack_complex_float* x,+                    lapack_complex_float* y, lapack_complex_float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_zggglm( lapack_int* n, lapack_int* m, lapack_int* p,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* d, lapack_complex_double* x,+                    lapack_complex_double* y, lapack_complex_double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_ssyev( char* jobz, char* uplo, lapack_int* n, float* a,+                   lapack_int* lda, float* w, float* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_dsyev( char* jobz, char* uplo, lapack_int* n, double* a,+                   lapack_int* lda, double* w, double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_cheev( char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_float* a, lapack_int* lda, float* w,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_int *info );+void LAPACK_zheev( char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_double* a, lapack_int* lda, double* w,+                   lapack_complex_double* work, lapack_int* lwork,+                   double* rwork, lapack_int *info );+void LAPACK_ssyevd( char* jobz, char* uplo, lapack_int* n, float* a,+                    lapack_int* lda, float* w, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dsyevd( char* jobz, char* uplo, lapack_int* n, double* a,+                    lapack_int* lda, double* w, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_cheevd( char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda, float* w,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zheevd( char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda, double* w,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_ssyevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    float* a, lapack_int* lda, float* vl, float* vu,+                    lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, float* z, lapack_int* ldz,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_dsyevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    double* a, lapack_int* lda, double* vl, double* vu,+                    lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, double* z, lapack_int* ldz,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_cheevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda, float* vl,+                    float* vu, lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_zheevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_ssyevr( char* jobz, char* range, char* uplo, lapack_int* n,+                    float* a, lapack_int* lda, float* vl, float* vu,+                    lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, float* z, lapack_int* ldz,+                    lapack_int* isuppz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dsyevr( char* jobz, char* range, char* uplo, lapack_int* n,+                    double* a, lapack_int* lda, double* vl, double* vu,+                    lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, double* z, lapack_int* ldz,+                    lapack_int* isuppz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_cheevr( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda, float* vl,+                    float* vu, lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_int* isuppz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zheevr( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_int* isuppz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_sspev( char* jobz, char* uplo, lapack_int* n, float* ap, float* w,+                   float* z, lapack_int* ldz, float* work, lapack_int *info );+void LAPACK_dspev( char* jobz, char* uplo, lapack_int* n, double* ap, double* w,+                   double* z, lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_chpev( char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_float* ap, float* w, lapack_complex_float* z,+                   lapack_int* ldz, lapack_complex_float* work, float* rwork,+                   lapack_int *info );+void LAPACK_zhpev( char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_double* ap, double* w,+                   lapack_complex_double* z, lapack_int* ldz,+                   lapack_complex_double* work, double* rwork,+                   lapack_int *info );+void LAPACK_sspevd( char* jobz, char* uplo, lapack_int* n, float* ap, float* w,+                    float* z, lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dspevd( char* jobz, char* uplo, lapack_int* n, double* ap,+                    double* w, double* z, lapack_int* ldz, double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_chpevd( char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_float* ap, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int* lrwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_zhpevd( char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_double* ap, double* w,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_sspevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    float* ap, float* vl, float* vu, lapack_int* il,+                    lapack_int* iu, float* abstol, lapack_int* m, float* w,+                    float* z, lapack_int* ldz, float* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_dspevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    double* ap, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, double* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_chpevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_float* ap, float* vl, float* vu,+                    lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work, float* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_zhpevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_complex_double* ap, double* vl, double* vu,+                    lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work, double* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_ssbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                   float* ab, lapack_int* ldab, float* w, float* z,+                   lapack_int* ldz, float* work, lapack_int *info );+void LAPACK_dsbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                   double* ab, lapack_int* ldab, double* w, double* z,+                   lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_chbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                   lapack_complex_float* ab, lapack_int* ldab, float* w,+                   lapack_complex_float* z, lapack_int* ldz,+                   lapack_complex_float* work, float* rwork, lapack_int *info );+void LAPACK_zhbev( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                   lapack_complex_double* ab, lapack_int* ldab, double* w,+                   lapack_complex_double* z, lapack_int* ldz,+                   lapack_complex_double* work, double* rwork,+                   lapack_int *info );+void LAPACK_ssbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                    float* ab, lapack_int* ldab, float* w, float* z,+                    lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dsbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                    double* ab, lapack_int* ldab, double* w, double* z,+                    lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_chbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_float* ab, lapack_int* ldab, float* w,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zhbevd( char* jobz, char* uplo, lapack_int* n, lapack_int* kd,+                    lapack_complex_double* ab, lapack_int* ldab, double* w,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_ssbevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* kd, float* ab, lapack_int* ldab, float* q,+                    lapack_int* ldq, float* vl, float* vu, lapack_int* il,+                    lapack_int* iu, float* abstol, lapack_int* m, float* w,+                    float* z, lapack_int* ldz, float* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_dsbevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* kd, double* ab, lapack_int* ldab, double* q,+                    lapack_int* ldq, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, double* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_chbevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* kd, lapack_complex_float* ab, lapack_int* ldab,+                    lapack_complex_float* q, lapack_int* ldq, float* vl,+                    float* vu, lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work, float* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_zhbevx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* kd, lapack_complex_double* ab, lapack_int* ldab,+                    lapack_complex_double* q, lapack_int* ldq, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work, double* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_sstev( char* jobz, lapack_int* n, float* d, float* e, float* z,+                   lapack_int* ldz, float* work, lapack_int *info );+void LAPACK_dstev( char* jobz, lapack_int* n, double* d, double* e, double* z,+                   lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_sstevd( char* jobz, lapack_int* n, float* d, float* e, float* z,+                    lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_dstevd( char* jobz, lapack_int* n, double* d, double* e, double* z,+                    lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_sstevx( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w, float* z,+                    lapack_int* ldz, float* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_dstevx( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, double* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_sstevr( char* jobz, char* range, lapack_int* n, float* d, float* e,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w, float* z,+                    lapack_int* ldz, lapack_int* isuppz, float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_dstevr( char* jobz, char* range, lapack_int* n, double* d,+                    double* e, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, lapack_int* isuppz,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_sgees( char* jobvs, char* sort, LAPACK_S_SELECT2 select,+                   lapack_int* n, float* a, lapack_int* lda, lapack_int* sdim,+                   float* wr, float* wi, float* vs, lapack_int* ldvs,+                   float* work, lapack_int* lwork, lapack_logical* bwork,+                   lapack_int *info );+void LAPACK_dgees( char* jobvs, char* sort, LAPACK_D_SELECT2 select,+                   lapack_int* n, double* a, lapack_int* lda, lapack_int* sdim,+                   double* wr, double* wi, double* vs, lapack_int* ldvs,+                   double* work, lapack_int* lwork, lapack_logical* bwork,+                   lapack_int *info );+void LAPACK_cgees( char* jobvs, char* sort, LAPACK_C_SELECT1 select,+                   lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                   lapack_int* sdim, lapack_complex_float* w,+                   lapack_complex_float* vs, lapack_int* ldvs,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_logical* bwork, lapack_int *info );+void LAPACK_zgees( char* jobvs, char* sort, LAPACK_Z_SELECT1 select,+                   lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                   lapack_int* sdim, lapack_complex_double* w,+                   lapack_complex_double* vs, lapack_int* ldvs,+                   lapack_complex_double* work, lapack_int* lwork,+                   double* rwork, lapack_logical* bwork, lapack_int *info );+void LAPACK_sgeesx( char* jobvs, char* sort, LAPACK_S_SELECT2 select,+                    char* sense, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* sdim, float* wr, float* wi, float* vs,+                    lapack_int* ldvs, float* rconde, float* rcondv, float* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_logical* bwork, lapack_int *info );+void LAPACK_dgeesx( char* jobvs, char* sort, LAPACK_D_SELECT2 select,+                    char* sense, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* sdim, double* wr, double* wi, double* vs,+                    lapack_int* ldvs, double* rconde, double* rcondv,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_cgeesx( char* jobvs, char* sort, LAPACK_C_SELECT1 select,+                    char* sense, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* sdim, lapack_complex_float* w,+                    lapack_complex_float* vs, lapack_int* ldvs, float* rconde,+                    float* rcondv, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_zgeesx( char* jobvs, char* sort, LAPACK_Z_SELECT1 select,+                    char* sense, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* sdim, lapack_complex_double* w,+                    lapack_complex_double* vs, lapack_int* ldvs, double* rconde,+                    double* rcondv, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_sgeev( char* jobvl, char* jobvr, lapack_int* n, float* a,+                   lapack_int* lda, float* wr, float* wi, float* vl,+                   lapack_int* ldvl, float* vr, lapack_int* ldvr, float* work,+                   lapack_int* lwork, lapack_int *info );+void LAPACK_dgeev( char* jobvl, char* jobvr, lapack_int* n, double* a,+                   lapack_int* lda, double* wr, double* wi, double* vl,+                   lapack_int* ldvl, double* vr, lapack_int* ldvr, double* work,+                   lapack_int* lwork, lapack_int *info );+void LAPACK_cgeev( char* jobvl, char* jobvr, lapack_int* n,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* w, lapack_complex_float* vl,+                   lapack_int* ldvl, lapack_complex_float* vr, lapack_int* ldvr,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_int *info );+void LAPACK_zgeev( char* jobvl, char* jobvr, lapack_int* n,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* w, lapack_complex_double* vl,+                   lapack_int* ldvl, lapack_complex_double* vr,+                   lapack_int* ldvr, lapack_complex_double* work,+                   lapack_int* lwork, double* rwork, lapack_int *info );+void LAPACK_sgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, float* a, lapack_int* lda, float* wr,+                    float* wi, float* vl, lapack_int* ldvl, float* vr,+                    lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,+                    float* scale, float* abnrm, float* rconde, float* rcondv,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_dgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, double* a, lapack_int* lda, double* wr,+                    double* wi, double* vl, lapack_int* ldvl, double* vr,+                    lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,+                    double* scale, double* abnrm, double* rconde,+                    double* rcondv, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_cgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* w, lapack_complex_float* vl,+                    lapack_int* ldvl, lapack_complex_float* vr,+                    lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,+                    float* scale, float* abnrm, float* rconde, float* rcondv,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int *info );+void LAPACK_zgeevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* w, lapack_complex_double* vl,+                    lapack_int* ldvl, lapack_complex_double* vr,+                    lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,+                    double* scale, double* abnrm, double* rconde,+                    double* rcondv, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int *info );+void LAPACK_sgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,+                    float* a, lapack_int* lda, float* s, float* u,+                    lapack_int* ldu, float* vt, lapack_int* ldvt, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_dgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,+                    double* a, lapack_int* lda, double* s, double* u,+                    lapack_int* ldu, double* vt, lapack_int* ldvt, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_cgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda, float* s,+                    lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* vt, lapack_int* ldvt,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int *info );+void LAPACK_zgesvd( char* jobu, char* jobvt, lapack_int* m, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda, double* s,+                    lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* vt, lapack_int* ldvt,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int *info );+void LAPACK_sgesdd( char* jobz, lapack_int* m, lapack_int* n, float* a,+                    lapack_int* lda, float* s, float* u, lapack_int* ldu,+                    float* vt, lapack_int* ldvt, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dgesdd( char* jobz, lapack_int* m, lapack_int* n, double* a,+                    lapack_int* lda, double* s, double* u, lapack_int* ldu,+                    double* vt, lapack_int* ldvt, double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_int *info );+void LAPACK_cgesdd( char* jobz, lapack_int* m, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda, float* s,+                    lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* vt, lapack_int* ldvt,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_zgesdd( char* jobz, lapack_int* m, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda, double* s,+                    lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* vt, lapack_int* ldvt,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* iwork, lapack_int *info );+void LAPACK_dgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,+                    char* jobp, lapack_int* m, lapack_int* n, double* a,+                    lapack_int* lda, double* sva, double* u, lapack_int* ldu,+                    double* v, lapack_int* ldv, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_sgejsv( char* joba, char* jobu, char* jobv, char* jobr, char* jobt,+                    char* jobp, lapack_int* m, lapack_int* n, float* a,+                    lapack_int* lda, float* sva, float* u, lapack_int* ldu,+                    float* v, lapack_int* ldv, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_dgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,+                    lapack_int* n, double* a, lapack_int* lda, double* sva,+                    lapack_int* mv, double* v, lapack_int* ldv, double* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sgesvj( char* joba, char* jobu, char* jobv, lapack_int* m,+                    lapack_int* n, float* a, lapack_int* lda, float* sva,+                    lapack_int* mv, float* v, lapack_int* ldv, float* work,+                    lapack_int* lwork, lapack_int *info );+void LAPACK_sggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,+                    float* a, lapack_int* lda, float* b, lapack_int* ldb,+                    float* alpha, float* beta, float* u, lapack_int* ldu,+                    float* v, lapack_int* ldv, float* q, lapack_int* ldq,+                    float* work, lapack_int* iwork, lapack_int *info );+void LAPACK_dggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    double* alpha, double* beta, double* u, lapack_int* ldu,+                    double* v, lapack_int* ldv, double* q, lapack_int* ldq,+                    double* work, lapack_int* iwork, lapack_int *info );+void LAPACK_cggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* alpha,+                    float* beta, lapack_complex_float* u, lapack_int* ldu,+                    lapack_complex_float* v, lapack_int* ldv,+                    lapack_complex_float* q, lapack_int* ldq,+                    lapack_complex_float* work, float* rwork, lapack_int* iwork,+                    lapack_int *info );+void LAPACK_zggsvd( char* jobu, char* jobv, char* jobq, lapack_int* m,+                    lapack_int* n, lapack_int* p, lapack_int* k, lapack_int* l,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* alpha,+                    double* beta, lapack_complex_double* u, lapack_int* ldu,+                    lapack_complex_double* v, lapack_int* ldv,+                    lapack_complex_double* q, lapack_int* ldq,+                    lapack_complex_double* work, double* rwork,+                    lapack_int* iwork, lapack_int *info );+void LAPACK_ssygv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   float* a, lapack_int* lda, float* b, lapack_int* ldb,+                   float* w, float* work, lapack_int* lwork, lapack_int *info );+void LAPACK_dsygv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   double* a, lapack_int* lda, double* b, lapack_int* ldb,+                   double* w, double* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_chegv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* b, lapack_int* ldb, float* w,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_int *info );+void LAPACK_zhegv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* b, lapack_int* ldb, double* w,+                   lapack_complex_double* work, lapack_int* lwork,+                   double* rwork, lapack_int *info );+void LAPACK_ssygvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    float* a, lapack_int* lda, float* b, lapack_int* ldb,+                    float* w, float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_dsygvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    double* w, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_chegvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* w,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zhegvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* w,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_ssygvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, float* vl, float* vu, lapack_int* il,+                    lapack_int* iu, float* abstol, lapack_int* m, float* w,+                    float* z, lapack_int* ldz, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_dsygvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_chegvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, float* vl,+                    float* vu, lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_zhegvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_sspgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   float* ap, float* bp, float* w, float* z, lapack_int* ldz,+                   float* work, lapack_int *info );+void LAPACK_dspgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   double* ap, double* bp, double* w, double* z,+                   lapack_int* ldz, double* work, lapack_int *info );+void LAPACK_chpgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_float* ap, lapack_complex_float* bp, float* w,+                   lapack_complex_float* z, lapack_int* ldz,+                   lapack_complex_float* work, float* rwork, lapack_int *info );+void LAPACK_zhpgv( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                   lapack_complex_double* ap, lapack_complex_double* bp,+                   double* w, lapack_complex_double* z, lapack_int* ldz,+                   lapack_complex_double* work, double* rwork,+                   lapack_int *info );+void LAPACK_sspgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    float* ap, float* bp, float* w, float* z, lapack_int* ldz,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_dspgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    double* ap, double* bp, double* w, double* z,+                    lapack_int* ldz, double* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_int* liwork, lapack_int *info );+void LAPACK_chpgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_float* ap, lapack_complex_float* bp,+                    float* w, lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zhpgvd( lapack_int* itype, char* jobz, char* uplo, lapack_int* n,+                    lapack_complex_double* ap, lapack_complex_double* bp,+                    double* w, lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_sspgvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, float* ap, float* bp, float* vl, float* vu,+                    lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, float* z, lapack_int* ldz,+                    float* work, lapack_int* iwork, lapack_int* ifail,+                    lapack_int *info );+void LAPACK_dspgvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, double* ap, double* bp, double* vl,+                    double* vu, lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, double* z, lapack_int* ldz,+                    double* work, lapack_int* iwork, lapack_int* ifail,+                    lapack_int *info );+void LAPACK_chpgvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, lapack_complex_float* ap,+                    lapack_complex_float* bp, float* vl, float* vu,+                    lapack_int* il, lapack_int* iu, float* abstol,+                    lapack_int* m, float* w, lapack_complex_float* z,+                    lapack_int* ldz, lapack_complex_float* work, float* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_zhpgvx( lapack_int* itype, char* jobz, char* range, char* uplo,+                    lapack_int* n, lapack_complex_double* ap,+                    lapack_complex_double* bp, double* vl, double* vu,+                    lapack_int* il, lapack_int* iu, double* abstol,+                    lapack_int* m, double* w, lapack_complex_double* z,+                    lapack_int* ldz, lapack_complex_double* work, double* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_ssbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                   lapack_int* kb, float* ab, lapack_int* ldab, float* bb,+                   lapack_int* ldbb, float* w, float* z, lapack_int* ldz,+                   float* work, lapack_int *info );+void LAPACK_dsbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                   lapack_int* kb, double* ab, lapack_int* ldab, double* bb,+                   lapack_int* ldbb, double* w, double* z, lapack_int* ldz,+                   double* work, lapack_int *info );+void LAPACK_chbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                   lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,+                   lapack_complex_float* bb, lapack_int* ldbb, float* w,+                   lapack_complex_float* z, lapack_int* ldz,+                   lapack_complex_float* work, float* rwork, lapack_int *info );+void LAPACK_zhbgv( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                   lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,+                   lapack_complex_double* bb, lapack_int* ldbb, double* w,+                   lapack_complex_double* z, lapack_int* ldz,+                   lapack_complex_double* work, double* rwork,+                   lapack_int *info );+void LAPACK_ssbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, float* ab, lapack_int* ldab, float* bb,+                    lapack_int* ldbb, float* w, float* z, lapack_int* ldz,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_dsbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, double* ab, lapack_int* ldab, double* bb,+                    lapack_int* ldbb, double* w, double* z, lapack_int* ldz,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_chbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, lapack_complex_float* ab, lapack_int* ldab,+                    lapack_complex_float* bb, lapack_int* ldbb, float* w,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* lrwork, lapack_int* iwork, lapack_int* liwork,+                    lapack_int *info );+void LAPACK_zhbgvd( char* jobz, char* uplo, lapack_int* n, lapack_int* ka,+                    lapack_int* kb, lapack_complex_double* ab, lapack_int* ldab,+                    lapack_complex_double* bb, lapack_int* ldbb, double* w,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_int *info );+void LAPACK_ssbgvx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* ka, lapack_int* kb, float* ab, lapack_int* ldab,+                    float* bb, lapack_int* ldbb, float* q, lapack_int* ldq,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w, float* z,+                    lapack_int* ldz, float* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_dsbgvx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* ka, lapack_int* kb, double* ab,+                    lapack_int* ldab, double* bb, lapack_int* ldbb, double* q,+                    lapack_int* ldq, double* vl, double* vu, lapack_int* il,+                    lapack_int* iu, double* abstol, lapack_int* m, double* w,+                    double* z, lapack_int* ldz, double* work, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_chbgvx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* ka, lapack_int* kb, lapack_complex_float* ab,+                    lapack_int* ldab, lapack_complex_float* bb,+                    lapack_int* ldbb, lapack_complex_float* q, lapack_int* ldq,+                    float* vl, float* vu, lapack_int* il, lapack_int* iu,+                    float* abstol, lapack_int* m, float* w,+                    lapack_complex_float* z, lapack_int* ldz,+                    lapack_complex_float* work, float* rwork, lapack_int* iwork,+                    lapack_int* ifail, lapack_int *info );+void LAPACK_zhbgvx( char* jobz, char* range, char* uplo, lapack_int* n,+                    lapack_int* ka, lapack_int* kb, lapack_complex_double* ab,+                    lapack_int* ldab, lapack_complex_double* bb,+                    lapack_int* ldbb, lapack_complex_double* q, lapack_int* ldq,+                    double* vl, double* vu, lapack_int* il, lapack_int* iu,+                    double* abstol, lapack_int* m, double* w,+                    lapack_complex_double* z, lapack_int* ldz,+                    lapack_complex_double* work, double* rwork,+                    lapack_int* iwork, lapack_int* ifail, lapack_int *info );+void LAPACK_sgges( char* jobvsl, char* jobvsr, char* sort,+                   LAPACK_S_SELECT3 selctg, lapack_int* n, float* a,+                   lapack_int* lda, float* b, lapack_int* ldb, lapack_int* sdim,+                   float* alphar, float* alphai, float* beta, float* vsl,+                   lapack_int* ldvsl, float* vsr, lapack_int* ldvsr,+                   float* work, lapack_int* lwork, lapack_logical* bwork,+                   lapack_int *info );+void LAPACK_dgges( char* jobvsl, char* jobvsr, char* sort,+                   LAPACK_D_SELECT3 selctg, lapack_int* n, double* a,+                   lapack_int* lda, double* b, lapack_int* ldb,+                   lapack_int* sdim, double* alphar, double* alphai,+                   double* beta, double* vsl, lapack_int* ldvsl, double* vsr,+                   lapack_int* ldvsr, double* work, lapack_int* lwork,+                   lapack_logical* bwork, lapack_int *info );+void LAPACK_cgges( char* jobvsl, char* jobvsr, char* sort,+                   LAPACK_C_SELECT2 selctg, lapack_int* n,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* b, lapack_int* ldb, lapack_int* sdim,+                   lapack_complex_float* alpha, lapack_complex_float* beta,+                   lapack_complex_float* vsl, lapack_int* ldvsl,+                   lapack_complex_float* vsr, lapack_int* ldvsr,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_logical* bwork, lapack_int *info );+void LAPACK_zgges( char* jobvsl, char* jobvsr, char* sort,+                   LAPACK_Z_SELECT2 selctg, lapack_int* n,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* b, lapack_int* ldb, lapack_int* sdim,+                   lapack_complex_double* alpha, lapack_complex_double* beta,+                   lapack_complex_double* vsl, lapack_int* ldvsl,+                   lapack_complex_double* vsr, lapack_int* ldvsr,+                   lapack_complex_double* work, lapack_int* lwork,+                   double* rwork, lapack_logical* bwork, lapack_int *info );+void LAPACK_sggesx( char* jobvsl, char* jobvsr, char* sort,+                    LAPACK_S_SELECT3 selctg, char* sense, lapack_int* n,+                    float* a, lapack_int* lda, float* b, lapack_int* ldb,+                    lapack_int* sdim, float* alphar, float* alphai, float* beta,+                    float* vsl, lapack_int* ldvsl, float* vsr,+                    lapack_int* ldvsr, float* rconde, float* rcondv,+                    float* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_dggesx( char* jobvsl, char* jobvsr, char* sort,+                    LAPACK_D_SELECT3 selctg, char* sense, lapack_int* n,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    lapack_int* sdim, double* alphar, double* alphai,+                    double* beta, double* vsl, lapack_int* ldvsl, double* vsr,+                    lapack_int* ldvsr, double* rconde, double* rcondv,+                    double* work, lapack_int* lwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_cggesx( char* jobvsl, char* jobvsr, char* sort,+                    LAPACK_C_SELECT2 selctg, char* sense, lapack_int* n,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb, lapack_int* sdim,+                    lapack_complex_float* alpha, lapack_complex_float* beta,+                    lapack_complex_float* vsl, lapack_int* ldvsl,+                    lapack_complex_float* vsr, lapack_int* ldvsr, float* rconde,+                    float* rcondv, lapack_complex_float* work,+                    lapack_int* lwork, float* rwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_zggesx( char* jobvsl, char* jobvsr, char* sort,+                    LAPACK_Z_SELECT2 selctg, char* sense, lapack_int* n,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb, lapack_int* sdim,+                    lapack_complex_double* alpha, lapack_complex_double* beta,+                    lapack_complex_double* vsl, lapack_int* ldvsl,+                    lapack_complex_double* vsr, lapack_int* ldvsr,+                    double* rconde, double* rcondv, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int* iwork,+                    lapack_int* liwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_sggev( char* jobvl, char* jobvr, lapack_int* n, float* a,+                   lapack_int* lda, float* b, lapack_int* ldb, float* alphar,+                   float* alphai, float* beta, float* vl, lapack_int* ldvl,+                   float* vr, lapack_int* ldvr, float* work, lapack_int* lwork,+                   lapack_int *info );+void LAPACK_dggev( char* jobvl, char* jobvr, lapack_int* n, double* a,+                   lapack_int* lda, double* b, lapack_int* ldb, double* alphar,+                   double* alphai, double* beta, double* vl, lapack_int* ldvl,+                   double* vr, lapack_int* ldvr, double* work,+                   lapack_int* lwork, lapack_int *info );+void LAPACK_cggev( char* jobvl, char* jobvr, lapack_int* n,+                   lapack_complex_float* a, lapack_int* lda,+                   lapack_complex_float* b, lapack_int* ldb,+                   lapack_complex_float* alpha, lapack_complex_float* beta,+                   lapack_complex_float* vl, lapack_int* ldvl,+                   lapack_complex_float* vr, lapack_int* ldvr,+                   lapack_complex_float* work, lapack_int* lwork, float* rwork,+                   lapack_int *info );+void LAPACK_zggev( char* jobvl, char* jobvr, lapack_int* n,+                   lapack_complex_double* a, lapack_int* lda,+                   lapack_complex_double* b, lapack_int* ldb,+                   lapack_complex_double* alpha, lapack_complex_double* beta,+                   lapack_complex_double* vl, lapack_int* ldvl,+                   lapack_complex_double* vr, lapack_int* ldvr,+                   lapack_complex_double* work, lapack_int* lwork,+                   double* rwork, lapack_int *info );+void LAPACK_sggevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, float* alphar, float* alphai, float* beta,+                    float* vl, lapack_int* ldvl, float* vr, lapack_int* ldvr,+                    lapack_int* ilo, lapack_int* ihi, float* lscale,+                    float* rscale, float* abnrm, float* bbnrm, float* rconde,+                    float* rcondv, float* work, lapack_int* lwork,+                    lapack_int* iwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_dggevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, double* alphar, double* alphai,+                    double* beta, double* vl, lapack_int* ldvl, double* vr,+                    lapack_int* ldvr, lapack_int* ilo, lapack_int* ihi,+                    double* lscale, double* rscale, double* abnrm,+                    double* bbnrm, double* rconde, double* rcondv, double* work,+                    lapack_int* lwork, lapack_int* iwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_cggevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    lapack_complex_float* alpha, lapack_complex_float* beta,+                    lapack_complex_float* vl, lapack_int* ldvl,+                    lapack_complex_float* vr, lapack_int* ldvr, lapack_int* ilo,+                    lapack_int* ihi, float* lscale, float* rscale, float* abnrm,+                    float* bbnrm, float* rconde, float* rcondv,+                    lapack_complex_float* work, lapack_int* lwork, float* rwork,+                    lapack_int* iwork, lapack_logical* bwork,+                    lapack_int *info );+void LAPACK_zggevx( char* balanc, char* jobvl, char* jobvr, char* sense,+                    lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* alpha, lapack_complex_double* beta,+                    lapack_complex_double* vl, lapack_int* ldvl,+                    lapack_complex_double* vr, lapack_int* ldvr,+                    lapack_int* ilo, lapack_int* ihi, double* lscale,+                    double* rscale, double* abnrm, double* bbnrm,+                    double* rconde, double* rcondv, lapack_complex_double* work,+                    lapack_int* lwork, double* rwork, lapack_int* iwork,+                    lapack_logical* bwork, lapack_int *info );+void LAPACK_dsfrk( char* transr, char* uplo, char* trans, lapack_int* n,+                   lapack_int* k, double* alpha, const double* a,+                   lapack_int* lda, double* beta, double* c );+void LAPACK_ssfrk( char* transr, char* uplo, char* trans, lapack_int* n,+                   lapack_int* k, float* alpha, const float* a, lapack_int* lda,+                   float* beta, float* c );+void LAPACK_zhfrk( char* transr, char* uplo, char* trans, lapack_int* n,+                   lapack_int* k, double* alpha, const lapack_complex_double* a,+                   lapack_int* lda, double* beta, lapack_complex_double* c );+void LAPACK_chfrk( char* transr, char* uplo, char* trans, lapack_int* n,+                   lapack_int* k, float* alpha, const lapack_complex_float* a,+                   lapack_int* lda, float* beta, lapack_complex_float* c );+void LAPACK_dtfsm( char* transr, char* side, char* uplo, char* trans,+                   char* diag, lapack_int* m, lapack_int* n, double* alpha,+                   const double* a, double* b, lapack_int* ldb );+void LAPACK_stfsm( char* transr, char* side, char* uplo, char* trans,+                   char* diag, lapack_int* m, lapack_int* n, float* alpha,+                   const float* a, float* b, lapack_int* ldb );+void LAPACK_ztfsm( char* transr, char* side, char* uplo, char* trans,+                   char* diag, lapack_int* m, lapack_int* n,+                   lapack_complex_double* alpha, const lapack_complex_double* a,+                   lapack_complex_double* b, lapack_int* ldb );+void LAPACK_ctfsm( char* transr, char* side, char* uplo, char* trans,+                   char* diag, lapack_int* m, lapack_int* n,+                   lapack_complex_float* alpha, const lapack_complex_float* a,+                   lapack_complex_float* b, lapack_int* ldb );+void LAPACK_dtfttp( char* transr, char* uplo, lapack_int* n, const double* arf,+                    double* ap, lapack_int *info );+void LAPACK_stfttp( char* transr, char* uplo, lapack_int* n, const float* arf,+                    float* ap, lapack_int *info );+void LAPACK_ztfttp( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_double* arf, lapack_complex_double* ap,+                    lapack_int *info );+void LAPACK_ctfttp( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_float* arf, lapack_complex_float* ap,+                    lapack_int *info );+void LAPACK_dtfttr( char* transr, char* uplo, lapack_int* n, const double* arf,+                    double* a, lapack_int* lda, lapack_int *info );+void LAPACK_stfttr( char* transr, char* uplo, lapack_int* n, const float* arf,+                    float* a, lapack_int* lda, lapack_int *info );+void LAPACK_ztfttr( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_double* arf, lapack_complex_double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_ctfttr( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_float* arf, lapack_complex_float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_dtpttf( char* transr, char* uplo, lapack_int* n, const double* ap,+                    double* arf, lapack_int *info );+void LAPACK_stpttf( char* transr, char* uplo, lapack_int* n, const float* ap,+                    float* arf, lapack_int *info );+void LAPACK_ztpttf( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_double* ap, lapack_complex_double* arf,+                    lapack_int *info );+void LAPACK_ctpttf( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_float* ap, lapack_complex_float* arf,+                    lapack_int *info );+void LAPACK_dtpttr( char* uplo, lapack_int* n, const double* ap, double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_stpttr( char* uplo, lapack_int* n, const float* ap, float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_ztpttr( char* uplo, lapack_int* n, const lapack_complex_double* ap,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_ctpttr( char* uplo, lapack_int* n, const lapack_complex_float* ap,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dtrttf( char* transr, char* uplo, lapack_int* n, const double* a,+                    lapack_int* lda, double* arf, lapack_int *info );+void LAPACK_strttf( char* transr, char* uplo, lapack_int* n, const float* a,+                    lapack_int* lda, float* arf, lapack_int *info );+void LAPACK_ztrttf( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* arf, lapack_int *info );+void LAPACK_ctrttf( char* transr, char* uplo, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* arf, lapack_int *info );+void LAPACK_dtrttp( char* uplo, lapack_int* n, const double* a, lapack_int* lda,+                    double* ap, lapack_int *info );+void LAPACK_strttp( char* uplo, lapack_int* n, const float* a, lapack_int* lda,+                    float* ap, lapack_int *info );+void LAPACK_ztrttp( char* uplo, lapack_int* n, const lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* ap,+                    lapack_int *info );+void LAPACK_ctrttp( char* uplo, lapack_int* n, const lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* ap,+                    lapack_int *info );+void LAPACK_sgeqrfp( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                     float* tau, float* work, lapack_int* lwork,+                     lapack_int *info );+void LAPACK_dgeqrfp( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                     double* tau, double* work, lapack_int* lwork,+                     lapack_int *info );+void LAPACK_cgeqrfp( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                     lapack_int* lda, lapack_complex_float* tau,+                     lapack_complex_float* work, lapack_int* lwork,+                     lapack_int *info );+void LAPACK_zgeqrfp( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                     lapack_int* lda, lapack_complex_double* tau,+                     lapack_complex_double* work, lapack_int* lwork,+                     lapack_int *info );+void LAPACK_clacgv( lapack_int* n, lapack_complex_float* x, lapack_int* incx );+void LAPACK_zlacgv( lapack_int* n, lapack_complex_double* x, lapack_int* incx );+void LAPACK_slarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,+                    float* x );+void LAPACK_dlarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,+                    double* x );+void LAPACK_clarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,+                    lapack_complex_float* x );+void LAPACK_zlarnv( lapack_int* idist, lapack_int* iseed, lapack_int* n,+                    lapack_complex_double* x );+void LAPACK_sgeqr2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int *info );+void LAPACK_dgeqr2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int *info );+void LAPACK_cgeqr2( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zgeqr2( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_slacpy( char* uplo, lapack_int* m, lapack_int* n, const float* a,+                    lapack_int* lda, float* b, lapack_int* ldb );+void LAPACK_dlacpy( char* uplo, lapack_int* m, lapack_int* n, const double* a,+                    lapack_int* lda, double* b, lapack_int* ldb );+void LAPACK_clacpy( char* uplo, lapack_int* m, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb );+void LAPACK_zlacpy( char* uplo, lapack_int* m, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb );+void LAPACK_sgetf2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_dgetf2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int* ipiv, lapack_int *info );+void LAPACK_cgetf2( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* ipiv, lapack_int *info );+void LAPACK_zgetf2( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* ipiv, lapack_int *info );+void LAPACK_slaswp( lapack_int* n, float* a, lapack_int* lda, lapack_int* k1,+                    lapack_int* k2, const lapack_int* ipiv, lapack_int* incx );+void LAPACK_dlaswp( lapack_int* n, double* a, lapack_int* lda, lapack_int* k1,+                    lapack_int* k2, const lapack_int* ipiv, lapack_int* incx );+void LAPACK_claswp( lapack_int* n, lapack_complex_float* a, lapack_int* lda,+                    lapack_int* k1, lapack_int* k2, const lapack_int* ipiv,+                    lapack_int* incx );+void LAPACK_zlaswp( lapack_int* n, lapack_complex_double* a, lapack_int* lda,+                    lapack_int* k1, lapack_int* k2, const lapack_int* ipiv,+                    lapack_int* incx );+float LAPACK_slange( char* norm, lapack_int* m, lapack_int* n, const float* a,+                    lapack_int* lda, float* work );+double LAPACK_dlange( char* norm, lapack_int* m, lapack_int* n, const double* a,+                    lapack_int* lda, double* work );+float LAPACK_clange( char* norm, lapack_int* m, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda, float* work );+double LAPACK_zlange( char* norm, lapack_int* m, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda, double* work );+float LAPACK_clanhe( char* norm, char* uplo, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda, float* work );+double LAPACK_zlanhe( char* norm, char* uplo, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda, double* work );+float LAPACK_slansy( char* norm, char* uplo, lapack_int* n, const float* a,+                    lapack_int* lda, float* work );+double LAPACK_dlansy( char* norm, char* uplo, lapack_int* n, const double* a,+                    lapack_int* lda, double* work );+float LAPACK_clansy( char* norm, char* uplo, lapack_int* n,+                    const lapack_complex_float* a, lapack_int* lda, float* work );+double LAPACK_zlansy( char* norm, char* uplo, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda, double* work );+float LAPACK_slantr( char* norm, char* uplo, char* diag, lapack_int* m,+                    lapack_int* n, const float* a, lapack_int* lda, float* work );+double LAPACK_dlantr( char* norm, char* uplo, char* diag, lapack_int* m,+                    lapack_int* n, const double* a, lapack_int* lda, double* work );+float LAPACK_clantr( char* norm, char* uplo, char* diag, lapack_int* m,+                    lapack_int* n, const lapack_complex_float* a, lapack_int* lda,+                    float* work );+double LAPACK_zlantr( char* norm, char* uplo, char* diag, lapack_int* m,+                    lapack_int* n, const lapack_complex_double* a, lapack_int* lda,+                    double* work );+float LAPACK_slamch( char* cmach );+double LAPACK_dlamch( char* cmach );+void LAPACK_sgelq2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                    float* tau, float* work, lapack_int *info );+void LAPACK_dgelq2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                    double* tau, double* work, lapack_int *info );+void LAPACK_cgelq2( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_complex_float* tau,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zgelq2( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_complex_double* tau,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_slarfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k, const float* v,+                    lapack_int* ldv, const float* t, lapack_int* ldt, float* c,+                    lapack_int* ldc, float* work, lapack_int* ldwork );+void LAPACK_dlarfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k,+                    const double* v, lapack_int* ldv, const double* t,+                    lapack_int* ldt, double* c, lapack_int* ldc, double* work,+                    lapack_int* ldwork );+void LAPACK_clarfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k,+                    const lapack_complex_float* v, lapack_int* ldv,+                    const lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work, lapack_int* ldwork );+void LAPACK_zlarfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k,+                    const lapack_complex_double* v, lapack_int* ldv,+                    const lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work, lapack_int* ldwork );+void LAPACK_slarfg( lapack_int* n, float* alpha, float* x, lapack_int* incx,+                    float* tau );+void LAPACK_dlarfg( lapack_int* n, double* alpha, double* x, lapack_int* incx,+                    double* tau );+void LAPACK_clarfg( lapack_int* n, lapack_complex_float* alpha,+                    lapack_complex_float* x, lapack_int* incx,+                    lapack_complex_float* tau );+void LAPACK_zlarfg( lapack_int* n, lapack_complex_double* alpha,+                    lapack_complex_double* x, lapack_int* incx,+                    lapack_complex_double* tau );+void LAPACK_slarft( char* direct, char* storev, lapack_int* n, lapack_int* k,+                    const float* v, lapack_int* ldv, const float* tau, float* t,+                    lapack_int* ldt );+void LAPACK_dlarft( char* direct, char* storev, lapack_int* n, lapack_int* k,+                    const double* v, lapack_int* ldv, const double* tau,+                    double* t, lapack_int* ldt );+void LAPACK_clarft( char* direct, char* storev, lapack_int* n, lapack_int* k,+                    const lapack_complex_float* v, lapack_int* ldv,+                    const lapack_complex_float* tau, lapack_complex_float* t,+                    lapack_int* ldt );+void LAPACK_zlarft( char* direct, char* storev, lapack_int* n, lapack_int* k,+                    const lapack_complex_double* v, lapack_int* ldv,+                    const lapack_complex_double* tau, lapack_complex_double* t,+                    lapack_int* ldt );+void LAPACK_slarfx( char* side, lapack_int* m, lapack_int* n, const float* v,+                    float* tau, float* c, lapack_int* ldc, float* work );+void LAPACK_dlarfx( char* side, lapack_int* m, lapack_int* n, const double* v,+                    double* tau, double* c, lapack_int* ldc, double* work );+void LAPACK_clarfx( char* side, lapack_int* m, lapack_int* n,+                    const lapack_complex_float* v, lapack_complex_float* tau,+                    lapack_complex_float* c, lapack_int* ldc,+                    lapack_complex_float* work );+void LAPACK_zlarfx( char* side, lapack_int* m, lapack_int* n,+                    const lapack_complex_double* v, lapack_complex_double* tau,+                    lapack_complex_double* c, lapack_int* ldc,+                    lapack_complex_double* work );+void LAPACK_slatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,+                    char* sym, float* d, lapack_int* mode, float* cond,+                    float* dmax, lapack_int* kl, lapack_int* ku, char* pack,+                    float* a, lapack_int* lda, float* work, lapack_int *info );+void LAPACK_dlatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,+                    char* sym, double* d, lapack_int* mode, double* cond,+                    double* dmax, lapack_int* kl, lapack_int* ku, char* pack,+                    double* a, lapack_int* lda, double* work,+                    lapack_int *info );+void LAPACK_clatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,+                    char* sym, float* d, lapack_int* mode, float* cond,+                    float* dmax, lapack_int* kl, lapack_int* ku, char* pack,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zlatms( lapack_int* m, lapack_int* n, char* dist, lapack_int* iseed,+                    char* sym, double* d, lapack_int* mode, double* cond,+                    double* dmax, lapack_int* kl, lapack_int* ku, char* pack,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_slag2d( lapack_int* m, lapack_int* n, const float* sa,+                    lapack_int* ldsa, double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dlag2s( lapack_int* m, lapack_int* n, const double* a,+                    lapack_int* lda, float* sa, lapack_int* ldsa,+                    lapack_int *info );+void LAPACK_clag2z( lapack_int* m, lapack_int* n,+                    const lapack_complex_float* sa, lapack_int* ldsa,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_zlag2c( lapack_int* m, lapack_int* n,+                    const lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_float* sa, lapack_int* ldsa,+                    lapack_int *info );+void LAPACK_slauum( char* uplo, lapack_int* n, float* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_dlauum( char* uplo, lapack_int* n, double* a, lapack_int* lda,+                    lapack_int *info );+void LAPACK_clauum( char* uplo, lapack_int* n, lapack_complex_float* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_zlauum( char* uplo, lapack_int* n, lapack_complex_double* a,+                    lapack_int* lda, lapack_int *info );+void LAPACK_slagge( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const float* d, float* a, lapack_int* lda,+                    lapack_int* iseed, float* work, lapack_int *info );+void LAPACK_dlagge( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const double* d, double* a, lapack_int* lda,+                    lapack_int* iseed, double* work, lapack_int *info );+void LAPACK_clagge( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const float* d, lapack_complex_float* a,+                    lapack_int* lda, lapack_int* iseed,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zlagge( lapack_int* m, lapack_int* n, lapack_int* kl,+                    lapack_int* ku, const double* d, lapack_complex_double* a,+                    lapack_int* lda, lapack_int* iseed,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_slaset( char* uplo, lapack_int* m, lapack_int* n, float* alpha,+                    float* beta, float* a, lapack_int* lda );+void LAPACK_dlaset( char* uplo, lapack_int* m, lapack_int* n, double* alpha,+                    double* beta, double* a, lapack_int* lda );+void LAPACK_claset( char* uplo, lapack_int* m, lapack_int* n,+                    lapack_complex_float* alpha, lapack_complex_float* beta,+                    lapack_complex_float* a, lapack_int* lda );+void LAPACK_zlaset( char* uplo, lapack_int* m, lapack_int* n,+                    lapack_complex_double* alpha, lapack_complex_double* beta,+                    lapack_complex_double* a, lapack_int* lda );+void LAPACK_slasrt( char* id, lapack_int* n, float* d, lapack_int *info );+void LAPACK_dlasrt( char* id, lapack_int* n, double* d, lapack_int *info );+void LAPACK_claghe( lapack_int* n, lapack_int* k, const float* d,+                    lapack_complex_float* a, lapack_int* lda, lapack_int* iseed,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zlaghe( lapack_int* n, lapack_int* k, const double* d,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_int* iseed, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_slagsy( lapack_int* n, lapack_int* k, const float* d, float* a,+                    lapack_int* lda, lapack_int* iseed, float* work,+                    lapack_int *info );+void LAPACK_dlagsy( lapack_int* n, lapack_int* k, const double* d, double* a,+                    lapack_int* lda, lapack_int* iseed, double* work,+                    lapack_int *info );+void LAPACK_clagsy( lapack_int* n, lapack_int* k, const float* d,+                    lapack_complex_float* a, lapack_int* lda, lapack_int* iseed,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zlagsy( lapack_int* n, lapack_int* k, const double* d,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_int* iseed, lapack_complex_double* work,+                    lapack_int *info );+void LAPACK_slapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,+                    float* x, lapack_int* ldx, lapack_int* k );+void LAPACK_dlapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,+                    double* x, lapack_int* ldx, lapack_int* k );+void LAPACK_clapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,+                    lapack_complex_float* x, lapack_int* ldx, lapack_int* k );+void LAPACK_zlapmr( lapack_logical* forwrd, lapack_int* m, lapack_int* n,+                    lapack_complex_double* x, lapack_int* ldx, lapack_int* k );+float LAPACK_slapy2( float* x, float* y );+double LAPACK_dlapy2( double* x, double* y );+float LAPACK_slapy3( float* x, float* y, float* z );+double LAPACK_dlapy3( double* x, double* y, double* z );+void LAPACK_slartgp( float* f, float* g, float* cs, float* sn, float* r );+void LAPACK_dlartgp( double* f, double* g, double* cs, double* sn, double* r );+void LAPACK_slartgs( float* x, float* y, float* sigma, float* cs, float* sn );+void LAPACK_dlartgs( double* x, double* y, double* sigma, double* cs,+                     double* sn );+// LAPACK 3.3.0+void LAPACK_cbbcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    float* theta, float* phi,+                    lapack_complex_float* u1, lapack_int* ldu1,+                    lapack_complex_float* u2, lapack_int* ldu2,+                    lapack_complex_float* v1t, lapack_int* ldv1t,+                    lapack_complex_float* v2t, lapack_int* ldv2t,+                    float* b11d, float* b11e, float* b12d,+                    float* b12e, float* b21d, float* b21e,+                    float* b22d, float* b22e, float* rwork,+                    lapack_int* lrwork , lapack_int *info );+void LAPACK_cheswapr( char* uplo, lapack_int* n,+                      lapack_complex_float* a, lapack_int* i1,+                      lapack_int* i2 );+void LAPACK_chetri2( char* uplo, lapack_int* n,+                     lapack_complex_float* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_float* work, lapack_int* lwork , lapack_int *info );+void LAPACK_chetri2x( char* uplo, lapack_int* n,+                      lapack_complex_float* a, lapack_int* lda,+                      const lapack_int* ipiv,+                      lapack_complex_float* work, lapack_int* nb , lapack_int *info );+void LAPACK_chetrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs, const lapack_complex_float* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* work , lapack_int *info );+void LAPACK_csyconv( char* uplo, char* way,+                     lapack_int* n, lapack_complex_float* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     lapack_complex_float* work , lapack_int *info );+void LAPACK_csyswapr( char* uplo, lapack_int* n,+                      lapack_complex_float* a, lapack_int* i1,+                      lapack_int* i2 );+void LAPACK_csytri2( char* uplo, lapack_int* n,+                     lapack_complex_float* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_float* work, lapack_int* lwork , lapack_int *info );+void LAPACK_csytri2x( char* uplo, lapack_int* n,+                      lapack_complex_float* a, lapack_int* lda,+                      const lapack_int* ipiv,+                      lapack_complex_float* work, lapack_int* nb , lapack_int *info );+void LAPACK_csytrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs, const lapack_complex_float* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* work , lapack_int *info );+void LAPACK_cunbdb( char* trans, char* signs,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    lapack_complex_float* x11, lapack_int* ldx11,+                    lapack_complex_float* x12, lapack_int* ldx12,+                    lapack_complex_float* x21, lapack_int* ldx21,+                    lapack_complex_float* x22, lapack_int* ldx22,+                    float* theta, float* phi,+                    lapack_complex_float* taup1,+                    lapack_complex_float* taup2,+                    lapack_complex_float* tauq1,+                    lapack_complex_float* tauq2,+                    lapack_complex_float* work, lapack_int* lwork , lapack_int *info );+void LAPACK_cuncsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    char* signs, lapack_int* m, lapack_int* p,+                    lapack_int* q, lapack_complex_float* x11,+                    lapack_int* ldx11, lapack_complex_float* x12,+                    lapack_int* ldx12, lapack_complex_float* x21,+                    lapack_int* ldx21, lapack_complex_float* x22,+                    lapack_int* ldx22, float* theta,+                    lapack_complex_float* u1, lapack_int* ldu1,+                    lapack_complex_float* u2, lapack_int* ldu2,+                    lapack_complex_float* v1t, lapack_int* ldv1t,+                    lapack_complex_float* v2t, lapack_int* ldv2t,+                    lapack_complex_float* work, lapack_int* lwork,+                    float* rwork, lapack_int* lrwork,+                    lapack_int* iwork , lapack_int *info );+void LAPACK_dbbcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    double* theta, double* phi, double* u1,+                    lapack_int* ldu1, double* u2, lapack_int* ldu2,+                    double* v1t, lapack_int* ldv1t, double* v2t,+                    lapack_int* ldv2t, double* b11d, double* b11e,+                    double* b12d, double* b12e, double* b21d,+                    double* b21e, double* b22d, double* b22e,+                    double* work, lapack_int* lwork , lapack_int *info );+void LAPACK_dorbdb( char* trans, char* signs,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    double* x11, lapack_int* ldx11, double* x12,+                    lapack_int* ldx12, double* x21, lapack_int* ldx21,+                    double* x22, lapack_int* ldx22, double* theta,+                    double* phi, double* taup1, double* taup2,+                    double* tauq1, double* tauq2, double* work,+                    lapack_int* lwork , lapack_int *info );+void LAPACK_dorcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    char* signs, lapack_int* m, lapack_int* p,+                    lapack_int* q, double* x11, lapack_int* ldx11,+                    double* x12, lapack_int* ldx12, double* x21,+                    lapack_int* ldx21, double* x22, lapack_int* ldx22,+                    double* theta, double* u1, lapack_int* ldu1,+                    double* u2, lapack_int* ldu2, double* v1t,+                    lapack_int* ldv1t, double* v2t, lapack_int* ldv2t,+                    double* work, lapack_int* lwork,+                    lapack_int* iwork , lapack_int *info );+void LAPACK_dsyconv( char* uplo, char* way,+                     lapack_int* n, double* a, lapack_int* lda,+                     const lapack_int* ipiv, double* work , lapack_int *info );+void LAPACK_dsyswapr( char* uplo, lapack_int* n,+                      double* a, lapack_int* i1, lapack_int* i2 );+void LAPACK_dsytri2( char* uplo, lapack_int* n,+                     double* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_double* work, lapack_int* lwork , lapack_int *info );+void LAPACK_dsytri2x( char* uplo, lapack_int* n,+                      double* a, lapack_int* lda,+                      const lapack_int* ipiv, double* work,+                      lapack_int* nb , lapack_int *info );+void LAPACK_dsytrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs, const double* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     double* b, lapack_int* ldb, double* work , lapack_int *info );+void LAPACK_sbbcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    float* theta, float* phi, float* u1,+                    lapack_int* ldu1, float* u2, lapack_int* ldu2,+                    float* v1t, lapack_int* ldv1t, float* v2t,+                    lapack_int* ldv2t, float* b11d, float* b11e,+                    float* b12d, float* b12e, float* b21d,+                    float* b21e, float* b22d, float* b22e,+                    float* work, lapack_int* lwork , lapack_int *info );+void LAPACK_sorbdb( char* trans, char* signs,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    float* x11, lapack_int* ldx11, float* x12,+                    lapack_int* ldx12, float* x21, lapack_int* ldx21,+                    float* x22, lapack_int* ldx22, float* theta,+                    float* phi, float* taup1, float* taup2,+                    float* tauq1, float* tauq2, float* work,+                    lapack_int* lwork , lapack_int *info );+void LAPACK_sorcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    char* signs, lapack_int* m, lapack_int* p,+                    lapack_int* q, float* x11, lapack_int* ldx11,+                    float* x12, lapack_int* ldx12, float* x21,+                    lapack_int* ldx21, float* x22, lapack_int* ldx22,+                    float* theta, float* u1, lapack_int* ldu1,+                    float* u2, lapack_int* ldu2, float* v1t,+                    lapack_int* ldv1t, float* v2t, lapack_int* ldv2t,+                    float* work, lapack_int* lwork,+                    lapack_int* iwork , lapack_int *info );+void LAPACK_ssyconv( char* uplo, char* way,+                     lapack_int* n, float* a, lapack_int* lda,+                     const lapack_int* ipiv, float* work , lapack_int *info );+void LAPACK_ssyswapr( char* uplo, lapack_int* n,+                      float* a, lapack_int* i1, lapack_int* i2 );+void LAPACK_ssytri2( char* uplo, lapack_int* n,+                     float* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_float* work, lapack_int* lwork , lapack_int *info );+void LAPACK_ssytri2x( char* uplo, lapack_int* n,+                      float* a, lapack_int* lda,+                      const lapack_int* ipiv, float* work,+                      lapack_int* nb , lapack_int *info );+void LAPACK_ssytrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs, const float* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     float* b, lapack_int* ldb, float* work , lapack_int *info );+void LAPACK_zbbcsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    double* theta, double* phi,+                    lapack_complex_double* u1, lapack_int* ldu1,+                    lapack_complex_double* u2, lapack_int* ldu2,+                    lapack_complex_double* v1t, lapack_int* ldv1t,+                    lapack_complex_double* v2t, lapack_int* ldv2t,+                    double* b11d, double* b11e, double* b12d,+                    double* b12e, double* b21d, double* b21e,+                    double* b22d, double* b22e, double* rwork,+                    lapack_int* lrwork , lapack_int *info );+void LAPACK_zheswapr( char* uplo, lapack_int* n,+                      lapack_complex_double* a, lapack_int* i1,+                      lapack_int* i2 );+void LAPACK_zhetri2( char* uplo, lapack_int* n,+                     lapack_complex_double* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_double* work, lapack_int* lwork , lapack_int *info );+void LAPACK_zhetri2x( char* uplo, lapack_int* n,+                      lapack_complex_double* a, lapack_int* lda,+                      const lapack_int* ipiv,+                      lapack_complex_double* work, lapack_int* nb , lapack_int *info );+void LAPACK_zhetrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* work , lapack_int *info );+void LAPACK_zsyconv( char* uplo, char* way,+                     lapack_int* n, lapack_complex_double* a,+                     lapack_int* lda, const lapack_int* ipiv,+                     lapack_complex_double* work , lapack_int *info );+void LAPACK_zsyswapr( char* uplo, lapack_int* n,+                      lapack_complex_double* a, lapack_int* i1,+                      lapack_int* i2 );+void LAPACK_zsytri2( char* uplo, lapack_int* n,+                     lapack_complex_double* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_double* work, lapack_int* lwork , lapack_int *info );+void LAPACK_zsytri2x( char* uplo, lapack_int* n,+                      lapack_complex_double* a, lapack_int* lda,+                      const lapack_int* ipiv,+                      lapack_complex_double* work, lapack_int* nb , lapack_int *info );+void LAPACK_zsytrs2( char* uplo, lapack_int* n,+                     lapack_int* nrhs,+                     const lapack_complex_double* a, lapack_int* lda,+                     const lapack_int* ipiv,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* work , lapack_int *info );+void LAPACK_zunbdb( char* trans, char* signs,+                    lapack_int* m, lapack_int* p, lapack_int* q,+                    lapack_complex_double* x11, lapack_int* ldx11,+                    lapack_complex_double* x12, lapack_int* ldx12,+                    lapack_complex_double* x21, lapack_int* ldx21,+                    lapack_complex_double* x22, lapack_int* ldx22,+                    double* theta, double* phi,+                    lapack_complex_double* taup1,+                    lapack_complex_double* taup2,+                    lapack_complex_double* tauq1,+                    lapack_complex_double* tauq2,+                    lapack_complex_double* work, lapack_int* lwork , lapack_int *info );+void LAPACK_zuncsd( char* jobu1, char* jobu2,+                    char* jobv1t, char* jobv2t, char* trans,+                    char* signs, lapack_int* m, lapack_int* p,+                    lapack_int* q, lapack_complex_double* x11,+                    lapack_int* ldx11, lapack_complex_double* x12,+                    lapack_int* ldx12, lapack_complex_double* x21,+                    lapack_int* ldx21, lapack_complex_double* x22,+                    lapack_int* ldx22, double* theta,+                    lapack_complex_double* u1, lapack_int* ldu1,+                    lapack_complex_double* u2, lapack_int* ldu2,+                    lapack_complex_double* v1t, lapack_int* ldv1t,+                    lapack_complex_double* v2t, lapack_int* ldv2t,+                    lapack_complex_double* work, lapack_int* lwork,+                    double* rwork, lapack_int* lrwork,+                    lapack_int* iwork , lapack_int *info );+// LAPACK 3.4.0+void LAPACK_sgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* nb, const float* v,+                     lapack_int* ldv, const float* t, lapack_int* ldt, float* c,+                     lapack_int* ldc, float* work, lapack_int *info );+void LAPACK_dgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* nb, const double* v,+                     lapack_int* ldv, const double* t, lapack_int* ldt,+                     double* c, lapack_int* ldc, double* work,+                     lapack_int *info );+void LAPACK_cgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* nb,+                     const lapack_complex_float* v, lapack_int* ldv,+                     const lapack_complex_float* t, lapack_int* ldt,+                     lapack_complex_float* c, lapack_int* ldc,+                     lapack_complex_float* work, lapack_int *info );+void LAPACK_zgemqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* nb,+                     const lapack_complex_double* v, lapack_int* ldv,+                     const lapack_complex_double* t, lapack_int* ldt,+                     lapack_complex_double* c, lapack_int* ldc,+                     lapack_complex_double* work, lapack_int *info );+void LAPACK_sgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb, float* a,+                    lapack_int* lda, float* t, lapack_int* ldt, float* work,+                    lapack_int *info );+void LAPACK_dgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb, double* a,+                    lapack_int* lda, double* t, lapack_int* ldt, double* work,+                    lapack_int *info );+void LAPACK_cgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_zgeqrt( lapack_int* m, lapack_int* n, lapack_int* nb,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_sgeqrt2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                     float* t, lapack_int* ldt, lapack_int *info );+void LAPACK_dgeqrt2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                     double* t, lapack_int* ldt, lapack_int *info );+void LAPACK_cgeqrt2( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                     lapack_int* lda, lapack_complex_float* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_zgeqrt2( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                     lapack_int* lda, lapack_complex_double* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_sgeqrt3( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                     float* t, lapack_int* ldt, lapack_int *info );+void LAPACK_dgeqrt3( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                     double* t, lapack_int* ldt, lapack_int *info );+void LAPACK_cgeqrt3( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                     lapack_int* lda, lapack_complex_float* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_zgeqrt3( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                     lapack_int* lda, lapack_complex_double* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_stpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* l, lapack_int* nb,+                     const float* v, lapack_int* ldv, const float* t,+                     lapack_int* ldt, float* a, lapack_int* lda, float* b,+                     lapack_int* ldb, float* work, lapack_int *info );+void LAPACK_dtpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* l, lapack_int* nb,+                     const double* v, lapack_int* ldv, const double* t,+                     lapack_int* ldt, double* a, lapack_int* lda, double* b,+                     lapack_int* ldb, double* work, lapack_int *info );+void LAPACK_ctpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* l, lapack_int* nb,+                     const lapack_complex_float* v, lapack_int* ldv,+                     const lapack_complex_float* t, lapack_int* ldt,+                     lapack_complex_float* a, lapack_int* lda,+                     lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* work, lapack_int *info );+void LAPACK_ztpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n,+                     lapack_int* k, lapack_int* l, lapack_int* nb,+                     const lapack_complex_double* v, lapack_int* ldv,+                     const lapack_complex_double* t, lapack_int* ldt,+                     lapack_complex_double* a, lapack_int* lda,+                     lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* work, lapack_int *info );+void LAPACK_dtpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,+                    double* a, lapack_int* lda, double* b, lapack_int* ldb,+                    double* t, lapack_int* ldt, double* work,+                    lapack_int *info );+void LAPACK_ctpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* t, lapack_complex_float* b,+                    lapack_int* ldb, lapack_int* ldt,+                    lapack_complex_float* work, lapack_int *info );+void LAPACK_ztpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* work, lapack_int *info );+void LAPACK_stpqrt2( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,+                     float* b, lapack_int* ldb, float* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_dtpqrt2( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,+                     double* b, lapack_int* ldb, double* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_ctpqrt2( lapack_int* m, lapack_int* n, lapack_complex_float* a,+                     lapack_int* lda, lapack_complex_float* b, lapack_int* ldb,+                     lapack_complex_float* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_ztpqrt2( lapack_int* m, lapack_int* n, lapack_complex_double* a,+                     lapack_int* lda, lapack_complex_double* b, lapack_int* ldb,+                     lapack_complex_double* t, lapack_int* ldt,+                     lapack_int *info );+void LAPACK_stprfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,+                    const float* v, lapack_int* ldv, const float* t,+                    lapack_int* ldt, float* a, lapack_int* lda, float* b,+                    lapack_int* ldb, const float* mywork,+                    lapack_int* myldwork );+void LAPACK_dtprfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,+                    const double* v, lapack_int* ldv, const double* t,+                    lapack_int* ldt, double* a, lapack_int* lda, double* b,+                    lapack_int* ldb, const double* mywork,+                    lapack_int* myldwork );+void LAPACK_ctprfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,+                    const lapack_complex_float* v, lapack_int* ldv,+                    const lapack_complex_float* t, lapack_int* ldt,+                    lapack_complex_float* a, lapack_int* lda,+                    lapack_complex_float* b, lapack_int* ldb,+                    const float* mywork, lapack_int* myldwork );+void LAPACK_ztprfb( char* side, char* trans, char* direct, char* storev,+                    lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l,+                    const lapack_complex_double* v, lapack_int* ldv,+                    const lapack_complex_double* t, lapack_int* ldt,+                    lapack_complex_double* a, lapack_int* lda,+                    lapack_complex_double* b, lapack_int* ldb,+                    const double* mywork, lapack_int* myldwork );++#ifdef __cplusplus+}+#endif /* __cplusplus */++#endif /* _LAPACKE_H_ */
+ lapacke/include/lapacke_config.h view
@@ -0,0 +1,2902 @@+/*****************************************************************************+  Copyright (c) 2010, Intel Corp.+  All rights reserved.++  Redistribution and use in source and binary forms, with or without+  modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright notice,+      this list of conditions and the following disclaimer.+    * Redistributions in binary form must reproduce the above copyright+      notice, this list of conditions and the following disclaimer in the+      documentation and/or other materials provided with the distribution.+    * Neither the name of Intel Corporation nor the names of its contributors+      may be used to endorse or promote products derived from this software+      without specific prior written permission.++  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE+  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR+  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF+  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS+  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN+  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF+  THE POSSIBILITY OF SUCH DAMAGE.+******************************************************************************+* Contents: Native C interface to LAPACK+* Author: Intel Corporation+* Generated May, 2011+*****************************************************************************/++#ifndef _LAPACKE_CONFIG_H_+#define _LAPACKE_CONFIG_H_++#ifdef __cplusplus+#if defined(LAPACK_COMPLEX_CPP)+#include <complex>+#endif+extern "C" {+#endif /* __cplusplus */++#include <stdlib.h>++#ifndef lapack_int+#if defined(LAPACK_ILP64)+#define lapack_int              long+#else+#define lapack_int              int+#endif+#endif++#ifndef lapack_logical+#define lapack_logical          lapack_int+#endif++#ifndef LAPACK_COMPLEX_CUSTOM++#if defined(LAPACK_COMPLEX_STRUCTURE)++typedef struct { float real, imag; } _lapack_complex_float;+typedef struct { double real, imag; } _lapack_complex_double;+#define lapack_complex_float  _lapack_complex_float+#define lapack_complex_double _lapack_complex_double+#define lapack_complex_float_real(z)  ((z).real)+#define lapack_complex_float_imag(z)  ((z).imag)+#define lapack_complex_double_real(z)  ((z).real)+#define lapack_complex_double_imag(z)  ((z).imag)++#elif defined(LAPACK_COMPLEX_C99)++#include <complex.h>+#define lapack_complex_float    float _Complex+#define lapack_complex_double   double _Complex+#define lapack_complex_float_real(z)       (creal(z))+#define lapack_complex_float_imag(z)       (cimag(z))+#define lapack_complex_double_real(z)       (creal(z))+#define lapack_complex_double_imag(z)       (cimag(z))++#elif defined(LAPACK_COMPLEX_CPP)++#define lapack_complex_float std::complex<float>+#define lapack_complex_double std::complex<double>+#define lapack_complex_float_real(z)       ((z).real())+#define lapack_complex_float_imag(z)       ((z).imag())+#define lapack_complex_double_real(z)       ((z).real())+#define lapack_complex_double_imag(z)       ((z).imag())++#else++#include <complex.h>+#define lapack_complex_float    float _Complex+#define lapack_complex_double   double _Complex+#define lapack_complex_float_real(z)       (creal(z))+#define lapack_complex_float_imag(z)       (cimag(z))+#define lapack_complex_double_real(z)       (creal(z))+#define lapack_complex_double_imag(z)       (cimag(z))++#endif++lapack_complex_float lapack_make_complex_float( float re, float im );+lapack_complex_double lapack_make_complex_double( double re, double im );++#endif++#ifndef LAPACK_malloc+#define LAPACK_malloc( size )   malloc( size )+#endif++#ifndef LAPACK_free+#define LAPACK_free( p )        free( p )+#endif++#ifndef LAPACKE_NAME+#if defined(LAPACK_NAME_PATTERN_LC)+#define LAPACKE_NAME(lcname,UCNAME)  lapacke_##lcname+#elif defined(LAPACK_NAME_PATTERN_UC)+#define LAPACKE_NAME(lcname,UCNAME)  LAPACKE_##UCNAME+#elif defined(LAPACK_NAME_PATTERN_MC)+#define LAPACKE_NAME(lcname,UCNAME)  LAPACKE_##lcname+#elif defined(LAPACK_NAME_PATTERN_LC_SHORT)+#define LAPACKE_NAME(lcname,UCNAME)  c##lcname+#elif defined(LAPACKE_NAME_PATTERN_UC_SHORT)+#define LAPACKE_NAME(lcname,UCNAME)  C##UCNAME+#elif defined(LAPACK_NAME_PATTERN_MC_SHORT)+#define LAPACKE_NAME(lcname,UCNAME)  C##lcname+#else+#define LAPACK_NAME_PATTERN_MC+#endif+#endif++#ifndef LAPACK_NAME_PATTERN_MC++#define LAPACKE_lsame    LAPACKE_NAME(lsame,LSAME)+#define LAPACKE_xerbla   LAPACKE_NAME(xerbla,XERBLA)++#define LAPACKE_sbdsdc   LAPACKE_NAME(sbdsdc,SBDSDC)+#define LAPACKE_dbdsdc   LAPACKE_NAME(dbdsdc,DBDSDC)++#define LAPACKE_sbdsqr   LAPACKE_NAME(sbdsqr,SBDSQR)+#define LAPACKE_dbdsqr   LAPACKE_NAME(dbdsqr,DBDSQR)+#define LAPACKE_cbdsqr   LAPACKE_NAME(cbdsqr,CBDSQR)+#define LAPACKE_zbdsqr   LAPACKE_NAME(zbdsqr,ZBDSQR)++#define LAPACKE_sdisna   LAPACKE_NAME(sdisna,SDISNA)+#define LAPACKE_ddisna   LAPACKE_NAME(ddisna,DDISNA)++#define LAPACKE_sgbbrd   LAPACKE_NAME(sgbbrd,SGBBRD)+#define LAPACKE_dgbbrd   LAPACKE_NAME(dgbbrd,DGBBRD)+#define LAPACKE_cgbbrd   LAPACKE_NAME(cgbbrd,CGBBRD)+#define LAPACKE_zgbbrd   LAPACKE_NAME(zgbbrd,ZGBBRD)++#define LAPACKE_sgbcon   LAPACKE_NAME(sgbcon,SGBCON)+#define LAPACKE_dgbcon   LAPACKE_NAME(dgbcon,DGBCON)+#define LAPACKE_cgbcon   LAPACKE_NAME(cgbcon,CGBCON)+#define LAPACKE_zgbcon   LAPACKE_NAME(zgbcon,ZGBCON)++#define LAPACKE_sgbequ   LAPACKE_NAME(sgbequ,SGBEQU)+#define LAPACKE_dgbequ   LAPACKE_NAME(dgbequ,DGBEQU)+#define LAPACKE_cgbequ   LAPACKE_NAME(cgbequ,CGBEQU)+#define LAPACKE_zgbequ   LAPACKE_NAME(zgbequ,ZGBEQU)++#define LAPACKE_sgbequb   LAPACKE_NAME(sgbequb,SGBEQUB)+#define LAPACKE_dgbequb   LAPACKE_NAME(dgbequb,DGBEQUB)+#define LAPACKE_cgbequb   LAPACKE_NAME(cgbequb,CGBEQUB)+#define LAPACKE_zgbequb   LAPACKE_NAME(zgbequb,ZGBEQUB)++#define LAPACKE_sgbrfs   LAPACKE_NAME(sgbrfs,SGBRFS)+#define LAPACKE_dgbrfs   LAPACKE_NAME(dgbrfs,DGBRFS)+#define LAPACKE_cgbrfs   LAPACKE_NAME(cgbrfs,CGBRFS)+#define LAPACKE_zgbrfs   LAPACKE_NAME(zgbrfs,ZGBRFS)++#define LAPACKE_sgbrfsx   LAPACKE_NAME(sgbrfsx,SGBRFSX)+#define LAPACKE_dgbrfsx   LAPACKE_NAME(dgbrfsx,DGBRFSX)+#define LAPACKE_cgbrfsx   LAPACKE_NAME(cgbrfsx,CGBRFSX)+#define LAPACKE_zgbrfsx   LAPACKE_NAME(zgbrfsx,ZGBRFSX)++#define LAPACKE_sgbsv   LAPACKE_NAME(sgbsv,SGBSV)+#define LAPACKE_dgbsv   LAPACKE_NAME(dgbsv,DGBSV)+#define LAPACKE_cgbsv   LAPACKE_NAME(cgbsv,CGBSV)+#define LAPACKE_zgbsv   LAPACKE_NAME(zgbsv,ZGBSV)++#define LAPACKE_sgbsvx   LAPACKE_NAME(sgbsvx,SGBSVX)+#define LAPACKE_dgbsvx   LAPACKE_NAME(dgbsvx,DGBSVX)+#define LAPACKE_cgbsvx   LAPACKE_NAME(cgbsvx,CGBSVX)+#define LAPACKE_zgbsvx   LAPACKE_NAME(zgbsvx,ZGBSVX)++#define LAPACKE_sgbsvxx   LAPACKE_NAME(sgbsvxx,SGBSVXX)+#define LAPACKE_dgbsvxx   LAPACKE_NAME(dgbsvxx,DGBSVXX)+#define LAPACKE_cgbsvxx   LAPACKE_NAME(cgbsvxx,CGBSVXX)+#define LAPACKE_zgbsvxx   LAPACKE_NAME(zgbsvxx,ZGBSVXX)++#define LAPACKE_sgbtrf   LAPACKE_NAME(sgbtrf,SGBTRF)+#define LAPACKE_dgbtrf   LAPACKE_NAME(dgbtrf,DGBTRF)+#define LAPACKE_cgbtrf   LAPACKE_NAME(cgbtrf,CGBTRF)+#define LAPACKE_zgbtrf   LAPACKE_NAME(zgbtrf,ZGBTRF)++#define LAPACKE_sgbtrs   LAPACKE_NAME(sgbtrs,SGBTRS)+#define LAPACKE_dgbtrs   LAPACKE_NAME(dgbtrs,DGBTRS)+#define LAPACKE_cgbtrs   LAPACKE_NAME(cgbtrs,CGBTRS)+#define LAPACKE_zgbtrs   LAPACKE_NAME(zgbtrs,ZGBTRS)++#define LAPACKE_sgebak   LAPACKE_NAME(sgebak,SGEBAK)+#define LAPACKE_dgebak   LAPACKE_NAME(dgebak,DGEBAK)+#define LAPACKE_cgebak   LAPACKE_NAME(cgebak,CGEBAK)+#define LAPACKE_zgebak   LAPACKE_NAME(zgebak,ZGEBAK)++#define LAPACKE_sgebal   LAPACKE_NAME(sgebal,SGEBAL)+#define LAPACKE_dgebal   LAPACKE_NAME(dgebal,DGEBAL)+#define LAPACKE_cgebal   LAPACKE_NAME(cgebal,CGEBAL)+#define LAPACKE_zgebal   LAPACKE_NAME(zgebal,ZGEBAL)++#define LAPACKE_sgebrd   LAPACKE_NAME(sgebrd,SGEBRD)+#define LAPACKE_dgebrd   LAPACKE_NAME(dgebrd,DGEBRD)+#define LAPACKE_cgebrd   LAPACKE_NAME(cgebrd,CGEBRD)+#define LAPACKE_zgebrd   LAPACKE_NAME(zgebrd,ZGEBRD)++#define LAPACKE_sgecon   LAPACKE_NAME(sgecon,SGECON)+#define LAPACKE_dgecon   LAPACKE_NAME(dgecon,DGECON)+#define LAPACKE_cgecon   LAPACKE_NAME(cgecon,CGECON)+#define LAPACKE_zgecon   LAPACKE_NAME(zgecon,ZGECON)++#define LAPACKE_sgeequ   LAPACKE_NAME(sgeequ,SGEEQU)+#define LAPACKE_dgeequ   LAPACKE_NAME(dgeequ,DGEEQU)+#define LAPACKE_cgeequ   LAPACKE_NAME(cgeequ,CGEEQU)+#define LAPACKE_zgeequ   LAPACKE_NAME(zgeequ,ZGEEQU)++#define LAPACKE_sgeequb   LAPACKE_NAME(sgeequb,SGEEQUB)+#define LAPACKE_dgeequb   LAPACKE_NAME(dgeequb,DGEEQUB)+#define LAPACKE_cgeequb   LAPACKE_NAME(cgeequb,CGEEQUB)+#define LAPACKE_zgeequb   LAPACKE_NAME(zgeequb,ZGEEQUB)++#define LAPACKE_sgees   LAPACKE_NAME(sgees,SGEES)+#define LAPACKE_dgees   LAPACKE_NAME(dgees,DGEES)+#define LAPACKE_cgees   LAPACKE_NAME(cgees,CGEES)+#define LAPACKE_zgees   LAPACKE_NAME(zgees,ZGEES)++#define LAPACKE_sgeesx   LAPACKE_NAME(sgeesx,SGEESX)+#define LAPACKE_dgeesx   LAPACKE_NAME(dgeesx,DGEESX)+#define LAPACKE_cgeesx   LAPACKE_NAME(cgeesx,CGEESX)+#define LAPACKE_zgeesx   LAPACKE_NAME(zgeesx,ZGEESX)++#define LAPACKE_sgeev   LAPACKE_NAME(sgeev,SGEEV)+#define LAPACKE_dgeev   LAPACKE_NAME(dgeev,DGEEV)+#define LAPACKE_cgeev   LAPACKE_NAME(cgeev,CGEEV)+#define LAPACKE_zgeev   LAPACKE_NAME(zgeev,ZGEEV)++#define LAPACKE_sgeevx   LAPACKE_NAME(sgeevx,SGEEVX)+#define LAPACKE_dgeevx   LAPACKE_NAME(dgeevx,DGEEVX)+#define LAPACKE_cgeevx   LAPACKE_NAME(cgeevx,CGEEVX)+#define LAPACKE_zgeevx   LAPACKE_NAME(zgeevx,ZGEEVX)++#define LAPACKE_sgehrd   LAPACKE_NAME(sgehrd,SGEHRD)+#define LAPACKE_dgehrd   LAPACKE_NAME(dgehrd,DGEHRD)+#define LAPACKE_cgehrd   LAPACKE_NAME(cgehrd,CGEHRD)+#define LAPACKE_zgehrd   LAPACKE_NAME(zgehrd,ZGEHRD)++#define LAPACKE_sgejsv   LAPACKE_NAME(sgejsv,SGEJSV)+#define LAPACKE_dgejsv   LAPACKE_NAME(dgejsv,DGEJSV)++#define LAPACKE_sgelq2   LAPACKE_NAME(sgelq2,SGELQ2)+#define LAPACKE_dgelq2   LAPACKE_NAME(dgelq2,DGELQ2)+#define LAPACKE_cgelq2   LAPACKE_NAME(cgelq2,CGELQ2)+#define LAPACKE_zgelq2   LAPACKE_NAME(zgelq2,ZGELQ2)++#define LAPACKE_sgelqf   LAPACKE_NAME(sgelqf,SGELQF)+#define LAPACKE_dgelqf   LAPACKE_NAME(dgelqf,DGELQF)+#define LAPACKE_cgelqf   LAPACKE_NAME(cgelqf,CGELQF)+#define LAPACKE_zgelqf   LAPACKE_NAME(zgelqf,ZGELQF)++#define LAPACKE_sgels   LAPACKE_NAME(sgels,SGELS)+#define LAPACKE_dgels   LAPACKE_NAME(dgels,DGELS)+#define LAPACKE_cgels   LAPACKE_NAME(cgels,CGELS)+#define LAPACKE_zgels   LAPACKE_NAME(zgels,ZGELS)++#define LAPACKE_sgelsd   LAPACKE_NAME(sgelsd,SGELSD)+#define LAPACKE_dgelsd   LAPACKE_NAME(dgelsd,DGELSD)+#define LAPACKE_cgelsd   LAPACKE_NAME(cgelsd,CGELSD)+#define LAPACKE_zgelsd   LAPACKE_NAME(zgelsd,ZGELSD)++#define LAPACKE_sgelss   LAPACKE_NAME(sgelss,SGELSS)+#define LAPACKE_dgelss   LAPACKE_NAME(dgelss,DGELSS)+#define LAPACKE_cgelss   LAPACKE_NAME(cgelss,CGELSS)+#define LAPACKE_zgelss   LAPACKE_NAME(zgelss,ZGELSS)++#define LAPACKE_sgelsy   LAPACKE_NAME(sgelsy,SGELSY)+#define LAPACKE_dgelsy   LAPACKE_NAME(dgelsy,DGELSY)+#define LAPACKE_cgelsy   LAPACKE_NAME(cgelsy,CGELSY)+#define LAPACKE_zgelsy   LAPACKE_NAME(zgelsy,ZGELSY)++#define LAPACKE_sgeqlf   LAPACKE_NAME(sgeqlf,SGEQLF)+#define LAPACKE_dgeqlf   LAPACKE_NAME(dgeqlf,DGEQLF)+#define LAPACKE_cgeqlf   LAPACKE_NAME(cgeqlf,CGEQLF)+#define LAPACKE_zgeqlf   LAPACKE_NAME(zgeqlf,ZGEQLF)++#define LAPACKE_sgeqp3   LAPACKE_NAME(sgeqp3,SGEQP3)+#define LAPACKE_dgeqp3   LAPACKE_NAME(dgeqp3,DGEQP3)+#define LAPACKE_cgeqp3   LAPACKE_NAME(cgeqp3,CGEQP3)+#define LAPACKE_zgeqp3   LAPACKE_NAME(zgeqp3,ZGEQP3)++#define LAPACKE_sgeqpf   LAPACKE_NAME(sgeqpf,SGEQPF)+#define LAPACKE_dgeqpf   LAPACKE_NAME(dgeqpf,DGEQPF)+#define LAPACKE_cgeqpf   LAPACKE_NAME(cgeqpf,CGEQPF)+#define LAPACKE_zgeqpf   LAPACKE_NAME(zgeqpf,ZGEQPF)++#define LAPACKE_sgeqr2   LAPACKE_NAME(sgeqr2,SGEQR2)+#define LAPACKE_dgeqr2   LAPACKE_NAME(dgeqr2,DGEQR2)+#define LAPACKE_cgeqr2   LAPACKE_NAME(cgeqr2,CGEQR2)+#define LAPACKE_zgeqr2   LAPACKE_NAME(zgeqr2,ZGEQR2)++#define LAPACKE_sgeqrf   LAPACKE_NAME(sgeqrf,SGEQRF)+#define LAPACKE_dgeqrf   LAPACKE_NAME(dgeqrf,DGEQRF)+#define LAPACKE_cgeqrf   LAPACKE_NAME(cgeqrf,CGEQRF)+#define LAPACKE_zgeqrf   LAPACKE_NAME(zgeqrf,ZGEQRF)++#define LAPACKE_sgeqrfp   LAPACKE_NAME(sgeqrfp,SGEQRFP)+#define LAPACKE_dgeqrfp   LAPACKE_NAME(dgeqrfp,DGEQRFP)+#define LAPACKE_cgeqrfp   LAPACKE_NAME(cgeqrfp,CGEQRFP)+#define LAPACKE_zgeqrfp   LAPACKE_NAME(zgeqrfp,ZGEQRFP)++#define LAPACKE_sgerfs   LAPACKE_NAME(sgerfs,SGERFS)+#define LAPACKE_dgerfs   LAPACKE_NAME(dgerfs,DGERFS)+#define LAPACKE_cgerfs   LAPACKE_NAME(cgerfs,CGERFS)+#define LAPACKE_zgerfs   LAPACKE_NAME(zgerfs,ZGERFS)++#define LAPACKE_sgerfsx   LAPACKE_NAME(sgerfsx,SGERFSX)+#define LAPACKE_dgerfsx   LAPACKE_NAME(dgerfsx,DGERFSX)+#define LAPACKE_cgerfsx   LAPACKE_NAME(cgerfsx,CGERFSX)+#define LAPACKE_zgerfsx   LAPACKE_NAME(zgerfsx,ZGERFSX)++#define LAPACKE_sgerqf   LAPACKE_NAME(sgerqf,SGERQF)+#define LAPACKE_dgerqf   LAPACKE_NAME(dgerqf,DGERQF)+#define LAPACKE_cgerqf   LAPACKE_NAME(cgerqf,CGERQF)+#define LAPACKE_zgerqf   LAPACKE_NAME(zgerqf,ZGERQF)++#define LAPACKE_sgesdd   LAPACKE_NAME(sgesdd,SGESDD)+#define LAPACKE_dgesdd   LAPACKE_NAME(dgesdd,DGESDD)+#define LAPACKE_cgesdd   LAPACKE_NAME(cgesdd,CGESDD)+#define LAPACKE_zgesdd   LAPACKE_NAME(zgesdd,ZGESDD)++#define LAPACKE_sgesv   LAPACKE_NAME(sgesv,SGESV)+#define LAPACKE_dgesv   LAPACKE_NAME(dgesv,DGESV)+#define LAPACKE_cgesv   LAPACKE_NAME(cgesv,CGESV)+#define LAPACKE_zgesv   LAPACKE_NAME(zgesv,ZGESV)+#define LAPACKE_dsgesv   LAPACKE_NAME(dsgesv,DSGESV)+#define LAPACKE_zcgesv   LAPACKE_NAME(zcgesv,ZCGESV)++#define LAPACKE_sgesvd   LAPACKE_NAME(sgesvd,SGESVD)+#define LAPACKE_dgesvd   LAPACKE_NAME(dgesvd,DGESVD)+#define LAPACKE_cgesvd   LAPACKE_NAME(cgesvd,CGESVD)+#define LAPACKE_zgesvd   LAPACKE_NAME(zgesvd,ZGESVD)++#define LAPACKE_sgesvj   LAPACKE_NAME(sgesvj,SGESVJ)+#define LAPACKE_dgesvj   LAPACKE_NAME(dgesvj,DGESVJ)++#define LAPACKE_sgesvx   LAPACKE_NAME(sgesvx,SGESVX)+#define LAPACKE_dgesvx   LAPACKE_NAME(dgesvx,DGESVX)+#define LAPACKE_cgesvx   LAPACKE_NAME(cgesvx,CGESVX)+#define LAPACKE_zgesvx   LAPACKE_NAME(zgesvx,ZGESVX)++#define LAPACKE_sgesvxx   LAPACKE_NAME(sgesvxx,SGESVXX)+#define LAPACKE_dgesvxx   LAPACKE_NAME(dgesvxx,DGESVXX)+#define LAPACKE_cgesvxx   LAPACKE_NAME(cgesvxx,CGESVXX)+#define LAPACKE_zgesvxx   LAPACKE_NAME(zgesvxx,ZGESVXX)++#define LAPACKE_sgetf2   LAPACKE_NAME(sgetf2,SGETF2)+#define LAPACKE_dgetf2   LAPACKE_NAME(dgetf2,DGETF2)+#define LAPACKE_cgetf2   LAPACKE_NAME(cgetf2,CGETF2)+#define LAPACKE_zgetf2   LAPACKE_NAME(zgetf2,ZGETF2)++#define LAPACKE_sgetrf   LAPACKE_NAME(sgetrf,SGETRF)+#define LAPACKE_dgetrf   LAPACKE_NAME(dgetrf,DGETRF)+#define LAPACKE_cgetrf   LAPACKE_NAME(cgetrf,CGETRF)+#define LAPACKE_zgetrf   LAPACKE_NAME(zgetrf,ZGETRF)++#define LAPACKE_sgetri   LAPACKE_NAME(sgetri,SGETRI)+#define LAPACKE_dgetri   LAPACKE_NAME(dgetri,DGETRI)+#define LAPACKE_cgetri   LAPACKE_NAME(cgetri,CGETRI)+#define LAPACKE_zgetri   LAPACKE_NAME(zgetri,ZGETRI)++#define LAPACKE_sgetrs   LAPACKE_NAME(sgetrs,SGETRS)+#define LAPACKE_dgetrs   LAPACKE_NAME(dgetrs,DGETRS)+#define LAPACKE_cgetrs   LAPACKE_NAME(cgetrs,CGETRS)+#define LAPACKE_zgetrs   LAPACKE_NAME(zgetrs,ZGETRS)++#define LAPACKE_sggbak   LAPACKE_NAME(sggbak,SGGBAK)+#define LAPACKE_dggbak   LAPACKE_NAME(dggbak,DGGBAK)+#define LAPACKE_cggbak   LAPACKE_NAME(cggbak,CGGBAK)+#define LAPACKE_zggbak   LAPACKE_NAME(zggbak,ZGGBAK)++#define LAPACKE_sggbal   LAPACKE_NAME(sggbal,SGGBAL)+#define LAPACKE_dggbal   LAPACKE_NAME(dggbal,DGGBAL)+#define LAPACKE_cggbal   LAPACKE_NAME(cggbal,CGGBAL)+#define LAPACKE_zggbal   LAPACKE_NAME(zggbal,ZGGBAL)++#define LAPACKE_sgges   LAPACKE_NAME(sgges,SGGES)+#define LAPACKE_dgges   LAPACKE_NAME(dgges,DGGES)+#define LAPACKE_cgges   LAPACKE_NAME(cgges,CGGES)+#define LAPACKE_zgges   LAPACKE_NAME(zgges,ZGGES)++#define LAPACKE_sggesx   LAPACKE_NAME(sggesx,SGGESX)+#define LAPACKE_dggesx   LAPACKE_NAME(dggesx,DGGESX)+#define LAPACKE_cggesx   LAPACKE_NAME(cggesx,CGGESX)+#define LAPACKE_zggesx   LAPACKE_NAME(zggesx,ZGGESX)++#define LAPACKE_sggev   LAPACKE_NAME(sggev,SGGEV)+#define LAPACKE_dggev   LAPACKE_NAME(dggev,DGGEV)+#define LAPACKE_cggev   LAPACKE_NAME(cggev,CGGEV)+#define LAPACKE_zggev   LAPACKE_NAME(zggev,ZGGEV)++#define LAPACKE_sggevx   LAPACKE_NAME(sggevx,SGGEVX)+#define LAPACKE_dggevx   LAPACKE_NAME(dggevx,DGGEVX)+#define LAPACKE_cggevx   LAPACKE_NAME(cggevx,CGGEVX)+#define LAPACKE_zggevx   LAPACKE_NAME(zggevx,ZGGEVX)++#define LAPACKE_sggglm   LAPACKE_NAME(sggglm,SGGGLM)+#define LAPACKE_dggglm   LAPACKE_NAME(dggglm,DGGGLM)+#define LAPACKE_cggglm   LAPACKE_NAME(cggglm,CGGGLM)+#define LAPACKE_zggglm   LAPACKE_NAME(zggglm,ZGGGLM)++#define LAPACKE_sgghrd   LAPACKE_NAME(sgghrd,SGGHRD)+#define LAPACKE_dgghrd   LAPACKE_NAME(dgghrd,DGGHRD)+#define LAPACKE_cgghrd   LAPACKE_NAME(cgghrd,CGGHRD)+#define LAPACKE_zgghrd   LAPACKE_NAME(zgghrd,ZGGHRD)++#define LAPACKE_sgglse   LAPACKE_NAME(sgglse,SGGLSE)+#define LAPACKE_dgglse   LAPACKE_NAME(dgglse,DGGLSE)+#define LAPACKE_cgglse   LAPACKE_NAME(cgglse,CGGLSE)+#define LAPACKE_zgglse   LAPACKE_NAME(zgglse,ZGGLSE)++#define LAPACKE_sggqrf   LAPACKE_NAME(sggqrf,SGGQRF)+#define LAPACKE_dggqrf   LAPACKE_NAME(dggqrf,DGGQRF)+#define LAPACKE_cggqrf   LAPACKE_NAME(cggqrf,CGGQRF)+#define LAPACKE_zggqrf   LAPACKE_NAME(zggqrf,ZGGQRF)++#define LAPACKE_sggrqf   LAPACKE_NAME(sggrqf,SGGRQF)+#define LAPACKE_dggrqf   LAPACKE_NAME(dggrqf,DGGRQF)+#define LAPACKE_cggrqf   LAPACKE_NAME(cggrqf,CGGRQF)+#define LAPACKE_zggrqf   LAPACKE_NAME(zggrqf,ZGGRQF)++#define LAPACKE_sggsvd   LAPACKE_NAME(sggsvd,SGGSVD)+#define LAPACKE_dggsvd   LAPACKE_NAME(dggsvd,DGGSVD)+#define LAPACKE_cggsvd   LAPACKE_NAME(cggsvd,CGGSVD)+#define LAPACKE_zggsvd   LAPACKE_NAME(zggsvd,ZGGSVD)++#define LAPACKE_sggsvp   LAPACKE_NAME(sggsvp,SGGSVP)+#define LAPACKE_dggsvp   LAPACKE_NAME(dggsvp,DGGSVP)+#define LAPACKE_cggsvp   LAPACKE_NAME(cggsvp,CGGSVP)+#define LAPACKE_zggsvp   LAPACKE_NAME(zggsvp,ZGGSVP)++#define LAPACKE_sgtcon   LAPACKE_NAME(sgtcon,SGTCON)+#define LAPACKE_dgtcon   LAPACKE_NAME(dgtcon,DGTCON)+#define LAPACKE_cgtcon   LAPACKE_NAME(cgtcon,CGTCON)+#define LAPACKE_zgtcon   LAPACKE_NAME(zgtcon,ZGTCON)++#define LAPACKE_sgtrfs   LAPACKE_NAME(sgtrfs,SGTRFS)+#define LAPACKE_dgtrfs   LAPACKE_NAME(dgtrfs,DGTRFS)+#define LAPACKE_cgtrfs   LAPACKE_NAME(cgtrfs,CGTRFS)+#define LAPACKE_zgtrfs   LAPACKE_NAME(zgtrfs,ZGTRFS)++#define LAPACKE_sgtsv   LAPACKE_NAME(sgtsv,SGTSV)+#define LAPACKE_dgtsv   LAPACKE_NAME(dgtsv,DGTSV)+#define LAPACKE_cgtsv   LAPACKE_NAME(cgtsv,CGTSV)+#define LAPACKE_zgtsv   LAPACKE_NAME(zgtsv,ZGTSV)++#define LAPACKE_sgtsvx   LAPACKE_NAME(sgtsvx,SGTSVX)+#define LAPACKE_dgtsvx   LAPACKE_NAME(dgtsvx,DGTSVX)+#define LAPACKE_cgtsvx   LAPACKE_NAME(cgtsvx,CGTSVX)+#define LAPACKE_zgtsvx   LAPACKE_NAME(zgtsvx,ZGTSVX)++#define LAPACKE_sgttrf   LAPACKE_NAME(sgttrf,SGTTRF)+#define LAPACKE_dgttrf   LAPACKE_NAME(dgttrf,DGTTRF)+#define LAPACKE_cgttrf   LAPACKE_NAME(cgttrf,CGTTRF)+#define LAPACKE_zgttrf   LAPACKE_NAME(zgttrf,ZGTTRF)++#define LAPACKE_sgttrs   LAPACKE_NAME(sgttrs,SGTTRS)+#define LAPACKE_dgttrs   LAPACKE_NAME(dgttrs,DGTTRS)+#define LAPACKE_cgttrs   LAPACKE_NAME(cgttrs,CGTTRS)+#define LAPACKE_zgttrs   LAPACKE_NAME(zgttrs,ZGTTRS)++#define LAPACKE_chbev   LAPACKE_NAME(chbev,CHBEV)+#define LAPACKE_zhbev   LAPACKE_NAME(zhbev,ZHBEV)++#define LAPACKE_chbevd   LAPACKE_NAME(chbevd,CHBEVD)+#define LAPACKE_zhbevd   LAPACKE_NAME(zhbevd,ZHBEVD)++#define LAPACKE_chbevx   LAPACKE_NAME(chbevx,CHBEVX)+#define LAPACKE_zhbevx   LAPACKE_NAME(zhbevx,ZHBEVX)++#define LAPACKE_chbgst   LAPACKE_NAME(chbgst,CHBGST)+#define LAPACKE_zhbgst   LAPACKE_NAME(zhbgst,ZHBGST)++#define LAPACKE_chbgv   LAPACKE_NAME(chbgv,CHBGV)+#define LAPACKE_zhbgv   LAPACKE_NAME(zhbgv,ZHBGV)++#define LAPACKE_chbgvd   LAPACKE_NAME(chbgvd,CHBGVD)+#define LAPACKE_zhbgvd   LAPACKE_NAME(zhbgvd,ZHBGVD)++#define LAPACKE_chbgvx   LAPACKE_NAME(chbgvx,CHBGVX)+#define LAPACKE_zhbgvx   LAPACKE_NAME(zhbgvx,ZHBGVX)++#define LAPACKE_chbtrd   LAPACKE_NAME(chbtrd,CHBTRD)+#define LAPACKE_zhbtrd   LAPACKE_NAME(zhbtrd,ZHBTRD)++#define LAPACKE_checon   LAPACKE_NAME(checon,CHECON)+#define LAPACKE_zhecon   LAPACKE_NAME(zhecon,ZHECON)++#define LAPACKE_cheequb   LAPACKE_NAME(cheequb,CHEEQUB)+#define LAPACKE_zheequb   LAPACKE_NAME(zheequb,ZHEEQUB)++#define LAPACKE_cheev   LAPACKE_NAME(cheev,CHEEV)+#define LAPACKE_zheev   LAPACKE_NAME(zheev,ZHEEV)++#define LAPACKE_cheevd   LAPACKE_NAME(cheevd,CHEEVD)+#define LAPACKE_zheevd   LAPACKE_NAME(zheevd,ZHEEVD)++#define LAPACKE_cheevr   LAPACKE_NAME(cheevr,CHEEVR)+#define LAPACKE_zheevr   LAPACKE_NAME(zheevr,ZHEEVR)++#define LAPACKE_cheevx   LAPACKE_NAME(cheevx,CHEEVX)+#define LAPACKE_zheevx   LAPACKE_NAME(zheevx,ZHEEVX)++#define LAPACKE_chegst   LAPACKE_NAME(chegst,CHEGST)+#define LAPACKE_zhegst   LAPACKE_NAME(zhegst,ZHEGST)++#define LAPACKE_chegv   LAPACKE_NAME(chegv,CHEGV)+#define LAPACKE_zhegv   LAPACKE_NAME(zhegv,ZHEGV)++#define LAPACKE_chegvd   LAPACKE_NAME(chegvd,CHEGVD)+#define LAPACKE_zhegvd   LAPACKE_NAME(zhegvd,ZHEGVD)++#define LAPACKE_chegvx   LAPACKE_NAME(chegvx,CHEGVX)+#define LAPACKE_zhegvx   LAPACKE_NAME(zhegvx,ZHEGVX)++#define LAPACKE_cherfs   LAPACKE_NAME(cherfs,CHERFS)+#define LAPACKE_zherfs   LAPACKE_NAME(zherfs,ZHERFS)++#define LAPACKE_cherfsx   LAPACKE_NAME(cherfsx,CHERFSX)+#define LAPACKE_zherfsx   LAPACKE_NAME(zherfsx,ZHERFSX)++#define LAPACKE_chesv   LAPACKE_NAME(chesv,CHESV)+#define LAPACKE_zhesv   LAPACKE_NAME(zhesv,ZHESV)++#define LAPACKE_chesvx   LAPACKE_NAME(chesvx,CHESVX)+#define LAPACKE_zhesvx   LAPACKE_NAME(zhesvx,ZHESVX)++#define LAPACKE_chesvxx   LAPACKE_NAME(chesvxx,CHESVXX)+#define LAPACKE_zhesvxx   LAPACKE_NAME(zhesvxx,ZHESVXX)++#define LAPACKE_chetrd   LAPACKE_NAME(chetrd,CHETRD)+#define LAPACKE_zhetrd   LAPACKE_NAME(zhetrd,ZHETRD)++#define LAPACKE_chetrf   LAPACKE_NAME(chetrf,CHETRF)+#define LAPACKE_zhetrf   LAPACKE_NAME(zhetrf,ZHETRF)++#define LAPACKE_chetri   LAPACKE_NAME(chetri,CHETRI)+#define LAPACKE_zhetri   LAPACKE_NAME(zhetri,ZHETRI)++#define LAPACKE_chetrs   LAPACKE_NAME(chetrs,CHETRS)+#define LAPACKE_zhetrs   LAPACKE_NAME(zhetrs,ZHETRS)++#define LAPACKE_chfrk   LAPACKE_NAME(chfrk,CHFRK)+#define LAPACKE_zhfrk   LAPACKE_NAME(zhfrk,ZHFRK)++#define LAPACKE_shgeqz   LAPACKE_NAME(shgeqz,SHGEQZ)+#define LAPACKE_dhgeqz   LAPACKE_NAME(dhgeqz,DHGEQZ)+#define LAPACKE_chgeqz   LAPACKE_NAME(chgeqz,CHGEQZ)+#define LAPACKE_zhgeqz   LAPACKE_NAME(zhgeqz,ZHGEQZ)++#define LAPACKE_chpcon   LAPACKE_NAME(chpcon,CHPCON)+#define LAPACKE_zhpcon   LAPACKE_NAME(zhpcon,ZHPCON)++#define LAPACKE_chpev   LAPACKE_NAME(chpev,CHPEV)+#define LAPACKE_zhpev   LAPACKE_NAME(zhpev,ZHPEV)++#define LAPACKE_chpevd   LAPACKE_NAME(chpevd,CHPEVD)+#define LAPACKE_zhpevd   LAPACKE_NAME(zhpevd,ZHPEVD)++#define LAPACKE_chpevx   LAPACKE_NAME(chpevx,CHPEVX)+#define LAPACKE_zhpevx   LAPACKE_NAME(zhpevx,ZHPEVX)++#define LAPACKE_chpgst   LAPACKE_NAME(chpgst,CHPGST)+#define LAPACKE_zhpgst   LAPACKE_NAME(zhpgst,ZHPGST)++#define LAPACKE_chpgv   LAPACKE_NAME(chpgv,CHPGV)+#define LAPACKE_zhpgv   LAPACKE_NAME(zhpgv,ZHPGV)++#define LAPACKE_chpgvd   LAPACKE_NAME(chpgvd,CHPGVD)+#define LAPACKE_zhpgvd   LAPACKE_NAME(zhpgvd,ZHPGVD)++#define LAPACKE_chpgvx   LAPACKE_NAME(chpgvx,CHPGVX)+#define LAPACKE_zhpgvx   LAPACKE_NAME(zhpgvx,ZHPGVX)++#define LAPACKE_chprfs   LAPACKE_NAME(chprfs,CHPRFS)+#define LAPACKE_zhprfs   LAPACKE_NAME(zhprfs,ZHPRFS)++#define LAPACKE_chpsv   LAPACKE_NAME(chpsv,CHPSV)+#define LAPACKE_zhpsv   LAPACKE_NAME(zhpsv,ZHPSV)++#define LAPACKE_chpsvx   LAPACKE_NAME(chpsvx,CHPSVX)+#define LAPACKE_zhpsvx   LAPACKE_NAME(zhpsvx,ZHPSVX)++#define LAPACKE_chptrd   LAPACKE_NAME(chptrd,CHPTRD)+#define LAPACKE_zhptrd   LAPACKE_NAME(zhptrd,ZHPTRD)++#define LAPACKE_chptrf   LAPACKE_NAME(chptrf,CHPTRF)+#define LAPACKE_zhptrf   LAPACKE_NAME(zhptrf,ZHPTRF)++#define LAPACKE_chptri   LAPACKE_NAME(chptri,CHPTRI)+#define LAPACKE_zhptri   LAPACKE_NAME(zhptri,ZHPTRI)++#define LAPACKE_chptrs   LAPACKE_NAME(chptrs,CHPTRS)+#define LAPACKE_zhptrs   LAPACKE_NAME(zhptrs,ZHPTRS)++#define LAPACKE_shsein   LAPACKE_NAME(shsein,SHSEIN)+#define LAPACKE_dhsein   LAPACKE_NAME(dhsein,DHSEIN)+#define LAPACKE_chsein   LAPACKE_NAME(chsein,CHSEIN)+#define LAPACKE_zhsein   LAPACKE_NAME(zhsein,ZHSEIN)++#define LAPACKE_shseqr   LAPACKE_NAME(shseqr,SHSEQR)+#define LAPACKE_dhseqr   LAPACKE_NAME(dhseqr,DHSEQR)+#define LAPACKE_chseqr   LAPACKE_NAME(chseqr,CHSEQR)+#define LAPACKE_zhseqr   LAPACKE_NAME(zhseqr,ZHSEQR)++#define LAPACKE_clacgv   LAPACKE_NAME(clacgv,CLACGV)+#define LAPACKE_zlacgv   LAPACKE_NAME(zlacgv,ZLACGV)++#define LAPACKE_slacpy   LAPACKE_NAME(slacpy,SLACPY)+#define LAPACKE_dlacpy   LAPACKE_NAME(dlacpy,DLACPY)+#define LAPACKE_clacpy   LAPACKE_NAME(clacpy,CLACPY)+#define LAPACKE_zlacpy   LAPACKE_NAME(zlacpy,ZLACPY)++#define LAPACKE_zlag2c   LAPACKE_NAME(zlag2c,ZLAG2C)++#define LAPACKE_slag2d   LAPACKE_NAME(slag2d,SLAG2D)++#define LAPACKE_dlag2s   LAPACKE_NAME(dlag2s,DLAG2S)++#define LAPACKE_clag2z   LAPACKE_NAME(clag2z,CLAG2Z)++#define LAPACKE_slagge   LAPACKE_NAME(slagge,SLAGGE)+#define LAPACKE_dlagge   LAPACKE_NAME(dlagge,DLAGGE)+#define LAPACKE_clagge   LAPACKE_NAME(clagge,CLAGGE)+#define LAPACKE_zlagge   LAPACKE_NAME(zlagge,ZLAGGE)++#define LAPACKE_slamch   LAPACKE_NAME(slamch,SLAMCH)+#define LAPACKE_dlamch   LAPACKE_NAME(dlamch,DLAMCH)++#define LAPACKE_slange   LAPACKE_NAME(slange,SLANGE)+#define LAPACKE_dlange   LAPACKE_NAME(dlange,DLANGE)+#define LAPACKE_clange   LAPACKE_NAME(clange,CLANGE)+#define LAPACKE_zlange   LAPACKE_NAME(zlange,ZLANGE)++#define LAPACKE_clanhe   LAPACKE_NAME(clanhe,CLANHE)+#define LAPACKE_zlanhe   LAPACKE_NAME(zlanhe,ZLANHE)++#define LAPACKE_slansy   LAPACKE_NAME(slansy,SLANSY)+#define LAPACKE_dlansy   LAPACKE_NAME(dlansy,DLANSY)+#define LAPACKE_clansy   LAPACKE_NAME(clansy,CLANSY)+#define LAPACKE_zlansy   LAPACKE_NAME(zlansy,ZLANSY)++#define LAPACKE_slantr   LAPACKE_NAME(slantr,SLANTR)+#define LAPACKE_dlantr   LAPACKE_NAME(dlantr,DLANTR)+#define LAPACKE_clantr   LAPACKE_NAME(clantr,CLANTR)+#define LAPACKE_zlantr   LAPACKE_NAME(zlantr,ZLANTR)++#define LAPACKE_slarfb   LAPACKE_NAME(slarfb,SLARFB)+#define LAPACKE_dlarfb   LAPACKE_NAME(dlarfb,DLARFB)+#define LAPACKE_clarfb   LAPACKE_NAME(clarfb,CLARFB)+#define LAPACKE_zlarfb   LAPACKE_NAME(zlarfb,ZLARFB)++#define LAPACKE_slarfg   LAPACKE_NAME(slarfg,SLARFG)+#define LAPACKE_dlarfg   LAPACKE_NAME(dlarfg,DLARFG)+#define LAPACKE_clarfg   LAPACKE_NAME(clarfg,CLARFG)+#define LAPACKE_zlarfg   LAPACKE_NAME(zlarfg,ZLARFG)++#define LAPACKE_slarft   LAPACKE_NAME(slarft,SLARFT)+#define LAPACKE_dlarft   LAPACKE_NAME(dlarft,DLARFT)+#define LAPACKE_clarft   LAPACKE_NAME(clarft,CLARFT)+#define LAPACKE_zlarft   LAPACKE_NAME(zlarft,ZLARFT)++#define LAPACKE_slarfx   LAPACKE_NAME(slarfx,SLARFX)+#define LAPACKE_dlarfx   LAPACKE_NAME(dlarfx,DLARFX)+#define LAPACKE_clarfx   LAPACKE_NAME(clarfx,CLARFX)+#define LAPACKE_zlarfx   LAPACKE_NAME(zlarfx,ZLARFX)++#define LAPACKE_slarnv   LAPACKE_NAME(slarnv,SLARNV)+#define LAPACKE_dlarnv   LAPACKE_NAME(dlarnv,DLARNV)+#define LAPACKE_clarnv   LAPACKE_NAME(clarnv,CLARNV)+#define LAPACKE_zlarnv   LAPACKE_NAME(zlarnv,ZLARNV)++#define LAPACKE_slaset   LAPACKE_NAME(slaset,SLASET)+#define LAPACKE_dlaset   LAPACKE_NAME(dlaset,DLASET)+#define LAPACKE_claset   LAPACKE_NAME(claset,CLASET)+#define LAPACKE_zlaset   LAPACKE_NAME(zlaset,ZLASET)++#define LAPACKE_slasrt   LAPACKE_NAME(slasrt,SLASRT)+#define LAPACKE_dlasrt   LAPACKE_NAME(dlasrt,DLASRT)++#define LAPACKE_slaswp   LAPACKE_NAME(slaswp,SLASWP)+#define LAPACKE_dlaswp   LAPACKE_NAME(dlaswp,DLASWP)+#define LAPACKE_claswp   LAPACKE_NAME(claswp,CLASWP)+#define LAPACKE_zlaswp   LAPACKE_NAME(zlaswp,ZLASWP)++#define LAPACKE_slatms   LAPACKE_NAME(slatms,SLATMS)+#define LAPACKE_dlatms   LAPACKE_NAME(dlatms,DLATMS)+#define LAPACKE_clatms   LAPACKE_NAME(clatms,CLATMS)+#define LAPACKE_zlatms   LAPACKE_NAME(zlatms,ZLATMS)++#define LAPACKE_slauum   LAPACKE_NAME(slauum,SLAUUM)+#define LAPACKE_dlauum   LAPACKE_NAME(dlauum,DLAUUM)+#define LAPACKE_clauum   LAPACKE_NAME(clauum,CLAUUM)+#define LAPACKE_zlauum   LAPACKE_NAME(zlauum,ZLAUUM)++#define LAPACKE_sopgtr   LAPACKE_NAME(sopgtr,SOPGTR)+#define LAPACKE_dopgtr   LAPACKE_NAME(dopgtr,DOPGTR)++#define LAPACKE_sopmtr   LAPACKE_NAME(sopmtr,SOPMTR)+#define LAPACKE_dopmtr   LAPACKE_NAME(dopmtr,DOPMTR)++#define LAPACKE_sorgbr   LAPACKE_NAME(sorgbr,SORGBR)+#define LAPACKE_dorgbr   LAPACKE_NAME(dorgbr,DORGBR)++#define LAPACKE_sorghr   LAPACKE_NAME(sorghr,SORGHR)+#define LAPACKE_dorghr   LAPACKE_NAME(dorghr,DORGHR)++#define LAPACKE_sorglq   LAPACKE_NAME(sorglq,SORGLQ)+#define LAPACKE_dorglq   LAPACKE_NAME(dorglq,DORGLQ)++#define LAPACKE_sorgql   LAPACKE_NAME(sorgql,SORGQL)+#define LAPACKE_dorgql   LAPACKE_NAME(dorgql,DORGQL)++#define LAPACKE_sorgqr   LAPACKE_NAME(sorgqr,SORGQR)+#define LAPACKE_dorgqr   LAPACKE_NAME(dorgqr,DORGQR)++#define LAPACKE_sorgrq   LAPACKE_NAME(sorgrq,SORGRQ)+#define LAPACKE_dorgrq   LAPACKE_NAME(dorgrq,DORGRQ)++#define LAPACKE_sorgtr   LAPACKE_NAME(sorgtr,SORGTR)+#define LAPACKE_dorgtr   LAPACKE_NAME(dorgtr,DORGTR)++#define LAPACKE_sormbr   LAPACKE_NAME(sormbr,SORMBR)+#define LAPACKE_dormbr   LAPACKE_NAME(dormbr,DORMBR)++#define LAPACKE_sormhr   LAPACKE_NAME(sormhr,SORMHR)+#define LAPACKE_dormhr   LAPACKE_NAME(dormhr,DORMHR)++#define LAPACKE_sormlq   LAPACKE_NAME(sormlq,SORMLQ)+#define LAPACKE_dormlq   LAPACKE_NAME(dormlq,DORMLQ)++#define LAPACKE_sormql   LAPACKE_NAME(sormql,SORMQL)+#define LAPACKE_dormql   LAPACKE_NAME(dormql,DORMQL)++#define LAPACKE_sormqr   LAPACKE_NAME(sormqr,SORMQR)+#define LAPACKE_dormqr   LAPACKE_NAME(dormqr,DORMQR)++#define LAPACKE_sormrq   LAPACKE_NAME(sormrq,SORMRQ)+#define LAPACKE_dormrq   LAPACKE_NAME(dormrq,DORMRQ)++#define LAPACKE_sormrz   LAPACKE_NAME(sormrz,SORMRZ)+#define LAPACKE_dormrz   LAPACKE_NAME(dormrz,DORMRZ)++#define LAPACKE_sormtr   LAPACKE_NAME(sormtr,SORMTR)+#define LAPACKE_dormtr   LAPACKE_NAME(dormtr,DORMTR)++#define LAPACKE_spbcon   LAPACKE_NAME(spbcon,SPBCON)+#define LAPACKE_dpbcon   LAPACKE_NAME(dpbcon,DPBCON)+#define LAPACKE_cpbcon   LAPACKE_NAME(cpbcon,CPBCON)+#define LAPACKE_zpbcon   LAPACKE_NAME(zpbcon,ZPBCON)++#define LAPACKE_spbequ   LAPACKE_NAME(spbequ,SPBEQU)+#define LAPACKE_dpbequ   LAPACKE_NAME(dpbequ,DPBEQU)+#define LAPACKE_cpbequ   LAPACKE_NAME(cpbequ,CPBEQU)+#define LAPACKE_zpbequ   LAPACKE_NAME(zpbequ,ZPBEQU)++#define LAPACKE_spbrfs   LAPACKE_NAME(spbrfs,SPBRFS)+#define LAPACKE_dpbrfs   LAPACKE_NAME(dpbrfs,DPBRFS)+#define LAPACKE_cpbrfs   LAPACKE_NAME(cpbrfs,CPBRFS)+#define LAPACKE_zpbrfs   LAPACKE_NAME(zpbrfs,ZPBRFS)++#define LAPACKE_spbstf   LAPACKE_NAME(spbstf,SPBSTF)+#define LAPACKE_dpbstf   LAPACKE_NAME(dpbstf,DPBSTF)+#define LAPACKE_cpbstf   LAPACKE_NAME(cpbstf,CPBSTF)+#define LAPACKE_zpbstf   LAPACKE_NAME(zpbstf,ZPBSTF)++#define LAPACKE_spbsv   LAPACKE_NAME(spbsv,SPBSV)+#define LAPACKE_dpbsv   LAPACKE_NAME(dpbsv,DPBSV)+#define LAPACKE_cpbsv   LAPACKE_NAME(cpbsv,CPBSV)+#define LAPACKE_zpbsv   LAPACKE_NAME(zpbsv,ZPBSV)++#define LAPACKE_spbsvx   LAPACKE_NAME(spbsvx,SPBSVX)+#define LAPACKE_dpbsvx   LAPACKE_NAME(dpbsvx,DPBSVX)+#define LAPACKE_cpbsvx   LAPACKE_NAME(cpbsvx,CPBSVX)+#define LAPACKE_zpbsvx   LAPACKE_NAME(zpbsvx,ZPBSVX)++#define LAPACKE_spbtrf   LAPACKE_NAME(spbtrf,SPBTRF)+#define LAPACKE_dpbtrf   LAPACKE_NAME(dpbtrf,DPBTRF)+#define LAPACKE_cpbtrf   LAPACKE_NAME(cpbtrf,CPBTRF)+#define LAPACKE_zpbtrf   LAPACKE_NAME(zpbtrf,ZPBTRF)++#define LAPACKE_spbtrs   LAPACKE_NAME(spbtrs,SPBTRS)+#define LAPACKE_dpbtrs   LAPACKE_NAME(dpbtrs,DPBTRS)+#define LAPACKE_cpbtrs   LAPACKE_NAME(cpbtrs,CPBTRS)+#define LAPACKE_zpbtrs   LAPACKE_NAME(zpbtrs,ZPBTRS)++#define LAPACKE_spftrf   LAPACKE_NAME(spftrf,SPFTRF)+#define LAPACKE_dpftrf   LAPACKE_NAME(dpftrf,DPFTRF)+#define LAPACKE_cpftrf   LAPACKE_NAME(cpftrf,CPFTRF)+#define LAPACKE_zpftrf   LAPACKE_NAME(zpftrf,ZPFTRF)++#define LAPACKE_spftri   LAPACKE_NAME(spftri,SPFTRI)+#define LAPACKE_dpftri   LAPACKE_NAME(dpftri,DPFTRI)+#define LAPACKE_cpftri   LAPACKE_NAME(cpftri,CPFTRI)+#define LAPACKE_zpftri   LAPACKE_NAME(zpftri,ZPFTRI)++#define LAPACKE_spftrs   LAPACKE_NAME(spftrs,SPFTRS)+#define LAPACKE_dpftrs   LAPACKE_NAME(dpftrs,DPFTRS)+#define LAPACKE_cpftrs   LAPACKE_NAME(cpftrs,CPFTRS)+#define LAPACKE_zpftrs   LAPACKE_NAME(zpftrs,ZPFTRS)++#define LAPACKE_spocon   LAPACKE_NAME(spocon,SPOCON)+#define LAPACKE_dpocon   LAPACKE_NAME(dpocon,DPOCON)+#define LAPACKE_cpocon   LAPACKE_NAME(cpocon,CPOCON)+#define LAPACKE_zpocon   LAPACKE_NAME(zpocon,ZPOCON)++#define LAPACKE_spoequ   LAPACKE_NAME(spoequ,SPOEQU)+#define LAPACKE_dpoequ   LAPACKE_NAME(dpoequ,DPOEQU)+#define LAPACKE_cpoequ   LAPACKE_NAME(cpoequ,CPOEQU)+#define LAPACKE_zpoequ   LAPACKE_NAME(zpoequ,ZPOEQU)++#define LAPACKE_spoequb   LAPACKE_NAME(spoequb,SPOEQUB)+#define LAPACKE_dpoequb   LAPACKE_NAME(dpoequb,DPOEQUB)+#define LAPACKE_cpoequb   LAPACKE_NAME(cpoequb,CPOEQUB)+#define LAPACKE_zpoequb   LAPACKE_NAME(zpoequb,ZPOEQUB)++#define LAPACKE_sporfs   LAPACKE_NAME(sporfs,SPORFS)+#define LAPACKE_dporfs   LAPACKE_NAME(dporfs,DPORFS)+#define LAPACKE_cporfs   LAPACKE_NAME(cporfs,CPORFS)+#define LAPACKE_zporfs   LAPACKE_NAME(zporfs,ZPORFS)++#define LAPACKE_sporfsx   LAPACKE_NAME(sporfsx,SPORFSX)+#define LAPACKE_dporfsx   LAPACKE_NAME(dporfsx,DPORFSX)+#define LAPACKE_cporfsx   LAPACKE_NAME(cporfsx,CPORFSX)+#define LAPACKE_zporfsx   LAPACKE_NAME(zporfsx,ZPORFSX)++#define LAPACKE_sposv   LAPACKE_NAME(sposv,SPOSV)+#define LAPACKE_dposv   LAPACKE_NAME(dposv,DPOSV)+#define LAPACKE_cposv   LAPACKE_NAME(cposv,CPOSV)+#define LAPACKE_zposv   LAPACKE_NAME(zposv,ZPOSV)+#define LAPACKE_dsposv   LAPACKE_NAME(dsposv,DSPOSV)+#define LAPACKE_zcposv   LAPACKE_NAME(zcposv,ZCPOSV)++#define LAPACKE_sposvx   LAPACKE_NAME(sposvx,SPOSVX)+#define LAPACKE_dposvx   LAPACKE_NAME(dposvx,DPOSVX)+#define LAPACKE_cposvx   LAPACKE_NAME(cposvx,CPOSVX)+#define LAPACKE_zposvx   LAPACKE_NAME(zposvx,ZPOSVX)++#define LAPACKE_sposvxx   LAPACKE_NAME(sposvxx,SPOSVXX)+#define LAPACKE_dposvxx   LAPACKE_NAME(dposvxx,DPOSVXX)+#define LAPACKE_cposvxx   LAPACKE_NAME(cposvxx,CPOSVXX)+#define LAPACKE_zposvxx   LAPACKE_NAME(zposvxx,ZPOSVXX)++#define LAPACKE_spotrf   LAPACKE_NAME(spotrf,SPOTRF)+#define LAPACKE_dpotrf   LAPACKE_NAME(dpotrf,DPOTRF)+#define LAPACKE_cpotrf   LAPACKE_NAME(cpotrf,CPOTRF)+#define LAPACKE_zpotrf   LAPACKE_NAME(zpotrf,ZPOTRF)++#define LAPACKE_spotri   LAPACKE_NAME(spotri,SPOTRI)+#define LAPACKE_dpotri   LAPACKE_NAME(dpotri,DPOTRI)+#define LAPACKE_cpotri   LAPACKE_NAME(cpotri,CPOTRI)+#define LAPACKE_zpotri   LAPACKE_NAME(zpotri,ZPOTRI)++#define LAPACKE_spotrs   LAPACKE_NAME(spotrs,SPOTRS)+#define LAPACKE_dpotrs   LAPACKE_NAME(dpotrs,DPOTRS)+#define LAPACKE_cpotrs   LAPACKE_NAME(cpotrs,CPOTRS)+#define LAPACKE_zpotrs   LAPACKE_NAME(zpotrs,ZPOTRS)++#define LAPACKE_sppcon   LAPACKE_NAME(sppcon,SPPCON)+#define LAPACKE_dppcon   LAPACKE_NAME(dppcon,DPPCON)+#define LAPACKE_cppcon   LAPACKE_NAME(cppcon,CPPCON)+#define LAPACKE_zppcon   LAPACKE_NAME(zppcon,ZPPCON)++#define LAPACKE_sppequ   LAPACKE_NAME(sppequ,SPPEQU)+#define LAPACKE_dppequ   LAPACKE_NAME(dppequ,DPPEQU)+#define LAPACKE_cppequ   LAPACKE_NAME(cppequ,CPPEQU)+#define LAPACKE_zppequ   LAPACKE_NAME(zppequ,ZPPEQU)++#define LAPACKE_spprfs   LAPACKE_NAME(spprfs,SPPRFS)+#define LAPACKE_dpprfs   LAPACKE_NAME(dpprfs,DPPRFS)+#define LAPACKE_cpprfs   LAPACKE_NAME(cpprfs,CPPRFS)+#define LAPACKE_zpprfs   LAPACKE_NAME(zpprfs,ZPPRFS)++#define LAPACKE_sppsv   LAPACKE_NAME(sppsv,SPPSV)+#define LAPACKE_dppsv   LAPACKE_NAME(dppsv,DPPSV)+#define LAPACKE_cppsv   LAPACKE_NAME(cppsv,CPPSV)+#define LAPACKE_zppsv   LAPACKE_NAME(zppsv,ZPPSV)++#define LAPACKE_sppsvx   LAPACKE_NAME(sppsvx,SPPSVX)+#define LAPACKE_dppsvx   LAPACKE_NAME(dppsvx,DPPSVX)+#define LAPACKE_cppsvx   LAPACKE_NAME(cppsvx,CPPSVX)+#define LAPACKE_zppsvx   LAPACKE_NAME(zppsvx,ZPPSVX)++#define LAPACKE_spptrf   LAPACKE_NAME(spptrf,SPPTRF)+#define LAPACKE_dpptrf   LAPACKE_NAME(dpptrf,DPPTRF)+#define LAPACKE_cpptrf   LAPACKE_NAME(cpptrf,CPPTRF)+#define LAPACKE_zpptrf   LAPACKE_NAME(zpptrf,ZPPTRF)++#define LAPACKE_spptri   LAPACKE_NAME(spptri,SPPTRI)+#define LAPACKE_dpptri   LAPACKE_NAME(dpptri,DPPTRI)+#define LAPACKE_cpptri   LAPACKE_NAME(cpptri,CPPTRI)+#define LAPACKE_zpptri   LAPACKE_NAME(zpptri,ZPPTRI)++#define LAPACKE_spptrs   LAPACKE_NAME(spptrs,SPPTRS)+#define LAPACKE_dpptrs   LAPACKE_NAME(dpptrs,DPPTRS)+#define LAPACKE_cpptrs   LAPACKE_NAME(cpptrs,CPPTRS)+#define LAPACKE_zpptrs   LAPACKE_NAME(zpptrs,ZPPTRS)++#define LAPACKE_spstrf   LAPACKE_NAME(spstrf,SPSTRF)+#define LAPACKE_dpstrf   LAPACKE_NAME(dpstrf,DPSTRF)+#define LAPACKE_cpstrf   LAPACKE_NAME(cpstrf,CPSTRF)+#define LAPACKE_zpstrf   LAPACKE_NAME(zpstrf,ZPSTRF)++#define LAPACKE_sptcon   LAPACKE_NAME(sptcon,SPTCON)+#define LAPACKE_dptcon   LAPACKE_NAME(dptcon,DPTCON)+#define LAPACKE_cptcon   LAPACKE_NAME(cptcon,CPTCON)+#define LAPACKE_zptcon   LAPACKE_NAME(zptcon,ZPTCON)++#define LAPACKE_spteqr   LAPACKE_NAME(spteqr,SPTEQR)+#define LAPACKE_dpteqr   LAPACKE_NAME(dpteqr,DPTEQR)+#define LAPACKE_cpteqr   LAPACKE_NAME(cpteqr,CPTEQR)+#define LAPACKE_zpteqr   LAPACKE_NAME(zpteqr,ZPTEQR)++#define LAPACKE_sptrfs   LAPACKE_NAME(sptrfs,SPTRFS)+#define LAPACKE_dptrfs   LAPACKE_NAME(dptrfs,DPTRFS)+#define LAPACKE_cptrfs   LAPACKE_NAME(cptrfs,CPTRFS)+#define LAPACKE_zptrfs   LAPACKE_NAME(zptrfs,ZPTRFS)++#define LAPACKE_sptsv   LAPACKE_NAME(sptsv,SPTSV)+#define LAPACKE_dptsv   LAPACKE_NAME(dptsv,DPTSV)+#define LAPACKE_cptsv   LAPACKE_NAME(cptsv,CPTSV)+#define LAPACKE_zptsv   LAPACKE_NAME(zptsv,ZPTSV)++#define LAPACKE_sptsvx   LAPACKE_NAME(sptsvx,SPTSVX)+#define LAPACKE_dptsvx   LAPACKE_NAME(dptsvx,DPTSVX)+#define LAPACKE_cptsvx   LAPACKE_NAME(cptsvx,CPTSVX)+#define LAPACKE_zptsvx   LAPACKE_NAME(zptsvx,ZPTSVX)++#define LAPACKE_spttrf   LAPACKE_NAME(spttrf,SPTTRF)+#define LAPACKE_dpttrf   LAPACKE_NAME(dpttrf,DPTTRF)+#define LAPACKE_cpttrf   LAPACKE_NAME(cpttrf,CPTTRF)+#define LAPACKE_zpttrf   LAPACKE_NAME(zpttrf,ZPTTRF)++#define LAPACKE_spttrs   LAPACKE_NAME(spttrs,SPTTRS)+#define LAPACKE_dpttrs   LAPACKE_NAME(dpttrs,DPTTRS)+#define LAPACKE_cpttrs   LAPACKE_NAME(cpttrs,CPTTRS)+#define LAPACKE_zpttrs   LAPACKE_NAME(zpttrs,ZPTTRS)++#define LAPACKE_ssbev   LAPACKE_NAME(ssbev,SSBEV)+#define LAPACKE_dsbev   LAPACKE_NAME(dsbev,DSBEV)++#define LAPACKE_ssbevd   LAPACKE_NAME(ssbevd,SSBEVD)+#define LAPACKE_dsbevd   LAPACKE_NAME(dsbevd,DSBEVD)++#define LAPACKE_ssbevx   LAPACKE_NAME(ssbevx,SSBEVX)+#define LAPACKE_dsbevx   LAPACKE_NAME(dsbevx,DSBEVX)++#define LAPACKE_ssbgst   LAPACKE_NAME(ssbgst,SSBGST)+#define LAPACKE_dsbgst   LAPACKE_NAME(dsbgst,DSBGST)++#define LAPACKE_ssbgv   LAPACKE_NAME(ssbgv,SSBGV)+#define LAPACKE_dsbgv   LAPACKE_NAME(dsbgv,DSBGV)++#define LAPACKE_ssbgvd   LAPACKE_NAME(ssbgvd,SSBGVD)+#define LAPACKE_dsbgvd   LAPACKE_NAME(dsbgvd,DSBGVD)++#define LAPACKE_ssbgvx   LAPACKE_NAME(ssbgvx,SSBGVX)+#define LAPACKE_dsbgvx   LAPACKE_NAME(dsbgvx,DSBGVX)++#define LAPACKE_ssbtrd   LAPACKE_NAME(ssbtrd,SSBTRD)+#define LAPACKE_dsbtrd   LAPACKE_NAME(dsbtrd,DSBTRD)++#define LAPACKE_ssfrk   LAPACKE_NAME(ssfrk,SSFRK)+#define LAPACKE_dsfrk   LAPACKE_NAME(dsfrk,DSFRK)++#define LAPACKE_sspcon   LAPACKE_NAME(sspcon,SSPCON)+#define LAPACKE_dspcon   LAPACKE_NAME(dspcon,DSPCON)+#define LAPACKE_cspcon   LAPACKE_NAME(cspcon,CSPCON)+#define LAPACKE_zspcon   LAPACKE_NAME(zspcon,ZSPCON)++#define LAPACKE_sspev   LAPACKE_NAME(sspev,SSPEV)+#define LAPACKE_dspev   LAPACKE_NAME(dspev,DSPEV)++#define LAPACKE_sspevd   LAPACKE_NAME(sspevd,SSPEVD)+#define LAPACKE_dspevd   LAPACKE_NAME(dspevd,DSPEVD)++#define LAPACKE_sspevx   LAPACKE_NAME(sspevx,SSPEVX)+#define LAPACKE_dspevx   LAPACKE_NAME(dspevx,DSPEVX)++#define LAPACKE_sspgst   LAPACKE_NAME(sspgst,SSPGST)+#define LAPACKE_dspgst   LAPACKE_NAME(dspgst,DSPGST)++#define LAPACKE_sspgv   LAPACKE_NAME(sspgv,SSPGV)+#define LAPACKE_dspgv   LAPACKE_NAME(dspgv,DSPGV)++#define LAPACKE_sspgvd   LAPACKE_NAME(sspgvd,SSPGVD)+#define LAPACKE_dspgvd   LAPACKE_NAME(dspgvd,DSPGVD)++#define LAPACKE_sspgvx   LAPACKE_NAME(sspgvx,SSPGVX)+#define LAPACKE_dspgvx   LAPACKE_NAME(dspgvx,DSPGVX)++#define LAPACKE_ssprfs   LAPACKE_NAME(ssprfs,SSPRFS)+#define LAPACKE_dsprfs   LAPACKE_NAME(dsprfs,DSPRFS)+#define LAPACKE_csprfs   LAPACKE_NAME(csprfs,CSPRFS)+#define LAPACKE_zsprfs   LAPACKE_NAME(zsprfs,ZSPRFS)++#define LAPACKE_sspsv   LAPACKE_NAME(sspsv,SSPSV)+#define LAPACKE_dspsv   LAPACKE_NAME(dspsv,DSPSV)+#define LAPACKE_cspsv   LAPACKE_NAME(cspsv,CSPSV)+#define LAPACKE_zspsv   LAPACKE_NAME(zspsv,ZSPSV)++#define LAPACKE_sspsvx   LAPACKE_NAME(sspsvx,SSPSVX)+#define LAPACKE_dspsvx   LAPACKE_NAME(dspsvx,DSPSVX)+#define LAPACKE_cspsvx   LAPACKE_NAME(cspsvx,CSPSVX)+#define LAPACKE_zspsvx   LAPACKE_NAME(zspsvx,ZSPSVX)++#define LAPACKE_ssptrd   LAPACKE_NAME(ssptrd,SSPTRD)+#define LAPACKE_dsptrd   LAPACKE_NAME(dsptrd,DSPTRD)++#define LAPACKE_ssptrf   LAPACKE_NAME(ssptrf,SSPTRF)+#define LAPACKE_dsptrf   LAPACKE_NAME(dsptrf,DSPTRF)+#define LAPACKE_csptrf   LAPACKE_NAME(csptrf,CSPTRF)+#define LAPACKE_zsptrf   LAPACKE_NAME(zsptrf,ZSPTRF)++#define LAPACKE_ssptri   LAPACKE_NAME(ssptri,SSPTRI)+#define LAPACKE_dsptri   LAPACKE_NAME(dsptri,DSPTRI)+#define LAPACKE_csptri   LAPACKE_NAME(csptri,CSPTRI)+#define LAPACKE_zsptri   LAPACKE_NAME(zsptri,ZSPTRI)++#define LAPACKE_ssptrs   LAPACKE_NAME(ssptrs,SSPTRS)+#define LAPACKE_dsptrs   LAPACKE_NAME(dsptrs,DSPTRS)+#define LAPACKE_csptrs   LAPACKE_NAME(csptrs,CSPTRS)+#define LAPACKE_zsptrs   LAPACKE_NAME(zsptrs,ZSPTRS)++#define LAPACKE_sstebz   LAPACKE_NAME(sstebz,SSTEBZ)+#define LAPACKE_dstebz   LAPACKE_NAME(dstebz,DSTEBZ)++#define LAPACKE_sstedc   LAPACKE_NAME(sstedc,SSTEDC)+#define LAPACKE_dstedc   LAPACKE_NAME(dstedc,DSTEDC)+#define LAPACKE_cstedc   LAPACKE_NAME(cstedc,CSTEDC)+#define LAPACKE_zstedc   LAPACKE_NAME(zstedc,ZSTEDC)++#define LAPACKE_sstegr   LAPACKE_NAME(sstegr,SSTEGR)+#define LAPACKE_dstegr   LAPACKE_NAME(dstegr,DSTEGR)+#define LAPACKE_cstegr   LAPACKE_NAME(cstegr,CSTEGR)+#define LAPACKE_zstegr   LAPACKE_NAME(zstegr,ZSTEGR)++#define LAPACKE_sstein   LAPACKE_NAME(sstein,SSTEIN)+#define LAPACKE_dstein   LAPACKE_NAME(dstein,DSTEIN)+#define LAPACKE_cstein   LAPACKE_NAME(cstein,CSTEIN)+#define LAPACKE_zstein   LAPACKE_NAME(zstein,ZSTEIN)++#define LAPACKE_sstemr   LAPACKE_NAME(sstemr,SSTEMR)+#define LAPACKE_dstemr   LAPACKE_NAME(dstemr,DSTEMR)+#define LAPACKE_cstemr   LAPACKE_NAME(cstemr,CSTEMR)+#define LAPACKE_zstemr   LAPACKE_NAME(zstemr,ZSTEMR)++#define LAPACKE_ssteqr   LAPACKE_NAME(ssteqr,SSTEQR)+#define LAPACKE_dsteqr   LAPACKE_NAME(dsteqr,DSTEQR)+#define LAPACKE_csteqr   LAPACKE_NAME(csteqr,CSTEQR)+#define LAPACKE_zsteqr   LAPACKE_NAME(zsteqr,ZSTEQR)++#define LAPACKE_ssterf   LAPACKE_NAME(ssterf,SSTERF)+#define LAPACKE_dsterf   LAPACKE_NAME(dsterf,DSTERF)++#define LAPACKE_sstev   LAPACKE_NAME(sstev,SSTEV)+#define LAPACKE_dstev   LAPACKE_NAME(dstev,DSTEV)++#define LAPACKE_sstevd   LAPACKE_NAME(sstevd,SSTEVD)+#define LAPACKE_dstevd   LAPACKE_NAME(dstevd,DSTEVD)++#define LAPACKE_sstevr   LAPACKE_NAME(sstevr,SSTEVR)+#define LAPACKE_dstevr   LAPACKE_NAME(dstevr,DSTEVR)++#define LAPACKE_sstevx   LAPACKE_NAME(sstevx,SSTEVX)+#define LAPACKE_dstevx   LAPACKE_NAME(dstevx,DSTEVX)++#define LAPACKE_ssycon   LAPACKE_NAME(ssycon,SSYCON)+#define LAPACKE_dsycon   LAPACKE_NAME(dsycon,DSYCON)+#define LAPACKE_csycon   LAPACKE_NAME(csycon,CSYCON)+#define LAPACKE_zsycon   LAPACKE_NAME(zsycon,ZSYCON)++#define LAPACKE_ssyequb   LAPACKE_NAME(ssyequb,SSYEQUB)+#define LAPACKE_dsyequb   LAPACKE_NAME(dsyequb,DSYEQUB)+#define LAPACKE_csyequb   LAPACKE_NAME(csyequb,CSYEQUB)+#define LAPACKE_zsyequb   LAPACKE_NAME(zsyequb,ZSYEQUB)++#define LAPACKE_ssyev   LAPACKE_NAME(ssyev,SSYEV)+#define LAPACKE_dsyev   LAPACKE_NAME(dsyev,DSYEV)++#define LAPACKE_ssyevd   LAPACKE_NAME(ssyevd,SSYEVD)+#define LAPACKE_dsyevd   LAPACKE_NAME(dsyevd,DSYEVD)++#define LAPACKE_ssyevr   LAPACKE_NAME(ssyevr,SSYEVR)+#define LAPACKE_dsyevr   LAPACKE_NAME(dsyevr,DSYEVR)++#define LAPACKE_ssyevx   LAPACKE_NAME(ssyevx,SSYEVX)+#define LAPACKE_dsyevx   LAPACKE_NAME(dsyevx,DSYEVX)++#define LAPACKE_ssygst   LAPACKE_NAME(ssygst,SSYGST)+#define LAPACKE_dsygst   LAPACKE_NAME(dsygst,DSYGST)++#define LAPACKE_ssygv   LAPACKE_NAME(ssygv,SSYGV)+#define LAPACKE_dsygv   LAPACKE_NAME(dsygv,DSYGV)++#define LAPACKE_ssygvd   LAPACKE_NAME(ssygvd,SSYGVD)+#define LAPACKE_dsygvd   LAPACKE_NAME(dsygvd,DSYGVD)++#define LAPACKE_ssygvx   LAPACKE_NAME(ssygvx,SSYGVX)+#define LAPACKE_dsygvx   LAPACKE_NAME(dsygvx,DSYGVX)++#define LAPACKE_ssyrfs   LAPACKE_NAME(ssyrfs,SSYRFS)+#define LAPACKE_dsyrfs   LAPACKE_NAME(dsyrfs,DSYRFS)+#define LAPACKE_csyrfs   LAPACKE_NAME(csyrfs,CSYRFS)+#define LAPACKE_zsyrfs   LAPACKE_NAME(zsyrfs,ZSYRFS)++#define LAPACKE_ssyrfsx   LAPACKE_NAME(ssyrfsx,SSYRFSX)+#define LAPACKE_dsyrfsx   LAPACKE_NAME(dsyrfsx,DSYRFSX)+#define LAPACKE_csyrfsx   LAPACKE_NAME(csyrfsx,CSYRFSX)+#define LAPACKE_zsyrfsx   LAPACKE_NAME(zsyrfsx,ZSYRFSX)++#define LAPACKE_ssysv   LAPACKE_NAME(ssysv,SSYSV)+#define LAPACKE_dsysv   LAPACKE_NAME(dsysv,DSYSV)+#define LAPACKE_csysv   LAPACKE_NAME(csysv,CSYSV)+#define LAPACKE_zsysv   LAPACKE_NAME(zsysv,ZSYSV)++#define LAPACKE_ssysvx   LAPACKE_NAME(ssysvx,SSYSVX)+#define LAPACKE_dsysvx   LAPACKE_NAME(dsysvx,DSYSVX)+#define LAPACKE_csysvx   LAPACKE_NAME(csysvx,CSYSVX)+#define LAPACKE_zsysvx   LAPACKE_NAME(zsysvx,ZSYSVX)++#define LAPACKE_ssysvxx   LAPACKE_NAME(ssysvxx,SSYSVXX)+#define LAPACKE_dsysvxx   LAPACKE_NAME(dsysvxx,DSYSVXX)+#define LAPACKE_csysvxx   LAPACKE_NAME(csysvxx,CSYSVXX)+#define LAPACKE_zsysvxx   LAPACKE_NAME(zsysvxx,ZSYSVXX)++#define LAPACKE_ssytrd   LAPACKE_NAME(ssytrd,SSYTRD)+#define LAPACKE_dsytrd   LAPACKE_NAME(dsytrd,DSYTRD)++#define LAPACKE_ssytrf   LAPACKE_NAME(ssytrf,SSYTRF)+#define LAPACKE_dsytrf   LAPACKE_NAME(dsytrf,DSYTRF)+#define LAPACKE_csytrf   LAPACKE_NAME(csytrf,CSYTRF)+#define LAPACKE_zsytrf   LAPACKE_NAME(zsytrf,ZSYTRF)++#define LAPACKE_ssytri   LAPACKE_NAME(ssytri,SSYTRI)+#define LAPACKE_dsytri   LAPACKE_NAME(dsytri,DSYTRI)+#define LAPACKE_csytri   LAPACKE_NAME(csytri,CSYTRI)+#define LAPACKE_zsytri   LAPACKE_NAME(zsytri,ZSYTRI)++#define LAPACKE_ssytrs   LAPACKE_NAME(ssytrs,SSYTRS)+#define LAPACKE_dsytrs   LAPACKE_NAME(dsytrs,DSYTRS)+#define LAPACKE_csytrs   LAPACKE_NAME(csytrs,CSYTRS)+#define LAPACKE_zsytrs   LAPACKE_NAME(zsytrs,ZSYTRS)++#define LAPACKE_stbcon   LAPACKE_NAME(stbcon,STBCON)+#define LAPACKE_dtbcon   LAPACKE_NAME(dtbcon,DTBCON)+#define LAPACKE_ctbcon   LAPACKE_NAME(ctbcon,CTBCON)+#define LAPACKE_ztbcon   LAPACKE_NAME(ztbcon,ZTBCON)++#define LAPACKE_stbrfs   LAPACKE_NAME(stbrfs,STBRFS)+#define LAPACKE_dtbrfs   LAPACKE_NAME(dtbrfs,DTBRFS)+#define LAPACKE_ctbrfs   LAPACKE_NAME(ctbrfs,CTBRFS)+#define LAPACKE_ztbrfs   LAPACKE_NAME(ztbrfs,ZTBRFS)++#define LAPACKE_stbtrs   LAPACKE_NAME(stbtrs,STBTRS)+#define LAPACKE_dtbtrs   LAPACKE_NAME(dtbtrs,DTBTRS)+#define LAPACKE_ctbtrs   LAPACKE_NAME(ctbtrs,CTBTRS)+#define LAPACKE_ztbtrs   LAPACKE_NAME(ztbtrs,ZTBTRS)++#define LAPACKE_stfsm   LAPACKE_NAME(stfsm,STFSM)+#define LAPACKE_dtfsm   LAPACKE_NAME(dtfsm,DTFSM)+#define LAPACKE_ctfsm   LAPACKE_NAME(ctfsm,CTFSM)+#define LAPACKE_ztfsm   LAPACKE_NAME(ztfsm,ZTFSM)++#define LAPACKE_stftri   LAPACKE_NAME(stftri,STFTRI)+#define LAPACKE_dtftri   LAPACKE_NAME(dtftri,DTFTRI)+#define LAPACKE_ctftri   LAPACKE_NAME(ctftri,CTFTRI)+#define LAPACKE_ztftri   LAPACKE_NAME(ztftri,ZTFTRI)++#define LAPACKE_stfttp   LAPACKE_NAME(stfttp,STFTTP)+#define LAPACKE_dtfttp   LAPACKE_NAME(dtfttp,DTFTTP)+#define LAPACKE_ctfttp   LAPACKE_NAME(ctfttp,CTFTTP)+#define LAPACKE_ztfttp   LAPACKE_NAME(ztfttp,ZTFTTP)++#define LAPACKE_stfttr   LAPACKE_NAME(stfttr,STFTTR)+#define LAPACKE_dtfttr   LAPACKE_NAME(dtfttr,DTFTTR)+#define LAPACKE_ctfttr   LAPACKE_NAME(ctfttr,CTFTTR)+#define LAPACKE_ztfttr   LAPACKE_NAME(ztfttr,ZTFTTR)++#define LAPACKE_stgevc   LAPACKE_NAME(stgevc,STGEVC)+#define LAPACKE_dtgevc   LAPACKE_NAME(dtgevc,DTGEVC)+#define LAPACKE_ctgevc   LAPACKE_NAME(ctgevc,CTGEVC)+#define LAPACKE_ztgevc   LAPACKE_NAME(ztgevc,ZTGEVC)++#define LAPACKE_stgexc   LAPACKE_NAME(stgexc,STGEXC)+#define LAPACKE_dtgexc   LAPACKE_NAME(dtgexc,DTGEXC)+#define LAPACKE_ctgexc   LAPACKE_NAME(ctgexc,CTGEXC)+#define LAPACKE_ztgexc   LAPACKE_NAME(ztgexc,ZTGEXC)++#define LAPACKE_stgsen   LAPACKE_NAME(stgsen,STGSEN)+#define LAPACKE_dtgsen   LAPACKE_NAME(dtgsen,DTGSEN)+#define LAPACKE_ctgsen   LAPACKE_NAME(ctgsen,CTGSEN)+#define LAPACKE_ztgsen   LAPACKE_NAME(ztgsen,ZTGSEN)++#define LAPACKE_stgsja   LAPACKE_NAME(stgsja,STGSJA)+#define LAPACKE_dtgsja   LAPACKE_NAME(dtgsja,DTGSJA)+#define LAPACKE_ctgsja   LAPACKE_NAME(ctgsja,CTGSJA)+#define LAPACKE_ztgsja   LAPACKE_NAME(ztgsja,ZTGSJA)++#define LAPACKE_stgsna   LAPACKE_NAME(stgsna,STGSNA)+#define LAPACKE_dtgsna   LAPACKE_NAME(dtgsna,DTGSNA)+#define LAPACKE_ctgsna   LAPACKE_NAME(ctgsna,CTGSNA)+#define LAPACKE_ztgsna   LAPACKE_NAME(ztgsna,ZTGSNA)++#define LAPACKE_stgsyl   LAPACKE_NAME(stgsyl,STGSYL)+#define LAPACKE_dtgsyl   LAPACKE_NAME(dtgsyl,DTGSYL)+#define LAPACKE_ctgsyl   LAPACKE_NAME(ctgsyl,CTGSYL)+#define LAPACKE_ztgsyl   LAPACKE_NAME(ztgsyl,ZTGSYL)++#define LAPACKE_stpcon   LAPACKE_NAME(stpcon,STPCON)+#define LAPACKE_dtpcon   LAPACKE_NAME(dtpcon,DTPCON)+#define LAPACKE_ctpcon   LAPACKE_NAME(ctpcon,CTPCON)+#define LAPACKE_ztpcon   LAPACKE_NAME(ztpcon,ZTPCON)++#define LAPACKE_stprfs   LAPACKE_NAME(stprfs,STPRFS)+#define LAPACKE_dtprfs   LAPACKE_NAME(dtprfs,DTPRFS)+#define LAPACKE_ctprfs   LAPACKE_NAME(ctprfs,CTPRFS)+#define LAPACKE_ztprfs   LAPACKE_NAME(ztprfs,ZTPRFS)++#define LAPACKE_stptri   LAPACKE_NAME(stptri,STPTRI)+#define LAPACKE_dtptri   LAPACKE_NAME(dtptri,DTPTRI)+#define LAPACKE_ctptri   LAPACKE_NAME(ctptri,CTPTRI)+#define LAPACKE_ztptri   LAPACKE_NAME(ztptri,ZTPTRI)++#define LAPACKE_stptrs   LAPACKE_NAME(stptrs,STPTRS)+#define LAPACKE_dtptrs   LAPACKE_NAME(dtptrs,DTPTRS)+#define LAPACKE_ctptrs   LAPACKE_NAME(ctptrs,CTPTRS)+#define LAPACKE_ztptrs   LAPACKE_NAME(ztptrs,ZTPTRS)++#define LAPACKE_stpttf   LAPACKE_NAME(stpttf,STPTTF)+#define LAPACKE_dtpttf   LAPACKE_NAME(dtpttf,DTPTTF)+#define LAPACKE_ctpttf   LAPACKE_NAME(ctpttf,CTPTTF)+#define LAPACKE_ztpttf   LAPACKE_NAME(ztpttf,ZTPTTF)++#define LAPACKE_stpttr   LAPACKE_NAME(stpttr,STPTTR)+#define LAPACKE_dtpttr   LAPACKE_NAME(dtpttr,DTPTTR)+#define LAPACKE_ctpttr   LAPACKE_NAME(ctpttr,CTPTTR)+#define LAPACKE_ztpttr   LAPACKE_NAME(ztpttr,ZTPTTR)++#define LAPACKE_strcon   LAPACKE_NAME(strcon,STRCON)+#define LAPACKE_dtrcon   LAPACKE_NAME(dtrcon,DTRCON)+#define LAPACKE_ctrcon   LAPACKE_NAME(ctrcon,CTRCON)+#define LAPACKE_ztrcon   LAPACKE_NAME(ztrcon,ZTRCON)++#define LAPACKE_strevc   LAPACKE_NAME(strevc,STREVC)+#define LAPACKE_dtrevc   LAPACKE_NAME(dtrevc,DTREVC)+#define LAPACKE_ctrevc   LAPACKE_NAME(ctrevc,CTREVC)+#define LAPACKE_ztrevc   LAPACKE_NAME(ztrevc,ZTREVC)++#define LAPACKE_strexc   LAPACKE_NAME(strexc,STREXC)+#define LAPACKE_dtrexc   LAPACKE_NAME(dtrexc,DTREXC)+#define LAPACKE_ctrexc   LAPACKE_NAME(ctrexc,CTREXC)+#define LAPACKE_ztrexc   LAPACKE_NAME(ztrexc,ZTREXC)++#define LAPACKE_strrfs   LAPACKE_NAME(strrfs,STRRFS)+#define LAPACKE_dtrrfs   LAPACKE_NAME(dtrrfs,DTRRFS)+#define LAPACKE_ctrrfs   LAPACKE_NAME(ctrrfs,CTRRFS)+#define LAPACKE_ztrrfs   LAPACKE_NAME(ztrrfs,ZTRRFS)++#define LAPACKE_strsen   LAPACKE_NAME(strsen,STRSEN)+#define LAPACKE_dtrsen   LAPACKE_NAME(dtrsen,DTRSEN)+#define LAPACKE_ctrsen   LAPACKE_NAME(ctrsen,CTRSEN)+#define LAPACKE_ztrsen   LAPACKE_NAME(ztrsen,ZTRSEN)++#define LAPACKE_strsna   LAPACKE_NAME(strsna,STRSNA)+#define LAPACKE_dtrsna   LAPACKE_NAME(dtrsna,DTRSNA)+#define LAPACKE_ctrsna   LAPACKE_NAME(ctrsna,CTRSNA)+#define LAPACKE_ztrsna   LAPACKE_NAME(ztrsna,ZTRSNA)++#define LAPACKE_strsyl   LAPACKE_NAME(strsyl,STRSYL)+#define LAPACKE_dtrsyl   LAPACKE_NAME(dtrsyl,DTRSYL)+#define LAPACKE_ctrsyl   LAPACKE_NAME(ctrsyl,CTRSYL)+#define LAPACKE_ztrsyl   LAPACKE_NAME(ztrsyl,ZTRSYL)++#define LAPACKE_strtri   LAPACKE_NAME(strtri,STRTRI)+#define LAPACKE_dtrtri   LAPACKE_NAME(dtrtri,DTRTRI)+#define LAPACKE_ctrtri   LAPACKE_NAME(ctrtri,CTRTRI)+#define LAPACKE_ztrtri   LAPACKE_NAME(ztrtri,ZTRTRI)++#define LAPACKE_strtrs   LAPACKE_NAME(strtrs,STRTRS)+#define LAPACKE_dtrtrs   LAPACKE_NAME(dtrtrs,DTRTRS)+#define LAPACKE_ctrtrs   LAPACKE_NAME(ctrtrs,CTRTRS)+#define LAPACKE_ztrtrs   LAPACKE_NAME(ztrtrs,ZTRTRS)++#define LAPACKE_strttf   LAPACKE_NAME(strttf,STRTTF)+#define LAPACKE_dtrttf   LAPACKE_NAME(dtrttf,DTRTTF)+#define LAPACKE_ctrttf   LAPACKE_NAME(ctrttf,CTRTTF)+#define LAPACKE_ztrttf   LAPACKE_NAME(ztrttf,ZTRTTF)++#define LAPACKE_strttp   LAPACKE_NAME(strttp,STRTTP)+#define LAPACKE_dtrttp   LAPACKE_NAME(dtrttp,DTRTTP)+#define LAPACKE_ctrttp   LAPACKE_NAME(ctrttp,CTRTTP)+#define LAPACKE_ztrttp   LAPACKE_NAME(ztrttp,ZTRTTP)++#define LAPACKE_stzrzf   LAPACKE_NAME(stzrzf,STZRZF)+#define LAPACKE_dtzrzf   LAPACKE_NAME(dtzrzf,DTZRZF)+#define LAPACKE_ctzrzf   LAPACKE_NAME(ctzrzf,CTZRZF)+#define LAPACKE_ztzrzf   LAPACKE_NAME(ztzrzf,ZTZRZF)++#define LAPACKE_cungbr   LAPACKE_NAME(cungbr,CUNGBR)+#define LAPACKE_zungbr   LAPACKE_NAME(zungbr,ZUNGBR)++#define LAPACKE_cunghr   LAPACKE_NAME(cunghr,CUNGHR)+#define LAPACKE_zunghr   LAPACKE_NAME(zunghr,ZUNGHR)++#define LAPACKE_cunglq   LAPACKE_NAME(cunglq,CUNGLQ)+#define LAPACKE_zunglq   LAPACKE_NAME(zunglq,ZUNGLQ)++#define LAPACKE_cungql   LAPACKE_NAME(cungql,CUNGQL)+#define LAPACKE_zungql   LAPACKE_NAME(zungql,ZUNGQL)++#define LAPACKE_cungqr   LAPACKE_NAME(cungqr,CUNGQR)+#define LAPACKE_zungqr   LAPACKE_NAME(zungqr,ZUNGQR)++#define LAPACKE_cungrq   LAPACKE_NAME(cungrq,CUNGRQ)+#define LAPACKE_zungrq   LAPACKE_NAME(zungrq,ZUNGRQ)++#define LAPACKE_cungtr   LAPACKE_NAME(cungtr,CUNGTR)+#define LAPACKE_zungtr   LAPACKE_NAME(zungtr,ZUNGTR)++#define LAPACKE_cunmbr   LAPACKE_NAME(cunmbr,CUNMBR)+#define LAPACKE_zunmbr   LAPACKE_NAME(zunmbr,ZUNMBR)++#define LAPACKE_cunmhr   LAPACKE_NAME(cunmhr,CUNMHR)+#define LAPACKE_zunmhr   LAPACKE_NAME(zunmhr,ZUNMHR)++#define LAPACKE_cunmlq   LAPACKE_NAME(cunmlq,CUNMLQ)+#define LAPACKE_zunmlq   LAPACKE_NAME(zunmlq,ZUNMLQ)++#define LAPACKE_cunmql   LAPACKE_NAME(cunmql,CUNMQL)+#define LAPACKE_zunmql   LAPACKE_NAME(zunmql,ZUNMQL)++#define LAPACKE_cunmqr   LAPACKE_NAME(cunmqr,CUNMQR)+#define LAPACKE_zunmqr   LAPACKE_NAME(zunmqr,ZUNMQR)++#define LAPACKE_cunmrq   LAPACKE_NAME(cunmrq,CUNMRQ)+#define LAPACKE_zunmrq   LAPACKE_NAME(zunmrq,ZUNMRQ)++#define LAPACKE_cunmrz   LAPACKE_NAME(cunmrz,CUNMRZ)+#define LAPACKE_zunmrz   LAPACKE_NAME(zunmrz,ZUNMRZ)++#define LAPACKE_cunmtr   LAPACKE_NAME(cunmtr,CUNMTR)+#define LAPACKE_zunmtr   LAPACKE_NAME(zunmtr,ZUNMTR)++#define LAPACKE_cupgtr   LAPACKE_NAME(cupgtr,CUPGTR)+#define LAPACKE_zupgtr   LAPACKE_NAME(zupgtr,ZUPGTR)++#define LAPACKE_cupmtr   LAPACKE_NAME(cupmtr,CUPMTR)+#define LAPACKE_zupmtr   LAPACKE_NAME(zupmtr,ZUPMTR)++#define LAPACKE_sbdsdc_work   LAPACKE_NAME(sbdsdc_work,SBDSDC_WORK)+#define LAPACKE_dbdsdc_work   LAPACKE_NAME(dbdsdc_work,DBDSDC_WORK)++#define LAPACKE_sbdsqr_work   LAPACKE_NAME(sbdsqr_work,SBDSQR_WORK)+#define LAPACKE_dbdsqr_work   LAPACKE_NAME(dbdsqr_work,DBDSQR_WORK)+#define LAPACKE_cbdsqr_work   LAPACKE_NAME(cbdsqr_work,CBDSQR_WORK)+#define LAPACKE_zbdsqr_work   LAPACKE_NAME(zbdsqr_work,ZBDSQR_WORK)++#define LAPACKE_sdisna_work   LAPACKE_NAME(sdisna_work,SDISNA_WORK)+#define LAPACKE_ddisna_work   LAPACKE_NAME(ddisna_work,DDISNA_WORK)++#define LAPACKE_sgbbrd_work   LAPACKE_NAME(sgbbrd_work,SGBBRD_WORK)+#define LAPACKE_dgbbrd_work   LAPACKE_NAME(dgbbrd_work,DGBBRD_WORK)+#define LAPACKE_cgbbrd_work   LAPACKE_NAME(cgbbrd_work,CGBBRD_WORK)+#define LAPACKE_zgbbrd_work   LAPACKE_NAME(zgbbrd_work,ZGBBRD_WORK)++#define LAPACKE_sgbcon_work   LAPACKE_NAME(sgbcon_work,SGBCON_WORK)+#define LAPACKE_dgbcon_work   LAPACKE_NAME(dgbcon_work,DGBCON_WORK)+#define LAPACKE_cgbcon_work   LAPACKE_NAME(cgbcon_work,CGBCON_WORK)+#define LAPACKE_zgbcon_work   LAPACKE_NAME(zgbcon_work,ZGBCON_WORK)++#define LAPACKE_sgbequ_work   LAPACKE_NAME(sgbequ_work,SGBEQU_WORK)+#define LAPACKE_dgbequ_work   LAPACKE_NAME(dgbequ_work,DGBEQU_WORK)+#define LAPACKE_cgbequ_work   LAPACKE_NAME(cgbequ_work,CGBEQU_WORK)+#define LAPACKE_zgbequ_work   LAPACKE_NAME(zgbequ_work,ZGBEQU_WORK)++#define LAPACKE_sgbequb_work   LAPACKE_NAME(sgbequb_work,SGBEQUB_WORK)+#define LAPACKE_dgbequb_work   LAPACKE_NAME(dgbequb_work,DGBEQUB_WORK)+#define LAPACKE_cgbequb_work   LAPACKE_NAME(cgbequb_work,CGBEQUB_WORK)+#define LAPACKE_zgbequb_work   LAPACKE_NAME(zgbequb_work,ZGBEQUB_WORK)++#define LAPACKE_sgbrfs_work   LAPACKE_NAME(sgbrfs_work,SGBRFS_WORK)+#define LAPACKE_dgbrfs_work   LAPACKE_NAME(dgbrfs_work,DGBRFS_WORK)+#define LAPACKE_cgbrfs_work   LAPACKE_NAME(cgbrfs_work,CGBRFS_WORK)+#define LAPACKE_zgbrfs_work   LAPACKE_NAME(zgbrfs_work,ZGBRFS_WORK)++#define LAPACKE_sgbrfsx_work   LAPACKE_NAME(sgbrfsx_work,SGBRFSX_WORK)+#define LAPACKE_dgbrfsx_work   LAPACKE_NAME(dgbrfsx_work,DGBRFSX_WORK)+#define LAPACKE_cgbrfsx_work   LAPACKE_NAME(cgbrfsx_work,CGBRFSX_WORK)+#define LAPACKE_zgbrfsx_work   LAPACKE_NAME(zgbrfsx_work,ZGBRFSX_WORK)++#define LAPACKE_sgbsv_work   LAPACKE_NAME(sgbsv_work,SGBSV_WORK)+#define LAPACKE_dgbsv_work   LAPACKE_NAME(dgbsv_work,DGBSV_WORK)+#define LAPACKE_cgbsv_work   LAPACKE_NAME(cgbsv_work,CGBSV_WORK)+#define LAPACKE_zgbsv_work   LAPACKE_NAME(zgbsv_work,ZGBSV_WORK)++#define LAPACKE_sgbsvx_work   LAPACKE_NAME(sgbsvx_work,SGBSVX_WORK)+#define LAPACKE_dgbsvx_work   LAPACKE_NAME(dgbsvx_work,DGBSVX_WORK)+#define LAPACKE_cgbsvx_work   LAPACKE_NAME(cgbsvx_work,CGBSVX_WORK)+#define LAPACKE_zgbsvx_work   LAPACKE_NAME(zgbsvx_work,ZGBSVX_WORK)++#define LAPACKE_sgbsvxx_work   LAPACKE_NAME(sgbsvxx_work,SGBSVXX_WORK)+#define LAPACKE_dgbsvxx_work   LAPACKE_NAME(dgbsvxx_work,DGBSVXX_WORK)+#define LAPACKE_cgbsvxx_work   LAPACKE_NAME(cgbsvxx_work,CGBSVXX_WORK)+#define LAPACKE_zgbsvxx_work   LAPACKE_NAME(zgbsvxx_work,ZGBSVXX_WORK)++#define LAPACKE_sgbtrf_work   LAPACKE_NAME(sgbtrf_work,SGBTRF_WORK)+#define LAPACKE_dgbtrf_work   LAPACKE_NAME(dgbtrf_work,DGBTRF_WORK)+#define LAPACKE_cgbtrf_work   LAPACKE_NAME(cgbtrf_work,CGBTRF_WORK)+#define LAPACKE_zgbtrf_work   LAPACKE_NAME(zgbtrf_work,ZGBTRF_WORK)++#define LAPACKE_sgbtrs_work   LAPACKE_NAME(sgbtrs_work,SGBTRS_WORK)+#define LAPACKE_dgbtrs_work   LAPACKE_NAME(dgbtrs_work,DGBTRS_WORK)+#define LAPACKE_cgbtrs_work   LAPACKE_NAME(cgbtrs_work,CGBTRS_WORK)+#define LAPACKE_zgbtrs_work   LAPACKE_NAME(zgbtrs_work,ZGBTRS_WORK)++#define LAPACKE_sgebak_work   LAPACKE_NAME(sgebak_work,SGEBAK_WORK)+#define LAPACKE_dgebak_work   LAPACKE_NAME(dgebak_work,DGEBAK_WORK)+#define LAPACKE_cgebak_work   LAPACKE_NAME(cgebak_work,CGEBAK_WORK)+#define LAPACKE_zgebak_work   LAPACKE_NAME(zgebak_work,ZGEBAK_WORK)++#define LAPACKE_sgebal_work   LAPACKE_NAME(sgebal_work,SGEBAL_WORK)+#define LAPACKE_dgebal_work   LAPACKE_NAME(dgebal_work,DGEBAL_WORK)+#define LAPACKE_cgebal_work   LAPACKE_NAME(cgebal_work,CGEBAL_WORK)+#define LAPACKE_zgebal_work   LAPACKE_NAME(zgebal_work,ZGEBAL_WORK)++#define LAPACKE_sgebrd_work   LAPACKE_NAME(sgebrd_work,SGEBRD_WORK)+#define LAPACKE_dgebrd_work   LAPACKE_NAME(dgebrd_work,DGEBRD_WORK)+#define LAPACKE_cgebrd_work   LAPACKE_NAME(cgebrd_work,CGEBRD_WORK)+#define LAPACKE_zgebrd_work   LAPACKE_NAME(zgebrd_work,ZGEBRD_WORK)++#define LAPACKE_sgecon_work   LAPACKE_NAME(sgecon_work,SGECON_WORK)+#define LAPACKE_dgecon_work   LAPACKE_NAME(dgecon_work,DGECON_WORK)+#define LAPACKE_cgecon_work   LAPACKE_NAME(cgecon_work,CGECON_WORK)+#define LAPACKE_zgecon_work   LAPACKE_NAME(zgecon_work,ZGECON_WORK)++#define LAPACKE_sgeequ_work   LAPACKE_NAME(sgeequ_work,SGEEQU_WORK)+#define LAPACKE_dgeequ_work   LAPACKE_NAME(dgeequ_work,DGEEQU_WORK)+#define LAPACKE_cgeequ_work   LAPACKE_NAME(cgeequ_work,CGEEQU_WORK)+#define LAPACKE_zgeequ_work   LAPACKE_NAME(zgeequ_work,ZGEEQU_WORK)++#define LAPACKE_sgeequb_work   LAPACKE_NAME(sgeequb_work,SGEEQUB_WORK)+#define LAPACKE_dgeequb_work   LAPACKE_NAME(dgeequb_work,DGEEQUB_WORK)+#define LAPACKE_cgeequb_work   LAPACKE_NAME(cgeequb_work,CGEEQUB_WORK)+#define LAPACKE_zgeequb_work   LAPACKE_NAME(zgeequb_work,ZGEEQUB_WORK)++#define LAPACKE_sgees_work   LAPACKE_NAME(sgees_work,SGEES_WORK)+#define LAPACKE_dgees_work   LAPACKE_NAME(dgees_work,DGEES_WORK)+#define LAPACKE_cgees_work   LAPACKE_NAME(cgees_work,CGEES_WORK)+#define LAPACKE_zgees_work   LAPACKE_NAME(zgees_work,ZGEES_WORK)++#define LAPACKE_sgeesx_work   LAPACKE_NAME(sgeesx_work,SGEESX_WORK)+#define LAPACKE_dgeesx_work   LAPACKE_NAME(dgeesx_work,DGEESX_WORK)+#define LAPACKE_cgeesx_work   LAPACKE_NAME(cgeesx_work,CGEESX_WORK)+#define LAPACKE_zgeesx_work   LAPACKE_NAME(zgeesx_work,ZGEESX_WORK)++#define LAPACKE_sgeev_work   LAPACKE_NAME(sgeev_work,SGEEV_WORK)+#define LAPACKE_dgeev_work   LAPACKE_NAME(dgeev_work,DGEEV_WORK)+#define LAPACKE_cgeev_work   LAPACKE_NAME(cgeev_work,CGEEV_WORK)+#define LAPACKE_zgeev_work   LAPACKE_NAME(zgeev_work,ZGEEV_WORK)++#define LAPACKE_sgeevx_work   LAPACKE_NAME(sgeevx_work,SGEEVX_WORK)+#define LAPACKE_dgeevx_work   LAPACKE_NAME(dgeevx_work,DGEEVX_WORK)+#define LAPACKE_cgeevx_work   LAPACKE_NAME(cgeevx_work,CGEEVX_WORK)+#define LAPACKE_zgeevx_work   LAPACKE_NAME(zgeevx_work,ZGEEVX_WORK)++#define LAPACKE_sgehrd_work   LAPACKE_NAME(sgehrd_work,SGEHRD_WORK)+#define LAPACKE_dgehrd_work   LAPACKE_NAME(dgehrd_work,DGEHRD_WORK)+#define LAPACKE_cgehrd_work   LAPACKE_NAME(cgehrd_work,CGEHRD_WORK)+#define LAPACKE_zgehrd_work   LAPACKE_NAME(zgehrd_work,ZGEHRD_WORK)++#define LAPACKE_sgejsv_work   LAPACKE_NAME(sgejsv_work,SGEJSV_WORK)+#define LAPACKE_dgejsv_work   LAPACKE_NAME(dgejsv_work,DGEJSV_WORK)++#define LAPACKE_sgelq2_work   LAPACKE_NAME(sgelq2_work,SGELQ2_WORK)+#define LAPACKE_dgelq2_work   LAPACKE_NAME(dgelq2_work,DGELQ2_WORK)+#define LAPACKE_cgelq2_work   LAPACKE_NAME(cgelq2_work,CGELQ2_WORK)+#define LAPACKE_zgelq2_work   LAPACKE_NAME(zgelq2_work,ZGELQ2_WORK)++#define LAPACKE_sgelqf_work   LAPACKE_NAME(sgelqf_work,SGELQF_WORK)+#define LAPACKE_dgelqf_work   LAPACKE_NAME(dgelqf_work,DGELQF_WORK)+#define LAPACKE_cgelqf_work   LAPACKE_NAME(cgelqf_work,CGELQF_WORK)+#define LAPACKE_zgelqf_work   LAPACKE_NAME(zgelqf_work,ZGELQF_WORK)++#define LAPACKE_sgels_work   LAPACKE_NAME(sgels_work,SGELS_WORK)+#define LAPACKE_dgels_work   LAPACKE_NAME(dgels_work,DGELS_WORK)+#define LAPACKE_cgels_work   LAPACKE_NAME(cgels_work,CGELS_WORK)+#define LAPACKE_zgels_work   LAPACKE_NAME(zgels_work,ZGELS_WORK)++#define LAPACKE_sgelsd_work   LAPACKE_NAME(sgelsd_work,SGELSD_WORK)+#define LAPACKE_dgelsd_work   LAPACKE_NAME(dgelsd_work,DGELSD_WORK)+#define LAPACKE_cgelsd_work   LAPACKE_NAME(cgelsd_work,CGELSD_WORK)+#define LAPACKE_zgelsd_work   LAPACKE_NAME(zgelsd_work,ZGELSD_WORK)++#define LAPACKE_sgelss_work   LAPACKE_NAME(sgelss_work,SGELSS_WORK)+#define LAPACKE_dgelss_work   LAPACKE_NAME(dgelss_work,DGELSS_WORK)+#define LAPACKE_cgelss_work   LAPACKE_NAME(cgelss_work,CGELSS_WORK)+#define LAPACKE_zgelss_work   LAPACKE_NAME(zgelss_work,ZGELSS_WORK)++#define LAPACKE_sgelsy_work   LAPACKE_NAME(sgelsy_work,SGELSY_WORK)+#define LAPACKE_dgelsy_work   LAPACKE_NAME(dgelsy_work,DGELSY_WORK)+#define LAPACKE_cgelsy_work   LAPACKE_NAME(cgelsy_work,CGELSY_WORK)+#define LAPACKE_zgelsy_work   LAPACKE_NAME(zgelsy_work,ZGELSY_WORK)++#define LAPACKE_sgeqlf_work   LAPACKE_NAME(sgeqlf_work,SGEQLF_WORK)+#define LAPACKE_dgeqlf_work   LAPACKE_NAME(dgeqlf_work,DGEQLF_WORK)+#define LAPACKE_cgeqlf_work   LAPACKE_NAME(cgeqlf_work,CGEQLF_WORK)+#define LAPACKE_zgeqlf_work   LAPACKE_NAME(zgeqlf_work,ZGEQLF_WORK)++#define LAPACKE_sgeqp3_work   LAPACKE_NAME(sgeqp3_work,SGEQP3_WORK)+#define LAPACKE_dgeqp3_work   LAPACKE_NAME(dgeqp3_work,DGEQP3_WORK)+#define LAPACKE_cgeqp3_work   LAPACKE_NAME(cgeqp3_work,CGEQP3_WORK)+#define LAPACKE_zgeqp3_work   LAPACKE_NAME(zgeqp3_work,ZGEQP3_WORK)++#define LAPACKE_sgeqpf_work   LAPACKE_NAME(sgeqpf_work,SGEQPF_WORK)+#define LAPACKE_dgeqpf_work   LAPACKE_NAME(dgeqpf_work,DGEQPF_WORK)+#define LAPACKE_cgeqpf_work   LAPACKE_NAME(cgeqpf_work,CGEQPF_WORK)+#define LAPACKE_zgeqpf_work   LAPACKE_NAME(zgeqpf_work,ZGEQPF_WORK)++#define LAPACKE_sgeqr2_work   LAPACKE_NAME(sgeqr2_work,SGEQR2_WORK)+#define LAPACKE_dgeqr2_work   LAPACKE_NAME(dgeqr2_work,DGEQR2_WORK)+#define LAPACKE_cgeqr2_work   LAPACKE_NAME(cgeqr2_work,CGEQR2_WORK)+#define LAPACKE_zgeqr2_work   LAPACKE_NAME(zgeqr2_work,ZGEQR2_WORK)++#define LAPACKE_sgeqrf_work   LAPACKE_NAME(sgeqrf_work,SGEQRF_WORK)+#define LAPACKE_dgeqrf_work   LAPACKE_NAME(dgeqrf_work,DGEQRF_WORK)+#define LAPACKE_cgeqrf_work   LAPACKE_NAME(cgeqrf_work,CGEQRF_WORK)+#define LAPACKE_zgeqrf_work   LAPACKE_NAME(zgeqrf_work,ZGEQRF_WORK)++#define LAPACKE_sgeqrfp_work   LAPACKE_NAME(sgeqrfp_work,SGEQRFP_WORK)+#define LAPACKE_dgeqrfp_work   LAPACKE_NAME(dgeqrfp_work,DGEQRFP_WORK)+#define LAPACKE_cgeqrfp_work   LAPACKE_NAME(cgeqrfp_work,CGEQRFP_WORK)+#define LAPACKE_zgeqrfp_work   LAPACKE_NAME(zgeqrfp_work,ZGEQRFP_WORK)++#define LAPACKE_sgerfs_work   LAPACKE_NAME(sgerfs_work,SGERFS_WORK)+#define LAPACKE_dgerfs_work   LAPACKE_NAME(dgerfs_work,DGERFS_WORK)+#define LAPACKE_cgerfs_work   LAPACKE_NAME(cgerfs_work,CGERFS_WORK)+#define LAPACKE_zgerfs_work   LAPACKE_NAME(zgerfs_work,ZGERFS_WORK)++#define LAPACKE_sgerfsx_work   LAPACKE_NAME(sgerfsx_work,SGERFSX_WORK)+#define LAPACKE_dgerfsx_work   LAPACKE_NAME(dgerfsx_work,DGERFSX_WORK)+#define LAPACKE_cgerfsx_work   LAPACKE_NAME(cgerfsx_work,CGERFSX_WORK)+#define LAPACKE_zgerfsx_work   LAPACKE_NAME(zgerfsx_work,ZGERFSX_WORK)++#define LAPACKE_sgerqf_work   LAPACKE_NAME(sgerqf_work,SGERQF_WORK)+#define LAPACKE_dgerqf_work   LAPACKE_NAME(dgerqf_work,DGERQF_WORK)+#define LAPACKE_cgerqf_work   LAPACKE_NAME(cgerqf_work,CGERQF_WORK)+#define LAPACKE_zgerqf_work   LAPACKE_NAME(zgerqf_work,ZGERQF_WORK)++#define LAPACKE_sgesdd_work   LAPACKE_NAME(sgesdd_work,SGESDD_WORK)+#define LAPACKE_dgesdd_work   LAPACKE_NAME(dgesdd_work,DGESDD_WORK)+#define LAPACKE_cgesdd_work   LAPACKE_NAME(cgesdd_work,CGESDD_WORK)+#define LAPACKE_zgesdd_work   LAPACKE_NAME(zgesdd_work,ZGESDD_WORK)++#define LAPACKE_sgesv_work   LAPACKE_NAME(sgesv_work,SGESV_WORK)+#define LAPACKE_dgesv_work   LAPACKE_NAME(dgesv_work,DGESV_WORK)+#define LAPACKE_cgesv_work   LAPACKE_NAME(cgesv_work,CGESV_WORK)+#define LAPACKE_zgesv_work   LAPACKE_NAME(zgesv_work,ZGESV_WORK)+#define LAPACKE_dsgesv_work   LAPACKE_NAME(dsgesv_work,DSGESV_WORK)+#define LAPACKE_zcgesv_work   LAPACKE_NAME(zcgesv_work,ZCGESV_WORK)++#define LAPACKE_sgesvd_work   LAPACKE_NAME(sgesvd_work,SGESVD_WORK)+#define LAPACKE_dgesvd_work   LAPACKE_NAME(dgesvd_work,DGESVD_WORK)+#define LAPACKE_cgesvd_work   LAPACKE_NAME(cgesvd_work,CGESVD_WORK)+#define LAPACKE_zgesvd_work   LAPACKE_NAME(zgesvd_work,ZGESVD_WORK)++#define LAPACKE_sgesvj_work   LAPACKE_NAME(sgesvj_work,SGESVJ_WORK)+#define LAPACKE_dgesvj_work   LAPACKE_NAME(dgesvj_work,DGESVJ_WORK)++#define LAPACKE_sgesvx_work   LAPACKE_NAME(sgesvx_work,SGESVX_WORK)+#define LAPACKE_dgesvx_work   LAPACKE_NAME(dgesvx_work,DGESVX_WORK)+#define LAPACKE_cgesvx_work   LAPACKE_NAME(cgesvx_work,CGESVX_WORK)+#define LAPACKE_zgesvx_work   LAPACKE_NAME(zgesvx_work,ZGESVX_WORK)++#define LAPACKE_sgesvxx_work   LAPACKE_NAME(sgesvxx_work,SGESVXX_WORK)+#define LAPACKE_dgesvxx_work   LAPACKE_NAME(dgesvxx_work,DGESVXX_WORK)+#define LAPACKE_cgesvxx_work   LAPACKE_NAME(cgesvxx_work,CGESVXX_WORK)+#define LAPACKE_zgesvxx_work   LAPACKE_NAME(zgesvxx_work,ZGESVXX_WORK)++#define LAPACKE_sgetf2_work   LAPACKE_NAME(sgetf2_work,SGETF2_WORK)+#define LAPACKE_dgetf2_work   LAPACKE_NAME(dgetf2_work,DGETF2_WORK)+#define LAPACKE_cgetf2_work   LAPACKE_NAME(cgetf2_work,CGETF2_WORK)+#define LAPACKE_zgetf2_work   LAPACKE_NAME(zgetf2_work,ZGETF2_WORK)++#define LAPACKE_sgetrf_work   LAPACKE_NAME(sgetrf_work,SGETRF_WORK)+#define LAPACKE_dgetrf_work   LAPACKE_NAME(dgetrf_work,DGETRF_WORK)+#define LAPACKE_cgetrf_work   LAPACKE_NAME(cgetrf_work,CGETRF_WORK)+#define LAPACKE_zgetrf_work   LAPACKE_NAME(zgetrf_work,ZGETRF_WORK)++#define LAPACKE_sgetri_work   LAPACKE_NAME(sgetri_work,SGETRI_WORK)+#define LAPACKE_dgetri_work   LAPACKE_NAME(dgetri_work,DGETRI_WORK)+#define LAPACKE_cgetri_work   LAPACKE_NAME(cgetri_work,CGETRI_WORK)+#define LAPACKE_zgetri_work   LAPACKE_NAME(zgetri_work,ZGETRI_WORK)++#define LAPACKE_sgetrs_work   LAPACKE_NAME(sgetrs_work,SGETRS_WORK)+#define LAPACKE_dgetrs_work   LAPACKE_NAME(dgetrs_work,DGETRS_WORK)+#define LAPACKE_cgetrs_work   LAPACKE_NAME(cgetrs_work,CGETRS_WORK)+#define LAPACKE_zgetrs_work   LAPACKE_NAME(zgetrs_work,ZGETRS_WORK)++#define LAPACKE_sggbak_work   LAPACKE_NAME(sggbak_work,SGGBAK_WORK)+#define LAPACKE_dggbak_work   LAPACKE_NAME(dggbak_work,DGGBAK_WORK)+#define LAPACKE_cggbak_work   LAPACKE_NAME(cggbak_work,CGGBAK_WORK)+#define LAPACKE_zggbak_work   LAPACKE_NAME(zggbak_work,ZGGBAK_WORK)++#define LAPACKE_sggbal_work   LAPACKE_NAME(sggbal_work,SGGBAL_WORK)+#define LAPACKE_dggbal_work   LAPACKE_NAME(dggbal_work,DGGBAL_WORK)+#define LAPACKE_cggbal_work   LAPACKE_NAME(cggbal_work,CGGBAL_WORK)+#define LAPACKE_zggbal_work   LAPACKE_NAME(zggbal_work,ZGGBAL_WORK)++#define LAPACKE_sgges_work   LAPACKE_NAME(sgges_work,SGGES_WORK)+#define LAPACKE_dgges_work   LAPACKE_NAME(dgges_work,DGGES_WORK)+#define LAPACKE_cgges_work   LAPACKE_NAME(cgges_work,CGGES_WORK)+#define LAPACKE_zgges_work   LAPACKE_NAME(zgges_work,ZGGES_WORK)++#define LAPACKE_sggesx_work   LAPACKE_NAME(sggesx_work,SGGESX_WORK)+#define LAPACKE_dggesx_work   LAPACKE_NAME(dggesx_work,DGGESX_WORK)+#define LAPACKE_cggesx_work   LAPACKE_NAME(cggesx_work,CGGESX_WORK)+#define LAPACKE_zggesx_work   LAPACKE_NAME(zggesx_work,ZGGESX_WORK)++#define LAPACKE_sggev_work   LAPACKE_NAME(sggev_work,SGGEV_WORK)+#define LAPACKE_dggev_work   LAPACKE_NAME(dggev_work,DGGEV_WORK)+#define LAPACKE_cggev_work   LAPACKE_NAME(cggev_work,CGGEV_WORK)+#define LAPACKE_zggev_work   LAPACKE_NAME(zggev_work,ZGGEV_WORK)++#define LAPACKE_sggevx_work   LAPACKE_NAME(sggevx_work,SGGEVX_WORK)+#define LAPACKE_dggevx_work   LAPACKE_NAME(dggevx_work,DGGEVX_WORK)+#define LAPACKE_cggevx_work   LAPACKE_NAME(cggevx_work,CGGEVX_WORK)+#define LAPACKE_zggevx_work   LAPACKE_NAME(zggevx_work,ZGGEVX_WORK)++#define LAPACKE_sggglm_work   LAPACKE_NAME(sggglm_work,SGGGLM_WORK)+#define LAPACKE_dggglm_work   LAPACKE_NAME(dggglm_work,DGGGLM_WORK)+#define LAPACKE_cggglm_work   LAPACKE_NAME(cggglm_work,CGGGLM_WORK)+#define LAPACKE_zggglm_work   LAPACKE_NAME(zggglm_work,ZGGGLM_WORK)++#define LAPACKE_sgghrd_work   LAPACKE_NAME(sgghrd_work,SGGHRD_WORK)+#define LAPACKE_dgghrd_work   LAPACKE_NAME(dgghrd_work,DGGHRD_WORK)+#define LAPACKE_cgghrd_work   LAPACKE_NAME(cgghrd_work,CGGHRD_WORK)+#define LAPACKE_zgghrd_work   LAPACKE_NAME(zgghrd_work,ZGGHRD_WORK)++#define LAPACKE_sgglse_work   LAPACKE_NAME(sgglse_work,SGGLSE_WORK)+#define LAPACKE_dgglse_work   LAPACKE_NAME(dgglse_work,DGGLSE_WORK)+#define LAPACKE_cgglse_work   LAPACKE_NAME(cgglse_work,CGGLSE_WORK)+#define LAPACKE_zgglse_work   LAPACKE_NAME(zgglse_work,ZGGLSE_WORK)++#define LAPACKE_sggqrf_work   LAPACKE_NAME(sggqrf_work,SGGQRF_WORK)+#define LAPACKE_dggqrf_work   LAPACKE_NAME(dggqrf_work,DGGQRF_WORK)+#define LAPACKE_cggqrf_work   LAPACKE_NAME(cggqrf_work,CGGQRF_WORK)+#define LAPACKE_zggqrf_work   LAPACKE_NAME(zggqrf_work,ZGGQRF_WORK)++#define LAPACKE_sggrqf_work   LAPACKE_NAME(sggrqf_work,SGGRQF_WORK)+#define LAPACKE_dggrqf_work   LAPACKE_NAME(dggrqf_work,DGGRQF_WORK)+#define LAPACKE_cggrqf_work   LAPACKE_NAME(cggrqf_work,CGGRQF_WORK)+#define LAPACKE_zggrqf_work   LAPACKE_NAME(zggrqf_work,ZGGRQF_WORK)++#define LAPACKE_sggsvd_work   LAPACKE_NAME(sggsvd_work,SGGSVD_WORK)+#define LAPACKE_dggsvd_work   LAPACKE_NAME(dggsvd_work,DGGSVD_WORK)+#define LAPACKE_cggsvd_work   LAPACKE_NAME(cggsvd_work,CGGSVD_WORK)+#define LAPACKE_zggsvd_work   LAPACKE_NAME(zggsvd_work,ZGGSVD_WORK)++#define LAPACKE_sggsvp_work   LAPACKE_NAME(sggsvp_work,SGGSVP_WORK)+#define LAPACKE_dggsvp_work   LAPACKE_NAME(dggsvp_work,DGGSVP_WORK)+#define LAPACKE_cggsvp_work   LAPACKE_NAME(cggsvp_work,CGGSVP_WORK)+#define LAPACKE_zggsvp_work   LAPACKE_NAME(zggsvp_work,ZGGSVP_WORK)++#define LAPACKE_sgtcon_work   LAPACKE_NAME(sgtcon_work,SGTCON_WORK)+#define LAPACKE_dgtcon_work   LAPACKE_NAME(dgtcon_work,DGTCON_WORK)+#define LAPACKE_cgtcon_work   LAPACKE_NAME(cgtcon_work,CGTCON_WORK)+#define LAPACKE_zgtcon_work   LAPACKE_NAME(zgtcon_work,ZGTCON_WORK)++#define LAPACKE_sgtrfs_work   LAPACKE_NAME(sgtrfs_work,SGTRFS_WORK)+#define LAPACKE_dgtrfs_work   LAPACKE_NAME(dgtrfs_work,DGTRFS_WORK)+#define LAPACKE_cgtrfs_work   LAPACKE_NAME(cgtrfs_work,CGTRFS_WORK)+#define LAPACKE_zgtrfs_work   LAPACKE_NAME(zgtrfs_work,ZGTRFS_WORK)++#define LAPACKE_sgtsv_work   LAPACKE_NAME(sgtsv_work,SGTSV_WORK)+#define LAPACKE_dgtsv_work   LAPACKE_NAME(dgtsv_work,DGTSV_WORK)+#define LAPACKE_cgtsv_work   LAPACKE_NAME(cgtsv_work,CGTSV_WORK)+#define LAPACKE_zgtsv_work   LAPACKE_NAME(zgtsv_work,ZGTSV_WORK)++#define LAPACKE_sgtsvx_work   LAPACKE_NAME(sgtsvx_work,SGTSVX_WORK)+#define LAPACKE_dgtsvx_work   LAPACKE_NAME(dgtsvx_work,DGTSVX_WORK)+#define LAPACKE_cgtsvx_work   LAPACKE_NAME(cgtsvx_work,CGTSVX_WORK)+#define LAPACKE_zgtsvx_work   LAPACKE_NAME(zgtsvx_work,ZGTSVX_WORK)++#define LAPACKE_sgttrf_work   LAPACKE_NAME(sgttrf_work,SGTTRF_WORK)+#define LAPACKE_dgttrf_work   LAPACKE_NAME(dgttrf_work,DGTTRF_WORK)+#define LAPACKE_cgttrf_work   LAPACKE_NAME(cgttrf_work,CGTTRF_WORK)+#define LAPACKE_zgttrf_work   LAPACKE_NAME(zgttrf_work,ZGTTRF_WORK)++#define LAPACKE_sgttrs_work   LAPACKE_NAME(sgttrs_work,SGTTRS_WORK)+#define LAPACKE_dgttrs_work   LAPACKE_NAME(dgttrs_work,DGTTRS_WORK)+#define LAPACKE_cgttrs_work   LAPACKE_NAME(cgttrs_work,CGTTRS_WORK)+#define LAPACKE_zgttrs_work   LAPACKE_NAME(zgttrs_work,ZGTTRS_WORK)++#define LAPACKE_chbev_work   LAPACKE_NAME(chbev_work,CHBEV_WORK)+#define LAPACKE_zhbev_work   LAPACKE_NAME(zhbev_work,ZHBEV_WORK)++#define LAPACKE_chbevd_work   LAPACKE_NAME(chbevd_work,CHBEVD_WORK)+#define LAPACKE_zhbevd_work   LAPACKE_NAME(zhbevd_work,ZHBEVD_WORK)++#define LAPACKE_chbevx_work   LAPACKE_NAME(chbevx_work,CHBEVX_WORK)+#define LAPACKE_zhbevx_work   LAPACKE_NAME(zhbevx_work,ZHBEVX_WORK)++#define LAPACKE_chbgst_work   LAPACKE_NAME(chbgst_work,CHBGST_WORK)+#define LAPACKE_zhbgst_work   LAPACKE_NAME(zhbgst_work,ZHBGST_WORK)++#define LAPACKE_chbgv_work   LAPACKE_NAME(chbgv_work,CHBGV_WORK)+#define LAPACKE_zhbgv_work   LAPACKE_NAME(zhbgv_work,ZHBGV_WORK)++#define LAPACKE_chbgvd_work   LAPACKE_NAME(chbgvd_work,CHBGVD_WORK)+#define LAPACKE_zhbgvd_work   LAPACKE_NAME(zhbgvd_work,ZHBGVD_WORK)++#define LAPACKE_chbgvx_work   LAPACKE_NAME(chbgvx_work,CHBGVX_WORK)+#define LAPACKE_zhbgvx_work   LAPACKE_NAME(zhbgvx_work,ZHBGVX_WORK)++#define LAPACKE_chbtrd_work   LAPACKE_NAME(chbtrd_work,CHBTRD_WORK)+#define LAPACKE_zhbtrd_work   LAPACKE_NAME(zhbtrd_work,ZHBTRD_WORK)++#define LAPACKE_checon_work   LAPACKE_NAME(checon_work,CHECON_WORK)+#define LAPACKE_zhecon_work   LAPACKE_NAME(zhecon_work,ZHECON_WORK)++#define LAPACKE_cheequb_work   LAPACKE_NAME(cheequb_work,CHEEQUB_WORK)+#define LAPACKE_zheequb_work   LAPACKE_NAME(zheequb_work,ZHEEQUB_WORK)++#define LAPACKE_cheev_work   LAPACKE_NAME(cheev_work,CHEEV_WORK)+#define LAPACKE_zheev_work   LAPACKE_NAME(zheev_work,ZHEEV_WORK)++#define LAPACKE_cheevd_work   LAPACKE_NAME(cheevd_work,CHEEVD_WORK)+#define LAPACKE_zheevd_work   LAPACKE_NAME(zheevd_work,ZHEEVD_WORK)++#define LAPACKE_cheevr_work   LAPACKE_NAME(cheevr_work,CHEEVR_WORK)+#define LAPACKE_zheevr_work   LAPACKE_NAME(zheevr_work,ZHEEVR_WORK)++#define LAPACKE_cheevx_work   LAPACKE_NAME(cheevx_work,CHEEVX_WORK)+#define LAPACKE_zheevx_work   LAPACKE_NAME(zheevx_work,ZHEEVX_WORK)++#define LAPACKE_chegst_work   LAPACKE_NAME(chegst_work,CHEGST_WORK)+#define LAPACKE_zhegst_work   LAPACKE_NAME(zhegst_work,ZHEGST_WORK)++#define LAPACKE_chegv_work   LAPACKE_NAME(chegv_work,CHEGV_WORK)+#define LAPACKE_zhegv_work   LAPACKE_NAME(zhegv_work,ZHEGV_WORK)++#define LAPACKE_chegvd_work   LAPACKE_NAME(chegvd_work,CHEGVD_WORK)+#define LAPACKE_zhegvd_work   LAPACKE_NAME(zhegvd_work,ZHEGVD_WORK)++#define LAPACKE_chegvx_work   LAPACKE_NAME(chegvx_work,CHEGVX_WORK)+#define LAPACKE_zhegvx_work   LAPACKE_NAME(zhegvx_work,ZHEGVX_WORK)++#define LAPACKE_cherfs_work   LAPACKE_NAME(cherfs_work,CHERFS_WORK)+#define LAPACKE_zherfs_work   LAPACKE_NAME(zherfs_work,ZHERFS_WORK)++#define LAPACKE_cherfsx_work   LAPACKE_NAME(cherfsx_work,CHERFSX_WORK)+#define LAPACKE_zherfsx_work   LAPACKE_NAME(zherfsx_work,ZHERFSX_WORK)++#define LAPACKE_chesv_work   LAPACKE_NAME(chesv_work,CHESV_WORK)+#define LAPACKE_zhesv_work   LAPACKE_NAME(zhesv_work,ZHESV_WORK)++#define LAPACKE_chesvx_work   LAPACKE_NAME(chesvx_work,CHESVX_WORK)+#define LAPACKE_zhesvx_work   LAPACKE_NAME(zhesvx_work,ZHESVX_WORK)++#define LAPACKE_chesvxx_work   LAPACKE_NAME(chesvxx_work,CHESVXX_WORK)+#define LAPACKE_zhesvxx_work   LAPACKE_NAME(zhesvxx_work,ZHESVXX_WORK)++#define LAPACKE_chetrd_work   LAPACKE_NAME(chetrd_work,CHETRD_WORK)+#define LAPACKE_zhetrd_work   LAPACKE_NAME(zhetrd_work,ZHETRD_WORK)++#define LAPACKE_chetrf_work   LAPACKE_NAME(chetrf_work,CHETRF_WORK)+#define LAPACKE_zhetrf_work   LAPACKE_NAME(zhetrf_work,ZHETRF_WORK)++#define LAPACKE_chetri_work   LAPACKE_NAME(chetri_work,CHETRI_WORK)+#define LAPACKE_zhetri_work   LAPACKE_NAME(zhetri_work,ZHETRI_WORK)++#define LAPACKE_chetrs_work   LAPACKE_NAME(chetrs_work,CHETRS_WORK)+#define LAPACKE_zhetrs_work   LAPACKE_NAME(zhetrs_work,ZHETRS_WORK)++#define LAPACKE_chfrk_work   LAPACKE_NAME(chfrk_work,CHFRK_WORK)+#define LAPACKE_zhfrk_work   LAPACKE_NAME(zhfrk_work,ZHFRK_WORK)++#define LAPACKE_shgeqz_work   LAPACKE_NAME(shgeqz_work,SHGEQZ_WORK)+#define LAPACKE_dhgeqz_work   LAPACKE_NAME(dhgeqz_work,DHGEQZ_WORK)+#define LAPACKE_chgeqz_work   LAPACKE_NAME(chgeqz_work,CHGEQZ_WORK)+#define LAPACKE_zhgeqz_work   LAPACKE_NAME(zhgeqz_work,ZHGEQZ_WORK)++#define LAPACKE_chpcon_work   LAPACKE_NAME(chpcon_work,CHPCON_WORK)+#define LAPACKE_zhpcon_work   LAPACKE_NAME(zhpcon_work,ZHPCON_WORK)++#define LAPACKE_chpev_work   LAPACKE_NAME(chpev_work,CHPEV_WORK)+#define LAPACKE_zhpev_work   LAPACKE_NAME(zhpev_work,ZHPEV_WORK)++#define LAPACKE_chpevd_work   LAPACKE_NAME(chpevd_work,CHPEVD_WORK)+#define LAPACKE_zhpevd_work   LAPACKE_NAME(zhpevd_work,ZHPEVD_WORK)++#define LAPACKE_chpevx_work   LAPACKE_NAME(chpevx_work,CHPEVX_WORK)+#define LAPACKE_zhpevx_work   LAPACKE_NAME(zhpevx_work,ZHPEVX_WORK)++#define LAPACKE_chpgst_work   LAPACKE_NAME(chpgst_work,CHPGST_WORK)+#define LAPACKE_zhpgst_work   LAPACKE_NAME(zhpgst_work,ZHPGST_WORK)++#define LAPACKE_chpgv_work   LAPACKE_NAME(chpgv_work,CHPGV_WORK)+#define LAPACKE_zhpgv_work   LAPACKE_NAME(zhpgv_work,ZHPGV_WORK)++#define LAPACKE_chpgvd_work   LAPACKE_NAME(chpgvd_work,CHPGVD_WORK)+#define LAPACKE_zhpgvd_work   LAPACKE_NAME(zhpgvd_work,ZHPGVD_WORK)++#define LAPACKE_chpgvx_work   LAPACKE_NAME(chpgvx_work,CHPGVX_WORK)+#define LAPACKE_zhpgvx_work   LAPACKE_NAME(zhpgvx_work,ZHPGVX_WORK)++#define LAPACKE_chprfs_work   LAPACKE_NAME(chprfs_work,CHPRFS_WORK)+#define LAPACKE_zhprfs_work   LAPACKE_NAME(zhprfs_work,ZHPRFS_WORK)++#define LAPACKE_chpsv_work   LAPACKE_NAME(chpsv_work,CHPSV_WORK)+#define LAPACKE_zhpsv_work   LAPACKE_NAME(zhpsv_work,ZHPSV_WORK)++#define LAPACKE_chpsvx_work   LAPACKE_NAME(chpsvx_work,CHPSVX_WORK)+#define LAPACKE_zhpsvx_work   LAPACKE_NAME(zhpsvx_work,ZHPSVX_WORK)++#define LAPACKE_chptrd_work   LAPACKE_NAME(chptrd_work,CHPTRD_WORK)+#define LAPACKE_zhptrd_work   LAPACKE_NAME(zhptrd_work,ZHPTRD_WORK)++#define LAPACKE_chptrf_work   LAPACKE_NAME(chptrf_work,CHPTRF_WORK)+#define LAPACKE_zhptrf_work   LAPACKE_NAME(zhptrf_work,ZHPTRF_WORK)++#define LAPACKE_chptri_work   LAPACKE_NAME(chptri_work,CHPTRI_WORK)+#define LAPACKE_zhptri_work   LAPACKE_NAME(zhptri_work,ZHPTRI_WORK)++#define LAPACKE_chptrs_work   LAPACKE_NAME(chptrs_work,CHPTRS_WORK)+#define LAPACKE_zhptrs_work   LAPACKE_NAME(zhptrs_work,ZHPTRS_WORK)++#define LAPACKE_shsein_work   LAPACKE_NAME(shsein_work,SHSEIN_WORK)+#define LAPACKE_dhsein_work   LAPACKE_NAME(dhsein_work,DHSEIN_WORK)+#define LAPACKE_chsein_work   LAPACKE_NAME(chsein_work,CHSEIN_WORK)+#define LAPACKE_zhsein_work   LAPACKE_NAME(zhsein_work,ZHSEIN_WORK)++#define LAPACKE_shseqr_work   LAPACKE_NAME(shseqr_work,SHSEQR_WORK)+#define LAPACKE_dhseqr_work   LAPACKE_NAME(dhseqr_work,DHSEQR_WORK)+#define LAPACKE_chseqr_work   LAPACKE_NAME(chseqr_work,CHSEQR_WORK)+#define LAPACKE_zhseqr_work   LAPACKE_NAME(zhseqr_work,ZHSEQR_WORK)++#define LAPACKE_clacgv_work   LAPACKE_NAME(clacgv_work,CLACGV_WORK)+#define LAPACKE_zlacgv_work   LAPACKE_NAME(zlacgv_work,ZLACGV_WORK)++#define LAPACKE_slacpy_work   LAPACKE_NAME(slacpy_work,SLACPY_WORK)+#define LAPACKE_dlacpy_work   LAPACKE_NAME(dlacpy_work,DLACPY_WORK)+#define LAPACKE_clacpy_work   LAPACKE_NAME(clacpy_work,CLACPY_WORK)+#define LAPACKE_zlacpy_work   LAPACKE_NAME(zlacpy_work,ZLACPY_WORK)++#define LAPACKE_zlag2c_work   LAPACKE_NAME(zlag2c_work,ZLAG2C_WORK)++#define LAPACKE_slag2d_work   LAPACKE_NAME(slag2d_work,SLAG2D_WORK)++#define LAPACKE_dlag2s_work   LAPACKE_NAME(dlag2s_work,DLAG2S_WORK)++#define LAPACKE_clag2z_work   LAPACKE_NAME(clag2z_work,CLAG2Z_WORK)++#define LAPACKE_slagge_work   LAPACKE_NAME(slagge_work,SLAGGE_WORK)+#define LAPACKE_dlagge_work   LAPACKE_NAME(dlagge_work,DLAGGE_WORK)+#define LAPACKE_clagge_work   LAPACKE_NAME(clagge_work,CLAGGE_WORK)+#define LAPACKE_zlagge_work   LAPACKE_NAME(zlagge_work,ZLAGGE_WORK)++#define LAPACKE_slamch_work   LAPACKE_NAME(slamch_work,SLAMCH_WORK)+#define LAPACKE_dlamch_work   LAPACKE_NAME(dlamch_work,DLAMCH_WORK)++#define LAPACKE_slange_work   LAPACKE_NAME(slange_work,SLANGE_WORK)+#define LAPACKE_dlange_work   LAPACKE_NAME(dlange_work,DLANGE_WORK)+#define LAPACKE_clange_work   LAPACKE_NAME(clange_work,CLANGE_WORK)+#define LAPACKE_zlange_work   LAPACKE_NAME(zlange_work,ZLANGE_WORK)++#define LAPACKE_clanhe_work   LAPACKE_NAME(clanhe_work,CLANHE_WORK)+#define LAPACKE_zlanhe_work   LAPACKE_NAME(zlanhe_work,ZLANHE_WORK)++#define LAPACKE_slansy_work   LAPACKE_NAME(slansy_work,SLANSY_WORK)+#define LAPACKE_dlansy_work   LAPACKE_NAME(dlansy_work,DLANSY_WORK)+#define LAPACKE_clansy_work   LAPACKE_NAME(clansy_work,CLANSY_WORK)+#define LAPACKE_zlansy_work   LAPACKE_NAME(zlansy_work,ZLANSY_WORK)++#define LAPACKE_slantr_work   LAPACKE_NAME(slantr_work,SLANTR_WORK)+#define LAPACKE_dlantr_work   LAPACKE_NAME(dlantr_work,DLANTR_WORK)+#define LAPACKE_clantr_work   LAPACKE_NAME(clantr_work,CLANTR_WORK)+#define LAPACKE_zlantr_work   LAPACKE_NAME(zlantr_work,ZLANTR_WORK)++#define LAPACKE_slarfb_work   LAPACKE_NAME(slarfb_work,SLARFB_WORK)+#define LAPACKE_dlarfb_work   LAPACKE_NAME(dlarfb_work,DLARFB_WORK)+#define LAPACKE_clarfb_work   LAPACKE_NAME(clarfb_work,CLARFB_WORK)+#define LAPACKE_zlarfb_work   LAPACKE_NAME(zlarfb_work,ZLARFB_WORK)++#define LAPACKE_slarfg_work   LAPACKE_NAME(slarfg_work,SLARFG_WORK)+#define LAPACKE_dlarfg_work   LAPACKE_NAME(dlarfg_work,DLARFG_WORK)+#define LAPACKE_clarfg_work   LAPACKE_NAME(clarfg_work,CLARFG_WORK)+#define LAPACKE_zlarfg_work   LAPACKE_NAME(zlarfg_work,ZLARFG_WORK)++#define LAPACKE_slarft_work   LAPACKE_NAME(slarft_work,SLARFT_WORK)+#define LAPACKE_dlarft_work   LAPACKE_NAME(dlarft_work,DLARFT_WORK)+#define LAPACKE_clarft_work   LAPACKE_NAME(clarft_work,CLARFT_WORK)+#define LAPACKE_zlarft_work   LAPACKE_NAME(zlarft_work,ZLARFT_WORK)++#define LAPACKE_slarfx_work   LAPACKE_NAME(slarfx_work,SLARFX_WORK)+#define LAPACKE_dlarfx_work   LAPACKE_NAME(dlarfx_work,DLARFX_WORK)+#define LAPACKE_clarfx_work   LAPACKE_NAME(clarfx_work,CLARFX_WORK)+#define LAPACKE_zlarfx_work   LAPACKE_NAME(zlarfx_work,ZLARFX_WORK)++#define LAPACKE_slarnv_work   LAPACKE_NAME(slarnv_work,SLARNV_WORK)+#define LAPACKE_dlarnv_work   LAPACKE_NAME(dlarnv_work,DLARNV_WORK)+#define LAPACKE_clarnv_work   LAPACKE_NAME(clarnv_work,CLARNV_WORK)+#define LAPACKE_zlarnv_work   LAPACKE_NAME(zlarnv_work,ZLARNV_WORK)++#define LAPACKE_slaset_work   LAPACKE_NAME(slaset_work,SLASET_WORK)+#define LAPACKE_dlaset_work   LAPACKE_NAME(dlaset_work,DLASET_WORK)+#define LAPACKE_claset_work   LAPACKE_NAME(claset_work,CLASET_WORK)+#define LAPACKE_zlaset_work   LAPACKE_NAME(zlaset_work,ZLASET_WORK)++#define LAPACKE_slasrt_work   LAPACKE_NAME(slasrt_work,SLASRT_WORK)+#define LAPACKE_dlasrt_work   LAPACKE_NAME(dlasrt_work,DLASRT_WORK)++#define LAPACKE_slaswp_work   LAPACKE_NAME(slaswp_work,SLASWP_WORK)+#define LAPACKE_dlaswp_work   LAPACKE_NAME(dlaswp_work,DLASWP_WORK)+#define LAPACKE_claswp_work   LAPACKE_NAME(claswp_work,CLASWP_WORK)+#define LAPACKE_zlaswp_work   LAPACKE_NAME(zlaswp_work,ZLASWP_WORK)++#define LAPACKE_slatms_work   LAPACKE_NAME(slatms_work,SLATMS_WORK)+#define LAPACKE_dlatms_work   LAPACKE_NAME(dlatms_work,DLATMS_WORK)+#define LAPACKE_clatms_work   LAPACKE_NAME(clatms_work,CLATMS_WORK)+#define LAPACKE_zlatms_work   LAPACKE_NAME(zlatms_work,ZLATMS_WORK)++#define LAPACKE_slauum_work   LAPACKE_NAME(slauum_work,SLAUUM_WORK)+#define LAPACKE_dlauum_work   LAPACKE_NAME(dlauum_work,DLAUUM_WORK)+#define LAPACKE_clauum_work   LAPACKE_NAME(clauum_work,CLAUUM_WORK)+#define LAPACKE_zlauum_work   LAPACKE_NAME(zlauum_work,ZLAUUM_WORK)++#define LAPACKE_sopgtr_work   LAPACKE_NAME(sopgtr_work,SOPGTR_WORK)+#define LAPACKE_dopgtr_work   LAPACKE_NAME(dopgtr_work,DOPGTR_WORK)++#define LAPACKE_sopmtr_work   LAPACKE_NAME(sopmtr_work,SOPMTR_WORK)+#define LAPACKE_dopmtr_work   LAPACKE_NAME(dopmtr_work,DOPMTR_WORK)++#define LAPACKE_sorgbr_work   LAPACKE_NAME(sorgbr_work,SORGBR_WORK)+#define LAPACKE_dorgbr_work   LAPACKE_NAME(dorgbr_work,DORGBR_WORK)++#define LAPACKE_sorghr_work   LAPACKE_NAME(sorghr_work,SORGHR_WORK)+#define LAPACKE_dorghr_work   LAPACKE_NAME(dorghr_work,DORGHR_WORK)++#define LAPACKE_sorglq_work   LAPACKE_NAME(sorglq_work,SORGLQ_WORK)+#define LAPACKE_dorglq_work   LAPACKE_NAME(dorglq_work,DORGLQ_WORK)++#define LAPACKE_sorgql_work   LAPACKE_NAME(sorgql_work,SORGQL_WORK)+#define LAPACKE_dorgql_work   LAPACKE_NAME(dorgql_work,DORGQL_WORK)++#define LAPACKE_sorgqr_work   LAPACKE_NAME(sorgqr_work,SORGQR_WORK)+#define LAPACKE_dorgqr_work   LAPACKE_NAME(dorgqr_work,DORGQR_WORK)++#define LAPACKE_sorgrq_work   LAPACKE_NAME(sorgrq_work,SORGRQ_WORK)+#define LAPACKE_dorgrq_work   LAPACKE_NAME(dorgrq_work,DORGRQ_WORK)++#define LAPACKE_sorgtr_work   LAPACKE_NAME(sorgtr_work,SORGTR_WORK)+#define LAPACKE_dorgtr_work   LAPACKE_NAME(dorgtr_work,DORGTR_WORK)++#define LAPACKE_sormbr_work   LAPACKE_NAME(sormbr_work,SORMBR_WORK)+#define LAPACKE_dormbr_work   LAPACKE_NAME(dormbr_work,DORMBR_WORK)++#define LAPACKE_sormhr_work   LAPACKE_NAME(sormhr_work,SORMHR_WORK)+#define LAPACKE_dormhr_work   LAPACKE_NAME(dormhr_work,DORMHR_WORK)++#define LAPACKE_sormlq_work   LAPACKE_NAME(sormlq_work,SORMLQ_WORK)+#define LAPACKE_dormlq_work   LAPACKE_NAME(dormlq_work,DORMLQ_WORK)++#define LAPACKE_sormql_work   LAPACKE_NAME(sormql_work,SORMQL_WORK)+#define LAPACKE_dormql_work   LAPACKE_NAME(dormql_work,DORMQL_WORK)++#define LAPACKE_sormqr_work   LAPACKE_NAME(sormqr_work,SORMQR_WORK)+#define LAPACKE_dormqr_work   LAPACKE_NAME(dormqr_work,DORMQR_WORK)++#define LAPACKE_sormrq_work   LAPACKE_NAME(sormrq_work,SORMRQ_WORK)+#define LAPACKE_dormrq_work   LAPACKE_NAME(dormrq_work,DORMRQ_WORK)++#define LAPACKE_sormrz_work   LAPACKE_NAME(sormrz_work,SORMRZ_WORK)+#define LAPACKE_dormrz_work   LAPACKE_NAME(dormrz_work,DORMRZ_WORK)++#define LAPACKE_sormtr_work   LAPACKE_NAME(sormtr_work,SORMTR_WORK)+#define LAPACKE_dormtr_work   LAPACKE_NAME(dormtr_work,DORMTR_WORK)++#define LAPACKE_spbcon_work   LAPACKE_NAME(spbcon_work,SPBCON_WORK)+#define LAPACKE_dpbcon_work   LAPACKE_NAME(dpbcon_work,DPBCON_WORK)+#define LAPACKE_cpbcon_work   LAPACKE_NAME(cpbcon_work,CPBCON_WORK)+#define LAPACKE_zpbcon_work   LAPACKE_NAME(zpbcon_work,ZPBCON_WORK)++#define LAPACKE_spbequ_work   LAPACKE_NAME(spbequ_work,SPBEQU_WORK)+#define LAPACKE_dpbequ_work   LAPACKE_NAME(dpbequ_work,DPBEQU_WORK)+#define LAPACKE_cpbequ_work   LAPACKE_NAME(cpbequ_work,CPBEQU_WORK)+#define LAPACKE_zpbequ_work   LAPACKE_NAME(zpbequ_work,ZPBEQU_WORK)++#define LAPACKE_spbrfs_work   LAPACKE_NAME(spbrfs_work,SPBRFS_WORK)+#define LAPACKE_dpbrfs_work   LAPACKE_NAME(dpbrfs_work,DPBRFS_WORK)+#define LAPACKE_cpbrfs_work   LAPACKE_NAME(cpbrfs_work,CPBRFS_WORK)+#define LAPACKE_zpbrfs_work   LAPACKE_NAME(zpbrfs_work,ZPBRFS_WORK)++#define LAPACKE_spbstf_work   LAPACKE_NAME(spbstf_work,SPBSTF_WORK)+#define LAPACKE_dpbstf_work   LAPACKE_NAME(dpbstf_work,DPBSTF_WORK)+#define LAPACKE_cpbstf_work   LAPACKE_NAME(cpbstf_work,CPBSTF_WORK)+#define LAPACKE_zpbstf_work   LAPACKE_NAME(zpbstf_work,ZPBSTF_WORK)++#define LAPACKE_spbsv_work   LAPACKE_NAME(spbsv_work,SPBSV_WORK)+#define LAPACKE_dpbsv_work   LAPACKE_NAME(dpbsv_work,DPBSV_WORK)+#define LAPACKE_cpbsv_work   LAPACKE_NAME(cpbsv_work,CPBSV_WORK)+#define LAPACKE_zpbsv_work   LAPACKE_NAME(zpbsv_work,ZPBSV_WORK)++#define LAPACKE_spbsvx_work   LAPACKE_NAME(spbsvx_work,SPBSVX_WORK)+#define LAPACKE_dpbsvx_work   LAPACKE_NAME(dpbsvx_work,DPBSVX_WORK)+#define LAPACKE_cpbsvx_work   LAPACKE_NAME(cpbsvx_work,CPBSVX_WORK)+#define LAPACKE_zpbsvx_work   LAPACKE_NAME(zpbsvx_work,ZPBSVX_WORK)++#define LAPACKE_spbtrf_work   LAPACKE_NAME(spbtrf_work,SPBTRF_WORK)+#define LAPACKE_dpbtrf_work   LAPACKE_NAME(dpbtrf_work,DPBTRF_WORK)+#define LAPACKE_cpbtrf_work   LAPACKE_NAME(cpbtrf_work,CPBTRF_WORK)+#define LAPACKE_zpbtrf_work   LAPACKE_NAME(zpbtrf_work,ZPBTRF_WORK)++#define LAPACKE_spbtrs_work   LAPACKE_NAME(spbtrs_work,SPBTRS_WORK)+#define LAPACKE_dpbtrs_work   LAPACKE_NAME(dpbtrs_work,DPBTRS_WORK)+#define LAPACKE_cpbtrs_work   LAPACKE_NAME(cpbtrs_work,CPBTRS_WORK)+#define LAPACKE_zpbtrs_work   LAPACKE_NAME(zpbtrs_work,ZPBTRS_WORK)++#define LAPACKE_spftrf_work   LAPACKE_NAME(spftrf_work,SPFTRF_WORK)+#define LAPACKE_dpftrf_work   LAPACKE_NAME(dpftrf_work,DPFTRF_WORK)+#define LAPACKE_cpftrf_work   LAPACKE_NAME(cpftrf_work,CPFTRF_WORK)+#define LAPACKE_zpftrf_work   LAPACKE_NAME(zpftrf_work,ZPFTRF_WORK)++#define LAPACKE_spftri_work   LAPACKE_NAME(spftri_work,SPFTRI_WORK)+#define LAPACKE_dpftri_work   LAPACKE_NAME(dpftri_work,DPFTRI_WORK)+#define LAPACKE_cpftri_work   LAPACKE_NAME(cpftri_work,CPFTRI_WORK)+#define LAPACKE_zpftri_work   LAPACKE_NAME(zpftri_work,ZPFTRI_WORK)++#define LAPACKE_spftrs_work   LAPACKE_NAME(spftrs_work,SPFTRS_WORK)+#define LAPACKE_dpftrs_work   LAPACKE_NAME(dpftrs_work,DPFTRS_WORK)+#define LAPACKE_cpftrs_work   LAPACKE_NAME(cpftrs_work,CPFTRS_WORK)+#define LAPACKE_zpftrs_work   LAPACKE_NAME(zpftrs_work,ZPFTRS_WORK)++#define LAPACKE_spocon_work   LAPACKE_NAME(spocon_work,SPOCON_WORK)+#define LAPACKE_dpocon_work   LAPACKE_NAME(dpocon_work,DPOCON_WORK)+#define LAPACKE_cpocon_work   LAPACKE_NAME(cpocon_work,CPOCON_WORK)+#define LAPACKE_zpocon_work   LAPACKE_NAME(zpocon_work,ZPOCON_WORK)++#define LAPACKE_spoequ_work   LAPACKE_NAME(spoequ_work,SPOEQU_WORK)+#define LAPACKE_dpoequ_work   LAPACKE_NAME(dpoequ_work,DPOEQU_WORK)+#define LAPACKE_cpoequ_work   LAPACKE_NAME(cpoequ_work,CPOEQU_WORK)+#define LAPACKE_zpoequ_work   LAPACKE_NAME(zpoequ_work,ZPOEQU_WORK)++#define LAPACKE_spoequb_work   LAPACKE_NAME(spoequb_work,SPOEQUB_WORK)+#define LAPACKE_dpoequb_work   LAPACKE_NAME(dpoequb_work,DPOEQUB_WORK)+#define LAPACKE_cpoequb_work   LAPACKE_NAME(cpoequb_work,CPOEQUB_WORK)+#define LAPACKE_zpoequb_work   LAPACKE_NAME(zpoequb_work,ZPOEQUB_WORK)++#define LAPACKE_sporfs_work   LAPACKE_NAME(sporfs_work,SPORFS_WORK)+#define LAPACKE_dporfs_work   LAPACKE_NAME(dporfs_work,DPORFS_WORK)+#define LAPACKE_cporfs_work   LAPACKE_NAME(cporfs_work,CPORFS_WORK)+#define LAPACKE_zporfs_work   LAPACKE_NAME(zporfs_work,ZPORFS_WORK)++#define LAPACKE_sporfsx_work   LAPACKE_NAME(sporfsx_work,SPORFSX_WORK)+#define LAPACKE_dporfsx_work   LAPACKE_NAME(dporfsx_work,DPORFSX_WORK)+#define LAPACKE_cporfsx_work   LAPACKE_NAME(cporfsx_work,CPORFSX_WORK)+#define LAPACKE_zporfsx_work   LAPACKE_NAME(zporfsx_work,ZPORFSX_WORK)++#define LAPACKE_sposv_work   LAPACKE_NAME(sposv_work,SPOSV_WORK)+#define LAPACKE_dposv_work   LAPACKE_NAME(dposv_work,DPOSV_WORK)+#define LAPACKE_cposv_work   LAPACKE_NAME(cposv_work,CPOSV_WORK)+#define LAPACKE_zposv_work   LAPACKE_NAME(zposv_work,ZPOSV_WORK)+#define LAPACKE_dsposv_work   LAPACKE_NAME(dsposv_work,DSPOSV_WORK)+#define LAPACKE_zcposv_work   LAPACKE_NAME(zcposv_work,ZCPOSV_WORK)++#define LAPACKE_sposvx_work   LAPACKE_NAME(sposvx_work,SPOSVX_WORK)+#define LAPACKE_dposvx_work   LAPACKE_NAME(dposvx_work,DPOSVX_WORK)+#define LAPACKE_cposvx_work   LAPACKE_NAME(cposvx_work,CPOSVX_WORK)+#define LAPACKE_zposvx_work   LAPACKE_NAME(zposvx_work,ZPOSVX_WORK)++#define LAPACKE_sposvxx_work   LAPACKE_NAME(sposvxx_work,SPOSVXX_WORK)+#define LAPACKE_dposvxx_work   LAPACKE_NAME(dposvxx_work,DPOSVXX_WORK)+#define LAPACKE_cposvxx_work   LAPACKE_NAME(cposvxx_work,CPOSVXX_WORK)+#define LAPACKE_zposvxx_work   LAPACKE_NAME(zposvxx_work,ZPOSVXX_WORK)++#define LAPACKE_spotrf_work   LAPACKE_NAME(spotrf_work,SPOTRF_WORK)+#define LAPACKE_dpotrf_work   LAPACKE_NAME(dpotrf_work,DPOTRF_WORK)+#define LAPACKE_cpotrf_work   LAPACKE_NAME(cpotrf_work,CPOTRF_WORK)+#define LAPACKE_zpotrf_work   LAPACKE_NAME(zpotrf_work,ZPOTRF_WORK)++#define LAPACKE_spotri_work   LAPACKE_NAME(spotri_work,SPOTRI_WORK)+#define LAPACKE_dpotri_work   LAPACKE_NAME(dpotri_work,DPOTRI_WORK)+#define LAPACKE_cpotri_work   LAPACKE_NAME(cpotri_work,CPOTRI_WORK)+#define LAPACKE_zpotri_work   LAPACKE_NAME(zpotri_work,ZPOTRI_WORK)++#define LAPACKE_spotrs_work   LAPACKE_NAME(spotrs_work,SPOTRS_WORK)+#define LAPACKE_dpotrs_work   LAPACKE_NAME(dpotrs_work,DPOTRS_WORK)+#define LAPACKE_cpotrs_work   LAPACKE_NAME(cpotrs_work,CPOTRS_WORK)+#define LAPACKE_zpotrs_work   LAPACKE_NAME(zpotrs_work,ZPOTRS_WORK)++#define LAPACKE_sppcon_work   LAPACKE_NAME(sppcon_work,SPPCON_WORK)+#define LAPACKE_dppcon_work   LAPACKE_NAME(dppcon_work,DPPCON_WORK)+#define LAPACKE_cppcon_work   LAPACKE_NAME(cppcon_work,CPPCON_WORK)+#define LAPACKE_zppcon_work   LAPACKE_NAME(zppcon_work,ZPPCON_WORK)++#define LAPACKE_sppequ_work   LAPACKE_NAME(sppequ_work,SPPEQU_WORK)+#define LAPACKE_dppequ_work   LAPACKE_NAME(dppequ_work,DPPEQU_WORK)+#define LAPACKE_cppequ_work   LAPACKE_NAME(cppequ_work,CPPEQU_WORK)+#define LAPACKE_zppequ_work   LAPACKE_NAME(zppequ_work,ZPPEQU_WORK)++#define LAPACKE_spprfs_work   LAPACKE_NAME(spprfs_work,SPPRFS_WORK)+#define LAPACKE_dpprfs_work   LAPACKE_NAME(dpprfs_work,DPPRFS_WORK)+#define LAPACKE_cpprfs_work   LAPACKE_NAME(cpprfs_work,CPPRFS_WORK)+#define LAPACKE_zpprfs_work   LAPACKE_NAME(zpprfs_work,ZPPRFS_WORK)++#define LAPACKE_sppsv_work   LAPACKE_NAME(sppsv_work,SPPSV_WORK)+#define LAPACKE_dppsv_work   LAPACKE_NAME(dppsv_work,DPPSV_WORK)+#define LAPACKE_cppsv_work   LAPACKE_NAME(cppsv_work,CPPSV_WORK)+#define LAPACKE_zppsv_work   LAPACKE_NAME(zppsv_work,ZPPSV_WORK)++#define LAPACKE_sppsvx_work   LAPACKE_NAME(sppsvx_work,SPPSVX_WORK)+#define LAPACKE_dppsvx_work   LAPACKE_NAME(dppsvx_work,DPPSVX_WORK)+#define LAPACKE_cppsvx_work   LAPACKE_NAME(cppsvx_work,CPPSVX_WORK)+#define LAPACKE_zppsvx_work   LAPACKE_NAME(zppsvx_work,ZPPSVX_WORK)++#define LAPACKE_spptrf_work   LAPACKE_NAME(spptrf_work,SPPTRF_WORK)+#define LAPACKE_dpptrf_work   LAPACKE_NAME(dpptrf_work,DPPTRF_WORK)+#define LAPACKE_cpptrf_work   LAPACKE_NAME(cpptrf_work,CPPTRF_WORK)+#define LAPACKE_zpptrf_work   LAPACKE_NAME(zpptrf_work,ZPPTRF_WORK)++#define LAPACKE_spptri_work   LAPACKE_NAME(spptri_work,SPPTRI_WORK)+#define LAPACKE_dpptri_work   LAPACKE_NAME(dpptri_work,DPPTRI_WORK)+#define LAPACKE_cpptri_work   LAPACKE_NAME(cpptri_work,CPPTRI_WORK)+#define LAPACKE_zpptri_work   LAPACKE_NAME(zpptri_work,ZPPTRI_WORK)++#define LAPACKE_spptrs_work   LAPACKE_NAME(spptrs_work,SPPTRS_WORK)+#define LAPACKE_dpptrs_work   LAPACKE_NAME(dpptrs_work,DPPTRS_WORK)+#define LAPACKE_cpptrs_work   LAPACKE_NAME(cpptrs_work,CPPTRS_WORK)+#define LAPACKE_zpptrs_work   LAPACKE_NAME(zpptrs_work,ZPPTRS_WORK)++#define LAPACKE_spstrf_work   LAPACKE_NAME(spstrf_work,SPSTRF_WORK)+#define LAPACKE_dpstrf_work   LAPACKE_NAME(dpstrf_work,DPSTRF_WORK)+#define LAPACKE_cpstrf_work   LAPACKE_NAME(cpstrf_work,CPSTRF_WORK)+#define LAPACKE_zpstrf_work   LAPACKE_NAME(zpstrf_work,ZPSTRF_WORK)++#define LAPACKE_sptcon_work   LAPACKE_NAME(sptcon_work,SPTCON_WORK)+#define LAPACKE_dptcon_work   LAPACKE_NAME(dptcon_work,DPTCON_WORK)+#define LAPACKE_cptcon_work   LAPACKE_NAME(cptcon_work,CPTCON_WORK)+#define LAPACKE_zptcon_work   LAPACKE_NAME(zptcon_work,ZPTCON_WORK)++#define LAPACKE_spteqr_work   LAPACKE_NAME(spteqr_work,SPTEQR_WORK)+#define LAPACKE_dpteqr_work   LAPACKE_NAME(dpteqr_work,DPTEQR_WORK)+#define LAPACKE_cpteqr_work   LAPACKE_NAME(cpteqr_work,CPTEQR_WORK)+#define LAPACKE_zpteqr_work   LAPACKE_NAME(zpteqr_work,ZPTEQR_WORK)++#define LAPACKE_sptrfs_work   LAPACKE_NAME(sptrfs_work,SPTRFS_WORK)+#define LAPACKE_dptrfs_work   LAPACKE_NAME(dptrfs_work,DPTRFS_WORK)+#define LAPACKE_cptrfs_work   LAPACKE_NAME(cptrfs_work,CPTRFS_WORK)+#define LAPACKE_zptrfs_work   LAPACKE_NAME(zptrfs_work,ZPTRFS_WORK)++#define LAPACKE_sptsv_work   LAPACKE_NAME(sptsv_work,SPTSV_WORK)+#define LAPACKE_dptsv_work   LAPACKE_NAME(dptsv_work,DPTSV_WORK)+#define LAPACKE_cptsv_work   LAPACKE_NAME(cptsv_work,CPTSV_WORK)+#define LAPACKE_zptsv_work   LAPACKE_NAME(zptsv_work,ZPTSV_WORK)++#define LAPACKE_sptsvx_work   LAPACKE_NAME(sptsvx_work,SPTSVX_WORK)+#define LAPACKE_dptsvx_work   LAPACKE_NAME(dptsvx_work,DPTSVX_WORK)+#define LAPACKE_cptsvx_work   LAPACKE_NAME(cptsvx_work,CPTSVX_WORK)+#define LAPACKE_zptsvx_work   LAPACKE_NAME(zptsvx_work,ZPTSVX_WORK)++#define LAPACKE_spttrf_work   LAPACKE_NAME(spttrf_work,SPTTRF_WORK)+#define LAPACKE_dpttrf_work   LAPACKE_NAME(dpttrf_work,DPTTRF_WORK)+#define LAPACKE_cpttrf_work   LAPACKE_NAME(cpttrf_work,CPTTRF_WORK)+#define LAPACKE_zpttrf_work   LAPACKE_NAME(zpttrf_work,ZPTTRF_WORK)++#define LAPACKE_spttrs_work   LAPACKE_NAME(spttrs_work,SPTTRS_WORK)+#define LAPACKE_dpttrs_work   LAPACKE_NAME(dpttrs_work,DPTTRS_WORK)+#define LAPACKE_cpttrs_work   LAPACKE_NAME(cpttrs_work,CPTTRS_WORK)+#define LAPACKE_zpttrs_work   LAPACKE_NAME(zpttrs_work,ZPTTRS_WORK)++#define LAPACKE_ssbev_work   LAPACKE_NAME(ssbev_work,SSBEV_WORK)+#define LAPACKE_dsbev_work   LAPACKE_NAME(dsbev_work,DSBEV_WORK)++#define LAPACKE_ssbevd_work   LAPACKE_NAME(ssbevd_work,SSBEVD_WORK)+#define LAPACKE_dsbevd_work   LAPACKE_NAME(dsbevd_work,DSBEVD_WORK)++#define LAPACKE_ssbevx_work   LAPACKE_NAME(ssbevx_work,SSBEVX_WORK)+#define LAPACKE_dsbevx_work   LAPACKE_NAME(dsbevx_work,DSBEVX_WORK)++#define LAPACKE_ssbgst_work   LAPACKE_NAME(ssbgst_work,SSBGST_WORK)+#define LAPACKE_dsbgst_work   LAPACKE_NAME(dsbgst_work,DSBGST_WORK)++#define LAPACKE_ssbgv_work   LAPACKE_NAME(ssbgv_work,SSBGV_WORK)+#define LAPACKE_dsbgv_work   LAPACKE_NAME(dsbgv_work,DSBGV_WORK)++#define LAPACKE_ssbgvd_work   LAPACKE_NAME(ssbgvd_work,SSBGVD_WORK)+#define LAPACKE_dsbgvd_work   LAPACKE_NAME(dsbgvd_work,DSBGVD_WORK)++#define LAPACKE_ssbgvx_work   LAPACKE_NAME(ssbgvx_work,SSBGVX_WORK)+#define LAPACKE_dsbgvx_work   LAPACKE_NAME(dsbgvx_work,DSBGVX_WORK)++#define LAPACKE_ssbtrd_work   LAPACKE_NAME(ssbtrd_work,SSBTRD_WORK)+#define LAPACKE_dsbtrd_work   LAPACKE_NAME(dsbtrd_work,DSBTRD_WORK)++#define LAPACKE_ssfrk_work   LAPACKE_NAME(ssfrk_work,SSFRK_WORK)+#define LAPACKE_dsfrk_work   LAPACKE_NAME(dsfrk_work,DSFRK_WORK)++#define LAPACKE_sspcon_work   LAPACKE_NAME(sspcon_work,SSPCON_WORK)+#define LAPACKE_dspcon_work   LAPACKE_NAME(dspcon_work,DSPCON_WORK)+#define LAPACKE_cspcon_work   LAPACKE_NAME(cspcon_work,CSPCON_WORK)+#define LAPACKE_zspcon_work   LAPACKE_NAME(zspcon_work,ZSPCON_WORK)++#define LAPACKE_sspev_work   LAPACKE_NAME(sspev_work,SSPEV_WORK)+#define LAPACKE_dspev_work   LAPACKE_NAME(dspev_work,DSPEV_WORK)++#define LAPACKE_sspevd_work   LAPACKE_NAME(sspevd_work,SSPEVD_WORK)+#define LAPACKE_dspevd_work   LAPACKE_NAME(dspevd_work,DSPEVD_WORK)++#define LAPACKE_sspevx_work   LAPACKE_NAME(sspevx_work,SSPEVX_WORK)+#define LAPACKE_dspevx_work   LAPACKE_NAME(dspevx_work,DSPEVX_WORK)++#define LAPACKE_sspgst_work   LAPACKE_NAME(sspgst_work,SSPGST_WORK)+#define LAPACKE_dspgst_work   LAPACKE_NAME(dspgst_work,DSPGST_WORK)++#define LAPACKE_sspgv_work   LAPACKE_NAME(sspgv_work,SSPGV_WORK)+#define LAPACKE_dspgv_work   LAPACKE_NAME(dspgv_work,DSPGV_WORK)++#define LAPACKE_sspgvd_work   LAPACKE_NAME(sspgvd_work,SSPGVD_WORK)+#define LAPACKE_dspgvd_work   LAPACKE_NAME(dspgvd_work,DSPGVD_WORK)++#define LAPACKE_sspgvx_work   LAPACKE_NAME(sspgvx_work,SSPGVX_WORK)+#define LAPACKE_dspgvx_work   LAPACKE_NAME(dspgvx_work,DSPGVX_WORK)++#define LAPACKE_ssprfs_work   LAPACKE_NAME(ssprfs_work,SSPRFS_WORK)+#define LAPACKE_dsprfs_work   LAPACKE_NAME(dsprfs_work,DSPRFS_WORK)+#define LAPACKE_csprfs_work   LAPACKE_NAME(csprfs_work,CSPRFS_WORK)+#define LAPACKE_zsprfs_work   LAPACKE_NAME(zsprfs_work,ZSPRFS_WORK)++#define LAPACKE_sspsv_work   LAPACKE_NAME(sspsv_work,SSPSV_WORK)+#define LAPACKE_dspsv_work   LAPACKE_NAME(dspsv_work,DSPSV_WORK)+#define LAPACKE_cspsv_work   LAPACKE_NAME(cspsv_work,CSPSV_WORK)+#define LAPACKE_zspsv_work   LAPACKE_NAME(zspsv_work,ZSPSV_WORK)++#define LAPACKE_sspsvx_work   LAPACKE_NAME(sspsvx_work,SSPSVX_WORK)+#define LAPACKE_dspsvx_work   LAPACKE_NAME(dspsvx_work,DSPSVX_WORK)+#define LAPACKE_cspsvx_work   LAPACKE_NAME(cspsvx_work,CSPSVX_WORK)+#define LAPACKE_zspsvx_work   LAPACKE_NAME(zspsvx_work,ZSPSVX_WORK)++#define LAPACKE_ssptrd_work   LAPACKE_NAME(ssptrd_work,SSPTRD_WORK)+#define LAPACKE_dsptrd_work   LAPACKE_NAME(dsptrd_work,DSPTRD_WORK)++#define LAPACKE_ssptrf_work   LAPACKE_NAME(ssptrf_work,SSPTRF_WORK)+#define LAPACKE_dsptrf_work   LAPACKE_NAME(dsptrf_work,DSPTRF_WORK)+#define LAPACKE_csptrf_work   LAPACKE_NAME(csptrf_work,CSPTRF_WORK)+#define LAPACKE_zsptrf_work   LAPACKE_NAME(zsptrf_work,ZSPTRF_WORK)++#define LAPACKE_ssptri_work   LAPACKE_NAME(ssptri_work,SSPTRI_WORK)+#define LAPACKE_dsptri_work   LAPACKE_NAME(dsptri_work,DSPTRI_WORK)+#define LAPACKE_csptri_work   LAPACKE_NAME(csptri_work,CSPTRI_WORK)+#define LAPACKE_zsptri_work   LAPACKE_NAME(zsptri_work,ZSPTRI_WORK)++#define LAPACKE_ssptrs_work   LAPACKE_NAME(ssptrs_work,SSPTRS_WORK)+#define LAPACKE_dsptrs_work   LAPACKE_NAME(dsptrs_work,DSPTRS_WORK)+#define LAPACKE_csptrs_work   LAPACKE_NAME(csptrs_work,CSPTRS_WORK)+#define LAPACKE_zsptrs_work   LAPACKE_NAME(zsptrs_work,ZSPTRS_WORK)++#define LAPACKE_sstebz_work   LAPACKE_NAME(sstebz_work,SSTEBZ_WORK)+#define LAPACKE_dstebz_work   LAPACKE_NAME(dstebz_work,DSTEBZ_WORK)++#define LAPACKE_sstedc_work   LAPACKE_NAME(sstedc_work,SSTEDC_WORK)+#define LAPACKE_dstedc_work   LAPACKE_NAME(dstedc_work,DSTEDC_WORK)+#define LAPACKE_cstedc_work   LAPACKE_NAME(cstedc_work,CSTEDC_WORK)+#define LAPACKE_zstedc_work   LAPACKE_NAME(zstedc_work,ZSTEDC_WORK)++#define LAPACKE_sstegr_work   LAPACKE_NAME(sstegr_work,SSTEGR_WORK)+#define LAPACKE_dstegr_work   LAPACKE_NAME(dstegr_work,DSTEGR_WORK)+#define LAPACKE_cstegr_work   LAPACKE_NAME(cstegr_work,CSTEGR_WORK)+#define LAPACKE_zstegr_work   LAPACKE_NAME(zstegr_work,ZSTEGR_WORK)++#define LAPACKE_sstein_work   LAPACKE_NAME(sstein_work,SSTEIN_WORK)+#define LAPACKE_dstein_work   LAPACKE_NAME(dstein_work,DSTEIN_WORK)+#define LAPACKE_cstein_work   LAPACKE_NAME(cstein_work,CSTEIN_WORK)+#define LAPACKE_zstein_work   LAPACKE_NAME(zstein_work,ZSTEIN_WORK)++#define LAPACKE_sstemr_work   LAPACKE_NAME(sstemr_work,SSTEMR_WORK)+#define LAPACKE_dstemr_work   LAPACKE_NAME(dstemr_work,DSTEMR_WORK)+#define LAPACKE_cstemr_work   LAPACKE_NAME(cstemr_work,CSTEMR_WORK)+#define LAPACKE_zstemr_work   LAPACKE_NAME(zstemr_work,ZSTEMR_WORK)++#define LAPACKE_ssteqr_work   LAPACKE_NAME(ssteqr_work,SSTEQR_WORK)+#define LAPACKE_dsteqr_work   LAPACKE_NAME(dsteqr_work,DSTEQR_WORK)+#define LAPACKE_csteqr_work   LAPACKE_NAME(csteqr_work,CSTEQR_WORK)+#define LAPACKE_zsteqr_work   LAPACKE_NAME(zsteqr_work,ZSTEQR_WORK)++#define LAPACKE_ssterf_work   LAPACKE_NAME(ssterf_work,SSTERF_WORK)+#define LAPACKE_dsterf_work   LAPACKE_NAME(dsterf_work,DSTERF_WORK)++#define LAPACKE_sstev_work   LAPACKE_NAME(sstev_work,SSTEV_WORK)+#define LAPACKE_dstev_work   LAPACKE_NAME(dstev_work,DSTEV_WORK)++#define LAPACKE_sstevd_work   LAPACKE_NAME(sstevd_work,SSTEVD_WORK)+#define LAPACKE_dstevd_work   LAPACKE_NAME(dstevd_work,DSTEVD_WORK)++#define LAPACKE_sstevr_work   LAPACKE_NAME(sstevr_work,SSTEVR_WORK)+#define LAPACKE_dstevr_work   LAPACKE_NAME(dstevr_work,DSTEVR_WORK)++#define LAPACKE_sstevx_work   LAPACKE_NAME(sstevx_work,SSTEVX_WORK)+#define LAPACKE_dstevx_work   LAPACKE_NAME(dstevx_work,DSTEVX_WORK)++#define LAPACKE_ssycon_work   LAPACKE_NAME(ssycon_work,SSYCON_WORK)+#define LAPACKE_dsycon_work   LAPACKE_NAME(dsycon_work,DSYCON_WORK)+#define LAPACKE_csycon_work   LAPACKE_NAME(csycon_work,CSYCON_WORK)+#define LAPACKE_zsycon_work   LAPACKE_NAME(zsycon_work,ZSYCON_WORK)++#define LAPACKE_ssyequb_work   LAPACKE_NAME(ssyequb_work,SSYEQUB_WORK)+#define LAPACKE_dsyequb_work   LAPACKE_NAME(dsyequb_work,DSYEQUB_WORK)+#define LAPACKE_csyequb_work   LAPACKE_NAME(csyequb_work,CSYEQUB_WORK)+#define LAPACKE_zsyequb_work   LAPACKE_NAME(zsyequb_work,ZSYEQUB_WORK)++#define LAPACKE_ssyev_work   LAPACKE_NAME(ssyev_work,SSYEV_WORK)+#define LAPACKE_dsyev_work   LAPACKE_NAME(dsyev_work,DSYEV_WORK)++#define LAPACKE_ssyevd_work   LAPACKE_NAME(ssyevd_work,SSYEVD_WORK)+#define LAPACKE_dsyevd_work   LAPACKE_NAME(dsyevd_work,DSYEVD_WORK)++#define LAPACKE_ssyevr_work   LAPACKE_NAME(ssyevr_work,SSYEVR_WORK)+#define LAPACKE_dsyevr_work   LAPACKE_NAME(dsyevr_work,DSYEVR_WORK)++#define LAPACKE_ssyevx_work   LAPACKE_NAME(ssyevx_work,SSYEVX_WORK)+#define LAPACKE_dsyevx_work   LAPACKE_NAME(dsyevx_work,DSYEVX_WORK)++#define LAPACKE_ssygst_work   LAPACKE_NAME(ssygst_work,SSYGST_WORK)+#define LAPACKE_dsygst_work   LAPACKE_NAME(dsygst_work,DSYGST_WORK)++#define LAPACKE_ssygv_work   LAPACKE_NAME(ssygv_work,SSYGV_WORK)+#define LAPACKE_dsygv_work   LAPACKE_NAME(dsygv_work,DSYGV_WORK)++#define LAPACKE_ssygvd_work   LAPACKE_NAME(ssygvd_work,SSYGVD_WORK)+#define LAPACKE_dsygvd_work   LAPACKE_NAME(dsygvd_work,DSYGVD_WORK)++#define LAPACKE_ssygvx_work   LAPACKE_NAME(ssygvx_work,SSYGVX_WORK)+#define LAPACKE_dsygvx_work   LAPACKE_NAME(dsygvx_work,DSYGVX_WORK)++#define LAPACKE_ssyrfs_work   LAPACKE_NAME(ssyrfs_work,SSYRFS_WORK)+#define LAPACKE_dsyrfs_work   LAPACKE_NAME(dsyrfs_work,DSYRFS_WORK)+#define LAPACKE_csyrfs_work   LAPACKE_NAME(csyrfs_work,CSYRFS_WORK)+#define LAPACKE_zsyrfs_work   LAPACKE_NAME(zsyrfs_work,ZSYRFS_WORK)++#define LAPACKE_ssyrfsx_work   LAPACKE_NAME(ssyrfsx_work,SSYRFSX_WORK)+#define LAPACKE_dsyrfsx_work   LAPACKE_NAME(dsyrfsx_work,DSYRFSX_WORK)+#define LAPACKE_csyrfsx_work   LAPACKE_NAME(csyrfsx_work,CSYRFSX_WORK)+#define LAPACKE_zsyrfsx_work   LAPACKE_NAME(zsyrfsx_work,ZSYRFSX_WORK)++#define LAPACKE_ssysv_work   LAPACKE_NAME(ssysv_work,SSYSV_WORK)+#define LAPACKE_dsysv_work   LAPACKE_NAME(dsysv_work,DSYSV_WORK)+#define LAPACKE_csysv_work   LAPACKE_NAME(csysv_work,CSYSV_WORK)+#define LAPACKE_zsysv_work   LAPACKE_NAME(zsysv_work,ZSYSV_WORK)++#define LAPACKE_ssysvx_work   LAPACKE_NAME(ssysvx_work,SSYSVX_WORK)+#define LAPACKE_dsysvx_work   LAPACKE_NAME(dsysvx_work,DSYSVX_WORK)+#define LAPACKE_csysvx_work   LAPACKE_NAME(csysvx_work,CSYSVX_WORK)+#define LAPACKE_zsysvx_work   LAPACKE_NAME(zsysvx_work,ZSYSVX_WORK)++#define LAPACKE_ssysvxx_work   LAPACKE_NAME(ssysvxx_work,SSYSVXX_WORK)+#define LAPACKE_dsysvxx_work   LAPACKE_NAME(dsysvxx_work,DSYSVXX_WORK)+#define LAPACKE_csysvxx_work   LAPACKE_NAME(csysvxx_work,CSYSVXX_WORK)+#define LAPACKE_zsysvxx_work   LAPACKE_NAME(zsysvxx_work,ZSYSVXX_WORK)++#define LAPACKE_ssytrd_work   LAPACKE_NAME(ssytrd_work,SSYTRD_WORK)+#define LAPACKE_dsytrd_work   LAPACKE_NAME(dsytrd_work,DSYTRD_WORK)++#define LAPACKE_ssytrf_work   LAPACKE_NAME(ssytrf_work,SSYTRF_WORK)+#define LAPACKE_dsytrf_work   LAPACKE_NAME(dsytrf_work,DSYTRF_WORK)+#define LAPACKE_csytrf_work   LAPACKE_NAME(csytrf_work,CSYTRF_WORK)+#define LAPACKE_zsytrf_work   LAPACKE_NAME(zsytrf_work,ZSYTRF_WORK)++#define LAPACKE_ssytri_work   LAPACKE_NAME(ssytri_work,SSYTRI_WORK)+#define LAPACKE_dsytri_work   LAPACKE_NAME(dsytri_work,DSYTRI_WORK)+#define LAPACKE_csytri_work   LAPACKE_NAME(csytri_work,CSYTRI_WORK)+#define LAPACKE_zsytri_work   LAPACKE_NAME(zsytri_work,ZSYTRI_WORK)++#define LAPACKE_ssytrs_work   LAPACKE_NAME(ssytrs_work,SSYTRS_WORK)+#define LAPACKE_dsytrs_work   LAPACKE_NAME(dsytrs_work,DSYTRS_WORK)+#define LAPACKE_csytrs_work   LAPACKE_NAME(csytrs_work,CSYTRS_WORK)+#define LAPACKE_zsytrs_work   LAPACKE_NAME(zsytrs_work,ZSYTRS_WORK)++#define LAPACKE_stbcon_work   LAPACKE_NAME(stbcon_work,STBCON_WORK)+#define LAPACKE_dtbcon_work   LAPACKE_NAME(dtbcon_work,DTBCON_WORK)+#define LAPACKE_ctbcon_work   LAPACKE_NAME(ctbcon_work,CTBCON_WORK)+#define LAPACKE_ztbcon_work   LAPACKE_NAME(ztbcon_work,ZTBCON_WORK)++#define LAPACKE_stbrfs_work   LAPACKE_NAME(stbrfs_work,STBRFS_WORK)+#define LAPACKE_dtbrfs_work   LAPACKE_NAME(dtbrfs_work,DTBRFS_WORK)+#define LAPACKE_ctbrfs_work   LAPACKE_NAME(ctbrfs_work,CTBRFS_WORK)+#define LAPACKE_ztbrfs_work   LAPACKE_NAME(ztbrfs_work,ZTBRFS_WORK)++#define LAPACKE_stbtrs_work   LAPACKE_NAME(stbtrs_work,STBTRS_WORK)+#define LAPACKE_dtbtrs_work   LAPACKE_NAME(dtbtrs_work,DTBTRS_WORK)+#define LAPACKE_ctbtrs_work   LAPACKE_NAME(ctbtrs_work,CTBTRS_WORK)+#define LAPACKE_ztbtrs_work   LAPACKE_NAME(ztbtrs_work,ZTBTRS_WORK)++#define LAPACKE_stfsm_work   LAPACKE_NAME(stfsm_work,STFSM_WORK)+#define LAPACKE_dtfsm_work   LAPACKE_NAME(dtfsm_work,DTFSM_WORK)+#define LAPACKE_ctfsm_work   LAPACKE_NAME(ctfsm_work,CTFSM_WORK)+#define LAPACKE_ztfsm_work   LAPACKE_NAME(ztfsm_work,ZTFSM_WORK)++#define LAPACKE_stftri_work   LAPACKE_NAME(stftri_work,STFTRI_WORK)+#define LAPACKE_dtftri_work   LAPACKE_NAME(dtftri_work,DTFTRI_WORK)+#define LAPACKE_ctftri_work   LAPACKE_NAME(ctftri_work,CTFTRI_WORK)+#define LAPACKE_ztftri_work   LAPACKE_NAME(ztftri_work,ZTFTRI_WORK)++#define LAPACKE_stfttp_work   LAPACKE_NAME(stfttp_work,STFTTP_WORK)+#define LAPACKE_dtfttp_work   LAPACKE_NAME(dtfttp_work,DTFTTP_WORK)+#define LAPACKE_ctfttp_work   LAPACKE_NAME(ctfttp_work,CTFTTP_WORK)+#define LAPACKE_ztfttp_work   LAPACKE_NAME(ztfttp_work,ZTFTTP_WORK)++#define LAPACKE_stfttr_work   LAPACKE_NAME(stfttr_work,STFTTR_WORK)+#define LAPACKE_dtfttr_work   LAPACKE_NAME(dtfttr_work,DTFTTR_WORK)+#define LAPACKE_ctfttr_work   LAPACKE_NAME(ctfttr_work,CTFTTR_WORK)+#define LAPACKE_ztfttr_work   LAPACKE_NAME(ztfttr_work,ZTFTTR_WORK)++#define LAPACKE_stgevc_work   LAPACKE_NAME(stgevc_work,STGEVC_WORK)+#define LAPACKE_dtgevc_work   LAPACKE_NAME(dtgevc_work,DTGEVC_WORK)+#define LAPACKE_ctgevc_work   LAPACKE_NAME(ctgevc_work,CTGEVC_WORK)+#define LAPACKE_ztgevc_work   LAPACKE_NAME(ztgevc_work,ZTGEVC_WORK)++#define LAPACKE_stgexc_work   LAPACKE_NAME(stgexc_work,STGEXC_WORK)+#define LAPACKE_dtgexc_work   LAPACKE_NAME(dtgexc_work,DTGEXC_WORK)+#define LAPACKE_ctgexc_work   LAPACKE_NAME(ctgexc_work,CTGEXC_WORK)+#define LAPACKE_ztgexc_work   LAPACKE_NAME(ztgexc_work,ZTGEXC_WORK)++#define LAPACKE_stgsen_work   LAPACKE_NAME(stgsen_work,STGSEN_WORK)+#define LAPACKE_dtgsen_work   LAPACKE_NAME(dtgsen_work,DTGSEN_WORK)+#define LAPACKE_ctgsen_work   LAPACKE_NAME(ctgsen_work,CTGSEN_WORK)+#define LAPACKE_ztgsen_work   LAPACKE_NAME(ztgsen_work,ZTGSEN_WORK)++#define LAPACKE_stgsja_work   LAPACKE_NAME(stgsja_work,STGSJA_WORK)+#define LAPACKE_dtgsja_work   LAPACKE_NAME(dtgsja_work,DTGSJA_WORK)+#define LAPACKE_ctgsja_work   LAPACKE_NAME(ctgsja_work,CTGSJA_WORK)+#define LAPACKE_ztgsja_work   LAPACKE_NAME(ztgsja_work,ZTGSJA_WORK)++#define LAPACKE_stgsna_work   LAPACKE_NAME(stgsna_work,STGSNA_WORK)+#define LAPACKE_dtgsna_work   LAPACKE_NAME(dtgsna_work,DTGSNA_WORK)+#define LAPACKE_ctgsna_work   LAPACKE_NAME(ctgsna_work,CTGSNA_WORK)+#define LAPACKE_ztgsna_work   LAPACKE_NAME(ztgsna_work,ZTGSNA_WORK)++#define LAPACKE_stgsyl_work   LAPACKE_NAME(stgsyl_work,STGSYL_WORK)+#define LAPACKE_dtgsyl_work   LAPACKE_NAME(dtgsyl_work,DTGSYL_WORK)+#define LAPACKE_ctgsyl_work   LAPACKE_NAME(ctgsyl_work,CTGSYL_WORK)+#define LAPACKE_ztgsyl_work   LAPACKE_NAME(ztgsyl_work,ZTGSYL_WORK)++#define LAPACKE_stpcon_work   LAPACKE_NAME(stpcon_work,STPCON_WORK)+#define LAPACKE_dtpcon_work   LAPACKE_NAME(dtpcon_work,DTPCON_WORK)+#define LAPACKE_ctpcon_work   LAPACKE_NAME(ctpcon_work,CTPCON_WORK)+#define LAPACKE_ztpcon_work   LAPACKE_NAME(ztpcon_work,ZTPCON_WORK)++#define LAPACKE_stprfs_work   LAPACKE_NAME(stprfs_work,STPRFS_WORK)+#define LAPACKE_dtprfs_work   LAPACKE_NAME(dtprfs_work,DTPRFS_WORK)+#define LAPACKE_ctprfs_work   LAPACKE_NAME(ctprfs_work,CTPRFS_WORK)+#define LAPACKE_ztprfs_work   LAPACKE_NAME(ztprfs_work,ZTPRFS_WORK)++#define LAPACKE_stptri_work   LAPACKE_NAME(stptri_work,STPTRI_WORK)+#define LAPACKE_dtptri_work   LAPACKE_NAME(dtptri_work,DTPTRI_WORK)+#define LAPACKE_ctptri_work   LAPACKE_NAME(ctptri_work,CTPTRI_WORK)+#define LAPACKE_ztptri_work   LAPACKE_NAME(ztptri_work,ZTPTRI_WORK)++#define LAPACKE_stptrs_work   LAPACKE_NAME(stptrs_work,STPTRS_WORK)+#define LAPACKE_dtptrs_work   LAPACKE_NAME(dtptrs_work,DTPTRS_WORK)+#define LAPACKE_ctptrs_work   LAPACKE_NAME(ctptrs_work,CTPTRS_WORK)+#define LAPACKE_ztptrs_work   LAPACKE_NAME(ztptrs_work,ZTPTRS_WORK)++#define LAPACKE_stpttf_work   LAPACKE_NAME(stpttf_work,STPTTF_WORK)+#define LAPACKE_dtpttf_work   LAPACKE_NAME(dtpttf_work,DTPTTF_WORK)+#define LAPACKE_ctpttf_work   LAPACKE_NAME(ctpttf_work,CTPTTF_WORK)+#define LAPACKE_ztpttf_work   LAPACKE_NAME(ztpttf_work,ZTPTTF_WORK)++#define LAPACKE_stpttr_work   LAPACKE_NAME(stpttr_work,STPTTR_WORK)+#define LAPACKE_dtpttr_work   LAPACKE_NAME(dtpttr_work,DTPTTR_WORK)+#define LAPACKE_ctpttr_work   LAPACKE_NAME(ctpttr_work,CTPTTR_WORK)+#define LAPACKE_ztpttr_work   LAPACKE_NAME(ztpttr_work,ZTPTTR_WORK)++#define LAPACKE_strcon_work   LAPACKE_NAME(strcon_work,STRCON_WORK)+#define LAPACKE_dtrcon_work   LAPACKE_NAME(dtrcon_work,DTRCON_WORK)+#define LAPACKE_ctrcon_work   LAPACKE_NAME(ctrcon_work,CTRCON_WORK)+#define LAPACKE_ztrcon_work   LAPACKE_NAME(ztrcon_work,ZTRCON_WORK)++#define LAPACKE_strevc_work   LAPACKE_NAME(strevc_work,STREVC_WORK)+#define LAPACKE_dtrevc_work   LAPACKE_NAME(dtrevc_work,DTREVC_WORK)+#define LAPACKE_ctrevc_work   LAPACKE_NAME(ctrevc_work,CTREVC_WORK)+#define LAPACKE_ztrevc_work   LAPACKE_NAME(ztrevc_work,ZTREVC_WORK)++#define LAPACKE_strexc_work   LAPACKE_NAME(strexc_work,STREXC_WORK)+#define LAPACKE_dtrexc_work   LAPACKE_NAME(dtrexc_work,DTREXC_WORK)+#define LAPACKE_ctrexc_work   LAPACKE_NAME(ctrexc_work,CTREXC_WORK)+#define LAPACKE_ztrexc_work   LAPACKE_NAME(ztrexc_work,ZTREXC_WORK)++#define LAPACKE_strrfs_work   LAPACKE_NAME(strrfs_work,STRRFS_WORK)+#define LAPACKE_dtrrfs_work   LAPACKE_NAME(dtrrfs_work,DTRRFS_WORK)+#define LAPACKE_ctrrfs_work   LAPACKE_NAME(ctrrfs_work,CTRRFS_WORK)+#define LAPACKE_ztrrfs_work   LAPACKE_NAME(ztrrfs_work,ZTRRFS_WORK)++#define LAPACKE_strsen_work   LAPACKE_NAME(strsen_work,STRSEN_WORK)+#define LAPACKE_dtrsen_work   LAPACKE_NAME(dtrsen_work,DTRSEN_WORK)+#define LAPACKE_ctrsen_work   LAPACKE_NAME(ctrsen_work,CTRSEN_WORK)+#define LAPACKE_ztrsen_work   LAPACKE_NAME(ztrsen_work,ZTRSEN_WORK)++#define LAPACKE_strsna_work   LAPACKE_NAME(strsna_work,STRSNA_WORK)+#define LAPACKE_dtrsna_work   LAPACKE_NAME(dtrsna_work,DTRSNA_WORK)+#define LAPACKE_ctrsna_work   LAPACKE_NAME(ctrsna_work,CTRSNA_WORK)+#define LAPACKE_ztrsna_work   LAPACKE_NAME(ztrsna_work,ZTRSNA_WORK)++#define LAPACKE_strsyl_work   LAPACKE_NAME(strsyl_work,STRSYL_WORK)+#define LAPACKE_dtrsyl_work   LAPACKE_NAME(dtrsyl_work,DTRSYL_WORK)+#define LAPACKE_ctrsyl_work   LAPACKE_NAME(ctrsyl_work,CTRSYL_WORK)+#define LAPACKE_ztrsyl_work   LAPACKE_NAME(ztrsyl_work,ZTRSYL_WORK)++#define LAPACKE_strtri_work   LAPACKE_NAME(strtri_work,STRTRI_WORK)+#define LAPACKE_dtrtri_work   LAPACKE_NAME(dtrtri_work,DTRTRI_WORK)+#define LAPACKE_ctrtri_work   LAPACKE_NAME(ctrtri_work,CTRTRI_WORK)+#define LAPACKE_ztrtri_work   LAPACKE_NAME(ztrtri_work,ZTRTRI_WORK)++#define LAPACKE_strtrs_work   LAPACKE_NAME(strtrs_work,STRTRS_WORK)+#define LAPACKE_dtrtrs_work   LAPACKE_NAME(dtrtrs_work,DTRTRS_WORK)+#define LAPACKE_ctrtrs_work   LAPACKE_NAME(ctrtrs_work,CTRTRS_WORK)+#define LAPACKE_ztrtrs_work   LAPACKE_NAME(ztrtrs_work,ZTRTRS_WORK)++#define LAPACKE_strttf_work   LAPACKE_NAME(strttf_work,STRTTF_WORK)+#define LAPACKE_dtrttf_work   LAPACKE_NAME(dtrttf_work,DTRTTF_WORK)+#define LAPACKE_ctrttf_work   LAPACKE_NAME(ctrttf_work,CTRTTF_WORK)+#define LAPACKE_ztrttf_work   LAPACKE_NAME(ztrttf_work,ZTRTTF_WORK)++#define LAPACKE_strttp_work   LAPACKE_NAME(strttp_work,STRTTP_WORK)+#define LAPACKE_dtrttp_work   LAPACKE_NAME(dtrttp_work,DTRTTP_WORK)+#define LAPACKE_ctrttp_work   LAPACKE_NAME(ctrttp_work,CTRTTP_WORK)+#define LAPACKE_ztrttp_work   LAPACKE_NAME(ztrttp_work,ZTRTTP_WORK)++#define LAPACKE_stzrzf_work   LAPACKE_NAME(stzrzf_work,STZRZF_WORK)+#define LAPACKE_dtzrzf_work   LAPACKE_NAME(dtzrzf_work,DTZRZF_WORK)+#define LAPACKE_ctzrzf_work   LAPACKE_NAME(ctzrzf_work,CTZRZF_WORK)+#define LAPACKE_ztzrzf_work   LAPACKE_NAME(ztzrzf_work,ZTZRZF_WORK)++#define LAPACKE_cungbr_work   LAPACKE_NAME(cungbr_work,CUNGBR_WORK)+#define LAPACKE_zungbr_work   LAPACKE_NAME(zungbr_work,ZUNGBR_WORK)++#define LAPACKE_cunghr_work   LAPACKE_NAME(cunghr_work,CUNGHR_WORK)+#define LAPACKE_zunghr_work   LAPACKE_NAME(zunghr_work,ZUNGHR_WORK)++#define LAPACKE_cunglq_work   LAPACKE_NAME(cunglq_work,CUNGLQ_WORK)+#define LAPACKE_zunglq_work   LAPACKE_NAME(zunglq_work,ZUNGLQ_WORK)++#define LAPACKE_cungql_work   LAPACKE_NAME(cungql_work,CUNGQL_WORK)+#define LAPACKE_zungql_work   LAPACKE_NAME(zungql_work,ZUNGQL_WORK)++#define LAPACKE_cungqr_work   LAPACKE_NAME(cungqr_work,CUNGQR_WORK)+#define LAPACKE_zungqr_work   LAPACKE_NAME(zungqr_work,ZUNGQR_WORK)++#define LAPACKE_cungrq_work   LAPACKE_NAME(cungrq_work,CUNGRQ_WORK)+#define LAPACKE_zungrq_work   LAPACKE_NAME(zungrq_work,ZUNGRQ_WORK)++#define LAPACKE_cungtr_work   LAPACKE_NAME(cungtr_work,CUNGTR_WORK)+#define LAPACKE_zungtr_work   LAPACKE_NAME(zungtr_work,ZUNGTR_WORK)++#define LAPACKE_cunmbr_work   LAPACKE_NAME(cunmbr_work,CUNMBR_WORK)+#define LAPACKE_zunmbr_work   LAPACKE_NAME(zunmbr_work,ZUNMBR_WORK)++#define LAPACKE_cunmhr_work   LAPACKE_NAME(cunmhr_work,CUNMHR_WORK)+#define LAPACKE_zunmhr_work   LAPACKE_NAME(zunmhr_work,ZUNMHR_WORK)++#define LAPACKE_cunmlq_work   LAPACKE_NAME(cunmlq_work,CUNMLQ_WORK)+#define LAPACKE_zunmlq_work   LAPACKE_NAME(zunmlq_work,ZUNMLQ_WORK)++#define LAPACKE_cunmql_work   LAPACKE_NAME(cunmql_work,CUNMQL_WORK)+#define LAPACKE_zunmql_work   LAPACKE_NAME(zunmql_work,ZUNMQL_WORK)++#define LAPACKE_cunmqr_work   LAPACKE_NAME(cunmqr_work,CUNMQR_WORK)+#define LAPACKE_zunmqr_work   LAPACKE_NAME(zunmqr_work,ZUNMQR_WORK)++#define LAPACKE_cunmrq_work   LAPACKE_NAME(cunmrq_work,CUNMRQ_WORK)+#define LAPACKE_zunmrq_work   LAPACKE_NAME(zunmrq_work,ZUNMRQ_WORK)++#define LAPACKE_cunmrz_work   LAPACKE_NAME(cunmrz_work,CUNMRZ_WORK)+#define LAPACKE_zunmrz_work   LAPACKE_NAME(zunmrz_work,ZUNMRZ_WORK)++#define LAPACKE_cunmtr_work   LAPACKE_NAME(cunmtr_work,CUNMTR_WORK)+#define LAPACKE_zunmtr_work   LAPACKE_NAME(zunmtr_work,ZUNMTR_WORK)++#define LAPACKE_cupgtr_work   LAPACKE_NAME(cupgtr_work,CUPGTR_WORK)+#define LAPACKE_zupgtr_work   LAPACKE_NAME(zupgtr_work,ZUPGTR_WORK)++#define LAPACKE_cupmtr_work   LAPACKE_NAME(cupmtr_work,CUPMTR_WORK)+#define LAPACKE_zupmtr_work   LAPACKE_NAME(zupmtr_work,ZUPMTR_WORK)++#define LAPACKE_claghe   LAPACKE_NAME(claghe,CLAGHE)+#define LAPACKE_zlaghe   LAPACKE_NAME(zlaghe,ZLAGHE)++#define LAPACKE_slagsy   LAPACKE_NAME(slagsy,SLAGSY)+#define LAPACKE_dlagsy   LAPACKE_NAME(dlagsy,DLAGSY)+#define LAPACKE_clagsy   LAPACKE_NAME(clagsy,CLAGSY)+#define LAPACKE_zlagsy   LAPACKE_NAME(zlagsy,ZLAGSY)++#define LAPACKE_slapmr   LAPACKE_NAME(slapmr,SLAPMR)+#define LAPACKE_dlapmr   LAPACKE_NAME(dlapmr,DLAPMR)+#define LAPACKE_clapmr   LAPACKE_NAME(clapmr,CLAPMR)+#define LAPACKE_zlapmr   LAPACKE_NAME(zlapmr,ZLAPMR)++#define LAPACKE_slapy2   LAPACKE_NAME(slapy2,SLAPY2)+#define LAPACKE_dlapy2   LAPACKE_NAME(dlapy2,DLAPY2)++#define LAPACKE_slapy3   LAPACKE_NAME(slapy3,SLAPY3)+#define LAPACKE_dlapy3   LAPACKE_NAME(dlapy3,DLAPY3)++#define LAPACKE_slartgp   LAPACKE_NAME(slartgp,SLARTGP)+#define LAPACKE_dlartgp   LAPACKE_NAME(dlartgp,DLARTGP)++#define LAPACKE_slartgs   LAPACKE_NAME(slartgs,SLARTGS)+#define LAPACKE_dlartgs   LAPACKE_NAME(dlartgs,DLARTGS)++//LAPACK 3.3.0+#define LAPACKE_cbbcsd_work LAPACKE_NAME(cbbcsd_work,CBBCSD_WORK)+#define LAPACKE_cheswapr_work LAPACKE_NAME(cheswapr_work,CHESWAPR_WORK)+#define LAPACKE_chetri2_work LAPACKE_NAME(chetri2_work,CHETRI2_WORK)+#define LAPACKE_chetri2x_work LAPACKE_NAME(chetri2x_work,CHETRI2X_WORK)+#define LAPACKE_chetrs2_work LAPACKE_NAME(chetrs2_work,CHETRS2_WORK)+#define LAPACKE_csyconv_work LAPACKE_NAME(csyconv_work,CSYCONV_WORK)+#define LAPACKE_csyswapr_work LAPACKE_NAME(csyswapr_work,CSYSWAPR_WORK)+#define LAPACKE_csytri2_work LAPACKE_NAME(csytri2_work,CSYTRI2_WORK)+#define LAPACKE_csytri2x_work LAPACKE_NAME(csytri2x_work,CSYTRI2X_WORK)+#define LAPACKE_csytrs2_work LAPACKE_NAME(csytrs2_work,CSYTRS2_WORK)+#define LAPACKE_cunbdb_work LAPACKE_NAME(cunbdb_work,CUNBDB_WORK)+#define LAPACKE_cuncsd_work LAPACKE_NAME(cuncsd_work,CUNCSD_WORK)+#define LAPACKE_dbbcsd_work LAPACKE_NAME(dbbcsd_work,DBBCSD_WORK)+#define LAPACKE_dorbdb_work LAPACKE_NAME(dorbdb_work,DORBDB_WORK)+#define LAPACKE_dorcsd_work LAPACKE_NAME(dorcsd_work,DORCSD_WORK)+#define LAPACKE_dsyconv_work LAPACKE_NAME(dsyconv_work,DSYCONV_WORK)+#define LAPACKE_dsyswapr_work LAPACKE_NAME(dsyswapr_work,DSYSWAPR_WORK)+#define LAPACKE_dsytri2_work LAPACKE_NAME(dsytri2_work,DSYTRI2_WORK)+#define LAPACKE_dsytri2x_work LAPACKE_NAME(dsytri2x_work,DSYTRI2X_WORK)+#define LAPACKE_dsytrs2_work LAPACKE_NAME(dsytrs2_work,DSYTRS2_WORK)+#define LAPACKE_sbbcsd_work LAPACKE_NAME(sbbcsd_work,SBBCSD_WORK)+#define LAPACKE_sorbdb_work LAPACKE_NAME(sorbdb_work,SORBDB_WORK)+#define LAPACKE_sorcsd_work LAPACKE_NAME(sorcsd_work,SORCSD_WORK)+#define LAPACKE_ssyconv_work LAPACKE_NAME(ssyconv_work,SSYCONV_WORK)+#define LAPACKE_ssyswapr_work LAPACKE_NAME(ssyswapr_work,SSYSWAPR_WORK)+#define LAPACKE_ssytri2_work LAPACKE_NAME(ssytri2_work,SSYTRI2_WORK)+#define LAPACKE_ssytri2x_work LAPACKE_NAME(ssytri2x_work,SSYTRI2X_WORK)+#define LAPACKE_ssytrs2_work LAPACKE_NAME(ssytrs2_work,SSYTRS2_WORK)+#define LAPACKE_zbbcsd_work LAPACKE_NAME(zbbcsd_work,ZBBCSD_WORK)+#define LAPACKE_zheswapr_work LAPACKE_NAME(zheswapr_work,ZHESWAPR_WORK)+#define LAPACKE_zhetri2_work LAPACKE_NAME(zhetri2_work,ZHETRI2_WORK)+#define LAPACKE_zhetri2x_work LAPACKE_NAME(zhetri2x_work,ZHETRI2X_WORK)+#define LAPACKE_zhetrs2_work LAPACKE_NAME(zhetrs2_work,ZHETRS2_WORK)+#define LAPACKE_zsyconv_work LAPACKE_NAME(zsyconv_work,ZSYCONV_WORK)+#define LAPACKE_zsyswapr_work LAPACKE_NAME(zsyswapr_work,ZSYSWAPR_WORK)+#define LAPACKE_zsytri2_work LAPACKE_NAME(zsytri2_work,ZSYTRI2_WORK)+#define LAPACKE_zsytri2x_work LAPACKE_NAME(zsytri2x_work,ZSYTRI2X_WORK)+#define LAPACKE_zsytrs2_work LAPACKE_NAME(zsytrs2_work,ZSYTRS2_WORK)+#define LAPACKE_zunbdb_work LAPACKE_NAME(zunbdb_work,ZUNBDB_WORK)+#define LAPACKE_zuncsd_work LAPACKE_NAME(zuncsd_work,ZUNCSD_WORK)++//LAPACK 3.4.0+#define LAPACKE_sgemqrt   LAPACKE_NAME(sgemqrt,SGEMQRT)+#define LAPACKE_dgemqrt   LAPACKE_NAME(dgemqrt,DGEMQRT)+#define LAPACKE_cgemqrt   LAPACKE_NAME(cgemqrt,CGEMQRT)+#define LAPACKE_zgemqrt   LAPACKE_NAME(zgemqrt,ZGEMQRT)++#define LAPACKE_sgeqrt   LAPACKE_NAME(sgeqrt,SGEQRT)+#define LAPACKE_dgeqrt   LAPACKE_NAME(dgeqrt,DGEQRT)+#define LAPACKE_cgeqrt   LAPACKE_NAME(cgeqrt,CGEQRT)+#define LAPACKE_zgeqrt   LAPACKE_NAME(zgeqrt,ZGEQRT)++#define LAPACKE_sgeqrt2   LAPACKE_NAME(sgeqrt2,SGEQRT2)+#define LAPACKE_dgeqrt2   LAPACKE_NAME(dgeqrt2,DGEQRT2)+#define LAPACKE_cgeqrt2   LAPACKE_NAME(cgeqrt2,CGEQRT2)+#define LAPACKE_zgeqrt2   LAPACKE_NAME(zgeqrt2,ZGEQRT2)++#define LAPACKE_sgeqrt3   LAPACKE_NAME(sgeqrt3,SGEQRT3)+#define LAPACKE_dgeqrt3   LAPACKE_NAME(dgeqrt3,DGEQRT3)+#define LAPACKE_cgeqrt3   LAPACKE_NAME(cgeqrt3,CGEQRT3)+#define LAPACKE_zgeqrt3   LAPACKE_NAME(zgeqrt3,ZGEQRT3)++#define LAPACKE_stpmqrt   LAPACKE_NAME(stpmqrt,STPMQRT)+#define LAPACKE_dtpmqrt   LAPACKE_NAME(dtpmqrt,DTPMQRT)+#define LAPACKE_ctpmqrt   LAPACKE_NAME(ctpmqrt,CTPMQRT)+#define LAPACKE_ztpmqrt   LAPACKE_NAME(ztpmqrt,ZTPMQRT)++#define LAPACKE_dtpqrt   LAPACKE_NAME(dtpqrt,DTPQRT)+#define LAPACKE_ctpqrt   LAPACKE_NAME(ctpqrt,CTPQRT)+#define LAPACKE_ztpqrt   LAPACKE_NAME(ztpqrt,ZTPQRT)++#define LAPACKE_stpqrt2   LAPACKE_NAME(stpqrt2,STPQRT2)+#define LAPACKE_dtpqrt2   LAPACKE_NAME(dtpqrt2,DTPQRT2)+#define LAPACKE_ctpqrt2   LAPACKE_NAME(ctpqrt2,CTPQRT2)+#define LAPACKE_ztpqrt2   LAPACKE_NAME(ztpqrt2,ZTPQRT2)++#define LAPACKE_stprfb   LAPACKE_NAME(stprfb,STPRFB)+#define LAPACKE_dtprfb   LAPACKE_NAME(dtprfb,DTPRFB)+#define LAPACKE_ctprfb   LAPACKE_NAME(ctprfb,CTPRFB)+#define LAPACKE_ztprfb   LAPACKE_NAME(ztprfb,ZTPRFB)++#define LAPACKE_sgemqrt_work   LAPACKE_NAME(sgemqrt_work,SGEMQRT_WORK)+#define LAPACKE_dgemqrt_work   LAPACKE_NAME(dgemqrt_work,DGEMQRT_WORK)+#define LAPACKE_cgemqrt_work   LAPACKE_NAME(cgemqrt_work,CGEMQRT_WORK)+#define LAPACKE_zgemqrt_work   LAPACKE_NAME(zgemqrt_work,ZGEMQRT_WORK)++#define LAPACKE_sgeqrt_work   LAPACKE_NAME(sgeqrt_work,SGEQRT_WORK)+#define LAPACKE_dgeqrt_work   LAPACKE_NAME(dgeqrt_work,DGEQRT_WORK)+#define LAPACKE_cgeqrt_work   LAPACKE_NAME(cgeqrt_work,CGEQRT_WORK)+#define LAPACKE_zgeqrt_work   LAPACKE_NAME(zgeqrt_work,ZGEQRT_WORK)++#define LAPACKE_sgeqrt2_work   LAPACKE_NAME(sgeqrt2_work,SGEQRT2_WORK)+#define LAPACKE_dgeqrt2_work   LAPACKE_NAME(dgeqrt2_work,DGEQRT2_WORK)+#define LAPACKE_cgeqrt2_work   LAPACKE_NAME(cgeqrt2_work,CGEQRT2_WORK)+#define LAPACKE_zgeqrt2_work   LAPACKE_NAME(zgeqrt2_work,ZGEQRT2_WORK)++#define LAPACKE_sgeqrt3_work   LAPACKE_NAME(sgeqrt3_work,SGEQRT3_WORK)+#define LAPACKE_dgeqrt3_work   LAPACKE_NAME(dgeqrt3_work,DGEQRT3_WORK)+#define LAPACKE_cgeqrt3_work   LAPACKE_NAME(cgeqrt3_work,CGEQRT3_WORK)+#define LAPACKE_zgeqrt3_work   LAPACKE_NAME(zgeqrt3_work,ZGEQRT3_WORK)++#define LAPACKE_stpmqrt_work   LAPACKE_NAME(stpmqrt_work,STPMQRT_WORK)+#define LAPACKE_dtpmqrt_work   LAPACKE_NAME(dtpmqrt_work,DTPMQRT_WORK)+#define LAPACKE_ctpmqrt_work   LAPACKE_NAME(ctpmqrt_work,CTPMQRT_WORK)+#define LAPACKE_ztpmqrt_work   LAPACKE_NAME(ztpmqrt_work,ZTPMQRT_WORK)++#define LAPACKE_dtpqrt_work   LAPACKE_NAME(dtpqrt_work,DTPQRT_WORK)+#define LAPACKE_ctpqrt_work   LAPACKE_NAME(ctpqrt_work,CTPQRT_WORK)+#define LAPACKE_ztpqrt_work   LAPACKE_NAME(ztpqrt_work,ZTPQRT_WORK)++#define LAPACKE_stpqrt2_work   LAPACKE_NAME(stpqrt2_work,STPQRT2_WORK)+#define LAPACKE_dtpqrt2_work   LAPACKE_NAME(dtpqrt2_work,DTPQRT2_WORK)+#define LAPACKE_ctpqrt2_work   LAPACKE_NAME(ctpqrt2_work,CTPQRT2_WORK)+#define LAPACKE_ztpqrt2_work   LAPACKE_NAME(ztpqrt2_work,ZTPQRT2_WORK)++#define LAPACKE_stprfb_work   LAPACKE_NAME(stprfb_work,STPRFB_WORK)+#define LAPACKE_dtprfb_work   LAPACKE_NAME(dtprfb_work,DTPRFB_WORK)+#define LAPACKE_ctprfb_work   LAPACKE_NAME(ctprfb_work,CTPRFB_WORK)+#define LAPACKE_ztprfb_work   LAPACKE_NAME(ztprfb_work,ZTPRFB_WORK)++#define LAPACKE_cgb_trans LAPACKE_NAME(cgb_trans,CGB_TRANS)+#define LAPACKE_cge_trans LAPACKE_NAME(cge_trans,CGE_TRANS)+#define LAPACKE_cgg_trans LAPACKE_NAME(cgg_trans,CGG_TRANS)+#define LAPACKE_chb_trans LAPACKE_NAME(chb_trans,CHB_TRANS)+#define LAPACKE_che_trans LAPACKE_NAME(che_trans,CHE_TRANS)+#define LAPACKE_chp_trans LAPACKE_NAME(chp_trans,CHP_TRANS)+#define LAPACKE_chs_trans LAPACKE_NAME(chs_trans,CHS_TRANS)+#define LAPACKE_cpb_trans LAPACKE_NAME(cpb_trans,CPB_TRANS)+#define LAPACKE_cpf_trans LAPACKE_NAME(cpf_trans,CPF_TRANS)+#define LAPACKE_cpo_trans LAPACKE_NAME(cpo_trans,CPO_TRANS)+#define LAPACKE_cpp_trans LAPACKE_NAME(cpp_trans,CPP_TRANS)+#define LAPACKE_csp_trans LAPACKE_NAME(csp_trans,CSP_TRANS)+#define LAPACKE_csy_trans LAPACKE_NAME(csy_trans,CSY_TRANS)+#define LAPACKE_ctb_trans LAPACKE_NAME(ctb_trans,CTB_TRANS)+#define LAPACKE_ctf_trans LAPACKE_NAME(ctf_trans,CTF_TRANS)+#define LAPACKE_ctp_trans LAPACKE_NAME(ctp_trans,CTP_TRANS)+#define LAPACKE_ctr_trans LAPACKE_NAME(ctr_trans,CTR_TRANS)+#define LAPACKE_dgb_trans LAPACKE_NAME(dgb_trans,DGB_TRANS)+#define LAPACKE_dge_trans LAPACKE_NAME(dge_trans,DGE_TRANS)+#define LAPACKE_dgg_trans LAPACKE_NAME(dgg_trans,DGG_TRANS)+#define LAPACKE_dhs_trans LAPACKE_NAME(dhs_trans,DHS_TRANS)+#define LAPACKE_dpb_trans LAPACKE_NAME(dpb_trans,DPB_TRANS)+#define LAPACKE_dpf_trans LAPACKE_NAME(dpf_trans,DPF_TRANS)+#define LAPACKE_dpo_trans LAPACKE_NAME(dpo_trans,DPO_TRANS)+#define LAPACKE_dpp_trans LAPACKE_NAME(dpp_trans,DPP_TRANS)+#define LAPACKE_dsb_trans LAPACKE_NAME(dsb_trans,DSB_TRANS)+#define LAPACKE_dsp_trans LAPACKE_NAME(dsp_trans,DSP_TRANS)+#define LAPACKE_dsy_trans LAPACKE_NAME(dsy_trans,DSY_TRANS)+#define LAPACKE_dtb_trans LAPACKE_NAME(dtb_trans,DTB_TRANS)+#define LAPACKE_dtf_trans LAPACKE_NAME(dtf_trans,DTF_TRANS)+#define LAPACKE_dtp_trans LAPACKE_NAME(dtp_trans,DTP_TRANS)+#define LAPACKE_dtr_trans LAPACKE_NAME(dtr_trans,DTR_TRANS)+#define LAPACKE_sgb_trans LAPACKE_NAME(sgb_trans,SGB_TRANS)+#define LAPACKE_sge_trans LAPACKE_NAME(sge_trans,SGE_TRANS)+#define LAPACKE_sgg_trans LAPACKE_NAME(sgg_trans,SGG_TRANS)+#define LAPACKE_shs_trans LAPACKE_NAME(shs_trans,SHS_TRANS)+#define LAPACKE_spb_trans LAPACKE_NAME(spb_trans,SPB_TRANS)+#define LAPACKE_spf_trans LAPACKE_NAME(spf_trans,SPF_TRANS)+#define LAPACKE_spo_trans LAPACKE_NAME(spo_trans,SPO_TRANS)+#define LAPACKE_spp_trans LAPACKE_NAME(spp_trans,SPP_TRANS)+#define LAPACKE_ssb_trans LAPACKE_NAME(ssb_trans,SSB_TRANS)+#define LAPACKE_ssp_trans LAPACKE_NAME(ssp_trans,SSP_TRANS)+#define LAPACKE_ssy_trans LAPACKE_NAME(ssy_trans,SSY_TRANS)+#define LAPACKE_stb_trans LAPACKE_NAME(stb_trans,STB_TRANS)+#define LAPACKE_stf_trans LAPACKE_NAME(stf_trans,STF_TRANS)+#define LAPACKE_stp_trans LAPACKE_NAME(stp_trans,STP_TRANS)+#define LAPACKE_str_trans LAPACKE_NAME(str_trans,STR_TRANS)+#define LAPACKE_zgb_trans LAPACKE_NAME(zgb_trans,ZGB_TRANS)+#define LAPACKE_zge_trans LAPACKE_NAME(zge_trans,ZGE_TRANS)+#define LAPACKE_zgg_trans LAPACKE_NAME(zgg_trans,ZGG_TRANS)+#define LAPACKE_zhb_trans LAPACKE_NAME(zhb_trans,ZHB_TRANS)+#define LAPACKE_zhe_trans LAPACKE_NAME(zhe_trans,ZHE_TRANS)+#define LAPACKE_zhp_trans LAPACKE_NAME(zhp_trans,ZHP_TRANS)+#define LAPACKE_zhs_trans LAPACKE_NAME(zhs_trans,ZHS_TRANS)+#define LAPACKE_zpb_trans LAPACKE_NAME(zpb_trans,ZPB_TRANS)+#define LAPACKE_zpf_trans LAPACKE_NAME(zpf_trans,ZPF_TRANS)+#define LAPACKE_zpo_trans LAPACKE_NAME(zpo_trans,ZPO_TRANS)+#define LAPACKE_zpp_trans LAPACKE_NAME(zpp_trans,ZPP_TRANS)+#define LAPACKE_zsp_trans LAPACKE_NAME(zsp_trans,ZSP_TRANS)+#define LAPACKE_zsy_trans LAPACKE_NAME(zsy_trans,ZSY_TRANS)+#define LAPACKE_ztb_trans LAPACKE_NAME(ztb_trans,ZTB_TRANS)+#define LAPACKE_ztf_trans LAPACKE_NAME(ztf_trans,ZTF_TRANS)+#define LAPACKE_ztp_trans LAPACKE_NAME(ztp_trans,ZTP_TRANS)+#define LAPACKE_ztr_trans LAPACKE_NAME(ztr_trans,ZTR_TRANS)++#define LAPACKE_c_nancheck LAPACKE_NAME(c_nancheck,C_NANCHECK)+#define LAPACKE_d_nancheck LAPACKE_NAME(d_nancheck,D_NANCHECK)+#define LAPACKE_s_nancheck LAPACKE_NAME(s_nancheck,S_NANCHECK)+#define LAPACKE_z_nancheck LAPACKE_NAME(z_nancheck,Z_NANCHECK)+#define LAPACKE_cgb_nancheck LAPACKE_NAME(cgb_nancheck,CGB_NANCHECK)+#define LAPACKE_cge_nancheck LAPACKE_NAME(cge_nancheck,CGE_NANCHECK)+#define LAPACKE_cgg_nancheck LAPACKE_NAME(cgg_nancheck,CGG_NANCHECK)+#define LAPACKE_cgt_nancheck LAPACKE_NAME(cgt_nancheck,CGT_NANCHECK)+#define LAPACKE_chb_nancheck LAPACKE_NAME(chb_nancheck,CHB_NANCHECK)+#define LAPACKE_che_nancheck LAPACKE_NAME(che_nancheck,CHE_NANCHECK)+#define LAPACKE_chp_nancheck LAPACKE_NAME(chp_nancheck,CHP_NANCHECK)+#define LAPACKE_chs_nancheck LAPACKE_NAME(chs_nancheck,CHS_NANCHECK)+#define LAPACKE_cpb_nancheck LAPACKE_NAME(cpb_nancheck,CPB_NANCHECK)+#define LAPACKE_cpf_nancheck LAPACKE_NAME(cpf_nancheck,CPF_NANCHECK)+#define LAPACKE_cpo_nancheck LAPACKE_NAME(cpo_nancheck,CPO_NANCHECK)+#define LAPACKE_cpp_nancheck LAPACKE_NAME(cpp_nancheck,CPP_NANCHECK)+#define LAPACKE_cpt_nancheck LAPACKE_NAME(cpt_nancheck,CPT_NANCHECK)+#define LAPACKE_csp_nancheck LAPACKE_NAME(csp_nancheck,CSP_NANCHECK)+#define LAPACKE_cst_nancheck LAPACKE_NAME(cst_nancheck,CST_NANCHECK)+#define LAPACKE_csy_nancheck LAPACKE_NAME(csy_nancheck,CSY_NANCHECK)+#define LAPACKE_ctb_nancheck LAPACKE_NAME(ctb_nancheck,CTB_NANCHECK)+#define LAPACKE_ctf_nancheck LAPACKE_NAME(ctf_nancheck,CTF_NANCHECK)+#define LAPACKE_ctp_nancheck LAPACKE_NAME(ctp_nancheck,CTP_NANCHECK)+#define LAPACKE_ctr_nancheck LAPACKE_NAME(ctr_nancheck,CTR_NANCHECK)+#define LAPACKE_dgb_nancheck LAPACKE_NAME(dgb_nancheck,DGB_NANCHECK)+#define LAPACKE_dge_nancheck LAPACKE_NAME(dge_nancheck,DGE_NANCHECK)+#define LAPACKE_dgg_nancheck LAPACKE_NAME(dgg_nancheck,DGG_NANCHECK)+#define LAPACKE_dgt_nancheck LAPACKE_NAME(dgt_nancheck,DGT_NANCHECK)+#define LAPACKE_dhs_nancheck LAPACKE_NAME(dhs_nancheck,DHS_NANCHECK)+#define LAPACKE_dpb_nancheck LAPACKE_NAME(dpb_nancheck,DPB_NANCHECK)+#define LAPACKE_dpf_nancheck LAPACKE_NAME(dpf_nancheck,DPF_NANCHECK)+#define LAPACKE_dpo_nancheck LAPACKE_NAME(dpo_nancheck,DPO_NANCHECK)+#define LAPACKE_dpp_nancheck LAPACKE_NAME(dpp_nancheck,DPP_NANCHECK)+#define LAPACKE_dpt_nancheck LAPACKE_NAME(dpt_nancheck,DPT_NANCHECK)+#define LAPACKE_dsb_nancheck LAPACKE_NAME(dsb_nancheck,DSB_NANCHECK)+#define LAPACKE_dsp_nancheck LAPACKE_NAME(dsp_nancheck,DSP_NANCHECK)+#define LAPACKE_dst_nancheck LAPACKE_NAME(dst_nancheck,DST_NANCHECK)+#define LAPACKE_dsy_nancheck LAPACKE_NAME(dsy_nancheck,DSY_NANCHECK)+#define LAPACKE_dtb_nancheck LAPACKE_NAME(dtb_nancheck,DTB_NANCHECK)+#define LAPACKE_dtf_nancheck LAPACKE_NAME(dtf_nancheck,DTF_NANCHECK)+#define LAPACKE_dtp_nancheck LAPACKE_NAME(dtp_nancheck,DTP_NANCHECK)+#define LAPACKE_dtr_nancheck LAPACKE_NAME(dtr_nancheck,DTR_NANCHECK)+#define LAPACKE_sgb_nancheck LAPACKE_NAME(sgb_nancheck,SGB_NANCHECK)+#define LAPACKE_sge_nancheck LAPACKE_NAME(sge_nancheck,SGE_NANCHECK)+#define LAPACKE_sgg_nancheck LAPACKE_NAME(sgg_nancheck,SGG_NANCHECK)+#define LAPACKE_sgt_nancheck LAPACKE_NAME(sgt_nancheck,SGT_NANCHECK)+#define LAPACKE_shs_nancheck LAPACKE_NAME(shs_nancheck,SHS_NANCHECK)+#define LAPACKE_spb_nancheck LAPACKE_NAME(spb_nancheck,SPB_NANCHECK)+#define LAPACKE_spf_nancheck LAPACKE_NAME(spf_nancheck,SPF_NANCHECK)+#define LAPACKE_spo_nancheck LAPACKE_NAME(spo_nancheck,SPO_NANCHECK)+#define LAPACKE_spp_nancheck LAPACKE_NAME(spp_nancheck,SPP_NANCHECK)+#define LAPACKE_spt_nancheck LAPACKE_NAME(spt_nancheck,SPT_NANCHECK)+#define LAPACKE_ssb_nancheck LAPACKE_NAME(ssb_nancheck,SSB_NANCHECK)+#define LAPACKE_ssp_nancheck LAPACKE_NAME(ssp_nancheck,SSP_NANCHECK)+#define LAPACKE_sst_nancheck LAPACKE_NAME(sst_nancheck,SST_NANCHECK)+#define LAPACKE_ssy_nancheck LAPACKE_NAME(ssy_nancheck,SSY_NANCHECK)+#define LAPACKE_stb_nancheck LAPACKE_NAME(stb_nancheck,STB_NANCHECK)+#define LAPACKE_stf_nancheck LAPACKE_NAME(stf_nancheck,STF_NANCHECK)+#define LAPACKE_stp_nancheck LAPACKE_NAME(stp_nancheck,STP_NANCHECK)+#define LAPACKE_str_nancheck LAPACKE_NAME(str_nancheck,STR_NANCHECK)+#define LAPACKE_zgb_nancheck LAPACKE_NAME(zgb_nancheck,ZGB_NANCHECK)+#define LAPACKE_zge_nancheck LAPACKE_NAME(zge_nancheck,ZGE_NANCHECK)+#define LAPACKE_zgg_nancheck LAPACKE_NAME(zgg_nancheck,ZGG_NANCHECK)+#define LAPACKE_zgt_nancheck LAPACKE_NAME(zgt_nancheck,ZGT_NANCHECK)+#define LAPACKE_zhb_nancheck LAPACKE_NAME(zhb_nancheck,ZHB_NANCHECK)+#define LAPACKE_zhe_nancheck LAPACKE_NAME(zhe_nancheck,ZHE_NANCHECK)+#define LAPACKE_zhp_nancheck LAPACKE_NAME(zhp_nancheck,ZHP_NANCHECK)+#define LAPACKE_zhs_nancheck LAPACKE_NAME(zhs_nancheck,ZHS_NANCHECK)+#define LAPACKE_zpb_nancheck LAPACKE_NAME(zpb_nancheck,ZPB_NANCHECK)+#define LAPACKE_zpf_nancheck LAPACKE_NAME(zpf_nancheck,ZPF_NANCHECK)+#define LAPACKE_zpo_nancheck LAPACKE_NAME(zpo_nancheck,ZPO_NANCHECK)+#define LAPACKE_zpp_nancheck LAPACKE_NAME(zpp_nancheck,ZPP_NANCHECK)+#define LAPACKE_zpt_nancheck LAPACKE_NAME(zpt_nancheck,ZPT_NANCHECK)+#define LAPACKE_zsp_nancheck LAPACKE_NAME(zsp_nancheck,ZSP_NANCHECK)+#define LAPACKE_zst_nancheck LAPACKE_NAME(zst_nancheck,ZST_NANCHECK)+#define LAPACKE_zsy_nancheck LAPACKE_NAME(zsy_nancheck,ZSY_NANCHECK)+#define LAPACKE_ztb_nancheck LAPACKE_NAME(ztb_nancheck,ZTB_NANCHECK)+#define LAPACKE_ztf_nancheck LAPACKE_NAME(ztf_nancheck,ZTF_NANCHECK)+#define LAPACKE_ztp_nancheck LAPACKE_NAME(ztp_nancheck,ZTP_NANCHECK)+#define LAPACKE_ztr_nancheck LAPACKE_NAME(ztr_nancheck,ZTR_NANCHECK)++#endif /* LAPACK_NAME_PATTERN_MC */++#ifdef __cplusplus+}+#endif /* __cplusplus */++#endif /* _LAPACKE_CONFIG_H_ */
+ lapacke/include/lapacke_utils.h view
@@ -0,0 +1,556 @@+/*****************************************************************************+  Copyright (c) 2010, Intel Corp.+  All rights reserved.++  Redistribution and use in source and binary forms, with or without+  modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright notice,+      this list of conditions and the following disclaimer.+    * Redistributions in binary form must reproduce the above copyright+      notice, this list of conditions and the following disclaimer in the+      documentation and/or other materials provided with the distribution.+    * Neither the name of Intel Corporation nor the names of its contributors+      may be used to endorse or promote products derived from this software+      without specific prior written permission.++  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"+  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE+  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE+  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR+  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF+  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS+  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN+  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)+  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF+  THE POSSIBILITY OF SUCH DAMAGE.+******************************************************************************+* Contents: Native C interface to LAPACK utility functions+* Author: Intel Corporation+* Created in January, 2010+*****************************************************************************/++#ifndef _LAPACKE_UTILS_H_+#define _LAPACKE_UTILS_H_++#include "lapacke.h"++#ifdef __cplusplus+extern "C" {+#endif /* __cplusplus */++/* Error handler */+void LAPACKE_xerbla( const char *name, lapack_int info );++/* Compare two chars (case-insensitive) */+lapack_logical LAPACKE_lsame( char ca,  char cb );++/* Functions to convert column-major to row-major 2d arrays and vice versa. */+void LAPACKE_cgb_trans( int matrix_order, lapack_int m, lapack_int n,+                        lapack_int kl, lapack_int ku,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_cge_trans( int matrix_order, lapack_int m, lapack_int n,+                        const lapack_complex_float* in, lapack_int ldin,+                        lapack_complex_float* out, lapack_int ldout );+void LAPACKE_cgg_trans( int matrix_order, lapack_int m, lapack_int n,+                        const lapack_complex_float* in, lapack_int ldin,+                        lapack_complex_float* out, lapack_int ldout );+void LAPACKE_chb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_che_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_chp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_chs_trans( int matrix_order, lapack_int n,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_cpb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_cpf_trans( int matrix_order, char transr, char uplo,+                        lapack_int n, const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_cpo_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_cpp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_csp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_csy_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_ctb_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, lapack_int kd,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );+void LAPACKE_ctf_trans( int matrix_order, char transr, char uplo, char diag,+                        lapack_int n, const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_ctp_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, const lapack_complex_float *in,+                        lapack_complex_float *out );+void LAPACKE_ctr_trans( int matrix_order, char uplo, char diag, lapack_int n,+                        const lapack_complex_float *in, lapack_int ldin,+                        lapack_complex_float *out, lapack_int ldout );++void LAPACKE_dgb_trans( int matrix_order, lapack_int m, lapack_int n,+                        lapack_int kl, lapack_int ku,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dge_trans( int matrix_order, lapack_int m, lapack_int n,+                        const double* in, lapack_int ldin,+                        double* out, lapack_int ldout );+void LAPACKE_dgg_trans( int matrix_order, lapack_int m, lapack_int n,+                        const double* in, lapack_int ldin,+                        double* out, lapack_int ldout );+void LAPACKE_dhs_trans( int matrix_order, lapack_int n,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dpb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dpf_trans( int matrix_order, char transr, char uplo,+                        lapack_int n, const double *in,+                        double *out );+void LAPACKE_dpo_trans( int matrix_order, char uplo, lapack_int n,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dpp_trans( int matrix_order, char uplo, lapack_int n,+                        const double *in,+                        double *out );+void LAPACKE_dsb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dsp_trans( int matrix_order, char uplo, lapack_int n,+                        const double *in,+                        double *out );+void LAPACKE_dsy_trans( int matrix_order, char uplo, lapack_int n,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dtb_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, lapack_int kd,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );+void LAPACKE_dtf_trans( int matrix_order, char transr, char uplo, char diag,+                        lapack_int n, const double *in,+                        double *out );+void LAPACKE_dtp_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, const double *in,+                        double *out );+void LAPACKE_dtr_trans( int matrix_order, char uplo, char diag, lapack_int n,+                        const double *in, lapack_int ldin,+                        double *out, lapack_int ldout );++void LAPACKE_sgb_trans( int matrix_order, lapack_int m, lapack_int n,+                        lapack_int kl, lapack_int ku,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_sge_trans( int matrix_order, lapack_int m, lapack_int n,+                        const float* in, lapack_int ldin,+                        float* out, lapack_int ldout );+void LAPACKE_sgg_trans( int matrix_order, lapack_int m, lapack_int n,+                        const float* in, lapack_int ldin,+                        float* out, lapack_int ldout );+void LAPACKE_shs_trans( int matrix_order, lapack_int n,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_spb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_spf_trans( int matrix_order, char transr, char uplo,+                        lapack_int n, const float *in,+                        float *out );+void LAPACKE_spo_trans( int matrix_order, char uplo, lapack_int n,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_spp_trans( int matrix_order, char uplo, lapack_int n,+                        const float *in,+                        float *out );+void LAPACKE_ssb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_ssp_trans( int matrix_order, char uplo, lapack_int n,+                        const float *in,+                        float *out );+void LAPACKE_ssy_trans( int matrix_order, char uplo, lapack_int n,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_stb_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, lapack_int kd,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );+void LAPACKE_stf_trans( int matrix_order, char transr, char uplo, char diag,+                        lapack_int n, const float *in,+                        float *out );+void LAPACKE_stp_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, const float *in,+                        float *out );+void LAPACKE_str_trans( int matrix_order, char uplo, char diag, lapack_int n,+                        const float *in, lapack_int ldin,+                        float *out, lapack_int ldout );++void LAPACKE_zgb_trans( int matrix_order, lapack_int m, lapack_int n,+                        lapack_int kl, lapack_int ku,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zge_trans( int matrix_order, lapack_int m, lapack_int n,+                        const lapack_complex_double* in, lapack_int ldin,+                        lapack_complex_double* out, lapack_int ldout );+void LAPACKE_zgg_trans( int matrix_order, lapack_int m, lapack_int n,+                        const lapack_complex_double* in, lapack_int ldin,+                        lapack_complex_double* out, lapack_int ldout );+void LAPACKE_zhb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zhe_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zhp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_zhs_trans( int matrix_order, lapack_int n,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zpb_trans( int matrix_order, char uplo, lapack_int n,+                        lapack_int kd,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zpf_trans( int matrix_order, char transr, char uplo,+                        lapack_int n, const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_zpo_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_zpp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_zsp_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_zsy_trans( int matrix_order, char uplo, lapack_int n,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_ztb_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, lapack_int kd,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );+void LAPACKE_ztf_trans( int matrix_order, char transr, char uplo, char diag,+                        lapack_int n, const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_ztp_trans( int matrix_order, char uplo, char diag,+                        lapack_int n, const lapack_complex_double *in,+                        lapack_complex_double *out );+void LAPACKE_ztr_trans( int matrix_order, char uplo, char diag, lapack_int n,+                        const lapack_complex_double *in, lapack_int ldin,+                        lapack_complex_double *out, lapack_int ldout );++/* NaN checkers */+#define LAPACK_SISNAN( x ) ( x != x )+#define LAPACK_DISNAN( x ) ( x != x )+#define LAPACK_CISNAN( x ) ( LAPACK_SISNAN(*((float*) &x)) || \+                              LAPACK_SISNAN(*(((float*) &x)+1)) )+#define LAPACK_ZISNAN( x ) ( LAPACK_DISNAN(*((double*)&x)) || \+                              LAPACK_DISNAN(*(((double*)&x)+1)) )++/* NaN checkers for vectors */+lapack_logical LAPACKE_c_nancheck( lapack_int n,+                                    const lapack_complex_float *x,+                                    lapack_int incx );+lapack_logical LAPACKE_d_nancheck( lapack_int n,+                                    const double *x,+                                    lapack_int incx );+lapack_logical LAPACKE_s_nancheck( lapack_int n,+                                    const float *x,+                                    lapack_int incx );+lapack_logical LAPACKE_z_nancheck( lapack_int n,+                                    const lapack_complex_double *x,+                                    lapack_int incx );+/* NaN checkers for matrices */+lapack_logical LAPACKE_cgb_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n, lapack_int kl,+                                      lapack_int ku,+                                      const lapack_complex_float *ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_cge_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_cgg_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_cgt_nancheck( lapack_int n,+                                      const lapack_complex_float *dl,+                                      const lapack_complex_float *d,+                                      const lapack_complex_float *du );+lapack_logical LAPACKE_chb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_che_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_chp_nancheck( lapack_int n,+                                      const lapack_complex_float *ap );+lapack_logical LAPACKE_chs_nancheck( int matrix_order, lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_cpb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_cpf_nancheck( lapack_int n,+                                      const lapack_complex_float *a );+lapack_logical LAPACKE_cpo_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_cpp_nancheck( lapack_int n,+                                      const lapack_complex_float *ap );+lapack_logical LAPACKE_cpt_nancheck( lapack_int n,+                                      const float *d,+                                      const lapack_complex_float *e );+lapack_logical LAPACKE_csp_nancheck( lapack_int n,+                                      const lapack_complex_float *ap );+lapack_logical LAPACKE_cst_nancheck( lapack_int n,+                                      const lapack_complex_float *d,+                                      const lapack_complex_float *e );+lapack_logical LAPACKE_csy_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_ctb_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_ctf_nancheck( int matrix_order, char transr,+                                      char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_float *a );+lapack_logical LAPACKE_ctp_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_float *ap );+lapack_logical LAPACKE_ctr_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_float *a,+                                      lapack_int lda );++lapack_logical LAPACKE_dgb_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n, lapack_int kl,+                                      lapack_int ku,+                                      const double *ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_dge_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_dgg_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_dgt_nancheck( lapack_int n,+                                      const double *dl,+                                      const double *d,+                                      const double *du );+lapack_logical LAPACKE_dhs_nancheck( int matrix_order, lapack_int n,+                                      const double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_dpb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_dpf_nancheck( lapack_int n,+                                      const double *a );+lapack_logical LAPACKE_dpo_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_dpp_nancheck( lapack_int n,+                                      const double *ap );+lapack_logical LAPACKE_dpt_nancheck( lapack_int n,+                                      const double *d,+                                      const double *e );+lapack_logical LAPACKE_dsb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_dsp_nancheck( lapack_int n,+                                      const double *ap );+lapack_logical LAPACKE_dst_nancheck( lapack_int n,+                                      const double *d,+                                      const double *e );+lapack_logical LAPACKE_dsy_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_dtb_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n, lapack_int kd,+                                      const double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_dtf_nancheck( int matrix_order, char transr,+                                      char uplo, char diag,+                                      lapack_int n,+                                      const double *a );+lapack_logical LAPACKE_dtp_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const double *ap );+lapack_logical LAPACKE_dtr_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const double *a,+                                      lapack_int lda );++lapack_logical LAPACKE_sgb_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n, lapack_int kl,+                                      lapack_int ku,+                                      const float *ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_sge_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_sgg_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_sgt_nancheck( lapack_int n,+                                      const float *dl,+                                      const float *d,+                                      const float *du );+lapack_logical LAPACKE_shs_nancheck( int matrix_order, lapack_int n,+                                      const float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_spb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_spf_nancheck( lapack_int n,+                                      const float *a );+lapack_logical LAPACKE_spo_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_spp_nancheck( lapack_int n,+                                      const float *ap );+lapack_logical LAPACKE_spt_nancheck( lapack_int n,+                                      const float *d,+                                      const float *e );+lapack_logical LAPACKE_ssb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_ssp_nancheck( lapack_int n,+                                      const float *ap );+lapack_logical LAPACKE_sst_nancheck( lapack_int n,+                                      const float *d,+                                      const float *e );+lapack_logical LAPACKE_ssy_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const float *a,+                                      lapack_int lda );+lapack_logical LAPACKE_stb_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n, lapack_int kd,+                                      const float* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_stf_nancheck( int matrix_order, char transr,+                                      char uplo, char diag,+                                      lapack_int n,+                                      const float *a );+lapack_logical LAPACKE_stp_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const float *ap );+lapack_logical LAPACKE_str_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const float *a,+                                      lapack_int lda );++lapack_logical LAPACKE_zgb_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n, lapack_int kl,+                                      lapack_int ku,+                                      const lapack_complex_double *ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_zge_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_zgg_nancheck( int matrix_order, lapack_int m,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_zgt_nancheck( lapack_int n,+                                      const lapack_complex_double *dl,+                                      const lapack_complex_double *d,+                                      const lapack_complex_double *du );+lapack_logical LAPACKE_zhb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_zhe_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_zhp_nancheck( lapack_int n,+                                      const lapack_complex_double *ap );+lapack_logical LAPACKE_zhs_nancheck( int matrix_order, lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_zpb_nancheck( int matrix_order, char uplo,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_zpf_nancheck( lapack_int n,+                                      const lapack_complex_double *a );+lapack_logical LAPACKE_zpo_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_zpp_nancheck( lapack_int n,+                                      const lapack_complex_double *ap );+lapack_logical LAPACKE_zpt_nancheck( lapack_int n,+                                      const double *d,+                                      const lapack_complex_double *e );+lapack_logical LAPACKE_zsp_nancheck( lapack_int n,+                                      const lapack_complex_double *ap );+lapack_logical LAPACKE_zst_nancheck( lapack_int n,+                                      const lapack_complex_double *d,+                                      const lapack_complex_double *e );+lapack_logical LAPACKE_zsy_nancheck( int matrix_order, char uplo,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );+lapack_logical LAPACKE_ztb_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n, lapack_int kd,+                                      const lapack_complex_double* ab,+                                      lapack_int ldab );+lapack_logical LAPACKE_ztf_nancheck( int matrix_order, char transr,+                                      char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_double *a );+lapack_logical LAPACKE_ztp_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_double *ap );+lapack_logical LAPACKE_ztr_nancheck( int matrix_order, char uplo, char diag,+                                      lapack_int n,+                                      const lapack_complex_double *a,+                                      lapack_int lda );++#ifdef __cplusplus+}+#endif /* __cplusplus */++#endif  /* _LAPACKE_UTILS_H_ */
+ tests/Test.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE FlexibleInstances, UndecidableInstances, OverlappingInstances #-}++module Main (main,+             Arbitrary(..),+             prop_pseudoInverse,+             prop_frobNorm,+             prop_frobNorm2,+             prop_frobNorm3,+             prop_frobNorm4) where++import Jalla.BLAS.Foreign.BlasOps+import Jalla.Matrix+import Jalla.Vector+import Jalla.Types+import Jalla.Test+import System.Random+++import Test.Framework (defaultMain, testGroup)+import Test.Framework.Providers.HUnit+import Test.Framework.Providers.QuickCheck2 (testProperty)++import Test.QuickCheck+import Test.HUnit++import Data.List+++main = defaultMain tests++tests = [+  testGroup "Matrix Norms" [+     testProperty "frob1" prop_frobNorm,+     testProperty "frob2" prop_frobNorm2,+     testProperty "frob3" prop_frobNorm3,+     testProperty "frob4" prop_frobNorm4+     ],+  testGroup "Multiplications" [+    testProperty "matrixMultDiag1" prop_matrixMultDiag1,+    testProperty "matrixMultDiag2" prop_matrixMultDiag2,+    testProperty "matrixMultDiag3" prop_matrixMultDiag3,+    testProperty "matrixMultDiag4" prop_matrixMultDiag4+     ],+  testGroup "Inverse" [+    testProperty "pseudoInverse" prop_pseudoInverse+    ]+  ]++++--instance (Random a, CMatrix mat a) => Random (mat a) where+--  randomR (lo,hi) g = createMatrix $ matrixMap++++prop_frobNorm :: Matrix CDouble -> Bool+prop_frobNorm m = (2 * abs (a - b) / (abs a + abs b)) <= 1e-8+  where a = frobNorm m +        b = sqrt $ sum $ map (^2) $ matrixList RowMajor m+        +prop_frobNorm2 :: Matrix CFloat -> Bool+prop_frobNorm2 m = (2 * abs (a - b) / (abs a + abs b)) <= 1e-6+  where a = frobNorm m +        b = realToFrac ((sqrt $ sum $ map ((^2) . realToFrac) $ matrixList RowMajor m) :: CDouble)+        +prop_frobNorm3 :: Matrix (Complex CFloat) -> Bool+prop_frobNorm3 m = 2 * realPart (abs (a - b)) / (realPart (abs a + abs b)) <= 1e-5+  where a = frobNorm m +        b = sqrt $ sum $ map (^2) $ matrixList RowMajor m+        +prop_frobNorm4 :: Matrix (Complex CDouble) -> Bool+prop_frobNorm4 m = 2 * realPart (abs (a - b)) / (realPart (abs a + abs b)) <= 1e-8+  where a = frobNorm m +        b = sqrt $ sum $ map (^2) $ matrixList RowMajor m+++prop_matrixMultDiag :: (BlasOps a, RealFrac a) => Matrix a -> Bool+prop_matrixMultDiag mat = frobNorm (matrixMultDiag (mat,NoTrans) (map realToFrac [1..]) ##- mat ## dm) < 1e-8 &&+                          frobNorm (matrixMultDiag (mat,Trans) (map realToFrac [1..]) ##- (mat,Trans) ##! (dm',NoTrans)) < 1e-8+  where (m,n) = shape mat+        dm    = createMatrix (n,m) act+        dm'   = createMatrix (m,n) act+        act   = fill 0 >> (setDiag 0 $ map realToFrac [1..])++prop_matrixMultDiagC :: (BlasOpsComplex a, RealFloat a) => Matrix (Complex a) -> Bool+prop_matrixMultDiagC mat = realPart (frobNorm (a ##- mat ## dm)) < 1e-7 &&+                           realPart (frobNorm (b ##- (mat,Trans) ##! (dm',NoTrans))) < 1e-7+  where +    a = matrixMultDiag (mat,NoTrans) (map realToFrac [1..])+    b = matrixMultDiag (mat,Trans) (map realToFrac [1..])+    (m,n) = shape mat+    dm    = createMatrix (n,m) act+    dm'   = createMatrix (m,n) act+    act   = fill 0 >> (setDiag 0 $ map realToFrac [1..])++prop_matrixMultDiag1 :: Matrix CFloat -> Bool+prop_matrixMultDiag1 = prop_matrixMultDiag+prop_matrixMultDiag2 :: Matrix CDouble -> Bool+prop_matrixMultDiag2 = prop_matrixMultDiag+prop_matrixMultDiag3 :: Matrix (Complex CFloat) -> Bool+prop_matrixMultDiag3 = prop_matrixMultDiagC+prop_matrixMultDiag4 :: Matrix (Complex CDouble) -> Bool+prop_matrixMultDiag4 = prop_matrixMultDiagC+++prop_pseudoInverse :: Matrix CDouble -> Bool+prop_pseudoInverse mat = frobNorm a < 1e-6+  where+    (m,n) = shape mat+    mat_plus = pseudoInverse mat+    a | m < n     = idMatrix m ##- mat ## mat_plus+      | otherwise = idMatrix n ##- mat_plus ## mat+    +