program demo_norsf use M_datapac, only : norsf implicit none ! call norsf(x,y) end program demo_norsf