Wrap generalized Hermitian eigenvalue routine

Author: andreasnoack

src/core/types.jl

@@ -60,6 +60,7 @@ eltype{T}(A::ElementalMatrix{T}) = T
 @enum UpperOrLower LOWER UPPER
 @enum LeftOrRight LEFT RIGHT
 @enum UnitOrNonUnit NON_UNIT UNIT
+@enum Pencil AXBX=1 ABX=2 BAX=3
 
 # Get MPIWorldComm
 function CommWorldValue()

src/lapack_like/spectral.jl

@@ -242,6 +242,14 @@ for (elty, ext) in ((:Float32, :s),
                 return w
             end
 
+            function eigvalsHermitian(pencil::Pencil, uplo::UpperOrLower, A::$mat{$elty}, B::$mat{$elty}, sort::SortType = ASCENDING)
+                w = $mat(real($elty))
+                ElError(ccall(($(string("ElHermitianGenDefEig", mattype, "_", ext)), libEl), Cuint,
+                    (Pencil, UpperOrLower, Ptr{Void}, Ptr{Void}, Ptr{Void}, SortType),
+                    pencil, uplo, A.obj, B.obj, w.obj, sort))
+                return w
+            end
+
             function eigHermitian(uplo::UpperOrLower, A::$mat{$elty}, sort::SortType = ASCENDING)
                 w = $mat(real($elty))
                 Z = $mat($elty)