| 764 |
|
DATARRAY *mie_dp = getdata(mie_path); |
| 765 |
|
if (mie_dp == NULL) { |
| 766 |
|
fprintf(stderr, "Error reading mie data\n"); |
| 767 |
< |
return 0; |
| 767 |
> |
return 1; |
| 768 |
|
} |
| 769 |
|
|
| 770 |
|
if (epw->isWEA == WEAnot) { |
| 861 |
|
fprintf(stderr, "# Pre-computing...\n"); |
| 862 |
|
if (!precompute(sorder, clear_paths, &clear_atmos, num_threads)) { |
| 863 |
|
fprintf(stderr, "Pre-compute failed\n"); |
| 864 |
< |
return 0; |
| 864 |
> |
return 1; |
| 865 |
|
} |
| 866 |
|
} |
| 867 |
|
|
| 939 |
|
case 'f': |
| 940 |
|
for (j = 0; j < nstored; j++) { |
| 941 |
|
float ment[NSSAMP]; |
| 942 |
< |
for (k = NSSAMP - 1; k >= 0; k--) { |
| 943 |
< |
ment[k] = mtx_data[mtx_offset + k]; |
| 942 |
> |
for (k = 0; k < NSSAMP; k++) { |
| 943 |
> |
ment[NSSAMP-1 - k] = mtx_data[mtx_offset + k]; |
| 944 |
|
} |
| 945 |
|
putbinary(ment, sizeof(float), NSSAMP, stdout); |
| 946 |
|
mtx_offset += NSSAMP * nskypatch; |
| 949 |
|
case 'd': |
| 950 |
|
for (j = 0; j < nstored; j++) { |
| 951 |
|
double ment[NSSAMP]; |
| 952 |
< |
for (k = NSSAMP - 1; k >= 0; k--) { |
| 953 |
< |
ment[j] = mtx_data[mtx_offset + k]; |
| 952 |
> |
for (k = 0; k < NSSAMP; k++) { |
| 953 |
> |
ment[NSSAMP-1 - k] = mtx_data[mtx_offset + k]; |
| 954 |
|
} |
| 955 |
|
putbinary(ment, sizeof(double), NSSAMP, stdout); |
| 956 |
|
mtx_offset += NSSAMP * nskypatch; |
