Generate a triangle with a triangle tool with a point and 2 angles (Salvagnini-IST)

C call:

C     PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)

C     

C     SON     = ID number of the tool

C     RXS,RYS = apex of the triangle

C     RW1     = first angle of the triangle

C     RW2     = second angle of the triangle

C     DL      = length of the triangle

C     IW      = nibbling sequence

C     IZ      = nibbling type

C     RV      = overlap

C     IRET    = is not evaluated, but must be specified

C     

C     NOTE: The text variable SON must be declared in the program header!

C     CHARACTER *20 SON

C     

C     Example:

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

C     Triangle with point and 2 angles

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

      SON = "TRIANGLE"

      RXS = 70.15

      RYS = 62.0

      RW1 = 152.375

      RW2 = -6.75

      DL = 80.2

      IW = 1

      IZ = 2

      RV = 0.5

      CALL PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)