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