Télécharger la plaquette Cast3M


fr en

Télécharger fuchxr.eso

Retour à la liste

Numérotation des lignes : 

fuchxr

  1. C FUCHXR    SOURCE    CB215821  24/04/12    21:16:08     11897          
  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.  
  75.  

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