demo_chsplt Program

     program demo_chsplt
     use M_datapac, only : chsplt
     implicit none
     ! call chsplt(x,y)
     end program demo_chsplt