demo_ev2ppf Program

     program demo_ev2ppf
     use M_datapac, only : ev2ppf
     implicit none
     ! call ev2ppf(x,y)
     end program demo_ev2ppf