Calculer l'angle entre 2 points

C     Appel :

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

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     X1/Y1 : coordonnées du premier point

C     X2/Y2 : coordonnées du deuxième point

C     RW    : angle (valeur de retour)

C     IRET  : n'est pas évalué, mais doit être spécifié

C     

C     Exemple :

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

C     Calculer l'angle entre deux points

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

      X1 = 50.0

      Y1 = 50.0

      X2 = 80.0

      Y2 = 100.0

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