Esope source files

   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
  61 :          CALL ECRCHA('MAIL')
  61 :          CALL ECROBJ('CHPOINT ',CHPOD)
  61 :          CALL EXTRAI
  61 :          CALL LIROBJ('MAILLAGE',MPRID,1,IRET)
  62 :          IF (IRET.EQ.0) THEN
  63 :             write(ioimp,*) 'erreur extraction du maillage de chpod'
  64 :             goto 9999
  65 :          ENDIF
  66 :          GPMELS.LISMEL(**)=MPRID
  67 :       ENDIF
  67 :       CALL MELAND(GPMELS,
  68 :      $     MAIPRI,
  69 :      $     IMPR,IRET)
  70 :       IF (IRET.NE.0) GOTO 9999
  71 :       SEGSUP GPMELS
  72 : *
  73 : * Normal termination
  74 : *
  75 :       IRET=0
  76 :       RETURN
  77 : *
  78 : * Format handling
  79 : *
  80 : *
  81 : * Error handling
  82 : *
  83 :  9999 CONTINUE
  84 :       IRET=1
  85 :       WRITE(IOIMP,*) 'An error was detected in subroutine melcom'
  86 :       RETURN
  87 : *
  88 : * End of subroutine MELCOM
  89 : *
  90 :       END
  91 : 
  92 :  
  93 :