SUBROUTINE  PLTEL (XI,ETA,P)

C     [ELLIPTICAL]
C     CHANGE (XI,ETA) INTO (X,Y) SO THAT PEN MOVEMENTS CAN BE
C     DEFINED DIRECTLY IN ELLIPTICAL COORDINATES.
C     0.0 .LE. XI  .LE. 1.0
C     0.0 .LE. ETA .LE. 1.0
C     S*COSH(XI=1)=HX
C     1.76=ARCCOSH(3.0)
C     [14-FEB-74]

      LOGICAL*1     P
      DATA        HX,HY/4.50,3.25/

      S=1.50
      E=6.28318*ETA
      X=XI*1.76
      CALL PLTMS (S*COSH(XI)*COS(E),S*SINH(XI)*SIN(E),P)
      RETURN

      END