-- aquade.ads  special for fem_checke_la.adb
with Real_Arrays;
use Real_Arrays;

package aquade is
  type funct is access function (x:Real; i,j,n:Integer; xg:Real_Vector)
                                 return real;

  function aquad3(f : funct ; xmin, xmax, eps : Real;
                  i,j,n:Integer; xg:Real_vector)
                  return real;
end aquade;