Télécharger la plaquette Cast3M


fr en

Télécharger flux3.eso

Retour à la liste

Numérotation des lignes : 

flux3

  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