Sources Esope | Cast3M

intext
C INTEXT    SOURCE    CHAT      05/01/13    00:40:59     5004
      SUBROUTINE INTEXT(X1,X2,Y1,Y2,XY)
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
*
* XY : ENTREE : BORNE POUR LAQUELLE ON VEUT CALCULER X OU Y
*      SORTIE : VALEUR DE X OU Y TROUVEE
*
* ATTENTION ON SUPPOSE QUE LA DROITE N'EST PAS PARALLELE AUX AXES
*
      A=(Y2-Y1)/(X2-X1)
      B=0.5D0*(Y1+Y2) - 0.5D0*A*(X1+X2)
      XY=A*XY+B
*
      END