!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ l-old-date
!
! &1: Ancestor  file name
! &2: Dependent file name
!
! Check whether the dependent file is younger than its ancestor
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if file("&1") then
   ! Ancestor file exist => We can proceed
   if file("&2") then
      ! Dependent file exist
      define integer in_date out_date
      sic\compute  in_date date "&1"
      sic\compute out_date date "&2"
      if (in_date.le.out_date) then
         ! Younger
         let true%younger no
      else
         ! Older => Dependent will have to be recreated
         let true%younger yes
      endif
   else
      ! Dependent file does not exist => It can not be younger
      let true%younger yes
   endif
else
   ! Ancestor does not even exist!
   message e date "Inexistent file: &1"
   return base
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
