Télécharger extra8.eso

Retour à la liste

Numérotation des lignes :

  1. C EXTRA8 SOURCE CHAT 11/03/16 21:21:47 6902
  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. -INC CCOPTIO
  39. logical ltelq
  40. MMODEL=IPMODE
  41. SEGACT,MMODEL
  42. NSOUMO=KMODEL(/1)
  43. *
  44. IMODEL=KMODEL(1)
  45. SEGACT,IMODEL
  46. IPGEOM=IMAMOD
  47. SEGDES,IMODEL
  48. *
  49. DO 10 ISOUMO=2,NSOUMO
  50. IMODEL=KMODEL(ISOUMO)
  51. SEGACT,IMODEL
  52. IPGEO1=IMAMOD
  53. ltelq=.false.
  54. CALL FUSE(IPGEOM,IPGEO1,IPGEO2,ltelq)
  55. IF (IERR.NE.0) THEN
  56. IPGEOM=0
  57. DO 5 I=2,ISOUMO
  58. IMODEL=KMODEL(I)
  59. SEGDES,IMODEL
  60. 5 CONTINUE
  61. * END DO
  62. SEGDES,MMODEL
  63. RETURN
  64. ENDIF
  65. IPGEOM=IPGEO2
  66. SEGDES,IMODEL
  67. 10 CONTINUE
  68. * END DO
  69. SEGDES,MMODEL
  70. *
  71. END
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  

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