program demo_norppf use M_datapac, only : norppf implicit none ! call norppf(x,y) end program demo_norppf