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./683., 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; |