COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zprivate2.f
Go to the documentation of this file.
1  integer n, maxp
2 #if defined G95
3  parameter( maxp = 60000, n = 1300 )
4 #elif defined G77
5  parameter( maxp=25000, n =2000 )
6 ! parameter ( maxp=100000, n =500 )
7 #else
8  parameter( maxp=10000, n= 1000)
9 #endif
10  real*4 x(maxp, n), y(maxp, n), z(maxp,n)
11  real*4 aax, aay, aaz, bbx, bby, bbz, ccx, ccy, ccz
12  integer*2 codex(maxp, n), chgx(maxp, n)
13  integer*2 thinc(n)
14  integer*2 maxthin
15  real*4 pixel, rmax2
16  integer idx(n), si(maxp)
17  integer codesel(9), chgsel, select, ncodes
18  integer jmin, jmax, maxppt, offset, outtype
19  logical split
20  character*100 dir
21  common /zprivatea/ x
22  common /zprivateb/ y
23  common /zprivatec/ z
24  common /zprivatee/ codex, chgx
25  common /zprivated/ pixel, rmax2, split, outtype,
26  * aax, aay, aaz, bbx, bby, bbz, ccx, ccy, ccz,
27  * idx, si, jmin, jmax, maxppt, offset,
28  * chgsel, select, codesel, ncodes,
29  * thinc, maxthin
30  common /zprivate2/ dir
31 
32 
33 
34 
35 
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
z
nodes z
Definition: cstdatmos0.fNew2.h:93
idx
averg real MaxCPU integer idx(Maxp)
y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
maxp
!onst int maxp
Definition: Zprivate.h:3
n
integer n
Definition: Zcinippxc.h:1
x
! 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