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)