demo_retain.f90 Source File

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