Calculate Delta X/Y from angle and distance

C call:

C     CALL PTH117 (W,DIST,RDX,RDY,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     W    : Angle (in degrees)

C     DIST : Distance

C     RDX  : Delta value in X (return value)

C     RDY  : Delta value in Y (return value)

C     IRET : is not evaluated, but must be specified

C     

C     Example:

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

C     Calculate Delta X/Y from angle and distance

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

      W = 65.0

      DIST = 80.0

      CALL PTH117 (W,DIST,RDX,RDY,IRET)