program demo_expcdf use M_datapac, only : expcdf implicit none ! call expcdf(x,y) end program demo_expcdf