100 data up(2,1,:)/1.d0, 1.d0, 1.3d0,3.5d0/
101 data low(2,1,:)/-1.d0, -1.25d0, -1.d0, 1.4d0/
102 data up(3,1,:)/2.7d0, 2.5d0, 2.d0,1.5d0/
103 data low(3,1,:)/0.7d0, 0.2d0, 0.18d0, 0.2d0/
104 data up(4,1,:)/0.8d0, 0.7d0, 0.8d0, 0.38d0/
105 data low(4,1,:)/0.03d0, 0.07d0, 0.2d0, 0.02d0/
109 data up(2,2,:)/0.8d0, 1.2d0, 2.0d0, 3.5d0/
110 data low(2,2,:)/-0.8d0, -0.9d0, -1.d0, -3.d0/
111 data up(3,2,:)/3.d0, 2.92d0, 2.8d0, 2.7d0/
112 data low(3,2,:)/2.d0, 2.d0, 0.18d0, 0.1d0/
113 data up(4,2,:)/0.6d0, 0.17d0, 0.6d0, 0.6d0/
114 data low(4,2,:)/0.12d0, 0.03d0, 0.05d0, 0.05d0/
118 data up(2,3,:)/0.25d0, 0.35d0, 0.7d0, 1.d0/
119 data low(2,3,:)/-1.5d0, -2.d0, -1.5d0, -2.d0/
120 data up(3,3,:)/1.d0, 2.5d0, 2.d0, 1.5d0/
121 data low(3,3,:)/0.5d0, 0.1d0, 0.05d0, 0.1d0/
122 data up(4,3,:)/0.9d0, 0.95d0, 0.9d0, 0.8d0/
123 data low(4,3,:)/0.08d0, 0.06d0, 0.13d0, 0.2d0/
127 data up(2,4,:)/0.9d0, 0.7d0, 0.5d0, 1.d0/
128 data low(2,4,:)/-1.d0, 0.2d0,-1.d0,-1.0d0/
129 data up(3,4,:)/2.4d0, 0.1d0, 2.8d0, 1.5d0/
130 data low(3,4,:)/0.5d0, 0.d0, 0.1d0, 0.05d0/
131 data up(4,4,:)/0.5d0, 0.99d0, 0.7d0, 0.6d0/
132 data low(4,4,:)/0.d0, 0.7d0, 0.01d0,0.05d0/
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 code
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