Insert arc into a variant (CADGEO)

C call:

C     PVB447 (XP,YP,RD,RS,RE,IS,IC,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     XP/YP : Centre of the arc

C     RD    : Diameter of the arc

C     RS    : Starting angle of the arc

C     RE    : End angle of the arc

C     IS    : Direction of the arc

C              1 = counterclockwise

C             -1 = clockwise

C     IC    : Colour of the arc

C     IRET  : is not evaluated, but must be specified

C     

C     Example:

C     --------------------

C     Generate arc

C     --------------------

      XP = 100.0

      YP = 100.0

      RD = 25.0

      RS = 0.0

      RE = 0.0

      IS = 1

      IC = 5

      CALL PVB447 (XP,YP,RD,RS,RE,IS,IC,IRET)