demo_retain Program

     program demo_retain
     use M_datapac, only : retain
     implicit none
     ! call retain(x,y)
     end program demo_retain