add Grid function

Project.toml

@@ -3,6 +3,7 @@ uuid = "902c3f28-d1ec-5e7e-8399-a24c3845ee38"
 version = "0.6.0"
 
 [deps]
+CEnum = "fa961155-64e5-5f13-b03f-caf6b980ea82"
 Distributed = "8ba89e20-285c-5b6f-9357-94700520ee1b"
 DistributedArrays = "aaf54ef3-cdf8-58ed-94cc-d582ad619b94"
 Elemental_jll = "c2e960f2-a21d-557e-aa36-859d46eed7e8"

src/Elemental.jl

@@ -33,7 +33,6 @@ end
 function __init__()
     # ccall(:jl_, Cvoid, (Any,), "starting up!")
     Init()
-    DefaultGrid[] = Grid()
     atexit() do
         # ccall(:jl_, Cvoid, (Any,), "closing down!")
         Initialized() && Finalize()

src/core/distmatrix.jl

@@ -17,7 +17,7 @@ for (elty, ext) in ((:ElInt, :i),
             return nothing
         end
 
-        function DistMatrix(::Type{$elty}, colDist::Dist = MC, rowDist::Dist = MR, grid::Grid = DefaultGrid[])
+        function DistMatrix(::Type{$elty}, colDist::Dist = MC, rowDist::Dist = MR, grid::Grid = DefaultGrid())
             obj = Ref{Ptr{Cvoid}}(C_NULL)
             ElError(ccall(($(string("ElDistMatrixCreateSpecific_", ext)), libEl), Cuint,
                 (Cint, Cint, Ptr{Cvoid}, Ref{Ptr{Cvoid}}),

src/core/grid.jl

@@ -1,3 +1,10 @@
+using CEnum
+
+@cenum ElGridOrderType::UInt32 begin
+    EL_ROW_MAJOR = 0
+    EL_COLUMN_MAJOR = 1
+end
+
 mutable struct Grid
 	obj::Ptr{Cvoid}
 end
@@ -11,11 +18,33 @@ end
 
 # Returns the default Grid. The default grid is finalized when Elemental is finalized
 # so we shouldn't register a `destroy` as finalizer.
-function Grid()
+function DefaultGrid()
     obj = Ref{Ptr{Cvoid}}(C_NULL)
         ElError(ccall(("ElDefaultGrid", libEl), Cuint,
             (Ref{Ptr{Cvoid}},), obj))
     return Grid(obj[])
 end
 
-const DefaultGrid = Ref{Grid}()
+# Returns the trivial Grid. The default grid is finalized when Elemental is finalized
+# so we shouldn't register a `destroy` as finalizer.
+function TrivialGrid()
+    obj = Ref{Ptr{Cvoid}}(C_NULL)
+        ElError(ccall(("ElTrivialGrid", libEl), Cuint,
+            (Ref{Ptr{Cvoid}},), obj))
+    return Grid(obj[])
+end
+
+function row(G::Grid)
+    row = Ref{Cint}()
+    ElError(ccall(("ElGridRow", libEl), Cuint,
+        (Ptr{Cvoid}, Ptr{Cint}), G.obj, row))
+    return row[]
+end
+
+function column(G::Grid)
+    col = Ref{Cint}()
+    ElError(ccall(("ElGridCol", libEl), Cuint,
+        (Ptr{Cvoid}, Ptr{Cint}), G.obj, col))
+    return col[]
+end
+

src/lapack_like/factor.jl

@@ -66,7 +66,7 @@ function destroy(P::DistPermutation)
     return nothing
 end
 
-function DistPermutation(grid::Grid = DefaultGrid[])
+function DistPermutation(grid::Grid = DefaultGrid())
     obj = Ref{Ptr{Cvoid}}(0)
     ElError(ccall(("ElDistPermutationCreate", libEl), Cuint,
         (Ref{Ptr{Cvoid}}, Ptr{Cvoid}),