Sources Esope | Cast3M

idvari
C IDVARI    SOURCE    OF166741  26/02/23    21:15:21     12480          
*--------------------------------------------------------------------*
*                                                                    *
*    RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES        *
*    ________________________________________________________        *
*                                                                    *
*    ENTREES:                                                        *
*                                                                    *
*        MFR       NUMERO DE LA FORMULATION                          *
*        IPMODL    OBJET MODEL ELEMENTAIRE ( SEGMENT ACTIF )         *
*                                                                    *
*    SORTIES:                                                        *
*                                                                    *
*        IPNOMC    POINTEUR SUR LES LISTES DE NOMS DE COMPOSANTES    *
*                  obligatoires et facultatives                      *
*        NBROBL    nombre de composantes obligatoires                *
*        NBRFAC    nombre de composantes facultatives                *
*                                                                    *
*   Remarque : Voir INOMID ou CCOPTIO pour signification IFOUR       *
*--------------------------------------------------------------------*
C
      SUBROUTINE IDVARI(MFR,IPMODL,IPNOMC,NBROBL,NBRFAC)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
-INC PPARAM
-INC CCOPTIO
-INC CCHAMP
C==DEB= FORMULATION HHO == Include specifique ==========================
-INC CCHHOPA
C==FIN= FORMULATION HHO ================================================
C
-INC SMMODEL
C
      NBROBL = 0
      NBRFAC = 0
C
      IMODEL=IPMODL
      NOMID =IMODEL.LNOMID(10)
C
C     Ne pas recreer le NOMID si deja present
      IF (NOMID.NE.0) THEN
        NBROBL=LESOBL(/2)
        NBRFAC=LESFAC(/2)
        IPNOMC=NOMID
        RETURN
      ENDIF
C
      MELE=IMODEL.NEFMOD
      MFR =NUMMFR(MELE)
      MFR2=NUMFOR(IMODEL)
C     =================================================================
C     FORMULATION MECANIQUE/POREUX
C     =================================================================
      IF ((MFR2.EQ.2).OR.(MFR2.EQ.33)) THEN
        MATEPL=IMODEL.INATUU
C
C       COQUE INTEGREE OU PAS ?
        NPINT=INFMOD(1)
C
C== FORMULATION HHO == MECANIQUE + idem qu'en MASSIF ==> MFR = 1 =======
        IF (MFR.EQ.HHO_MFR_ELEMENT) MFR = 1
C== FORMULATION HHO ====================================================
C
C       Cas ELASTIQUE, NON_LINEAIRE UNTILISATEUR et VISCO_EXTERNE
        IF (MATEPL.LE.0) GOTO 6
C
C             1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15
        GOTO( 6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,
C            16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30
     &        6,  6,  6,  1,  2,  1,  2,  2,  3,  4,  6,  6,  6,  6,  5,
C            31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45
     &        5,  6,  6,  6,  6,  6,  5,  6,  6,  6,  6,  6,  4,  6,  6,
C            46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60
     &        6,  6,  6,  6,  6,  6,  6,  4,  7,  7,  7,  7,  7,  7,  6,
C            61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75
     &        2,  6,  4,  6,  6,  6,  6,  6,  6,  4,  6,  7,  7,  3,  6,
C            76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90
     &        8,  9,  6,  6,  6,  6, 10,  6, 14, 14, 14,  6,  5, 11, 11,
C            91, 92, 93, 94, 95, 96, 97, 98, 99,100,101,102,103,104,105
     &        7,  6,  6,  4,  3,  5,  5,  5,  6,  6,  6, 14,  6,  6,  6,
C           106,107,108,109,110,111,112,113,114,115,116,117,118,119,120
     &        6,  4,  4,  6,  6, 12, 12, 12, 12, 12, 12, 12,  5,  7,  6,
C           121,122,123,124,125,126,127,128,129,130,131,132,133,134,135
     &        6,  6,  6,  5,  5,  7,  6,  6,  7,  4,  5,  5,  6,  5,  6,
C           136,137,138,139,140,141,142,143,144,145,146,147,148,149,150
     &        4,  4,  4,  4,  6,  5,  6,  6,  5,  6,  6,  6,  6,  6,  7,
C           151,152,153,154,155,156,157,158,159,160,161,162,163,164,165
     &        7,  7,  4,  4,  7,  7,  5,  5,  5,  7, 13, 13, 13, 13,  4,
C           166,167,168,169,170,171,172,173,174,175,176,177,178,179,180
     &        6,  6,  6,  6,  6, 12,  7,  5,  3,  6,  7,  5,  6,  6,  6,
C           181,182,183,184,185,186,187,188,189,190,191,192,193,194,195
     &        6,  6,  6,  6,  6,  6,  4,  4,  4,  4,  4,  4,  5,  5,  5,
C           196, 197
     &        5,  4) MATEPL
C
 1      CONTINUE
        CALL IDVAR1(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 2      CONTINUE
        CALL IDVAR2(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 3      CONTINUE
        CALL IDVAR3(MATEPL,MFR,IFOUR,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 4      CONTINUE
        CALL IDVAR4(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 5      CONTINUE
        CALL IDVAR5(MATEPL,MFR,IFOUR,0,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 6      CONTINUE
        CALL IDVAR6(MATEPL,MFR,MELE,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 7      CONTINUE
        CALL IDVAR7(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 8      CONTINUE
        CALL IDVAR8(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 9      CONTINUE
        CALL IDVAR9(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 10     CONTINUE
        CALL IDVA10(MATEPL,MFR,MELE,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 11     CONTINUE
        CALL IDVA11(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 12     CONTINUE
        CALL IDVA12(MATEPL,MFR,MELE,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
        GOTO 15
C
 13     CONTINUE
        CALL IDVA13(MFR,IPMODL,IPNOMC,NBROBL,NBRFAC,MATEPL)
        GOTO 15
C
 14     CONTINUE
        CALL IDVFLO(MATEPL,MFR,IFOUR,NPINT,IPNOMC,NBROBL,NBRFAC)
C
 15     CONTINUE
        IF (IERR.NE.0) RETURN
        NOMID = IPNOMC
C     =================================================================
C     FORMULATION LIAISON
C     =================================================================
      ELSE IF (MFR2.EQ.24) THEN
        IF (CMATEE.EQ.'NEWMOD') THEN
          NBROBL = 1
          NBRFAC = 0
          SEGINI,NOMID
          LESOBL(1) = 'FLIA'
        ELSE
          NBROBL = 2
          NBRFAC = 3
          SEGINI,NOMID
          LESOBL(1) = 'FLIA'
          LESOBL(2) = 'SLIA'
          LESFAC(1) = 'VAEN'
          LESFAC(2) = 'VARE'
          LESFAC(3) = 'VAMA'
        ENDIF
C     =================================================================
C     FORMULATION DIFFUSION
C     =================================================================
      ELSE IF (MFR2.EQ.73) THEN
        IF (CMATEE.EQ.'VISQUEUS') THEN
          NBROBL = 2
          IF (IFOUR.EQ.2) NBROBL = 3
          NBRFAC = 0
          SEGINI,NOMID
          LESOBL(1) = 'VI1X'
          LESOBL(2) = 'VI1Y'
          if (ifour.eq.0) LESOBL(2) = 'VI1Z'
          if (ifour.eq.2) LESOBL(3) = 'VI1Z'
        ENDIF
C     =================================================================
C     FORMULATION CHANGEMENT_PHASE
C     =================================================================
      ELSE IF (MFR2.EQ.30) THEN
        IF (IMODEL.CMATEE.EQ.'CHPH_PAR') THEN
          NBROBL=1
          NBRFAC=0
          SEGINI,NOMID
          NOMID.LESOBL(1)='PPHA'
        ENDIF
C     =================================================================
      ENDIF
C
      IF (NOMID.NE.0) SEGACT,NOMID*NOMOD
      IPNOMC = NOMID
      END