program demo_lgnplt use M_datapac, only : lgnplt implicit none ! call lgnplt(x,y) end program demo_lgnplt