demo_plotc Program

     program demo_plotc
     use M_datapac, only : plotc
     implicit none
     ! call plotc(x,y)
     end program demo_plotc