home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STMLRG.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  882 b   |  35 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STMLRG */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,i,icol,icolx,m,n;
  9.         float a[4][4];
  10.         static float x[5][4]={ 2., 1., 3.,-1.,
  11.                                3.,-1., 0., 3.,
  12.                               -2., 0., 2., 4.,
  13.                                1.,-2., 2., 1.,
  14.                                3.,-1., 3.,-1.};
  15.  
  16.         icol = 4;
  17.         icolx = 4;
  18.         m = 5;
  19.         n = 3;
  20.  
  21.        stmlrg(n,m,a,icol,x,icolx);
  22.  
  23.         *fp=fopen("PRN:","w");             /* open the printer */
  24.  
  25.         fprintf(*fp,"Test Results from STMLRG\n");
  26.          printf("Test Results from STMLRG\n\n");
  27.  
  28.         for(i = 0; i <= icol-1; i++)
  29.         {
  30.          fprintf(*fp," %15.10f \n",a[i][3]);
  31.           printf(   " %15.10f \n",a[i][3]);
  32.         }
  33.      }
  34.  
  35.