Biegelinie hinzufügen (Punktdefinition der Biegelinie)

C     Aufruf:

C     CALL PVB441 (IN,IP,XP,YP,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     IN    : Biegungs-Nummer

C     IP    : 1 = Startpunkt, 2 = Endpunkt

C     XP,YP : Koordinate des Punkts

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

C     

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

C->      2  Ausschnitt 2 Fgrd

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

C     

      INDEX         = INDEX + 1

      RXDEF1(INDEX) =               -5.0000

      RYDEF1(INDEX) =  YMAIN -      50.0000

      RXDEF2(INDEX) =               40.0000

      RYDEF2(INDEX) =  YMAIN -      -5.0000

      IN  = 1

      XP  = RXDEF2(INDEX)

      YP  = YMAIN - 10

      CALL PVB441 (IN,2,XP,YP,IRET)