Esope source files

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