Télécharger la plaquette Cast3M


fr en

Télécharger extra8.eso

Retour à la liste

Numérotation des lignes : 

extra8

  1. C EXTRA8    SOURCE    CB215821  24/04/12    21:15:53     11897          
  2.       SUBROUTINE EXTRA8(IPMODE,IPGEOM)
  3. ************************************************************************
  4. *
  5. *                             E X T R A 8
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     EXTRAIRE LE MAILLAGE CONTENU DANS UN OBJET "MODELE"
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16.       IMPLICIT INTEGER(I-N)
  17. -INC SMMODEL
  18. *
  19. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  20. * -----------
  21. *
  22. *     IPMODE  (E)  POINTEUR SUR L'OBJET MODELE
  23. *     IPGEOM  (S)  POINTEUR SUR LE MAILLAGE EXTRAIT DE L'OBJET
  24. *                  MODELE
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. *
  29. *     DENIS ROBERT,LE 28 AVRIL 1988.
  30. *
  31. * LANGAGE:
  32. * --------
  33. *
  34. *     ESOPE + FORTRAN77
  35. *
  36. ************************************************************************
  37. *
  38.  
  39. -INC PPARAM
  40. -INC CCOPTIO
  41.       logical ltelq
  42.       MMODEL=IPMODE
  43.       SEGACT,MMODEL
  44.       NSOUMO=KMODEL(/1)
  45. *
  46.       IMODEL=KMODEL(1)
  47.       SEGACT,IMODEL
  48.       IPGEOM=IMAMOD
  49. *
  50.       DO 10 ISOUMO=2,NSOUMO
  51.          IMODEL=KMODEL(ISOUMO)
  52.          SEGACT,IMODEL
  53.          IPGEO1=IMAMOD
  54.          ltelq=.false.
  55.          CALL FUSE(IPGEOM,IPGEO1,IPGEO2,ltelq)
  56.          IF (IERR.NE.0) THEN
  57.            IPGEOM=0
  58.            RETURN
  59.          ENDIF
  60.          IPGEOM=IPGEO2
  61.  10      CONTINUE
  62.  
  63.       END
  64.  
  65.  
  66.  
  67.  

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