21 data up(1,1)/1000.d0/,
up(2,1)/3.2d0/,
up(3,1)/0.4d0/
24 data up(1,2)/5000.d0/,
up(2,2)/3.2d0/,
up(3,2)/0.4d0/
real(8), parameter, public m
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/
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
block data include Zfit h data d0 data data data e
real(4), dimension(:), allocatable, save h
block data include Zfit h data d0 data param(2, 1)/1.05d0/data param(3
block data include Zfit h data x2(1)/2.0/c for LDD fitting c data x1(2)/2.0/
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 Zfit h data drx1
dE dx *! Nuc Int sampling table g
block data include Zfit h data x1(1)/0.03/
block data cblkIncident data *Za1ry is
block data include Zfit h data drx2(1)/1.5/data drx1(2)/1.5/
dE dx *! Nuc Int sampling table c