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)