| 25 |
|
long dstart; /* data start offset in file */ |
| 26 |
|
} PGINPUT; |
| 27 |
|
|
| 28 |
< |
const double ANGLE_EPS = 180./2./GRIDRES; |
| 28 |
> |
double angle_eps = 0; /* epsilon for angle comparisons */ |
| 29 |
|
|
| 30 |
|
PGINPUT *inpfile; /* input files sorted by incidence */ |
| 31 |
|
int ninpfiles; /* number of input files */ |
| 37 |
|
const PGINPUT *inp1 = (const PGINPUT *)p1; |
| 38 |
|
const PGINPUT *inp2 = (const PGINPUT *)p2; |
| 39 |
|
|
| 40 |
< |
if (inp1->theta > inp2->theta+ANGLE_EPS) |
| 40 |
> |
if (inp1->theta > inp2->theta+angle_eps) |
| 41 |
|
return(1); |
| 42 |
< |
if (inp1->theta < inp2->theta-ANGLE_EPS) |
| 42 |
> |
if (inp1->theta < inp2->theta-angle_eps) |
| 43 |
|
return(-1); |
| 44 |
< |
if (inp1->phi > inp2->phi+ANGLE_EPS) |
| 44 |
> |
if (inp1->phi > inp2->phi+angle_eps) |
| 45 |
|
return(1); |
| 46 |
< |
if (inp1->phi < inp2->phi-ANGLE_EPS) |
| 46 |
> |
if (inp1->phi < inp2->phi-angle_eps) |
| 47 |
|
return(-1); |
| 48 |
|
return(0); |
| 49 |
|
} |
| 124 |
|
return(0); |
| 125 |
|
} |
| 126 |
|
/* prepare input grid */ |
| 127 |
+ |
angle_eps = 180./2./GRIDRES; |
| 128 |
|
if (!i || cmp_inang(&inpfile[i-1], &inpfile[i])) { |
| 129 |
|
if (i) /* need to process previous incidence */ |
| 130 |
|
make_rbfrep(); |
| 184 |
|
for (i = 0; i < ninpfiles; i++) |
| 185 |
|
if (!init_pabopto_inp(i, argv[i+1])) |
| 186 |
|
return(1); |
| 187 |
+ |
angle_eps = 0; |
| 188 |
|
qsort(inpfile, ninpfiles, sizeof(PGINPUT), &cmp_inang); |
| 189 |
|
/* compile measurements */ |
| 190 |
|
for (i = 0; i < ninpfiles; i++) |