-- At the moment empty (only shows how to instanciate);
-- will be one day a very nice Finite Elements demo!
-- (I have working code; contact me if in need!).

with Ada.Numerics.Generic_Elementary_Functions;

with G_FEK, G_Matrices;

procedure Demo_FEK is

  subtype F is Long_Float;
  type Vector is array (Integer range <>) of F;
  type Matrix is array (Integer range <>, Integer range <>) of F;

  package FEK is new G_FEK(Long_Float, Vector, Matrix);

  package FEF is new Ada.Numerics.Generic_Elementary_Functions(F);

  package Matrices is new
    G_Matrices(F, 0.0,1.0, "-", FEF.Sqrt,"+","-","*","/", Vector, Matrix);

begin
  null;
end Demo_FEK;