program demo_ev2plt use M_datapac, only : ev2plt implicit none ! call ev2plt(x,y) end program demo_ev2plt