4 real*8 frac(nfrac),
tf(nfrac)
5 data frac/0.05
d0, 0.1d0, 0.2d0, 0.3d0, 0.4d0, 0.5d0, 0.6d0,
6 * 0.7d0, 0.8d0, 0.9d0, 0.95d0/
8 real*8 tfary(nrbin, nfrac)
integer nfrac tf(nfrac) data frac/0.05d0
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
integer nfrac parameter(nfrac=11) real *8 frac(nfrac)
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
integer nfrac real * tfary0(nrbin, nfrac) real *8 tfary(nrbin