program demo_geoplt use M_datapac, only : geoplt implicit none ! call geoplt(x,y) end program demo_geoplt