get_forecast_basins.c

Go to the documentation of this file.

#include  "prototypes.h"
 
void get_forecast_basins(char *fname)
 
{
 
extern struct forecast_basins forecast_basins[500];
extern int forecast_basins_flag;
char ibuf[100];
char *p;
FILE *fr;
int ier;
int ib;
 
if(fname[0]==0 )
     return;
     
fr=fopen(fname,"r");
 
if(fr==NULL) 
     return;
 
 
ib=0; 
for(;;) {
 
        p=fgets(ibuf,80,fr);
 
        if(p==NULL)
                  break;
 
        p=strchr(ibuf,'\n');
        if(p!=NULL)
                  *p=0;
 
        ier=sscanf(ibuf,"%s",forecast_basins[ib].hb5);
 
        ib++;
 
        }
        
forecast_basins_flag=1;
forecast_basins[ib].hb5[0]=0;        
 
}