Esope source files

   1 : C MENAG1    SOURCE    PV        13/04/11    21:16:02     7755           
   2 : C  SUPPRIMER LES SEGMENTS INDESIRABLES                                          
   3 : C                                                                               
   4 :       SUBROUTINE MENAG1(ISLIS)                                                  
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCNOYAU
   7 : -INC SMELEME
   8 : -INC CCPRECO                                                                    
   9 :       SEGMENT ISLIS(NP)                                                         
  10 :       SEGMENT ISLI2(0) 
  11 :       segment isli3(0)                                                         
  12 :       SEGMENT IBLIS(ISLIS(/1))                                                  
  13 : *  LISTE DES SEGMENTS                                                           
  13 :       CALL OOOLIS(ISLIS)                                                        
  14 :       SEGINI IBLIS                                                              
  15 : *  TRI                                                                        
  15 :       CALL TRIENT(ISLIS(1),IBLIS(1),ISLIS(/1))                                  
  16 : *  LISTE DES SEGMENTS INITIAUX                                                  
  17 :       ISLI2=NOYSEG                                                              
  18 :       SEGACT ISLI2
  19 : *  liste des segments du preconditionnement
  20 :       segini isli3
  21 :       do 10 ip=1,30       
  22 :        meleme=prenum(ip)
  23 :        if (meleme.eq.0) goto 10
  24 :        isli3(**)=meleme
  25 :        segact meleme
  26 :        do 20 is=1,lisous(/1)
  27 :          isli3(**)=lisous(is)
  28 :   20   continue
  29 :        segdes meleme
  30 :   10   continue
  31 : **    do  ip=1,nbemel
  32 : **     meleme=premel(ip)
  33 : **     if (meleme.ne.0) isli3(**)=meleme
  34 : **     enddo
  34 :        if (isli3(/1).ne.0) CALL TRIENT(ISLI3(1),IBLIS(1),ISLI3(/1))
  35 :        SEGSUP IBLIS
  36 : *  OTER LA DEUXIEME LISTE A LA PREMIERE                                         
  36 :       CALL MENAG3(ISLIS,ISLI2)                                                  
  37 :       SEGDES ISLI2                                                              
  38 : *  OTER LA TROISIEME LISTE
  38 :       CALL MENAG3(ISLIS,ISLI3)
  39 :       segsup isli3
  40 :       END                                  
  41 :  
  42 :