Télécharger la plaquette Cast3M


fr en

Télécharger coupek.eso

Retour à la liste

Numérotation des lignes : 

coupek

  1. C COUPEK    SOURCE    CHAT      05/01/12    22:24:44     5004
  2.       SUBROUTINE COUPEK(XYZ1,XYZ2,XYZ3,DIS1,DIS2,DIS3,
  3.      >                  NUM0,MELEME,IELEM,JCOLOR)
  4. C
  5. C     Esclave de COUPE
  6. C     Reorganization des noeuds de la face opposee au point
  7. C     coupe par le plan de coupe: le premier point est celui
  8. C     commun aux 2 cotes coupes
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC SMCOORD
  16. -INC SMELEME
  17. C
  18.       DIMENSION XYZ1(4),XYZ2(4),XYZ3(4)
  19.       PARAMETER(UN=1.D0)
  20. C
  21.       DINDEX=SIGN(UN,DIS1)+SIGN(UN,DIS2)+SIGN(UN,DIS3)
  22.       IF(SIGN(UN,DIS1).NE.DINDEX)THEN
  23.         CALL COUPEL(XYZ1,XYZ2,XYZ3,DIS1,DIS2,DIS3,
  24.      >              NUM0,MELEME,IELEM,JCOLOR)
  25.       ELSE IF(SIGN(UN,DIS2).NE.DINDEX)THEN
  26.         CALL COUPEL(XYZ2,XYZ3,XYZ1,DIS2,DIS3,DIS1,
  27.      >              NUM0,MELEME,IELEM,JCOLOR)
  28.       ELSE IF(SIGN(UN,DIS3).NE.DINDEX)THEN
  29.         CALL COUPEL(XYZ3,XYZ1,XYZ2,DIS3,DIS1,DIS2,
  30.      >              NUM0,MELEME,IELEM,JCOLOR)
  31.       ELSE
  32.       ENDIF
  33. C
  34.       RETURN
  35.       END
  36.  
  37.  
  38.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales