Esope source files

   1 : C EVOL      SOURCE    CHAT      11/05/04    21:15:58     6964           
   2 :       SUBROUTINE EVOL                                                           
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C=======================================================================        
   6 : C                                                                               
   7 : C  OPERATEUR EVOL : EVOLUTION D'UN PARAMETRE EN FONCTION D'UN AUTRE             
   8 : C  IL EXISTE 6 OPTIONS(VOIR SYNTAXES DANS LES ROUTINES CORRESPONDANTES)         
   9 : C                                                                               
  10 : C     :---------------------:---------------------------:                       
  11 : C     :        OPTION       :      ROUTINE              :                       
  12 : C     :---------------------:---------------------------:                       
  13 : C     :      SOLU           :       EVSOLU              :                       
  14 : C     :      MANU           :       EVMANU              :                       
  15 : C     :      RECO           :       EVRECO              :                       
  16 : C     :      COMP           :       EVCOMP              :                       
  17 : C     :      CHPO           :       EVCHPO              : 
  18 : C     :      TEMP           :       EVTEMP              :                      
  19 : C     :---------------------:---------------------------:                       
  20 : C                                                                               
  21 : C  ECRIT PAR FARVACQUE LE 22/10/85                                              
  22 : C=======================================================================        
  23 : -INC CCOPTIO                                                                    
  24 : -INC CCGEOME                                                                    
  25 :       CHARACTER*4 MOOPT(6)                                                      
  26 :       DATA MOOPT/'SOLU','MANU','RECO','COMP','CHPO','TEMP'/                            
  27 :       DATA LMOOPT/6/                                                            
  28 : C                                                                               
  28 :       CALL LIRMOT(NCOUL,NBCOUL,ICOUL,0)                                         
  29 :       IF (ICOUL.EQ.0) ICOUL=IDCOUL+1
  30 :       ICOUL=ICOUL-1
  31 : C                                                                               
  31 :       CALL LIRMOT(MOOPT,LMOOPT,IVAL,1)                                          
  32 :       IF(IERR.NE.0) GOTO 5000                                                   
  33 :       GOTO(1,2,3,4,5,6),IVAL                                                      
  33 :   1   CALL EVSOLU(ICOUL)                                                        
  34 :       GOTO 5000                                                                 
  35 : C                                                                               
  36 :   2   CONTINUE                                                                  
  36 :       CALL EVMANU(ICOUL)                                                        
  37 :       GOTO 5000                                                                 
  38 : C                                                                               
  39 :   3   CONTINUE                                                                  
  39 :       CALL EVRECO(ICOUL)                                                        
  40 :       GOTO 5000                                                                 
  41 : C                                                                               
  42 :     4 CONTINUE                                                                  
  42 :       CALL EVCOMP(ICOUL)                                                        
  43 :       GOTO 5000                                                                 
  44 : C                                                                               
  45 :     5 CONTINUE                                                                  
  45 :       CALL EVCHPO(ICOUL)                                                        
  46 :       GOTO 5000 
  47 :     6 CONTINUE
  47 :       CALL EVTEMP(ICOUL)
  48 :       GO TO 5000                                                                
  49 : C                                                                               
  50 :  5000 CONTINUE                                                                  
  51 :       RETURN                                                                    
  52 :       END                                                                       
  53 :  
  54 :  
  55 :  
  56 :  
  57 :  
  58 :  
  59 :  
  60 :  
  61 :