demo_ev1plt Program

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