program demo_logsf use M_datapac, only : logsf implicit none ! call logsf(x,y) end program demo_logsf