home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STHYGD.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  574 b   |  27 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STHYGD */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,k,n,id,iix;
  9.         double cf,df;
  10.  
  11.         k = 50;;
  12.         n = 5;
  13.         id = 5;
  14.         iix = 0;
  15.  
  16.        sthygd(k,n,id,iix,&df,&cf);
  17.  
  18.         *fp=fopen("PRN:","w");             /* open the printer */
  19.  
  20.         fprintf(*fp,"Test Results from STHYGD\n");
  21.          printf("Test Results from STHYGD\n\n");
  22.  
  23.       fprintf(*fp,"%15.10f %15.10f\n",df,cf);
  24.        printf(   "%15.10f %15.10f\n",df,cf);
  25.      }
  26.  
  27.