COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zprivate2.f
Go to the documentation of this file.
1  integer n, maxp
2  parameter( maxp=30000, n = 1000 )
3  real*4 x(maxp, n), y(maxp, n), z(maxp,n)
4  real*4 pixel, mulalpha
5  integer*2 codex(maxp, n), chgx(maxp, n)
6  integer idx(maxp), si(maxp)
7  integer jmin, jmax
8  character*100 dir
9  common /zprivate/ x, y, z, pixel, mulalpha, idx, si,
10  * jmin, jmax, codex, chgx
11  common /zprivate2/ dir
12 
13 
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
nodes z
averg real MaxCPU integer idx(Maxp)
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
!onst int maxp
Definition: Zprivate.h:3
integer n
Definition: Zcinippxc.h:1
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21