program demo_pltxxt use M_datapac, only : pltxxt implicit none ! call pltxxt(x,y) end program demo_pltxxt