COPYRIGHT (C) 1986 ADAM FRITZ, 133 MAIN ST., AFTON, N.Y. 13730
C
C     PROGRAM: MATGEN
C
C     VERSION: 1.0                            DATE: 04/25/86
C              MICROSOFT FORTRAN
C
C     DESCRIPTION:
C
C        GENERATE A TEST MATRIX USING RANDOM NUMBERS.
C
C     AUTHOR:
C
C        ADAM FRITZ
C        133 MAIN STREET
C        AFTON, NEW YORK 13730
C
      SUBROUTINE MATGEN(A, LDA, N)
C
      INTEGER LDA, N, I, J
      REAL A(LDA,1)
C
      IF (N .LT. 1 .OR. N .GT. LDA) STOP
      DO 20 I=1, N
         DO 10 J=1, N
               A(I,J) = 2.0*RAND(1.0) - 1.0
   10    CONTINUE
   20 CONTINUE
C
      RETURN
      END
C
COPYRIGHT (C) 1986 ADAM FRITZ, 133 MAIN ST., AFTON, N.Y. 13730