anchor.diff:  C
         integer idir, iprn, preprn
         integer neclips(satmax), ieclips(satmax), iblk(satmax)
  -      integer day, month, year, week, isat, code, uin, uout
  +      integer year, month, day, week, isat, code, uin, uout
         double precision ttag, svbcos, anoon, anight, pi, nan
         double precision rawbet, beta, betaini(satmax), milli, delta
         double precision sp, p2, v2, a, phi1, phi2, prephi
  
positive.code:          write (uout, '(a)') trim(line)
        else
  C        data line
           read (line, 9000) day, month, year, week, milli,
       &        id1, type, id2, xsv(1), xsv(2), xsv(3),
       &        vsvc(1), vsvc(2), vsvc(3), sun(1), sun(2), sun(3),
       &        rawbet, delta
  
negative.code:         phi1   = conti(phi(xsv, vsvc, santxyz) * 180d0 / pi, prephi)
          phi2   = conti(phi(xsv, vsvc, out)     * 180d0 / pi, phi1)
          prephi = phi1
          write (uout, 9010) year, month, day, week, milli,
       &     id1, type, id2, xsv(1), xsv(2), xsv(3),
       &     vsvc(1), vsvc(2), vsvc(3), sun(1), sun(2), sun(3),
       &       rawbet, delta,
  