Télécharger melcom.eso

Retour à la liste

Numérotation des lignes :

  1. C MELCOM SOURCE CHAT 05/01/13 01:42:03 5004
  2. SUBROUTINE MELCOM(MPRIB,CHPOD,MPRIC,
  3. $ MAIPRI,
  4. $ IMPR,IRET)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. C***********************************************************************
  8. C NOM : MELCOM
  9. C DESCRIPTION : Construction du maillage des points communs au maillage
  10. C primal de B ,au maillage dual de C et au maillage sous-tendant
  11. C CHPOD (si CHPOD.NE.0)
  12. C
  13. C LANGAGE : ESOPE
  14. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  15. C mél : gounand@semt2.smts.cea.fr
  16. C***********************************************************************
  17. C APPELES : MELAND
  18. C APPELES (E/S) : LIROBJ, ECROBJ, ECRCHA
  19. C APPELES (UTIL.) : EXTRAI
  20. C APPELE PAR : PROMAT
  21. C***********************************************************************
  22. C ENTREES : MPRIB, CHPOD, MPRIC
  23. C SORTIES : MAIPRI
  24. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  25. C***********************************************************************
  26. C VERSION : v1, 02/02/2000, version initiale
  27. C HISTORIQUE : v1, 02/02/2000, création
  28. C HISTORIQUE :
  29. C HISTORIQUE :
  30. C***********************************************************************
  31. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  32. C en cas de modification de ce sous-programme afin de faciliter
  33. C la maintenance !
  34. C***********************************************************************
  35. -INC CCOPTIO
  36. -INC SMELEME
  37. POINTEUR MPRIB.MELEME
  38. POINTEUR MPRID.MELEME
  39. POINTEUR MPRIC.MELEME
  40. POINTEUR MAIPRI.MELEME
  41. -INC SMCHPOI
  42. POINTEUR CHPOD.MCHPOI
  43. *
  44. * Includes persos
  45. *
  46. INTEGER NBMEL
  47. SEGMENT MELS
  48. POINTEUR LISMEL(NBMEL).MELEME
  49. ENDSEGMENT
  50. POINTEUR GPMELS.MELS
  51. *
  52. INTEGER IMPR,IRET
  53. *
  54. * Executable statements
  55. *
  56. IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans melcom.eso'
  57. NBMEL=0
  58. SEGINI GPMELS
  59. GPMELS.LISMEL(**)=MPRIB
  60. GPMELS.LISMEL(**)=MPRIC
  61. IF (CHPOD.NE.0) THEN
  62. CALL ECRCHA('MAIL')
  63. CALL ECROBJ('CHPOINT ',CHPOD)
  64. CALL EXTRAI
  65. CALL LIROBJ('MAILLAGE',MPRID,1,IRET)
  66. IF (IRET.EQ.0) THEN
  67. write(ioimp,*) 'erreur extraction du maillage de chpod'
  68. goto 9999
  69. ENDIF
  70. GPMELS.LISMEL(**)=MPRID
  71. ENDIF
  72. CALL MELAND(GPMELS,
  73. $ MAIPRI,
  74. $ IMPR,IRET)
  75. IF (IRET.NE.0) GOTO 9999
  76. SEGSUP GPMELS
  77. *
  78. * Normal termination
  79. *
  80. IRET=0
  81. RETURN
  82. *
  83. * Format handling
  84. *
  85. *
  86. * Error handling
  87. *
  88. 9999 CONTINUE
  89. IRET=1
  90. WRITE(IOIMP,*) 'An error was detected in subroutine melcom'
  91. RETURN
  92. *
  93. * End of subroutine MELCOM
  94. *
  95. END
  96.  
  97.  
  98.  
  99.  

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