Télécharger trjfac.eso

Retour à la liste

Numérotation des lignes :

trjfac
  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
  17. CALL MELNEL(IEL,IELTFA,IPT2,NEL2,1)
  18. NP2=IPT2.NUM(/1)
  19. DO 20 LL=1,NP2
  20. IF(IPT2.NUM(LL,IEL-NEL2).EQ.NF)THEN
  21. JFA=LL
  22. GO TO 55
  23. ENDIF
  24. 20 CONTINUE
  25. 55 CONTINUE
  26. RETURN
  27. END
  28.  
  29.  

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