Winkel zwischen 2 Punkten berechnen

C     Aufruf:

C     CALL PTH048 (X1,Y1,X2,Y2,RW,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     X1/Y1 : Koordinate erster Punkt

C     X2/Y2 : Koordinate zweiter Punkt

C     RW    : Winkel (Rückgabewert)

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Winkel zwischen zwei Punkten berechnen

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

      X1 = 50.0

      Y1 = 50.0

      X2 = 80.0

      Y2 = 100.0

      CALL PTH048 (X1,Y1,X2,Y2,RW,IRET)