Télécharger la plaquette Cast3M


fr en

Télécharger extr21.eso

Retour à la liste

Numérotation des lignes : 

extr21

  1. C EXTR21    SOURCE    GOUNAND   24/09/06    21:15:04     12004          
  2.       SUBROUTINE EXTR21(MCHPOI,IMUL,MELEME)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C-----------------------------------------------------------------------
  6. C
  7. C                             E X T R 2 1
  8. C                             -----------
  9. C
  10. C FONCTION:
  11. C ---------
  12. C
  13. C     EXTRAIT LE MAILLAGE DU CHPOINT "ICHP" ET LE RANGE DANS
  14. C     UN MELEME
  15. C     SI IMUL.EQ.1 on n'extrait pas la partie du maillage associee
  16. C     aux multiplicateurs
  17. C
  18. C MODULES UTILISES:
  19. C -----------------
  20. C
  21. -INC SMCHPOI
  22. -INC PPARAM
  23. -INC SMELEME
  24. C
  25. C PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  26. C -----------
  27. C
  28. C     MCHPOI  (E)  POINTEUR SUR LE CHPOINT
  29. C     MELEME  (S)  POINTEUR SUR LE MELEME
  30. C
  31. C-----------------------------------------------------------------------
  32.       logical ltelq
  33.  
  34.       SEGACT MCHPOI
  35.       NBSOUS=IPCHP(/1)
  36.       IPP1=0
  37.       DO 1140 I=1,NBSOUS
  38.          MSOUPO=IPCHP(I)
  39.          SEGACT MSOUPO
  40.          IF(NOCOMP(1).EQ.'LX  '.AND.IMUL.EQ.1) GOTO  1140
  41.          IF (IPP1.EQ.0) THEN
  42.             IPP1= IGEOC
  43.          ELSE
  44.             IPP2=IGEOC
  45.             ltelq=.false.
  46.             CALL FUSE (IPP1,IPP2,IRET,ltelq)
  47.             IPP1=IRET
  48.          ENDIF
  49.  1140 CONTINUE
  50.       IF(IPP1.EQ.0) THEN
  51. C     Creation Maillage vide
  52.          CALL MELVID(1,IPP1)
  53.       ENDIF
  54.       MELEME=IPP1
  55.       RETURN
  56.       END
  57.  
  58.  

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