C COUPEK SOURCE CHAT 05/01/12 22:24:44 5004 SUBROUTINE COUPEK(XYZ1,XYZ2,XYZ3,DIS1,DIS2,DIS3, > NUM0,MELEME,IELEM,JCOLOR) C C Esclave de COUPE C Reorganization des noeuds de la face opposee au point C coupe par le plan de coupe: le premier point est celui C commun aux 2 cotes coupes C IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO -INC SMCOORD -INC SMELEME C DIMENSION XYZ1(4),XYZ2(4),XYZ3(4) PARAMETER(UN=1.D0) C DINDEX=SIGN(UN,DIS1)+SIGN(UN,DIS2)+SIGN(UN,DIS3) IF(SIGN(UN,DIS1).NE.DINDEX)THEN CALL COUPEL(XYZ1,XYZ2,XYZ3,DIS1,DIS2,DIS3, > NUM0,MELEME,IELEM,JCOLOR) ELSE IF(SIGN(UN,DIS2).NE.DINDEX)THEN CALL COUPEL(XYZ2,XYZ3,XYZ1,DIS2,DIS3,DIS1, > NUM0,MELEME,IELEM,JCOLOR) ELSE IF(SIGN(UN,DIS3).NE.DINDEX)THEN CALL COUPEL(XYZ3,XYZ1,XYZ2,DIS3,DIS1,DIS2, > NUM0,MELEME,IELEM,JCOLOR) ELSE ENDIF C RETURN END