12 real*8
x(maxbin),
y(maxbin)
17 common /Zfitc/
x,
y, drx1,
drx2,
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real * chisq
integer maxbin parameter(maxbin=2000) integer nparam
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc * maxval
integer maxright integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc op
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc maxpos
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer op real x1h common Zfitc maxdep
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
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer to
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
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
integer maxbin nregion c minsave drx2 ! drawing region real maxdep integer maxpos integer from
dE dx *! Nuc Int sampling table c