Sources Esope | Cast3M

lineax
C LINEAX    SOURCE    CHAT      05/01/13    01:18:40     5004
      SUBROUTINE LINEAX (TX,TY,BX,IPOINT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-S,U-Y)
      DIMENSION TX(*),TY(*)
*
* TX : TABLE DE TAILLE 2 CONTENANT LES COORD. EN X DES EXTREMITES DU
*      SEGMENT A TRACER
* TY : TABLE DE TAILLE 2 CONTENANT LES COORD. EN Y DES EXTREMITES DU
*      SEGMENT A TRACER
* BX : BORNE POUR LAQUELLE ON VEUT CALCULER Y
* IPOINT : EXTREMITE QUE L'ON VEUT LINARISER (1 OU 2)
*
      A=(TY(2)-TY(1))/(TX(2)-TX(1))
      B=TY(1)-A*TX(1)
      TY(IPOINT)=A*BX+B
      TX(IPOINT)=BX
      END