PROGRAM XOBLIQ
C
C     EXERCISE DRIVER FOR FUNCTION OBLIQ
C
C     B. KNAPP, 1992-05-02, 2001-01-03
C
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
C
      REAL*8 EPS0, EPS1, OBLIQ, T, D2R
      PARAMETER (D2R = 3.14159265358979324D0/180.D0)
C
      T = -0.0127296372348D0
      EPS0 = OBLIQ( T )
      EPS1 = 23.43929111D0
     &   + T*( -468.150D0 + T*( -0.059D0 + T*1.813D0 ) )/3600.D0
C
      WRITE(*,'(2F20.14)') T, EPS0/D2R
      WRITE(*,'(2F20.14)') T, EPS1
      END