scs.c

Go to the documentation of this file.

#include "prototypes.h"
 
 void main(argc,argv)
int argc;
char *argv[];
 
{
 
FILE *fr,*fp,*ft;
char mbuf[100],buf1[50],buf2[50],buf3[50];
char buf4[50],buf5[50],buf6[50];
char dbuf[100],ebuf[100],*p;
int ier,i;
double lat;
 
fr=fopen(argv[1],"rv");
fp=fopen("scsmon.dat","wv");
ft=fopen("scssea.dat","wv");
 
for(;;) {
 
   p=fgets(mbuf,100,fr);
   
   if(p==NULL)
            break;
 
   for(i=0;mbuf[i] != 0;i++) {
               if(mbuf[i]==',')
                              mbuf[i]=' ';
         }
 
 
   ier=sscanf(mbuf,"%s %s %s %s %s %s",buf1,buf2,buf3,buf4,buf5,buf6);
 
   lat=atof(buf1) + 120;
 
   sprintf(dbuf,"%7.3f",lat);
   strcat(dbuf,",");
   strcat(dbuf,buf2);
   strcat(dbuf,",");
   strcat(dbuf,buf3);
   strcat(dbuf,",");
   strcat(dbuf,",");
   strcat(dbuf,buf5);
   strcat(dbuf,",");
   strcat(dbuf,buf6);
   strcat(dbuf,"\n");
 
   sprintf(ebuf,"%7.3f",lat);
   strcat(ebuf,",");
   strcat(ebuf,buf2);
   strcat(ebuf,",");
   strcat(ebuf,buf4);
   strcat(ebuf,",");
   strcat(ebuf,",");
   strcat(ebuf,buf5);
   strcat(ebuf,",");
   strcat(ebuf,buf6);
   strcat(ebuf,"\n");
 
   fputs(dbuf,fp);
   fputs(ebuf,ft);
   
 
 }
 
}