Esope source files

   1 : C COUPEC    SOURCE    CHAT      05/01/12    22:24:27     5004           
   2 :       SUBROUTINE COUPEC(XC,XT,X2,X3,XN,TOL, DIS)
   3 : C
   4 : C     Esclave de COUPE
   5 : C     Distance du point XC au plan defini par les points XT, X2 et X3
   6 : C              et la normale XN   
   7 : C
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : C
  11 :       DIMENSION XC(3),XT(3),X2(3),X3(3),XN(3)
  12 : C
  13 :       DIS=SQRT((XC(1)-XT(1))**2+(XC(2)-XT(2))**2+(XC(3)-XT(3))**2)
  14 :         IF(DIS.GT.TOL)THEN
  15 :       DIS=((XC(1)-XT(1))*XN(1)+(XC(2)-XT(2))*XN(2)+(XC(3)-XT(3))*XN(3))
  16 :         ELSE
  17 :       DIS=SQRT((XC(1)-X2(1))**2+(XC(2)-X2(2))**2+(XC(3)-X2(3))**2)
  18 :           IF(DIS.GT.TOL)THEN
  19 :       DIS=((XC(1)-X2(1))*XN(1)+(XC(2)-X2(2))*XN(2)+(XC(3)-X2(3))*XN(3))
  20 :           ELSE
  21 :       DIS=SQRT((XC(1)-X3(1))**2+(XC(2)-X3(2))**2+(XC(3)-X3(3))**2)
  22 :       DIS=((XC(1)-X3(1))*XN(1)+(XC(2)-X3(2))*XN(2)+(XC(3)-X3(3))*XN(3))
  23 :           ENDIF
  24 :         ENDIF
  25 : C
  26 :       RETURN
  27 :       END
  28 :  
  29 :