%N pgcirc %F $MIR/src/pgcirc.f
%D Draw a circle, using fill-area attributes
%B
      SUBROUTINE PGCIRC (XCENT, YCENT, RADIUS)
      REAL XCENT, YCENT, RADIUS

 Draw a circle. The action of this routine depends
 on the setting of the Fill-Area Style attribute. If Fill-Area Style
 is SOLID (the default), the interior of the circle is solid-filled
 using the current Color Index. If Fill-Area Style is HOLLOW, the
 outline of the circle is drawn using the current line attributes
 (color index, line-style, and line-width).

 Arguments:
  XCENT  (input)  : world x-coordinate of the center of the circle.
  YCENT  (input)  : world y-coordinate of the center of the circle.
  RADIUS (input)  : radius of circle (world coordinates).
