program demo_plotct use M_datapac, only : plotct implicit none ! call plotct(x,y) end program demo_plotct