program demo_expplt use M_datapac, only : expplt implicit none ! call expplt(x,y) end program demo_expplt