1 ! structure need
to compute geomagntic effect and
2 ! transformation between
'enu' and
'1ry' systems.
6 real *8 mat(3, 3) ! transformation matrix
'enu'<->
'1ry' 7 real *8
b ! absolute mag. of mag. field.
8 real *8 bt !
b * sin(alfa).
9 ! alfa = angle between 1ry direction
10 ! and the magnetic field direction.
12 real *8 sina ! sin(alfa)
! 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
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
dE dx *! Nuc Int sampling table b