Esope source files

   1 : C ECMAIL    SOURCE    FANDEUR   14/01/16    21:15:10     7905           
   2 :       SUBROUTINE ECMAIL(IELEME,JENTET)                                          
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             E C M A I L                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     IMPRESSION D'UN MAILLAGE.                                                 
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : *
  18 : -INC CCOPTIO                                                                    
  19 : -INC SMELEME                                                                    
  20 : *                                                                               
  21 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  22 : * -----------                                                                   
  23 : *                                                                               
  24 : *     IELEME  (E)  POINTEUR D'UN "MAILLAGE".                                    
  25 : *                                                                               
  26 : * AUTEUR, DATE DE CREATION:                                                     
  27 : * -------------------------                                                     
  28 : *                                                                               
  29 : *     REPRISE: PASCAL MANIGOT     11 SEPTEMBRE 1987                             
  30 : *                                                                               
  31 : * LANGAGE:                                                                      
  32 : * --------                                                                      
  33 : *                                                                               
  34 : *     ESOPE + FORTRAN77                                                         
  35 : *                                                                               
  36 : ************************************************************************        
  37 : *                                                                               
  38 :       MELEME = IELEME                                                           
  39 :       SEGACT MELEME                                                             
  40 :       NBSOUS=LISOUS(/1)                                                         
  41 : *                                                                               
  42 :       IF (NBSOUS.NE.0) THEN                                                     
  43 : *                                                                               
  44 :          NBREF=LISREF(/1)                                                       
  45 :          INTERR(1)=MELEME                                                       
  46 :          INTERR(2)=NBSOUS                                                       
  47 :          INTERR(3)=NBREF                                                        
  47 :          CALL ERREUR(-16)                                                       
  47 :          CALL ERREUR(-17)                                                       
  48 :          WRITE(IOIMP,2143) (LISOUS(J),J=1,NBSOUS)                               
  49 :          IF (NBREF.NE.0) THEN                                                   
  49 :             CALL ERREUR(-18)                                                    
  50 :             WRITE(IOIMP,2143) (LISREF(J),J=1,NBREF)                             
  51 :          END IF                                                                 
  52 :  2143    FORMAT(8(1X,I9))                                                       
  53 : *                                                                               
  54 :          DO 200 IB=1,NBSOUS 
  55 :             IPT1=LISOUS(IB)                                                     
  55 :             CALL ECMAI1 (IPT1,JENTET)                                           
  56 :             if (ierr.ne.0) return                                               
  57 :   200    CONTINUE                                                            
  58 : *                                                                               
  59 :          SEGDES,MELEME                                                    
  60 : *                                                                               
  61 :       ELSE                                                                      
  62 : *                                                                               
  62 :          CALL ECMAI1 (IELEME,jentet)                                            
  63 : *                                                                               
  64 :       END IF                                                                    
  65 : *                                                                               
  66 :       RETURN
  67 :       END                                                                       
  68 :  
  69 :