home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / QUADRT.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  982 b   |  32 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  QUADRT */
  4.  
  5.         main()
  6.  
  7.         {
  8.         int *fp,numrt;
  9.         static float a[3]={1.,2.,1.};
  10.         float root1[2],root2[2],tol;
  11.  
  12.         tol = .001;
  13.  
  14.         quadrt(a,root1,root2,tol,&numrt);
  15.  
  16.         *fp=fopen("PRN:","w");                 /* open the printer */
  17.  
  18.         fprintf(*fp,"Test Results from QUADRT\n\n");
  19.          printf("Test Results from QUADRT\n\n");
  20.  
  21.         fprintf(*fp," NUMRT = %d\n\n",numrt);
  22.          printf(" NUMRT = %d\n\n",numrt);
  23.  
  24.         fprintf(*fp,"ROOTS   REAL                  IMAGINARY\n");
  25.          printf("ROOTS   REAL                  IMAGINARY\n");
  26.         fprintf(*fp,"  %15.7f       %15.7f\n",root1[0],root1[1]);
  27.          printf("  %15.7f       %15.7f\n",root1[0],root1[1]);
  28.         fprintf(*fp,"  %15.7f       %15.7f\n",root2[0],root2[1]);
  29.          printf("  %15.7f       %15.7f\n",root2[0],root2[1]);
  30.       }
  31.  
  32.