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