module histo_params use precision_def real(rp) ytotal real(rp) betax, alphax, etax, etapx, gammax real(rp) betay, alphay, etay, etapy, gammay integer entry end module histo_params