program demo_norplt use M_datapac, only : norplt implicit none ! call norplt(x,y) end program demo_norplt