9 real*8 limit, answer,
pw, maxdiff
13 real*8
x1(nregion),
x2(nregion) ! fitting region
18 real*8
up(nparam, 4, nregion) !
19 real*8
x(maxbin),
y(maxbin)
24 *
oparam, chisq, limit, answer, pw,
25 * maxdiff, maxindex, badindex,
real(8), parameter, public m
block data include Zlatfit h c fitting region data x1(1)/0.03/
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real * chisq
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data h g *is for param c g data up(2, 1)/7.0d0/
dE dx *! Nuc Int sampling table e
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc * param
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc drx1
*Zfirst p fm *Zfirst p Zfirst p code
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data h g *is for param c g data low(1, 1)/1.d-5/
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer npoint
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc x1h
integer maxbin parameter(maxbin=100) integer nparam
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
dE dx *! Nuc Int sampling table g
block data include Zlatfit h c fitting region data x2(1)/0.5/data x1(2)/0.3/
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc * oparam
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc drx2
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
dE dx *! Nuc Int sampling table c