| 367 |
|
for (i = 0; i < 3; i++) |
| 368 |
|
len[i] = VLEN(gp->xv[i]); |
| 369 |
|
if (!vdef(GRID)) { |
| 370 |
< |
d = 2/5e5*( len[0]*len[0]*(len[1]*len[1] + |
| 370 |
> |
d = 2/2e5*( len[0]*len[0]*(len[1]*len[1] + |
| 371 |
|
len[2]*len[2] + 4*len[1]*len[2]) |
| 372 |
|
+ len[1]*len[1]*len[2]*(len[2] + 4*len[0]) |
| 373 |
|
+ 4*len[0]*len[1]*len[2]*len[2] ); |
| 420 |
|
} |
| 421 |
|
|
| 422 |
|
|
| 423 |
+ |
int |
| 424 |
|
headline(s) /* process information header line */ |
| 425 |
|
char *s; |
| 426 |
|
{ |
| 434 |
|
HOLOFMT, hdkfile, FMTSTR, fmt); |
| 435 |
|
error(USER, errmsg); |
| 436 |
|
} |
| 437 |
< |
return; |
| 437 |
> |
return(0); |
| 438 |
|
} |
| 439 |
|
for (cp = s; *cp; cp++) /* take off any comments */ |
| 440 |
|
if (*cp == '#') { |
| 442 |
|
break; |
| 443 |
|
} |
| 444 |
|
setvariable(s, matchvar); /* don't flag errors */ |
| 445 |
+ |
return(0); |
| 446 |
|
} |
| 447 |
|
|
| 448 |
|
|