make_fzelv_file.c

Go to the documentation of this file.

#define _POSIX_SOURCE
#include "prototypes_new.h"
 
void make_fzelv_file()
 
{
 
extern char rfc[10];
extern int mode;
extern char shef_source[50];
extern int wfo_orig;
extern time_t tim;
extern char fmaz_file[100];
extern struct map map[1500];
FILE *fo;
int ib,j;
char fbuf[100];
char *spaces,xbuf[300],mbuf[100];
int len,k;
struct tm *gmtim; 
float temp;
int itim;
int numzones;
int i;
char pchar[2];
time_t stim;
int kk;
time_t ctim;
int year,month,day,hour,min;
char dcbuf[100];
 
printf("starting\n");
 
ctim=time(NULL);
 
gmtim=gmtime(&ctim);
 
year=gmtim->tm_year+1900;
month=gmtim->tm_mon+1;
day=gmtim->tm_mday;
hour=gmtim->tm_hour;
min=0;
 
/*
if(dcbuf[0]==0) */
 
           sprintf(dcbuf,"%04d%02d%02d%02d",year,month,day,hour); 
     
pchar[1]=0;
 
spaces="             ";
 
gmtim=gmttime(&tim);
 
sprintf(fbuf,"%s%02d-%02d-%02d",fmaz_file,gmtim->tm_mon+1,gmtim->tm_mday,
              gmtim->tm_year);
 
fo=fopen(fbuf,"w");
 
if(fo==NULL) {
 
             printf("could not open %s\n",fbuf);
 
             exit(1);
 
       }
       
chmod(fbuf,S_IRUSR | S_IWUSR | 
           S_IRGRP | S_IWGRP |
           S_IROTH | S_IWOTH);
 
stim=tim-86400;
gmtim=gmtime(&stim);
 
printf("thru\n");
 
for(ib=0;map[ib].hb5[0]!=0;ib++){
 
      if(mode==0) {
      
      if(wfo_orig != map[ib].owner)
                             continue;       
 
        }
 
      numzones=0;
      for(j=0;j < 4;j++) {
 
                      if(map[ib].zones[j] < 0)
                                        continue;
 
                      numzones++;
 
            }
 
 
      for(j=0;j < 4;j++) {
 
           if(map[ib].zones[j] < 0)
                              continue;
                              
           strcpy(xbuf,".ER ");
           strcat(xbuf,map[ib].hb5);
          
           i=0;
           while(xbuf[i] != 0) 
                            xbuf[i++]=toupper(xbuf[i]);
                          
                
           if(strcmp(rfc,"cbrfc")==0 &&
              strlen(map[ib].hb5)==7) {
          
              printf("polygon write\n");
          
              pchar[0]=map[ib].bchar[0];
          strcat(xbuf,pchar);
              
              }
 
           else {       
 
           if(j==0 && numzones != 1) {
           
                 strcat(xbuf,"L");
                 pchar[0]=map[ib].bchar[0];
                 strcat(xbuf,pchar);
                 
                  }
 
 
           else if(j==0 && numzones == 1) {
           
                 strcat(xbuf,"O");
                 pchar[0]=map[ib].bchar[0];
                 strcat(xbuf,pchar);
                 
                  }
 
 
           else if(j==1) {
           
                 strcat(xbuf,"M");
                 pchar[0]=map[ib].bchar[1];
                 strcat(xbuf,pchar);
                 
                  }
          
           else if(j==2) {
           
                 strcat(xbuf,"U");
                 pchar[0]=map[ib].bchar[2];
                 strcat(xbuf,pchar);
                 
                  }
 
           else if(j==3) {
           
                 strcat(xbuf,"G");
                 pchar[0]=map[ib].bchar[3];
                 strcat(xbuf,pchar);
                 
                  }
          
          }
 
           sprintf(mbuf," %04d%02d%02d",gmtim->tm_year+1900,
               gmtim->tm_mon+1,gmtim->tm_mday);
           strcat(xbuf,mbuf);
    
           sprintf(mbuf," DH12/DC%s00/HZIF%cZZ/DIH+6",
                   dcbuf,shef_source[0]); 
           strcat(xbuf,mbuf);
          
           for(k=0;k<13;k++) {
     
           if(k==4) {
           
                    strcat(xbuf,"\n");
                    strcat(xbuf,".E1 ");
                    
                    }
 
           if(map[ib].zmaps_done[k]==1) {
           
           if(j==0)
                temp=map[ib].zlz[k];
 
           if(j==1)
                temp=map[ib].zmz[k];
 
           if(j==2)
                temp=map[ib].zuz[k];
 
           if(j==3)
                temp=map[ib].zgz[k];
 
                }
                
           else
                temp=-1.0;
 
           if(k != 4)
                strcat(xbuf,"/");
 
           if(temp < 0)
         sprintf(mbuf,"M     ",temp);
        
       else  
             sprintf(mbuf,"%5.2f",temp);
           
           strcat(xbuf,mbuf);
          
                   }                   
           
       strcat(xbuf,"\n");
       fputs(xbuf,fo);
       
       }
 
   }                           
                     
 
fclose(fo);
 
return;
 
}