new_write_qpf_grids.c

Go to the documentation of this file.

#define _POSIX_SOURCE
#include "prototypes_new.h"
 
void write_qpf_grids(char *fname)
 
{
 
FILE *fp;
extern struct hrap_grid *hrap_grid;
extern struct pcp *pcp;
int i,j;
int iflag;
 
fp=fopen(fname,"w");
 
if(fp==NULL) {
 
             printf("could not open %s\n",fname);
 
             exit(1);
 
       }
     
chmod(fname,S_IRUSR | S_IWUSR | 
            S_IRGRP | S_IWGRP |
            S_IROTH | S_IWOTH);
 
iflag=1;
 
fprintf(fp,"%d %d %d %d %d\n",
    hrap_grid->hrap_minx,hrap_grid->hrap_miny,hrap_grid->maxi,hrap_grid->maxj,
    iflag);
 
for(i=0;i<hrap_grid->maxi;i++) {
 
for(j=0;j<hrap_grid->maxj;j++) {
 
               fprintf(fp," %5d",pcp->value[i][j]);
 
      }
}
 
fclose(fp);
 
return;
 
}