program demo_chsplt use M_datapac, only : chsplt implicit none ! call chsplt(x,y) end program demo_chsplt