-- generic_complex_eigen_check.ads

-- This package is part of the test suite for Eigenvalue / Eigenvector
-- testing

with Ada.Numerics.Generic_Complex_Types;
with Array_Exceptions;
with Integer_Arrays; use Integer_Arrays;
with Generic_Real_Arrays;
with Generic_Complex_Arrays;


generic
  type REAL is digits <> ;
  with package Real_Arrays is new Generic_Real_Arrays(REAL);
  with package Complex_Types is new Ada.Numerics.Generic_Complex_Types(REAL);
  with package Complex_Arrays is new Generic_Complex_Arrays(REAL,
                                         Complex_Types, Real_Arrays);

package GENERIC_COMPLEX_EIGEN_CHECK is

  use Real_Arrays;
  use Complex_Types;
  use Complex_Arrays;

  procedure EIGDET ( B : COMPLEX_MATRIX ;
                     LAMBDA : COMPLEX_VECTOR ) ;

  procedure EVALVEC ( AA : COMPLEX_MATRIX ;
                      LAMBDA : COMPLEX_VECTOR ;
                      X : COMPLEX_MATRIX ) ;
end GENERIC_COMPLEX_EIGEN_CHECK ;