C EVOL      SOURCE    CHAT      11/05/04    21:15:58     6964           
      SUBROUTINE EVOL                                                           
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C=======================================================================        
C                                                                               
C  OPERATEUR EVOL : EVOLUTION D'UN PARAMETRE EN FONCTION D'UN AUTRE             
C  IL EXISTE 6 OPTIONS(VOIR SYNTAXES DANS LES ROUTINES CORRESPONDANTES)         
C                                                                               
C     :---------------------:---------------------------:                       
C     :        OPTION       :      ROUTINE              :                       
C     :---------------------:---------------------------:                       
C     :      SOLU           :       EVSOLU              :                       
C     :      MANU           :       EVMANU              :                       
C     :      RECO           :       EVRECO              :                       
C     :      COMP           :       EVCOMP              :                       
C     :      CHPO           :       EVCHPO              : 
C     :      TEMP           :       EVTEMP              :                      
C     :---------------------:---------------------------:                       
C                                                                               
C  ECRIT PAR FARVACQUE LE 22/10/85                                              
C=======================================================================        
-INC CCOPTIO                                                                    
-INC CCGEOME                                                                    
      CHARACTER*4 MOOPT(6)                                                      
      DATA MOOPT/'SOLU','MANU','RECO','COMP','CHPO','TEMP'/                            
      DATA LMOOPT/6/                                                            
C                                                                               
      CALL LIRMOT(NCOUL,NBCOUL,ICOUL,0)                                         
      IF (ICOUL.EQ.0) ICOUL=IDCOUL+1
      ICOUL=ICOUL-1
C                                                                               
      CALL LIRMOT(MOOPT,LMOOPT,IVAL,1)                                          
      IF(IERR.NE.0) GOTO 5000                                                   
      GOTO(1,2,3,4,5,6),IVAL                                                      
  1   CALL EVSOLU(ICOUL)                                                        
      GOTO 5000                                                                 
C                                                                               
  2   CONTINUE                                                                  
      CALL EVMANU(ICOUL)                                                        
      GOTO 5000                                                                 
C                                                                               
  3   CONTINUE                                                                  
      CALL EVRECO(ICOUL)                                                        
      GOTO 5000                                                                 
C                                                                               
    4 CONTINUE                                                                  
      CALL EVCOMP(ICOUL)                                                        
      GOTO 5000                                                                 
C                                                                               
    5 CONTINUE                                                                  
      CALL EVCHPO(ICOUL)                                                        
      GOTO 5000 
    6 CONTINUE
      CALL EVTEMP(ICOUL)
      GO TO 5000                                                                
C                                                                               
 5000 CONTINUE                                                                  
      RETURN                                                                    
      END