demo_autoco Program

     program demo_autoco
     use M_datapac, only : autoco, label
     implicit none
     real ::  x(100)
     call label('autoco')
     !call   call autoco(x,size(x),1,xautoc)
     end program demo_autoco