program demo_expppf use M_datapac, only : expppf implicit none ! call expppf(x,y) end program demo_expppf