| 79 |
|
|
| 80 |
|
extern char *strcpy(), *strcat(), *stradd(), *tailtrunc(), *filetrunc(), |
| 81 |
|
*filename(), *libname(), *fullname(), *malloc(); |
| 82 |
– |
extern double atof(); |
| 82 |
|
extern float *matchlamp(); |
| 83 |
|
|
| 84 |
|
|
| 550 |
|
perror(buf); |
| 551 |
|
return(-1); |
| 552 |
|
} |
| 553 |
< |
if (cvdata(in, datout, 2, nangles, 1./470., bounds) != 0) { |
| 553 |
> |
if (cvdata(in, datout, 2, nangles, 1./WHTEFFICACY, bounds) != 0) { |
| 554 |
|
fprintf(stderr, "dosource: bad distribution data\n"); |
| 555 |
|
fclose(datout); |
| 556 |
|
unlink(fullname(buf,name,T_DST)); |
| 806 |
|
int ndim, npts[]; |
| 807 |
|
double mult, lim[][2]; |
| 808 |
|
{ |
| 809 |
< |
register double *pt[4]; |
| 809 |
> |
double *pt[4]; |
| 810 |
|
register int i, j; |
| 811 |
|
double val; |
| 812 |
|
int total; |