anchor.diff:           (tdate/24+jd0) >= jd2236) then ! extended stamp
            stamp=(tdate/8)*10+mod(tdate,8)
            date_unsigned=stamp + troisg
  +         ! implicit INTEGER(8) to INTEGER(4) transfer
            dat2(1)=date_unsigned
         else                               ! (new or old) stamp
            runnb=0
  
positive.code: !               Utiliser Get_calendar_Status et Calendar_Adjust
  !               pour supporter les calculs effectues avec des
  !               calendriers alternatifs (i.e. 360 ou 365 jours)
  !LANGUAGE - fortran
  !
  !OBJECT   - INCDATR COMPUTES IDATE1=IDATE2+NHOURS
  
negative.code: !--------------------------------------------------------------------
  !
        integer idate(14),dtpr,tmpr,result
        integer i,j,k,iday,idt,mon,jd
        character * 3   xmonth(12),xday(7), amonth,aday
        character * 128 wrk
        integer, external :: newdate
        data xmonth / 'JAN','FEB','MAR','APR','MAY','JUN', &
                      'JUL','AUG','SEP','OCT','NOV','DEC' /
        data xday   / 'SUN','MON','TUE','WED','THU', &
                      'FRI','SAT' /
  !
  !---------------------------------------------------------------------
  !
  