demo_hfnplt Program

     program demo_hfnplt
     use M_datapac, only : hfnplt
     implicit none
     ! call hfnplt(x,y)
     end program demo_hfnplt