1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with Float_Type; use Float_Type; 
  6.  
  7. generic 
  8.    Dimension : Positive; 
  9.  
  10. package Matrices is 
  11.  
  12.    type Matrix is array (1 .. Dimension, 1 .. Dimension) of Real; 
  13.  
  14.    -- function Image (Matrix : Matrix_3D) return String; 
  15.  
  16.    function "*" (A, B : Matrix) return Matrix; 
  17.  
  18.    function Transpose (M : Matrix) return Matrix; 
  19.  
  20. end Matrices;