program demo_dexppf use M_datapac, only : dexppf implicit none ! call dexppf(x,y) end program demo_dexppf