      subroutine storedat(AA)
      use mod_dolo
      logical yw
      character(len_datlist) AA
      character(len_datlist) bb
      yw=.false.
!
!--------------------------------------------------------------------
! read 94. On 94 are written one or several data lines, as results
! from core_data, sigma_data, etc...
!
! add the data lines to table "datlist"
!--------------------------------------------------------------------
!
      if(yes) print*,'entree storedat'
      rewind 94
      ideb_datlist=idatlist+1
      do
         read(94,'(a)',end=1) bb
         if(yw)print*,'storedat BB ',trim(bb)
         idatlist=idatlist+1
         datlist(idatlist)=bb
         !print*,'IDATLIST2',IDATLIST
      enddo
 1    continue
      ifin_datlist=idatlist
      !print*,'ideb_datlist,ifin_datlist',ideb_datlist,ifin_datlist
      if(yes) print*,'sortie storedat'
      return
      end
