38 data up(1,1)/1.0d4/,
up(2,1)/7.0d0/,
up(3,1)/3.0d0/
43 data up(1,2)/1.0d4/,
up(2,2)/7.0d0/,
up(3,2)/3.0d0/
48 data up(1,3)/1.0d4/,
up(2,3)/7.0d0/,
up(3,3)/3.0d0/
54 data up(1,4)/1.0d4/,
up(2,4)/7.0d0/,
up(3,4)/3.0d0/
block data include Zlatfit h c fitting region data x1(1)/0.03/
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/
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz r
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
real(4), dimension(:), allocatable, save h
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 region c gamma rgn1 data data c g rgn data data c g rgn data data c g rgn data data c elec rgn data data c e rgn data data c e rgn data data c rgn data data c mu rgn1 data data c mu rgn data data c mu rgn data data c mu rgn data data c hadron rgn data data c rgn data data c rgn data data c rgn data data c g
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 maxFiles ! actual logical file ! it will be used during mpi skeleton making time ! so when the program starts to normal ! it will not be used block
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data e
dE dx *! Nuc Int sampling table b
block data include Zlatfit h c fitting region data drx2(1)/0.3/data drx1(2)/0.3/
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data m
block data include Zlatfit h c fitting region data x2(1)/0.5/data x1(2)/0.3/
block data include Zlatfit h c fitting region data data param(2, 1)/1.0d0/data param(3
block data cblkIncident data *Za1ry is
dE dx *! Nuc Int sampling table c