9 common /zprivate/
x,
y,
z, pixel, mulalpha,
idx, si,
10 * jmin, jmax, codex, chgx
11 common /zprivate2/ dir
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
averg real MaxCPU integer idx(Maxp)
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
! 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