convert_lanier1.c

Go to the documentation of this file.

#include "prototypes.h"
 
void main(int argc, char **argv)
 
{
 
FILE *fp,*fw,*fz;
char buf1[100],buf2[100],buf3[100];
int num,i,numverts,ier,oflag,istart,ilat,ilon;
char *p,kbuf[100],fname[100];
char hb5[20],parm1[20],parm2[20],dummy[100],name[100],parm3[20],oldhb5[10];
float flat,lat,flon,lon;
 
 
fp=fopen(argv[1],"r");
 
if(fp==NULL) {
 
            printf("could not open %s\n",argv[1]);
 
            exit(1);
 
      }
 
fw=fopen(argv[2],"w");
 
if(fw==NULL) {
 
            printf("could not open %s\n",fname);
 
            exit(1);
 
      }
 
istart=-1;
oldhb5[0]=0;
for(;;) {
 
       p=fgets(kbuf,100,fp);
 
       if(p==NULL)
                break;
 
 
       p=strchr(kbuf,'\n');
       if(p!=NULL)
                *p=0;
 
       p=pars_line(kbuf,"elgid",dummy);
       if(p!=NULL) 
            sscanf(p,"%s",hb5);
 
       p=pars_line(kbuf,"elgpe",dummy);
       if(p!=NULL) {
 
             ier=sscanf(p,"%s",parm1);
             if(ier != 1)
                       strcpy(parm1,"XX");
 
       }
 
       p=pars_line(kbuf,"elgts",dummy);
       if(p!=NULL) {
 
             ier=sscanf(p,"%s",parm3);
 
             if(ier != 1)
                       strcpy(parm3,"XX");
 
       }
 
       strcpy(parm2,"X");
 
       p=pars_line(kbuf,"locdes",dummy);
       if(p!=NULL)
                strcpy(name,p);
 
       p=pars_line(kbuf,"loclat",dummy);
       if(p!=NULL) {
 
                   ier=sscanf(p,"%f",&flat);
 
                   if(ier!=1)
                           flat=-999;
 
                   else {
 
                       ilat=flat/10000;
                       lat=(float)ilat+(flat - ilat*10000)/6000;
 
         }
 
         }
 
       p=pars_line(kbuf,"loclng",dummy);
       if(p!=NULL) {
 
                   ier=sscanf(p,"%f",&flon);
 
                   if(ier!=1)
                           lon=-999;
 
                   else {
 
                       ilon=flon/10000;
                       lon=(float)ilon+(flon - ilon*10000)/6000;
 
                    if(strncmp(parm3,"RG",2)==0 ||
                      strncmp(parm3,"RM",2)==0 ||
                      strncmp(parm3,"RP",2)==0 ||
                      strncmp(parm3,"RR",2)==0 ||
                      strncmp(parm3,"RT",2)==0 ||
                      strncmp(parm3,"RV",2)==0 || 
                      strncmp(parm3,"RW",2)==0 || 
                      strncmp(parm3,"RZ",2)==0)
              
if(strcmp(hb5,oldhb5)!=0)
            fprintf(fw,"%s   %s%s%sZ   %7.4f   %7.4f   %s\n",hb5,parm1,parm2,
                    parm3,lat,lon,name);
 
strcpy(oldhb5,hb5);
 
             }
 
 
                      
 
         }
 
         }
 
}