2 ! unit here
is SI. (
m,s,kg)
21 !
ae: equatorial radius
for earth
23 !
ctaua=aunit. unit distance
24 !
tlons: longitude of observation place in deg
29 !
sinsx: sin of south
to x-axis of the detector
32 !
ug,
vg, wg: coordinate of the observation place in the
33 ! geocentric rectangular coordinate. (
m)
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
real(8), parameter, public m
! Zkcele h ! unit here is aunit parameter pi real sinlat
! Zkcele h ! unit here is aunit parameter pi real dtgmts
! for length to thickness conversion or v v ! integer maxnodes real Hinf ! This is used when making table for dim simulation ! The slant length for vertical height to km is ! divided by LenStep m steps ! It can cover the slant length of about km for cos
! Zkcele h ! unit here is * ctaua
! Zkcele h ! unit here is Todeg
! Zkcele h ! unit here is aunit parameter pi real sinsx
! Zkcele h ! unit here is * oneday
! Zkcele h ! unit here is tofai
! Zkcele h ! unit here is aunit parameter pi real * heighs
! Zkcele h ! unit here is ae
! Zkcele h ! unit here is aunit parameter pi real tlats
! Zkcele h ! unit here is vlight
! Zkcele h ! unit here is Torad
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
! Zkcele h ! unit here is aunit parameter pi real ug
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos height
! Zkcele h ! unit here is taua
dE dx *! Nuc Int sampling table d
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon *Mudirp ! old one is bef v *IntModel dpmjet3 d8
! Zkcele h ! unit here is aunit parameter pi real * tlons
! Zkcele h ! unit here is aunit parameter pi real coslat
! Zkcele h ! unit here is aunit parameter pi real vg
! Zkcele h ! unit here is sidcr2
! Zkcele h ! unit here is SI(m, s, kg) real *8 sidcor
! Zkcele h ! unit here is sidcr3
! Zkcele h ! unit here is toh
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer from
! Zkcele h ! unit here is aunit parameter pi real cossx
block data cblkIncident data *Za1ry is
! 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
! Zkcele h ! unit here is pi
1.8.13