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