get_data.c

Go to the documentation of this file.

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define MISSING "---"
 
get_data(char month[4], FILE *fp, FILE *fq,int year, char id[9], int numpe, 
         int s_day, int e_day, int divide[10], int conver[10])
 
{
 
char buffer[131];
char mon[12][4] = {"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP",
                   "OCT","NOV","DEC"};
int day[12] = {31,28,31,30,31,30,31,31,30,31,30,31};
int i,j,k,l,date,count,iyr,data_day,dday;
float divalue;
char value[11][12];
 
iyr = year/4*4;
if (iyr == year)
  day[1]=29;
 
for(j=0;j<12;j++)
  if(strcmp(month,mon[j]) == 0)
    count = j + 1;
 
date = count*100 + 1;
 
for(j=1;j<=e_day+1;j++,date++)
{
  if(date - date/100*100 > day[count-1])
  {
    date = ((count+1) * 100) + 1;
    if(count > 11)
      date = 101;
  }
  fgets(buffer,131,fp);
  if(strlen(buffer) > 4)
  { 
    /* init values to missing  */
    for(i=0;i<8;i++)
      strcpy(value[i],MISSING); 
 
    sscanf(buffer,"%d %s %s %s %s %s %s %s %s %s %s %s",
                  &dday,value[0],value[1],value[2],value[3],
                  value[4],value[5],value[6],value[7],value[8],
                  value[9],value[10]);
            
    for(i=0,l=0;i<numpe;i++)
      if(strcmp(value[i],MISSING) == 0)
        l++;
 
    if(l >= numpe)
      break;
 
    if(dday >= s_day && dday <= e_day)
    {
      fprintf(fq,"%s DM%4.4d",id,date);
      for(i=0;i<numpe;i++)
      {
        if(strcmp(value[i],MISSING) == 0)
          fprintf(fq," /  M ");
        else if(divide[i] == 1 && conver[i] == 0)
          fprintf(fq," / %.2f",atof(value[i])/1000.);
        else if(divide[i] == 1 && conver[i] == 1)
          fprintf(fq," / %.2f",atof(value[i])/1000.0 * 0.504);
        else
          fprintf(fq," / %.2f",atof(value[i]));
      }
      fprintf(fq,"\n");
    }
  }
}
    
fprintf(fq,".END\n");
}