program demo_dexplt use M_datapac, only : dexplt implicit none ! call dexplt(x,y) end program demo_dexplt