home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / LOTUS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-02-02  |  1.1 KB  |  48 lines
  1. # include <stdio.h>
  2.  
  3. typedef char string80[80];
  4.  
  5. void LotusFileSave(float *datary,string80 rowlabel[], string80 collabel[],
  6.                    int numrow,int numcol,char filename[])
  7. {
  8.  
  9.  
  10.  
  11.    int i;
  12.    int j;
  13.    char comma;
  14.    char space;
  15.    char quote;
  16.    FILE *fp;
  17.  
  18.  
  19.    comma = 44;
  20.    space = 32;
  21.    quote = 34;
  22.  
  23.    fp = fopen(filename,"w");
  24.    fprintf(fp, "%c          %c%c%c", quote, space, quote, comma);
  25.    for ( j = 0; j <= numcol-1; ++j ) {
  26.       if ( j < numcol-1 ) {
  27.          fprintf(fp, "%c%s%c%c    ", quote, (collabel[j]  ), quote, comma);
  28.       }
  29.       else {
  30.          fprintf(fp, "%c%s%c\n", quote, (collabel[j]  ), quote);
  31.       }
  32.    }
  33.    for ( i = 0; i <= numrow-1; ++i ) {
  34.       fprintf(fp, "%c%s%c%c", quote, (rowlabel[i] ), quote, comma);
  35.       for ( j = 0; j <= numcol-1; ++j ) {
  36.          if ( j < numcol-1 ) {
  37.             fprintf(fp, "%12.4f%c", datary[i*numcol+j], comma);
  38.          }
  39.          else {
  40.             fprintf(fp, "%12.4f\n", datary[i*numcol+j]);
  41.          }
  42.       }
  43.    }
  44.    fprintf(fp, "%c", 26);
  45.    fflush(fp);
  46.    fclose(fp);
  47. }
  48.