demo_freq Program

     program demo_freq
     use M_datapac, only : freq
     implicit none
     ! call freq(x,y)
     end program demo_freq