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