Esope source files

   1 : C S3FDIA    SOURCE    CHAT      05/01/13    03:10:35     5004           
   2 :       SUBROUTINE S3FDIA(I,J,N,IFACE)
   3 : C     ************************************************************
   4 : C     OBJET : FACE DIRECTE SUR UNE ARETE (INDICE RELATIF)
   5 : C     EN ENTREE:
   6 : C      I,J    :  LES INDICES DES SOMMETS DE L'ARETE
   7 : C      N      :  (4) NOMBRE DE COTES DE L'ELEMENT 
   8 : C                 TETRA(4),PYRAM(5),PRISME(6),HEXA(8)
   9 : C     EN SORTIE: 
  10 : C      IFACE  :  INDICE DE LA FACE DIRECTE DANS LE TABLEAU TRITRI
  11 : C     CONDITION D'APPLICATION : TETRAEDRE SEULEMENT
  12 : C
  13 : C     A TESTER
  14 : C     ************************************************************
  15 :       IMPLICIT INTEGER(I-N)
  16 :       INTEGER   I, J, N, IFACE
  17 : C     
  18 :       COMMON /STRTET/ ITA2F(4,4),IT2FA(4,4),IT3SF(3,4)
  19 :       INTEGER ITA2F, IT2FA, IT3SF
  20 : C
  21 :       IF( N .EQ. 4 )THEN
  22 : C     --- CAS DU TETRAEDRE ---
  23 :         IFACE = IT2FA(I,J)
  24 :       ENDIF
  25 :   999 END
  26 :  
  27 :