demo_lamplt Program

     program demo_lamplt
     use M_datapac, only : lamplt
     implicit none
     ! call lamplt(x,y)
     end program demo_lamplt