home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STGEOM.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  776 b   |  27 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STGEOM */
  4.  
  5.         main()
  6.  
  7.         {
  8.         float gm,gsd;
  9.         static float
  10.               d[24]={1100.,2630., 695.,3630.,1550.,1150.,1010.,2110.,
  11.                       736.,1260.,1690.,2680.,2520.,2030.,1280.,2400.,
  12.                       938.,1860.,2410.,3370.,1380.,2200.,2290.,1220.};
  13.         int *fp,n;
  14.  
  15.         *fp=fopen("PRN:","w");                /* open the printer */
  16.         fprintf(*fp,"Test Results from STGEOM\n\n");
  17.         printf("Test Results from STGEOM\n\n");
  18.  
  19.         n = 24;
  20.  
  21.         stgeom(n,d,&gm,&gsd);
  22.  
  23.         fprintf(*fp,"GM, GSD = %15.7f   %15.7f\n",gm,gsd);
  24.          printf("GM, GSD = %15.7f   %15.7f\n",gm,gsd);
  25.  
  26.         }
  27.