Esope source files

   1 : C TRJFAC    SOURCE    CHAT      05/01/13    03:49:39     5004           
   2 :       SUBROUTINE TRJFAC(IEL,NF,JFA,IELTFA)
   3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4 : C
   5 : C      RECHERCHE JFA NUMERO DE LA FACE NF DANS L ELEMENT IEL
   6 : C       A PARTIR  DE LA TABLE GENEREE PAR KDOM
   7 : C
   8 : C
   9 : C
  10 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8 (A-H,O-Z)
  13 : -INC SMELEME
  14 :       POINTEUR IELTFA.MELEME
  15 : C
  16 : C
  16 :       CALL MELNEL(IEL,IELTFA,IPT2,NEL2,1)
  17 :       NP2=IPT2.NUM(/1)
  18 :       DO 20 LL=1,NP2
  19 :         IF(IPT2.NUM(LL,IEL-NEL2).EQ.NF)THEN
  20 :              JFA=LL
  21 :              GO TO 55
  22 :         ENDIF
  23 :    20 CONTINUE
  24 :    55 CONTINUE
  25 :       RETURN
  26 :       END
  27 :