home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / TPZOD.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  739 b   |  30 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  TPZOD */
  4.  
  5.         main()
  6.  
  7.         {
  8.         int *fp,m;
  9.         static float y[10]={1.386294,1.435084,1.481604,1.526056,
  10.                             1.568615,1.609438,1.648659,1.686399,
  11.                             1.722767,1.757858};
  12.         float xo,xh,tpa;
  13.  
  14.         m = 10;
  15.         xo = 4.;
  16.         xh = 5.8;
  17.  
  18.         tpzod(m,xo,xh,y,&tpa);
  19.  
  20.         *fp=fopen("PRN:","w");                 /* open the printer */
  21.  
  22.         fprintf(*fp,"Test Results from TPZOD\n\n");
  23.          printf("Test Results from TPZOD\n\n");
  24.  
  25.         fprintf(*fp," TPA = %15.7f\n\n",tpa);
  26.          printf(" TPA = %15.7f\n\n",tpa);
  27.  
  28.         }
  29.  
  30.