program demo_ev1plt use M_datapac, only : ev1plt implicit none ! call ev1plt(x,y) end program demo_ev1plt