demo_hfnppf Program

     program demo_hfnppf
     use M_datapac, only : hfnppf
     implicit none
     ! call hfnppf(x,y)
     end program demo_hfnppf