C ECEVOL    SOURCE    CHAT      08/01/09    21:15:01     6021           
      SUBROUTINE ECEVOL(MEVOLL,jentet)                                                 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C                                                                               
C  ====================================================================         
C  =  ECRITURE DE L'OBJET EVOLUTION                                   =         
C  =  CREATION    : 01/10/86                                          =         
C  =  PROGRAMMEUR : GUILBAUD                                          =         
C  ====================================================================         
C                                                                               
-INC CCOPTIO                                                                    
-INC SMLREEL                                                                    
-INC SMEVOLL                                                                    
-INC SMELEME                                                                    
-INC SMLMOTS                                                                    
-INC CCGEOME                                                                    
      SEGACT MEVOLL                                                             
      WRITE (IOIMP,111) IEVTEX                                                  
 111  FORMAT (2X,A72)                                                           
      N=IEVOLL(/1)                                                              
      INTERR(1)=MEVOLL                                                          
      INTERR(2)=N                                                               
      MOTERR(1:8)=ITYEVO                                                        
      CALL ERREUR(-116)                                                         
C                                                                               
      DO 1 I=1,N                                                                
      KEVOLL=IEVOLL(I)                                                          
      SEGACT KEVOLL                                                             
      INTERR(1)=I                                                               
      MOTERR(1:4)=NCOUL(NUMEVX)                                                 
      CALL ERREUR(-117)                                                         
      WRITE (IOIMP,111) KEVTEX                                                  
      MOTERR(1:12)= NOMEVX                                                      
      CALL ERREUR(-118)                                                         
      MOTERR(1:4)=NUMEVY                                                        
      MOTERR(5:16)=NOMEVY                                                       
      CALL ERREUR(-119)                                                         
      IF(TYPX.EQ.'LISTREEL')THEN                                                
         MLREEL=IPROGX                                                          
         SEGACT MLREEL                                                          
         NPAS=PROG(/1) 
         npi=npas
         if(jentet.eq.1) npi=min(npi,10)                                                         
         INTERR(1)=NPAS                                                         
         CALL ERREUR(-120)                                                      
  106    FORMAT ('   NOMBRE DE POINTS =',I7)                                    
         IF(TYPY.EQ.'LISTREEL') THEN                                            
            MLREE1=IPROGY                                                       
            SEGACT MLREE1                                                       
            WRITE(IOIMP,101)(J,PROG(J),MLREE1.PROG(J),J=1,NPi)                 
*101        FORMAT(/4(1X,I5,1X,1PE12.5,1X,1PE12.5,1X))
 101        FORMAT(/(3X,I5,3X,1PE12.5,3X,1PE12.5))
            SEGDES MLREEL,MLREE1                                                
          ELSEIF(TYPY.EQ.'LISTMOTS') THEN                                       
            MLMOTS=IPROGY                                                       
            SEGACT MLMOTS                                                       
            WRITE(IOIMP,120)(J,PROG(J),MOTS(J),J=1,NPi)                        
*120        FORMAT(/4(1X,I5,1X,1PE12.5,1X,A8,1X))
 120        FORMAT(/(3X,I5,3X,1PE12.5,3X,A8))
            SEGDES MLMOTS,MLREEL                                                
          ENDIF                                                                 
      ELSEIF(TYPX.EQ.'LISTMOTS') THEN                                           
         MLMOTS=IPROGX                                                          
         SEGACT MLMOTS                                                          
         NPAS=MOTS(/2)
         npi=npas
         if(jentet.eq.1) npi=min(npi,10)                                                            
         INTERR(1)=NPAS                                                         
         CALL ERREUR(-120)                                                      
         IF(TYPY.EQ.'LISTREEL') THEN                                            
            MLREE1=IPROGY                                                       
            SEGACT MLREE1                                                       
            WRITE(IOIMP,121)(J,MOTS(J),MLREE1.PROG(J),J=1,NPi)                 
*121        FORMAT(/4(1X,I5,1X,A8,1X,1PE12.5,1X))
 121        FORMAT(/(3X,I5,3X,A8,3X,1PE12.5))
            SEGDES MLMOTS,MLREE1                                                
          ELSEIF(TYPY.EQ.'LISTMOTS') THEN                                       
            MLMOT2=IPROGY                                                       
            SEGACT MLMOT2                                                       
            WRITE(IOIMP,122)(J,MOTS(J),MLMOT2.MOTS(J),J=1,NPi)                 
*122         FORMAT(/4(1X,I5,1X,A8,1X,A8,1X))
 122         FORMAT(/(3X,I5,3X,A8,3X,A8))
            SEGDES MLMOTS,MLREEL                                                
          ENDIF                                                                 
      ENDIF                                                                     
      SEGDES KEVOLL                                                             
   1  CONTINUE                                                                  
      SEGDES MEVOLL                                                             
      RETURN                                                                    
      END