home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / RANK.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  1.8 KB  |  70 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  RANK  */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,i,ierr,j,mr,nr,nc,ncc,nrank,lp[10],mp[10];
  9.         float cons,zmch;
  10.         static float a[4][6]={1.,    2.,   3.,   14.,   12.,   7777.,
  11.                               1.,   -2.,   3.,    6.,    4.,   7777.,
  12.                               1.,    0.,   0.,    1.,    2.,   7777.,
  13.                               7777., 7777.,7777., 7777., 7777.,7777.};
  14.         mr = 6;
  15.         nr = 3;
  16.         nc = 3;
  17.         ncc = 2;
  18.         zmch = .0001;
  19.         cons = .5;
  20.         for(i = 0; i <= 9; i++)
  21.         {
  22.          lp[i] = 999;
  23.          mp[i] = 888;
  24.         }
  25.  
  26.        rank(mr,nr,nc,ncc,a,zmch,cons,&nrank,&ierr,lp,mp);
  27.  
  28.         fp=open("PRN:",1);                    /* open the printer */
  29.  
  30.         fprintf(*fp,"Test Results from RANK\n");
  31.          printf("Test Results from RANK\n\n");
  32.  
  33.         fprintf(*fp," IERR = %d  NRANK = %d\n\n",ierr,nrank);
  34.          printf(   " IERR = %d  NRANK = %d\n\n",ierr,nrank);
  35.  
  36.         fprintf(*fp,"LP = ");
  37.          printf(   "LP = ");
  38.  
  39.         for(i = 0; i <= 9; i++)
  40.         {
  41.           fprintf(*fp," %4d",lp[i]);
  42.            printf(   " %4d",lp[i]);
  43.         }
  44.          fprintf(*fp,"\n");
  45.          printf("   \n");
  46.  
  47.         fprintf(*fp,"MP = ");
  48.          printf(   "MP = ");
  49.  
  50.         for(i = 0; i <= 9; i++)
  51.         {
  52.           fprintf(*fp," %4d",mp[i]);
  53.            printf(   " %4d",mp[i]);
  54.         }
  55.          fprintf(*fp,"\n\n");
  56.          printf("   \n\n");
  57.  
  58.         for(i = 0; i <= 3; i++)
  59.         {
  60.          for(j = 0; j <= 5; j++)
  61.          {
  62.           fprintf(*fp," %10.4f",a[i][j]);
  63.            printf(   " %10.4f",a[i][j]);
  64.          }
  65.         fprintf(*fp,"\n");
  66.          printf("   \n");
  67.         }
  68.      }
  69.  
  70.