Télécharger ichaxr.eso

Retour à la liste

Numérotation des lignes :

  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 #####'
  35. C* CALL ERREUR(21)
  36. C* RETURN
  37. C* ENDIF
  38.  
  39. C- Recuperation du MCHAML d enrichissement dans IMODEL
  40. NOBMOD = IMODEL.IVAMOD(/1)
  41. DO i = 1, NOBMOD
  42. IF (IMODEL.TYMODE(i) .EQ. 'MCHAML') THEN
  43. MCHELM = IMODEL.IVAMOD(i)
  44. SEGACT,MCHELM
  45. IF (TITCHE .EQ. 'ENRICHIS') THEN
  46. ICHELX = i
  47. MCHELX = MCHELM
  48. GOTO 10
  49. ENDIF
  50. SEGDES,MCHELM
  51. ENDIF
  52. ENDDO
  53. IF (ICHELX .EQ. 0) THEN
  54. WRITE(IOIMP,*) 'Il n y a pas de MCHAML d ENRICHISsement ',
  55. & 'dans le modele'
  56. RETURN
  57. ENDIF
  58.  
  59. 10 CONTINUE
  60. C* SEGDES,IMODEL
  61.  
  62. RETURN
  63. END
  64.  
  65.  
  66.  
  67.  

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