program demo_gamplt use M_datapac, only : gamplt implicit none ! call gamplt(x,y) end program demo_gamplt