Esope source files

   1 : C REGMAI    SOURCE    CHAT      05/01/13    02:48:27     5004           
   2 :       SUBROUTINE REGMAI(MYMEL2,
   3 :      $     MYMELE,LPART,
   4 :      $     IMPR,IRET)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : C***********************************************************************
   8 : C NOM         : REGMAI
   9 : C DESCRIPTION : On transforme un maillage partitionné ou non en maillage 
  10 : C               partitionné.
  11 : C
  12 : C               On transforme un MELEME partitionné ou non (MYMEL2) en
  13 : C               MELEME partitionné (MYMELE). LPART indique si le MELEME
  14 : C               était partitionné. 
  15 : C
  16 : C LANGAGE     : ESOPE
  17 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  18 : C               mél : gounand@semt2.smts.cea.fr
  19 : C***********************************************************************
  20 : C APPELE PAR       : MKIZA
  21 : C***********************************************************************
  22 : C ENTREES            : MYMEL2
  23 : C SORTIES            : MYMELE, LPART
  24 : C Attention ! On peut avoir MYMELE=MYMEL2
  25 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  26 : C***********************************************************************
  27 : C VERSION    : v1, 31/08/99, version initiale
  28 : C HISTORIQUE : v1, 31/08/99, création
  29 : C HISTORIQUE :
  30 : C HISTORIQUE :
  31 : C***********************************************************************
  32 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  33 : C en cas de modification de ce sous-programme afin de faciliter
  34 : C la maintenance !
  35 : C***********************************************************************
  36 : -INC CCOPTIO
  37 : -INC SMELEME
  38 :       INTEGER NBNN,NBELEM,NBSOUS,NBREF
  39 :       POINTEUR MYMELE.MELEME
  40 :       POINTEUR MYMEL2.MELEME
  41 :       LOGICAL LPART
  42 : *
  43 :       INTEGER IMPR,IRET
  44 :       INTEGER NSOUS
  45 : *     
  46 : * Executable statements
  47 : *
  48 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans regmai'
  49 :       SEGACT MYMEL2
  50 :       NSOUS=MYMEL2.LISOUS(/1)
  51 :       IF (NSOUS.EQ.0) THEN
  52 :          NBNN=0
  53 :          NBELEM=0
  54 :          NBSOUS=1
  55 :          NBREF=0
  56 :          SEGINI MYMELE
  57 :          MYMELE.LISOUS(1)=MYMEL2
  58 :          SEGDES MYMELE
  59 :          LPART=.FALSE.
  60 :       ELSE
  61 :          MYMELE=MYMEL2
  62 :          LPART=.TRUE.
  63 :       ENDIF
  64 :       SEGDES MYMEL2
  65 : *
  66 : * Normal termination
  67 : *
  68 :       IRET=0
  69 :       RETURN
  70 : *
  71 : * Format handling
  72 : *
  73 : *
  74 : * Error handling
  75 : *
  76 :  9999 CONTINUE
  77 :       IRET=1
  78 :       WRITE(IOIMP,*) 'An error was detected in subroutine regmai'
  79 :       RETURN
  80 : *
  81 : * End of subroutine REGMAI
  82 : *
  83 :       END
  84 : 
  85 :  
  86 :