22.05.2014 Views

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

y<br />

x<br />

z<br />

C<br />

CHARACTER*4 CHNAMS(5)<br />

INTEGER LNUMBS(5)<br />

DATA CHNAMS/’OPAL’,’BRL-’,’EB ’,’EBB ’,’EBP ’/<br />

DATA LNUMBS/ 1 , 1 , 1 , 1 , 20 /<br />

.<br />

.<br />

.<br />

NRS=1<br />

CALL GDRVOL(5,CHNAMS,LNUMBS,NRS,55.,135.,0.,5.,5.,0.035,0.035)<br />

CALL GDAXIS(0.,0.,0.,200.)<br />

CALL GDXYZ(0)<br />

Figure 10: Example of use of GDRVOL in the Daughter Reference System<br />

78 DRAW115 – 3

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!