anchor.diff:  !
   !---------------------------------------------------------------------
   !
  -      integer idate(14),idatmg2,newdate
  -      external newdate
  +      integer idate(14)
  +      integer, external :: newdate
         integer dtpr,tmpr,year,result
         year=idate(4)
         if ((year.ge.0) .and. (year.le.99)) then
  
positive.code:       return
        end
  
        function CcclxDays_Adjust(tdate1,tdate2, &
                                  true_date_mode,adding)
  
  !     Calculate correction (in days) to account for "360-day
  
negative.code:       integer year,month,day,zulu,second,minute, max_offset
        integer tdstart,jd2236,jd1980,jd1900,jd0,jd10k,exception
        integer , dimension(12) :: mdays
        integer(8) date_unsigned,stamp8,masque32
        integer(8), save :: troisg=3000000000_8
  !!!   integer(8), save :: troisg=transfer(Z'B2D05E00',1_8)
  !!!   equivalence (stamp,stamp8)
        external idatmg2, datmgp2
        integer idatmg2
        data tdstart /123200000/,jd1980 /2444240/,jd1900 /2415021/
        data jd0 /1721060/,jd10k /5373485/, max_offset /109572750/
        data jd2236 /2537742/, exception /16663825/
        data td2000 /126230400/, td1900 /-504904320/
        data mdays /31,29,31,30,31,30,31,31,30,31,30,31/
  !
        integer :: jd
        logical :: bissextile,validtd,validtm,validtme
  !
  !!!   integer(4), save :: w32=1
  !!!   integer(2)    w16(2)
  !!!   equivalence ( w16(1) , w32 )
  !!!   data          w32/1/
  !
  !     calculates julian calendar day
  !     see CACM letter to editor by Fliegel and Flandern 1968
  