Télécharger flux3.eso

Retour à la liste

Numérotation des lignes :

  1. C FLUX3 SOURCE CHAT 05/01/13 00:05:09 5004
  2.  
  3. ************************************************************************
  4. * F L U X 3
  5. * ---------
  6. *
  7. * FONCTION:
  8. * ---------
  9. *
  10. * DONNE LA FORMULATION ELEMENT-FINI DES FACES D'UN MASSIF
  11. *
  12. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  13. * -----------
  14. * NEF (E) NUMERO DE L'ELEMENT-FINI MASSIF DANS NOMTP
  15. * NBNN (E) NOMBRE DE NOEUDS DANS L'ELEMENT-FINI CONSIDERE
  16. * NEFACE (S) NUMERO DE L'ELEMENT-FINI LIE A LA FACE
  17. ************************************************************************
  18.  
  19. SUBROUTINE FLUX3 (NEF,NBNN,NEFACE)
  20.  
  21. * ELEMENTS MASSIFS BIDIMENSIONNELS LINEAIRES
  22. IMPLICIT INTEGER(I-N)
  23. IF (NEF.EQ.4.OR.NEF.EQ.8) THEN
  24. NEFACE=2
  25. * ELEMENTS MASSIFS BIDIMENSIONNELS QUADRATIQUES
  26. ELSE IF (NEF.EQ.6.OR.NEF.EQ.10) THEN
  27. NEFACE=3
  28. * ELEMENTS MASSIFS TRIDIMENSIONNELS LINEAIRES
  29. ELSE IF (NEF.EQ.14.OR.NEF.EQ.16.OR.NEF.EQ.23.OR.NEF.EQ.25) THEN
  30. IF (NBNN.EQ.3) THEN
  31. NEFACE=4
  32. ELSE
  33. NEFACE=8
  34. ENDIF
  35. * ELEMENTS MASSIFS TRIDIMENSIONNELS QUADRATIQUES
  36. ELSE IF (NEF.EQ.15.OR.NEF.EQ.17.OR.NEF.EQ.24.OR.NEF.EQ.26) THEN
  37. IF (NBNN.EQ.6) THEN
  38. NEFACE=6
  39. ELSE
  40. NEFACE=10
  41. ENDIF
  42. * ELEMENTS MASSIFS 1D
  43. ELSE IF (NEF.EQ.191.OR.NEF.EQ.192) THEN
  44. NEFACE=45
  45. ELSE
  46. NEFACE=0
  47. ENDIF
  48.  
  49. RETURN
  50. END
  51.  
  52.  
  53.  
  54.  

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