COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zcinippxc.h
Go to the documentation of this file.
1  integer n, npitbl
2  real*8 nx
3  parameter(n=101, npitbl= 46, nx = n-1)
4  real*8 uconst, dx
5  real*8 ndndx(n), intendndx(n)
6  real*8 ndndxn(n), intendndxn(n)
7  real*8 intendndx2(n)
8  real*8 ppsx(n), pipsx(n), xval(npitbl)
9  real*8 ppsxn(n)
10  common /cinippxc/intendndx, ndndx, uconst, dx, ppsx,
11  * intendndx2, pipsx, xval,
12  * intendndxn, ndndxn, ppsxn
13 
14 
15 
16 
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
real
float real
Definition: Zdef.h:2
integer
int integer
Definition: Zdef.h:3
dx
integer npitbl real *nx dx real dx
Definition: Zcinippxc.h:10
ndndx
integer npitbl real *nx dx real ndndx
Definition: Zcinippxc.h:10
xval
integer npitbl real *nx dx real xval
Definition: Zcinippxc.h:10
uconst
integer npitbl real *nx dx real uconst
Definition: Zcinippxc.h:10
intendndx
integer npitbl real *nx dx real intendndx(n) real *8 ndndxn(n)
intendndxn
integer npitbl real *nx dx real * intendndxn
Definition: Zcinippxc.h:10
ppsx
integer npitbl real *nx dx real ppsx
Definition: Zcinippxc.h:10
intendndx2
integer npitbl real *nx dx real * intendndx2
Definition: Zcinippxc.h:10
pipsx
integer npitbl real *nx dx real pipsx
Definition: Zcinippxc.h:10
n
integer n
Definition: Zcinippxc.h:1
ndndxn
integer npitbl real *nx dx real ndndxn
Definition: Zcinippxc.h:10