| 558 |
|
) |
| 559 |
|
{ |
| 560 |
|
fprintf(fp, " -vt%c", vp->type); |
| 561 |
< |
fprintf(fp, " -vp %.6g %.6g %.6g", vp->vp[0], vp->vp[1], vp->vp[2]); |
| 562 |
< |
fprintf(fp, " -vd %.6g %.6g %.6g", vp->vdir[0]*vp->vdist, |
| 561 |
> |
fprintf(fp, " -vp %.7g %.7g %.7g", vp->vp[0], vp->vp[1], vp->vp[2]); |
| 562 |
> |
fprintf(fp, " -vd %.7g %.7g %.7g", vp->vdir[0]*vp->vdist, |
| 563 |
|
vp->vdir[1]*vp->vdist, |
| 564 |
|
vp->vdir[2]*vp->vdist); |
| 565 |
< |
fprintf(fp, " -vu %.6g %.6g %.6g", vp->vup[0], vp->vup[1], vp->vup[2]); |
| 566 |
< |
fprintf(fp, " -vh %.6g -vv %.6g", vp->horiz, vp->vert); |
| 567 |
< |
fprintf(fp, " -vo %.6g -va %.6g", vp->vfore, vp->vaft); |
| 568 |
< |
fprintf(fp, " -vs %.6g -vl %.6g", vp->hoff, vp->voff); |
| 565 |
> |
fprintf(fp, " -vu %.5g %.5g %.5g", vp->vup[0], vp->vup[1], vp->vup[2]); |
| 566 |
> |
fprintf(fp, " -vh %.5g -vv %.5g", vp->horiz, vp->vert); |
| 567 |
> |
fprintf(fp, " -vo %.5g -va %.5g", vp->vfore, vp->vaft); |
| 568 |
> |
fprintf(fp, " -vs %.5g -vl %.5g", vp->hoff, vp->voff); |
| 569 |
|
} |
| 570 |
|
|
| 571 |
|
|
