block data cblkSpecial data * modifyx
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
block data cblkSpecial data * modifyxpw1
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
integer modifyx real modifyxpw2 common Zspecial modifyxpw2