Mapper
change_format.c
Go to the documentation of this file.
1 #include "prototypes.h"
2 
3 void main(int argc, char **argv)
4 
5 {
6 
7 FILE *fp,*fw;
8 double max_lat,max_lon,tot_lat,tot_lon,delta_lat,delta_lon;
9 int i,j,pcpn,isoh[1000],maxi,maxj,ier;
10 char *p,kbuf[100];
11 
12 fp=fopen(argv[1],"r");
13 
14 fw=fopen(argv[2],"w");
15 
16 if(fw==NULL || fp==NULL) {
17 
18  printf("could not open\n");
19 
20  exit(1);
21 
22  }
23 
24 p=fgets(kbuf,100,fp);
25 
26 ier=sscanf(kbuf,"%lf %lf %lf %lf %lf %lf",&max_lat,&max_lon,&tot_lat,&tot_lon,&delta_lat,&delta_lon);
27 
28 fprintf(fw,"%f %f %f %f %f %f\n",max_lat,max_lon,tot_lat,tot_lon,delta_lat,delta_lon);
29 
30  delta_lat=delta_lat/60.;
31  delta_lon=delta_lon/60.;
32 
33  maxi=tot_lon/delta_lon;
34  maxj=tot_lat/delta_lat;
35 
36 printf("maxi %d maxj %d\n",maxi,maxj);
37 
38 for(i=0;i<maxi;i++) {
39 
40 for(j=0;j<maxj;j++) {
41 
42  ier=fscanf(fp,"%d",&pcpn);
43 
44  isoh[j]=pcpn;
45 
46  }
47 
48 for(j=0;j<maxj;j++)
49  fprintf(fw,"%03d ",isoh[j]);
50 
51 }
52 
53 fclose(fw);
54 fclose(fp);
55 
56 }
static int i
void main(int argc, char **argv)
Definition: change_format.c:3
fclose(fp)
printf("fbuf is %s\n", fbuf)
fp
Definition: make_NEXRAD.c:339
fprintf(fp,"%d %d %d %d 1\n", iminx, iminy, maxi, maxj)
int j
Definition: mapp2h.h:48
double max_lat
Definition: mapper.c:22
Definition: misc.h:538