1 | PARAMETER (Nmax=500000,Nsh=10000) |
---|
2 | INTEGER FN,CN,SN |
---|
3 | REAL FXshower,FYshower,FZshower,FXfocal,FYfocal,FZfocal |
---|
4 | REAL Ftheta1,Fphi1,Flambda,Ftime |
---|
5 | REAL CXshower,CYshower,CZshower,CXfocal,CYfocal,CZfocal |
---|
6 | REAL Ctheta1,Cphi1,Clambda,Ctime |
---|
7 | REAL ShowerEnergy,ShowerTheta,ShowerPhi,ShowerX1, |
---|
8 | + ShowerRint(3),ShowerAgeEarth,ShowerImpact(3),ShowerRmax(3), |
---|
9 | + ShowerXmax,ShowerHitGround |
---|
10 | REAL ShowerXi,ShowerXf,ShowerRxi,ShowerRyi,ShowerRzi,ShowerRxf, |
---|
11 | + ShowerRyf,ShowerRzf,ShowerTimei,ShowerTimef,ShowerAgei, |
---|
12 | + ShowerAgef,ShowerNe |
---|
13 | COMMON/ESAFHEADER/ShowerEnergy,ShowerTheta,ShowerPhi, |
---|
14 | + ShowerX1,ShowerRint,ShowerAgeEarth,ShowerImpact,ShowerRmax, |
---|
15 | + ShowerXmax,ShowerHitGround |
---|
16 | COMMON/ESAFSHOWER/SN,ShowerXi(Nsh),ShowerXf(Nsh),ShowerRxi(Nsh), |
---|
17 | + ShowerRyi(Nsh),ShowerRzi(Nsh),ShowerRxf(Nsh),ShowerRyf(Nsh), |
---|
18 | + ShowerRzf(Nsh),ShowerTimei(Nsh),ShowerTimef(Nsh), |
---|
19 | + ShowerAgei(Nsh),ShowerAgef(Nsh),ShowerNe(Nsh) |
---|
20 | COMMON/ESAFFLUOR/FN,FXshower(Nmax),FYshower(Nmax), |
---|
21 | + FZshower(Nmax),FXfocal(Nmax),FYfocal(Nmax),FZfocal(Nmax), |
---|
22 | + Ftheta1(Nmax),Fphi1(Nmax),Flambda(Nmax),Ftime(Nmax) |
---|
23 | COMMON/ESAFCHERENKOV/CN,CXshower(Nmax),CYshower(Nmax), |
---|
24 | + CZshower(Nmax),CXfocal(Nmax),CYfocal(Nmax),CZfocal(Nmax), |
---|
25 | + Ctheta1(Nmax),Cphi1(Nmax),Clambda(Nmax),Ctime(Nmax) |
---|