Esope source files

   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 :