Télécharger fuchxr.eso

Retour à la liste

Numérotation des lignes :

  1. C FUCHXR SOURCE CHAT 11/03/16 21:24:00 6902
  2.  
  3. SUBROUTINE FUCHXR (IMODLA,IMODLB, IMODLS)
  4.  
  5. C-----------------------------------------------------------------------
  6. C SOUS-PROGRAMME REALISANT LA FUSION DES MCHAMLS D'ENRICHISSEMENT
  7. C ISSUS DE DEUX MODELES CONTENANT DES ELEMENTS DE TYPE XFEM/RUPTURE
  8. C-----------------------------------------------------------------------
  9. C IMODLA 1er modele elementaire contenant des elements XFEM
  10. C Segment IMODEL : ACTIF en Entree/Sortie
  11. C IMODLB 2e modele elementaire contenant des elements XFEM
  12. C Segment IMODEL : ACTIF en Entree/Sortie
  13. C IMODLS Modele elementaire contenant le MCHAML d'ENRICHISSMENT
  14. C resultant de la fusion des MCHAMLs de IMODLA et IMODLB
  15. C Segment IMODEL : ACTIF en Sortie
  16. C-----------------------------------------------------------------------
  17. C ON SUPPOSE QUE LES MAILLAGES ASSOCIES AUX SOUS-MODELES ONT ETE
  18. C FUSIONNES ET QUE LE RESULTAT EST STOCKE DANS IMODLA.IMAMOD.
  19. C-----------------------------------------------------------------------
  20.  
  21. IMPLICIT INTEGER (I-N)
  22. IMPLICIT REAL*8 (A-H,O-Z)
  23.  
  24.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27.  
  28. C*-INC SMELEME
  29. -INC SMMODEL
  30.  
  31. IMODE1 = IMODLA
  32. IMODE2 = IMODLB
  33. C* SEGACT,IMODE1,IMODE2
  34. C- Recuperation du MCHAML d enrichissement dans IMODE1
  35. CALL ICHAXR(IMODE1, ICHAX1,MCHAM1)
  36. IF (ICHAX1 .EQ. 0) GOTO 900
  37. C- Recuperation du MCHAML d enrichissement dans IMODE2
  38. CALL ICHAXR(IMODE2, ICHAX2,MCHAM2)
  39. IF (ICHAX2 .EQ. 0) GOTO 900
  40.  
  41. IF (IMODLS.GT.0) THEN
  42. IMODEL = IMODLS
  43. SEGACT,IMODEL*MOD
  44. C- Recuperation du MCHAML d enrichissement dans IMODEL
  45. CALL ICHAXR(IMODEL, ICHAXS,MCHAMS)
  46. IF (ICHAXS .EQ. 0) GOTO 900
  47. ELSE
  48. IMODEL = IMODLA
  49. ICHAXS = ICHAX1
  50. ENDIF
  51.  
  52. C- Fusion des MCHAMLs d'enrichissement
  53. CALL FUSCHL(MCHAM1,MCHAM2, MCHAMS)
  54. IF (IERR.NE.0) GOTO 900
  55. IMODEL.IVAMOD(ICHAXS) = MCHAMS
  56. C*C- Reactivation du maillage support du modele suite a fusion
  57. C* MELEME = IMODEL.IMAMOD
  58. C* SEGACT,MELEME
  59. C* Pour l'instant inutile de reactiver le maillage support car il
  60. C* correspond deja au maillage fusionne (equivalent a celui du
  61. C* MCHAML fusionne ci-dessus mais de pointeur different).
  62. C* Le MCHAML d'enrichissement fusionne sera mis en correspondance
  63. C* avec le maillage fusionne a la fin (appel a PARTXR).
  64.  
  65. 900 CONTINUE
  66. C* SEGDES,IMODE1,IMODE2
  67. C* IF (IMODLS.GT.0) SEGDES,IMODEL
  68.  
  69. RETURN
  70. END
  71.  
  72.  
  73.  
  74.  

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