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