10 real*8
x1(nregion),
x2(nregion) ! fitting region
16 real*8
x(maxbin),
y(maxbin)
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/
integer maxbin parameter(maxbin=2000) integer nparam
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
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 nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc x
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc 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
dE dx *! Nuc Int sampling table c