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.

C ---------------------------------------------------------<br />

COMMON /GCPARA/<br />

+ EPSIX0 (LSTACK) ,<br />

+ IDRPHI (LSTACK ) , IDRTET (LSTACK ),<br />

+ IDROUT (LSTACK ) , JPLOST (LSTACK ),<br />

+ IPHTMP (LSTACK ) ,<br />

+ BITPHI (LSTACK ) , BITTET (LSTACK ),<br />

+ BITPOT (LSTACK ) , JJLOST, JJFILL,<br />

+ JENTRY, JEMPTY,<br />

+ EPSMAX,<br />

+ JJTEMP, JJWORK , JJSTK1,<br />

+ J1TEMP, J1STK1,<br />

+ IFOUNP, IFOUNT , IFNPOT,<br />

+ SYMPHI,<br />

+ SYMTEU, SYMTED<br />

C<br />

LSTACK dimension of the energy ray stack;<br />

JJLOST number of energy rays lost in each tracking step;<br />

EPSMAX maximum number of radiation lengths that an energy ray can travel;<br />

JJTEMP temporary pointer;<br />

JJWORK actual size of the energy ray stack;<br />

JJSTK1<br />

J1TEMP<br />

J1STK1<br />

IFOUNP Number of energy rays that change cell in φ direction;<br />

IFOUNT Number of energy rays that change cell in θ direction;<br />

IFNPOT Number of energy rays that change cell either in φ or in θ;<br />

SYMPHI .TRUE. if PHIMAX-PHIMIN = 360 ◦ ;<br />

SYMTEU .TRUE. if TETMIN = 0 ◦ ;<br />

SYMTED .TRUE. if TETMAX = 180 ◦ .<br />

+SEQ /GCPARM/<br />

Control of parameterisation<br />

C<br />

COMMON/GCPARM/IPARAM,PCUTGA,PCUTEL,PCUTNE,PCUTHA,PCUTMU<br />

+ ,NSPARA,MPSTAK,NPGENE<br />

REAL PACUTS(5)<br />

EQUIVALENCE (PACUTS(1),PCUTGA)<br />

IPARAM<br />

PCUTGA<br />

PCUTEL<br />

Parameterisation flag (0, PCUT);<br />

0 = parameterisation is not in effect, normal tracking will be used;<br />

1 = parameterisation is in effect;<br />

parameterisation threshold for photons (0., PCUT)<br />

parameterisation threshold for electrons and positrons (0., PCUT);<br />

432 ZZZZ010 – 15

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

Saved successfully!

Ooh no, something went wrong!