Esope source files

   1 : C MELNEL    SOURCE    CHAT      05/01/13    01:42:23     5004           
   2 :       SUBROUTINE MELNEL(IEL,MELEME,IPT1,NEL0,IACT)
   3 : C                                                                               
   4 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   5 : C                                                                               
   6 : C     RECHERCHE LE BON SOUS MAILLAGE POUR L ELEMENT IEL
   7 : C       NEL0 NOMBRE D ELEMENTS AVANT LE SOUS MAILLAGE A CONSIDERER
   8 : C                                                                               
   9 : C     IACT = 0 TOUS LES SEGMENTS DU  MAILLAGE SAUF IPT1
  10 : C                                         SONT DESACTIVES EN SORTI
  11 : C     IACT = 1 TOUS LES SEGMENTS DU  MAILLAGE  SONT ACTIFS EN SORTI
  12 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
  13 : C                                                                               
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  16 : -INC SMELEME
  17 : C                                                                               
  18 :       SEGACT MELEME
  19 :       NEL0=0
  20 :       IPT1=MELEME
  21 :       NBSOUS=LISOUS(/1)
  22 :       IF(NBSOUS.NE.0)THEN
  23 :            DO 10 ISOU=1,NBSOUS
  24 :                 IPT1=LISOUS(ISOU)
  25 :                 SEGACT IPT1
  26 :                 NEL=IPT1.NUM(/2)
  27 :                 IF(NEL+NEL0.GE.IEL)GO TO 15
  28 :                 NEL0=NEL+NEL0
  29 :                 IF(IACT.EQ.0)SEGDES IPT1
  30 :    10      CONTINUE
  31 :       ENDIF
  32 :    15 CONTINUE
  33 :       END                                                                       
  34 :