| 55 |
|
|
| 56 |
|
#if defined(_WIN32) || defined(_WIN64) |
| 57 |
|
#define RCONTRIB_FEATURES "Accumulation\nSummation\nRecovery\n" \ |
| 58 |
< |
"Hyperspectral\nImmediateIrradiance\n" \ |
| 58 |
> |
"ImmediateIrradiance\n" \ |
| 59 |
|
"ProgressReporting\nDistanceLimiting\n" \ |
| 60 |
|
"InputFormats=a,f,d\nOutputFormats=a,f,d,c\n" \ |
| 61 |
|
"Outputs=V,W\n" |
| 62 |
|
#else |
| 63 |
|
#define RCONTRIB_FEATURES "Multiprocessing\n" \ |
| 64 |
|
"Accumulation\nSummation\nRecovery\n" \ |
| 65 |
< |
"Hyperspectral\nImmediateIrradiance\n" \ |
| 65 |
> |
"ImmediateIrradiance\n" \ |
| 66 |
|
"ProgressReporting\nDistanceLimiting\n" \ |
| 67 |
|
"InputFormats=a,f,d\nOutputFormats=a,f,d,c\n" \ |
| 68 |
|
"Outputs=V,W\n" |
| 72 |
|
printdefaults(void) /* print default values to stdout */ |
| 73 |
|
{ |
| 74 |
|
printf("-c %-5d\t\t\t# accumulated rays per record\n", accumulate); |
| 75 |
– |
if (NCSAMP > 3) { |
| 76 |
– |
printf("-cs %-2d\t\t\t\t# number of spectral bins\n", NCSAMP); |
| 77 |
– |
printf("-cw %3.0f %3.0f\t\t\t# wavelength limits (nm)\n", |
| 78 |
– |
WLPART[3], WLPART[0]); |
| 79 |
– |
} |
| 75 |
|
printf("-V%c\t\t\t\t# output %s\n", contrib ? '+' : '-', |
| 76 |
|
contrib ? "contributions" : "coefficients"); |
| 77 |
|
if (imm_irrad) |
| 297 |
|
check(2,"s"); |
| 298 |
|
set_eparams(prms = argv[++i]); |
| 299 |
|
break; |
| 300 |
< |
case 'c': /* spectral sampling or count */ |
| 301 |
< |
switch (argv[i][2]) { |
| 302 |
< |
#if MAXCSAMP>3 |
| 308 |
< |
case 's': /* spectral bin count */ |
| 309 |
< |
check(3,"i"); |
| 310 |
< |
NCSAMP = atoi(argv[++i]); |
| 311 |
< |
break; |
| 312 |
< |
case 'w': /* wavelength extrema */ |
| 313 |
< |
check(3,"ff"); |
| 314 |
< |
WLPART[0] = atof(argv[++i]); |
| 315 |
< |
WLPART[3] = atof(argv[++i]); |
| 316 |
< |
break; |
| 317 |
< |
#endif |
| 318 |
< |
case '\0': /* sample count */ |
| 319 |
< |
check(2,"i"); |
| 320 |
< |
accumulate = atoi(argv[++i]); |
| 321 |
< |
break; |
| 322 |
< |
default: |
| 323 |
< |
goto badopt; |
| 324 |
< |
} |
| 300 |
> |
case 'c': /* sample count */ |
| 301 |
> |
check(2,"i"); |
| 302 |
> |
accumulate = atoi(argv[++i]); |
| 303 |
|
break; |
| 304 |
|
case 'b': /* bin expression/count */ |
| 305 |
|
if (argv[i][2] == 'n') { |