program demo_gamppf use M_datapac, only : gamppf implicit none ! call gamppf(x,y) end program demo_gamppf