Télécharger la plaquette Cast3M


fr en

Télécharger melcom.eso

Retour à la liste

Numérotation des lignes : 

melcom

  1. C MELCOM    SOURCE    CB215821  20/11/25    13:34:13     10792          
  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.  
  36. -INC PPARAM
  37. -INC CCOPTIO
  38. -INC SMELEME
  39.       POINTEUR MPRIB.MELEME
  40.       POINTEUR MPRID.MELEME
  41.       POINTEUR MPRIC.MELEME
  42.       POINTEUR MAIPRI.MELEME
  43. -INC SMCHPOI
  44.       POINTEUR CHPOD.MCHPOI
  45. *
  46. * Includes persos
  47. *
  48.       INTEGER NBMEL
  49.       SEGMENT MELS
  50.       POINTEUR LISMEL(NBMEL).MELEME
  51.       ENDSEGMENT
  52.       POINTEUR GPMELS.MELS
  53. *
  54.       INTEGER IMPR,IRET
  55. *
  56. * Executable statements
  57. *
  58.       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans melcom.eso'
  59.       NBMEL=0
  60.       SEGINI GPMELS
  61.       GPMELS.LISMEL(**)=MPRIB
  62.       GPMELS.LISMEL(**)=MPRIC
  63.       IF (CHPOD.NE.0) THEN
  64.          CALL ECRCHA('MAIL')
  65.          CALL ECROBJ('CHPOINT ',CHPOD)
  66.          CALL EXTRAI
  67.          CALL LIROBJ('MAILLAGE',MPRID,1,IRET)
  68.          IF (IRET.EQ.0) THEN
  69.             write(ioimp,*) 'erreur extraction du maillage de chpod'
  70.             goto 9999
  71.          ENDIF
  72.          GPMELS.LISMEL(**)=MPRID
  73.       ENDIF
  74.       CALL MELAND(GPMELS,
  75.      $     MAIPRI,
  76.      $     IMPR,IRET)
  77.       IF (IRET.NE.0) GOTO 9999
  78.       SEGSUP GPMELS
  79. *
  80. * Normal termination
  81. *
  82.       IRET=0
  83.       RETURN
  84. *
  85. * Format handling
  86. *
  87. *
  88. * Error handling
  89. *
  90.  9999 CONTINUE
  91.       IRET=1
  92.       WRITE(IOIMP,*) 'An error was detected in subroutine melcom'
  93.       RETURN
  94. *
  95. * End of subroutine MELCOM
  96. *
  97.       END
  98.  
  99.  
  100.  
  101.  
  102.  

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