Sources Esope | Cast3M

s3fdia
C S3FDIA    SOURCE    CHAT      05/01/13    03:10:35     5004
      SUBROUTINE S3FDIA(I,J,N,IFACE)
C     ************************************************************
C     OBJET : FACE DIRECTE SUR UNE ARETE (INDICE RELATIF)
C     EN ENTREE:
C      I,J    :  LES INDICES DES SOMMETS DE L'ARETE
C      N      :  (4) NOMBRE DE COTES DE L'ELEMENT
C                 TETRA(4),PYRAM(5),PRISME(6),HEXA(8)
C     EN SORTIE:
C      IFACE  :  INDICE DE LA FACE DIRECTE DANS LE TABLEAU TRITRI
C     CONDITION D'APPLICATION : TETRAEDRE SEULEMENT
C
C     A TESTER
C     ************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER   I, J, N, IFACE
C
      COMMON /STRTET/ ITA2F(4,4),IT2FA(4,4),IT3SF(3,4)
      INTEGER ITA2F, IT2FA, IT3SF
C
      IF( N .EQ. 4 )THEN
C     --- CAS DU TETRAEDRE ---
        IFACE = IT2FA(I,J)
      ENDIF
  999 END