COSMOS v7.655  COSMOSv7655
(AirShowerMC)
ZrigCut.h
Go to the documentation of this file.
1 #include "Zmaxdef.h"
2 
3 ! rigidity cut related commons
4 ! *******************************
5  integer maxAzm, maxZen, maxDim, maxRig, maxDim2
6  parameter (
7 #ifdef MAX_AZM
8  * maxAzm = MAX_AZM,
9 #else
10  * maxAzm = 37,
11 #endif
12 #ifdef MAX_ZEN
13  * maxZen=MAX_ZEN,
14 #else
15  * maxZen=21,
16 #endif
17  * maxRig = 40,
18  * maxDim=maxAzm* maxZen, maxDim2 = 12*20*maxRig)
19 
20  real*4 RigTbl2(maxDim2) !!!!!!! *4
21  real*8 RigCutTbl(maxDim), DAzm, DZen, Longi, Latit,
22  * LogDRig, DRig
23  integer AzmSize, ZenSize, RigSize, Rdatafmt
24  real*8 MagDec, MinAzm, MinZen, MinRig, ZenMax
25  common /Zrigcut/ RigCutTbl, Longi, Latit, MagDec,
26  * DAzm, DZen, MinAzm, MinZen, LogDRig, MinRig,
27  * ZenMax, DRig, RigTbl2,
28  * AzmSize, ZenSize, RigSize
29 
30  character*16 Place
31  character*3 AzmValue, ZenValue
32  common /Zrigcutc/ Place, AzmValue, ZenValue, Rdatafmt
33 ! *****************************
34 
35 
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
MinZen
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real MinZen
Definition: ZrigCut.h:21
real
float real
Definition: Zdef.h:2
maxRig
! rigidity cut related commons *******************************integer maxRig
Definition: ZrigCut.h:5
AzmSize
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer AzmSize
Definition: ZrigCut.h:21
integer
int integer
Definition: Zdef.h:3
MagDec
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real * MagDec
Definition: ZrigCut.h:21
maxZen
! rigidity cut related commons *******************************integer maxZen
Definition: ZrigCut.h:5
maxDim
! rigidity cut related commons *******************************integer maxDim
Definition: ZrigCut.h:5
MAX_ZEN
#define MAX_ZEN
Definition: Zmaxdef.h:6
Longi
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real Longi
Definition: ZrigCut.h:21
MAX_AZM
#define MAX_AZM
Definition: Zmaxdef.h:5
Place
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut RigSize character *Place character ZenValue common Zrigcutc Place
Definition: ZrigCut.h:21
maxAzm
! rigidity cut related commons *******************************integer maxAzm
Definition: ZrigCut.h:5
ZenValue
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut RigSize character *Place character ZenValue common Zrigcutc ZenValue
Definition: ZrigCut.h:21
RigCutTbl
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut RigCutTbl
Definition: ZrigCut.h:21
cut
real cut integer ncpi0 common Zuserc cut
Definition: Zprivate.h:1
ZenSize
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer ZenSize
Definition: ZrigCut.h:21
DZen
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DZen
Definition: ZrigCut.h:21
DRig
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut DRig
Definition: ZrigCut.h:21
Latit
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real Latit
Definition: ZrigCut.h:21
DAzm
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DAzm
Definition: ZrigCut.h:21
LogDRig
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real * LogDRig
Definition: ZrigCut.h:21
RigTbl2
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut RigTbl2
Definition: ZrigCut.h:21
AzmValue
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut RigSize character *Place character * AzmValue
Definition: ZrigCut.h:21
MinAzm
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real MinAzm
Definition: ZrigCut.h:21
ZenMax
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real ZenMax common Zrigcut * ZenMax
Definition: ZrigCut.h:21
RigSize
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer RigSize
Definition: ZrigCut.h:21
MinRig
! rigidity cut related commons *******************************integer maxDim2 parameter maxAzm real DRig integer Rdatafmt real MinRig
Definition: ZrigCut.h:21