      PROGRAM XEQUECL
C
C     EXERCISE DRIVER FOR SUBROUTINE EQUECL
C
C     B. KNAPP, 1992-05-03, 2001-01-03
C
C
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
C
      REAL*8 EPS, ALPHA, DELTA, LAMBDA, BETA, D2R
      PARAMETER (D2R = 3.14159265358979324D0/180.D0)
      INTEGER*4 MODE
C
      EPS = 23.43929111D0*D2R
      MODE = 1
      ALPHA = 116.3289417D0*D2R
      DELTA =  28.0261833D0*D2R
      CALL EQUECL( EPS, MODE, ALPHA, DELTA, LAMBDA, BETA )
      WRITE(*,'(4F16.8)') ALPHA/D2R, DELTA/D2R, LAMBDA/D2R, BETA/D2R
      MODE = -1
      CALL EQUECL( EPS, MODE, ALPHA, DELTA, LAMBDA, BETA )
      WRITE(*,'(4F16.8)') ALPHA/D2R, DELTA/D2R, LAMBDA/D2R, BETA/D2R
      END
