SUBROUTINE  PLTCI (X,Y,R)

C     [CIRCLE]
C     DRAW A CIRCLE ON THE PLOTTER WITH CENTER (X,Y), RADIUS R.
C     [28-SEP-73]

      N=60
      DT=6.28318/FLOAT(N)
      TH=DT
      CALL PLTMC (X+R,Y,.FALSE.)
      DO 10 I=1,N
      CALL PLTMC (X+R*COS(TH),Y+R*SIN(TH),.TRUE.)
   10 TH=TH+DT

      RETURN
      END