Esope source files

   1 : C ICHAXR    SOURCE    CHAT      11/03/16    21:25:06     6902           
   2 : 
   3 :       SUBROUTINE ICHAXR (IPMODL,ICHELX,MCHELX)
   4 : 
   5 : C-----------------------------------------------------------------------
   6 : C  SOUS-PROGRAMME DE RECUPERATION DU MCHAML D'ENRICHISSEMENT CONTENU
   7 : C  DANS LE MODELE ASSOCIE A DES ELEMENTS DE TYPE XFEM/RUPTURE
   8 : C-----------------------------------------------------------------------
   9 : C  IPMODL (E)  Modele elementaire de REFERENCE (complet) s'appyant sur 
  10 : C              des elements de type XFEM (formulation MFR=63), contenant
  11 : C              en particulier le MCHAML d'ENRICHISSEMENT
  12 : C              Segment IMODEL : ACTIF en Entree/Sortie & non modifie
  13 : C  ICHELX (S)  Indice dans le tableau IVAMOD du modele IPMODL du MCHAML
  14 : C              d'ENRICHISSEMENT, =0 si MCHAML n'existe pas
  15 : C  MCHELX (S)  MCHAML d'ENRICHISSEMENT contenu dans le modele
  16 : C              = 0 s'il n'est pas present dans le modele
  17 : C              Segment MCHELM : ACTIF en Sortie  (si present)
  18 : C-----------------------------------------------------------------------
  19 : 
  20 :       IMPLICIT INTEGER (I-N)
  21 :       IMPLICIT REAL*8 (A-H,O-Z)
  22 : 
  23 : -INC CCOPTIO
  24 : 
  25 : -INC SMCHAML
  26 : -INC SMMODEL
  27 : 
  28 :       IMODEL = IPMODL
  29 :       ICHELX = 0
  30 :       MCHELX = 0
  31 : 
  32 : C*      SEGACT,IMODEL
  33 : C*      IF (IPMODL.EQ.0) THEN
  34 : C*        WRITE(IOIMP,*) '#####  SOUS-PROGRAMME ICHAXR #####'
  34 : C*        CALL ERREUR(21)
  35 : C*        RETURN
  36 : C*      ENDIF
  37 : 
  38 : C- Recuperation du MCHAML d enrichissement dans IMODEL
  39 :       NOBMOD = IMODEL.IVAMOD(/1)
  40 :       DO i = 1, NOBMOD
  41 :         IF (IMODEL.TYMODE(i) .EQ. 'MCHAML') THEN
  42 :           MCHELM = IMODEL.IVAMOD(i)
  43 :           SEGACT,MCHELM
  44 :           IF (TITCHE .EQ. 'ENRICHIS') THEN
  45 :             ICHELX = i
  46 :             MCHELX = MCHELM
  47 :             GOTO 10
  48 :           ENDIF
  49 :           SEGDES,MCHELM
  50 :         ENDIF
  51 :       ENDDO
  52 :       IF (ICHELX .EQ. 0) THEN
  53 :         WRITE(IOIMP,*) 'Il n y a pas de MCHAML d ENRICHISsement ',
  54 :      &                 'dans le modele'
  55 :         RETURN
  56 :       ENDIF
  57 : 
  58 :  10   CONTINUE
  59 : C*      SEGDES,IMODEL
  60 : 
  61 :       RETURN
  62 :       END
  63 : 
  64 :  
  65 :