demo_sampp Program

     program demo_sampp
     use M_datapac, only : sampp
     implicit none
     ! call sampp(x,y)
     end program demo_sampp