127 |
|
|
128 |
|
if (print_header) /* copy to output */ |
129 |
|
fputs(s, stdout); |
130 |
< |
if (!strncmp(s, VIEWSTR, VIEWSTRL)) |
131 |
< |
sscanview(&midview, s+VIEWSTRL); |
130 |
> |
if (isview(s)) |
131 |
> |
sscanview(&midview, s); |
132 |
|
else if (isformat(s)) { |
133 |
|
formatval(fmt, s); |
134 |
|
wrongformat = strcmp(fmt, "ascii"); |
289 |
|
d = DOT(sd,vu)/sqrt(1.0-d*d); |
290 |
|
if (d >= 1.0) |
291 |
|
tau = 0.0; |
292 |
+ |
else if (d <= -1.0) |
293 |
+ |
tau = 180.0; |
294 |
|
else |
295 |
|
tau = acos(d) * (180./PI); |
296 |
|
return( exp( sigma*( (35.2 - tau*.31889 - 1.22*exp(-.22222*tau))*1e-3 |