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 |
|
|