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.

DENS density of current material in g cm −3 ;<br />

RADL radiation length of current material;<br />

ABSL absorption length of current material.<br />

+SEQ /GCMULO/<br />

Energy binning and multiple scattering<br />

Precomputed quantities for multiple scattering and energy binning for JMATE banks. See also [CONS199]<br />

for the energy binning and [PHYS325] for a description of the variables OMCMOL and CHCMOL.<br />

C<br />

COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL<br />

+ ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)<br />

SINMUL<br />

COSMUL<br />

SQRMUL<br />

OMCMOL<br />

CHCMOL<br />

EKMIN<br />

EKMAX<br />

NEKBIN<br />

NEK1<br />

EKINV<br />

GEKA<br />

GEKB<br />

EKBIN<br />

ELOW<br />

not used any more;<br />

not used any more;<br />

not used any more;<br />

constant Ω 0 of the Moliére theory;<br />

χ cc constant of the Moliére theory;<br />

lower edge of the energy range of the tabulated cross sections (10 −5 , ERAN);<br />

upper edge of the energy range of the tabulated cross sections (10 4 , ERAN);<br />

number of energy bins to be used (90, ERAN);<br />

NEKBIN+1;<br />

1/ (log 10 (EKMAX) − log 10 (EKMIN));<br />

NEKBIN*EKINV;<br />

1-GEKA*EKBIN(1);<br />

log (ELOW);<br />

low edges of the energy bins.<br />

+SEQ /GCMZFO/<br />

I/O descriptors of GEANT banks<br />

C<br />

COMMON/GCMZFO/IOMATE,IOPART,IOTMED,IOSEJD,IOSJDD,IOSJDH,IOSTAK<br />

+ ,IOMZFO(13)<br />

IOMATE<br />

IOPART<br />

IOTMED<br />

IOSEJD<br />

IOSJDD<br />

IOSJDH<br />

IOSTAK<br />

IOMZFO<br />

I/O descriptor for the JMATE bank;<br />

I/O descriptor for the JPART bank;<br />

I/O descriptor for the JTMED bank;<br />

I/O descriptor for the detector banks;<br />

I/O descriptor for the second dependent bank of the detector banks;<br />

I/O descriptor for the first dependent bank of the detector banks;<br />

I/O descriptor for the JSTAK bank;<br />

free I/O descriptors.<br />

ZZZZ010 – 12 429

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

Saved successfully!

Ooh no, something went wrong!