COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zprimaryc.h
Go to the documentation of this file.
1 ! Constants tables in primary class.
2 ! PrimaryIdTbl is set by calling csetPrimTbl
3 ! El is set by calling csetEUnitTbl
4 !
5  type primaryid
6  sequence
7  character*12 symb ! 'cno' etc
8  integer code, subcode, charge ! used to call cmkptc
9  end type primaryid
10  type eunit
11  sequence
12  character*3 symb ! 'PeV' etc
13  real*8 togev ! energy * togev --> GeV energy
14  end type eunit
15 
16  type(primaryid):: PrimaryIdTbl(NoOfSymbols) ! all symbol list
17  type(eunit):: ErgUnitTbl(maxErgUnit) ! MeV etc to GeV
18 
19  common /Zprimaryc/ PrimaryIdTbl, ErgUnitTbl
20 
21 
NoOfSymbols
const int NoOfSymbols
Definition: Zprimary.h:14
subcode
! Constants tables in primary class ! PrimaryIdTbl is set by calling csetPrimTbl ! El is set by calling csetEUnitTbl ! type primaryid sequence character *symb cno etc integer subcode
Definition: Zprimaryc.h:8
real
float real
Definition: Zdef.h:2
integer
int integer
Definition: Zdef.h:3
code
! Constants tables in primary class ! PrimaryIdTbl is set by calling csetPrimTbl ! El is set by calling csetEUnitTbl ! type primaryid sequence character *symb cno etc integer code
Definition: Zprimaryc.h:8
to
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
Definition: Zfit.h:15
charge
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p charge
Definition: ZavoidUnionMap.h:1
cmkptc
subroutine cmkptc(code, subcode, charge, p)
Definition: cmkptc.f:15
is
block data cblkIncident data *Za1ry is
Definition: cblkIncident.h:5