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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

+SEQ /GSECTI/<br />

Hadronic partial cross-sections for GHEISHA<br />

C<br />

COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG<br />

AIEL<br />

AIIN<br />

AIFI<br />

AICA<br />

ALAM<br />

K0FLAG<br />

elastic cross-sections. AIEL(I) is the elastic cross-section for the I th element composing the<br />

current material;<br />

inelastic cross-sections;<br />

fission cross-sections;<br />

nuclear capture cross-sections;<br />

total cross-section;<br />

obsolete.<br />

+SEQ /GCSETS/<br />

Identification of current sensitive detector<br />

C<br />

COMMON/GCSETS/IHSET,IHDET,ISET,IDET,IDTYPE,NVNAME,NUMBV(20)<br />

IHSET<br />

IHDET<br />

ISET<br />

IDET<br />

IDTYPE<br />

NVNAME<br />

NUMBV<br />

set identifier, ASCII equivalent of 4 characters;<br />

detector identifier, ASCII equivalent of 4 characters;<br />

position of set in bank JSET;<br />

position of detector in bank JS=LQ(JSET-ISET);<br />

user defined detector type;<br />

number of elements in NUMBV;<br />

list of volume copy numbers to identify the detector.<br />

+SEQ /GCSHNO/<br />

Symbolic codes for system shapes<br />

PARAMETER ( NSBOX=1, NSTRD1=2, NSTRD2=3, NSTRAP=4, NSTUBE=5,<br />

+ NSTUBS=6, NSCONE=7, NSCONS=8, NSSPHE=9, NSPARA=10,NSPGON=11,<br />

+ NSPCON=12,NSELTU=13,NSHYPE=14,NSGTRA=28, NSCTUB=29 )<br />

+SEQ /GCSPEE/<br />

Auxiliary variables for the CG package<br />

*<br />

COMMON/GCSPEE/S1,S2,S3,SS1,SS2,SS3,LEP,IPORLI,ISUBLI,<br />

+ SRAGMX,SRAGMN,RAINT1,RAINT2,RMIN1,RMIN2,<br />

+ RMAX1,RMAX2,JPORJJ,ITSTCU,IOLDCU,ISCOP,<br />

+ NTIM,NTFLAG,LPASS,JSC<br />

S1<br />

438 ZZZZ010 – 21

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

Saved successfully!

Ooh no, something went wrong!