{Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730}

procedure MatGen ( var a : MATRIX ; lda, n : integer ) ;
     {                                                     }
     { PROGRAM: MATGEN                                     }
     {                                                     }
     { VERSION: 1.0/TURBO                   DATE: 04/21/86 }
     {                                                     }
     { DESCRIPTION:                                        }
     {                                                     }
     {    Generate a test matrix with coefficients         }
     {    uniformly distributed on the interval (-1,1).    }
     {                                                     }
     { AUTHOR:                                             }
     {                                                     }
     {    Adam Fritz                                       }
     {    133 Main Street                                  }
     {    Afton, New York 13730                            }
     {                                                     }
var
     i, j           : integer ;

begin
                                { Validate Leading Dimension }
   if lda > 0 then
                                { Validate Order }
      if (n > 0) and (n <= lda) then begin
                                { Form Matrix }
         Randomize ;
         for i := 1 to n do
            for j := 1 to n do
               a[i,j] := 2.0*Random - 1.0
      end
      else begin
         writeln('Error: Invalid MATRIX Order, ', n,'.') ;
         BIOS(0)
      end
   else begin
      writeln('Error: Invalid LEADING DIMENSION, ', lda) ;
      BIOS(0)
   end
end ;

{Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, NY 13730}