home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STANVY.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  1.2 KB  |  45 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STANVY  */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,i,j,k,lcx,lcm,lcn,nb,nn,nt,nr,ntb;
  9.         static int n[16]={1,1,1,0,
  10.                           1,1,0,1,
  11.                           0,1,1,1,
  12.                           1,0,1,1},
  13.                    m[12]={1,2,3,
  14.                           4,1,2,
  15.                           2,3,4,
  16.                           3,4,1};
  17.         float av[16],f,t[4];
  18.         static float x[12]={ 2., 1., 0.,
  19.                             -2., 2., 2.,
  20.                             -1.,-1.,-3.,
  21.                              0.,-4., 2.};
  22.         lcx = 3;
  23.         lcn = 4;
  24.         lcm = 3;
  25.         nn = 4;
  26.         k = 3;
  27.  
  28.        stanvy(lcx,lcm,lcn,nn,k,m,n,x,av,&f,t);
  29.  
  30.         *fp=fopen("PRN:","w");             /* open the printer */
  31.  
  32.         fprintf(*fp,"Test Results from STANVY\n");
  33.          printf("Test Results from STANVY\n\n");
  34.  
  35.         fprintf(*fp,"   F =  %f\n\n",f);
  36.          printf(   "   F =  %f\n\n",f);
  37.  
  38.         for(i = 0; i <= 15; i++)
  39.         {
  40.           fprintf(*fp,"av[%d] = %15.7f\n",i,av[i]);
  41.            printf(   "av[%d] = %15.7f\n",i,av[i]);
  42.         }
  43.      }
  44.  
  45.