demo_chsppf Program

     program demo_chsppf
     use M_datapac, only : chsppf
     implicit none
     ! call chsppf(x,y)
     end program demo_chsppf