demo_pltsct Program

     program demo_pltsct
     use M_datapac, only : pltsct
     implicit none
     ! call pltsct(x,y)
     end program demo_pltsct