demo_ev1cdf Program

     program demo_ev1cdf
     use M_datapac, only : ev1cdf
     implicit none
     ! call ev1cdf(x,y)
     end program demo_ev1cdf