Esope source files

   1 : C CHRCHA    SOURCE    CHAT      05/01/12    22:01:43     5004           
   2 :       SUBROUTINE CHRCHA(MOT,ITYP,IRET,ISOLIT)                                   
   3 : C====================================================================           
   4 : C     SUBROUTINE FORTRAN POUR CHERCHER DANS LE MSOLUT DE TYPE ITYP              
   5 : C     LE RANG IRET DES CHAMPS DE TYPE MOT.                                      
   6 : C     ECRIT PAR FARVACQUE 16/10/85                                              
   7 : C     IS....= 2 : CHPOINT   |                                                   
   8 : C     IS....= 5 : MCHELM    |   POUR MSOLIT(IRET). VOIR LE SOUS PROG.           
   9 : C     IS....= 14: MJONCT    |   TYPFIL QUI MET EN CORRSPONDANCE LE TYPE         
  10 : C                               ET LE NUMERO                                    
  11 : C======================================================================         
  12 :       IMPLICIT INTEGER(I-N)
  13 :       CHARACTER*4 MOT                                                           
  14 :       CHARACTER*8 ITYP                                                          
  15 :       CHARACTER*4 IDYNA(9),IMODE(5),ISOLS(6),IGREEN(1)                          
  16 :       DIMENSION ISDYNA(9),ISMODE(5),ISSOLS(6),ISGREE(1)                         
  17 :       DATA LDYNA/9/,LMODE/5/,LSOLS/6/,LGREE/1/                                  
  18 :       DATA IMODE/'DEPL','CONT','VMIS','VITE','ACCE'/                            
  19 :       DATA ISMODE/2,5,5,2,2/                                                    
  20 :       DATA ISOLS/'DEPL','CONT','VMIS','VITE','ACCE','JONC'/                     
  21 :       DATA ISSOLS/2,5,5,2,2,14/                                                 
  22 : C                                                                               
  23 : C  2 MOTS SONT BLANCS DS IDYNA CORRESPONDANT AUX MSOLIS(11 & 12) RESERVE        
  24 : C  PAR ALGOGD . DEVO UTILSE MSOLIS(13)                                          
  25 : C                                                                               
  26 :       DATA IDYNA/'DEPL','CONT','VMIS','VITE','ACCE','LIAI','    ',              
  27 :      &           '    ','USUR'/                                                 
  28 :       DATA ISDYNA/2,5,5,2,2,2,0,0,2/                                            
  29 :       DATA IGREEN/'GREE'/                                                       
  30 :       DATA ISGREE/2/                                                            
  31 : C                                                                               
  32 :       IRET=0                                                                    
  33 :       ISOLIT=0                                                                  
  34 :       IF(ITYP.NE.'MODE    ') GOTO 100                                           
  34 :       CALL CHRMOT(IMODE,LMODE,MOT,IRET)                                         
  35 :       IF(IRET.NE.0) THEN                                                        
  36 :         ISOLIT=ISMODE(IRET)                                                     
  37 :         IRET=IRET+4                                                             
  38 :       ENDIF                                                                     
  39 :       GOTO 5000                                                                 
  40 :   100 CONTINUE                                                                  
  41 :       IF(ITYP.NE.'SOLUSTAT'.AND.ITYP.NE.'PSEUMODE') GOTO 101                    
  41 :       CALL CHRMOT(ISOLS,LSOLS,MOT,IRET)                                         
  42 :       IF(IRET.NE.0) THEN                                                        
  43 :         ISOLIT=ISSOLS(IRET)                                                     
  44 :         IRET=IRET+4                                                             
  45 :       ENDIF                                                                     
  46 :       GOTO 5000                                                                 
  47 :   101 CONTINUE                                                                  
  48 :       IF(ITYP.NE.'DYNAMIQU')GOTO 102                                            
  48 :       CALL CHRMOT(IDYNA,LDYNA,MOT,IRET)                                         
  49 :       IF(IRET.NE.0) THEN                                                        
  50 :         ISOLIT=ISDYNA(IRET)                                                     
  51 :         IRET=IRET+4                                                             
  52 :       ENDIF                                                                     
  53 :       GOTO 5000                                                                 
  54 :   102 CONTINUE                                                                  
  55 :       IF(ITYP.NE.'FONCGREE')GOTO 103                                            
  55 :       CALL CHRMOT(IGREEN,LGREE,MOT,IRET)                                        
  56 :       IF(IRET.NE.0) THEN                                                        
  57 :         ISOLIT=ISGREE(IRET)                                                     
  58 :         IRET=IRET+4                                                             
  59 :       ENDIF                                                                     
  60 :       GOTO 5000                                                                 
  61 :   103 CONTINUE                                                                  
  62 :  5000 CONTINUE                                                                  
  63 :       RETURN                                                                    
  64 :       END                                                                       
  65 :