/* Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 */

MATGEN ( A, lda, n )
   float A[][ldx] ;
   int lda, n ;

     /* Program:                                            */
     /*                                                     */
     /*    MATGEN                                           */
     /*                                                     */
     /* Version:                       Date:                */
     /*                                                     */
     /*    Eco C 1.1                      04/25/86          */
     /*                                                     */
     /* Description:                                        */
     /*                                                     */
     /*    Generate a test matrix using random numbers      */
     /*    generated by EcoSoft C's drand() library routine */
     /*    and scaled to the interval (-1,1).               */
     /*                                                     */
     /* Author:                                             */
     /*                                                     */
     /*    Adam Fritz                                       */
     /*    133 Main Street                                  */
     /*    Afton, New York 13730                            */

{
   int i, j ;
   double drand() ;
                                /* Validate Leading Dimension */
   if ( lda > 0 )
   {
                                /* Validate Order */
      if ((n > 1) && (n <= lda))
                                /* Form Matrix */
         for ( i=0; i<n; i++ )
            for ( j=0; j<n; j++ )
               A[i][j] = 2.0*drand() - 1.0 ;
      else
      {
         printf("Error: Invalid MATRIX Order, %d\n", n) ;
         bios(0) ;
      }
   }
   else
   {
      printf("Error: Invalid LEADING DIMENSION, %d\n", lda) ;
      bios(0) ;
   }
}

/* Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 */