C ELLA09    SOURCE    CHAT      05/01/12    23:33:54     5004           
                                                                                
        SUBROUTINE ELLA09(COMP,ICOMP,IERROR)                                    
C                                                                               
      IMPLICIT INTEGER(I-N)
                                                                                
C                                                                               
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
C                                                                               
C   OPERATEUR ELFE LAPLACE ACOU                                                 
C                                                                               
C   CONVERSION DES CONDITIONS AUX LIMITES TYPE CHARACTERE EN ENTIER             
C   SUIVANT LE CODE SUIVANT :                                                   
C                                                                               
C     UX --> 1                                                                  
C     UY --> 2                                                                  
C     UZ --> 3                                                                  
C     RX --> 4                                                                  
C     RY --> 5                                                                  
C     RZ --> 6                                                                  
C     FX --> 7                                                                  
C     FY --> 8                                                                  
C     FZ --> 9                                                                  
C     MX --> 10                                                                 
C     MY --> 11                                                                 
C     MZ --> 12                                                                 
C     P OU DP --> 13                                                            
C     Q OU DQ --> 14                                                            
C      A --> 15                                                                 
C      B --> 16                                                                 
C      R --> 17                                                                 
C     MA --> 18                                                                 
C    J0X --> 19                                                                 
C    J0Y --> 20                                                                 
C    J0Z --> 21                                                                 
C    KX  --> 22                                                                 
C    KY  --> 23                                                                 
C    KZ  --> 24                                                                 
C    CX  --> 25                                                                 
C    CY  --> 26                                                                 
C    CZ  --> 27                                                                 
C                                                                               
C   PARAMETRES :                                                                
C   COMP    : TYPE DE CONDITION AUX LIMITES (CHARACTER*4)                       
C                                                                               
C   SORTIES :                                                                   
C                                                                               
C   ICOMP   : ENTIER CALCULE SUIVANT LE CODE PRECEDENT                          
C                                                                               
C   IERROR  : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS            
C             OU AVEC UNE ERREUR                                                
C                                                                               
C                                                                               
C   AUTEURS : SAINT-DIZIER ET GORCY                                             
C   DATE    : 24 JANVIER 1991                                                   
C   MISE A JOUR : 21 JUIN 1991                                                  
C                                                                               
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
C                                                                               
        CHARACTER*4 COMP                                                        
C                                                                               
        ICOMP = 0                                                               
        IERROR = 0                                                              
C                                                                               
        IF      (COMP.EQ.'UX')  THEN                                            
          ICOMP = 1                                                             
        ELSE IF (COMP.EQ.'UY')  THEN                                            
          ICOMP = 2                                                             
        ELSE IF (COMP.EQ.'UZ')  THEN                                            
          ICOMP = 3                                                             
        ELSE IF (COMP.EQ.'RX')  THEN                                            
          ICOMP = 4                                                             
        ELSE IF (COMP.EQ.'RY')  THEN                                            
          ICOMP = 5                                                             
        ELSE IF (COMP.EQ.'RZ')  THEN                                            
          ICOMP = 6                                                             
        ELSE IF (COMP.EQ.'FX')  THEN                                            
          ICOMP = 7                                                             
        ELSE IF (COMP.EQ.'FY')  THEN                                            
          ICOMP = 8                                                             
        ELSE IF (COMP.EQ.'FZ')  THEN                                            
          ICOMP = 9                                                             
        ELSE IF (COMP.EQ.'MX')  THEN                                            
          ICOMP = 10                                                            
        ELSE IF (COMP.EQ.'MY')  THEN                                            
          ICOMP = 11                                                            
        ELSE IF (COMP.EQ.'MZ')  THEN                                            
          ICOMP = 12                                                            
        ELSE IF ((COMP.EQ.'P').OR.(COMP.EQ.'DP'))  THEN                         
          ICOMP = 13                                                            
        ELSE IF ((COMP.EQ.'Q').OR.(COMP.EQ.'DQ'))  THEN                         
          ICOMP = 14                                                            
        ELSE IF (COMP.EQ.'A')  THEN                                             
          ICOMP = 15                                                            
        ELSE IF (COMP.EQ.'B')  THEN                                             
          ICOMP = 16                                                            
        ELSE IF (COMP.EQ.'R')  THEN                                             
          ICOMP = 17                                                            
        ELSE IF (COMP.EQ.'MA')  THEN                                            
          ICOMP = 18                                                            
        ELSE IF (COMP.EQ.'J0X')  THEN                                           
          ICOMP = 19                                                            
        ELSE IF (COMP.EQ.'J0Y')  THEN                                           
          ICOMP = 20                                                            
        ELSE IF (COMP.EQ.'J0Z')  THEN                                           
          ICOMP = 21                                                            
        ELSE IF (COMP.EQ.'KX')  THEN                                            
          ICOMP = 22                                                            
        ELSE IF (COMP.EQ.'KY')  THEN                                            
          ICOMP = 23                                                            
        ELSE IF (COMP.EQ.'KZ')  THEN                                            
          ICOMP = 24                                                            
        ELSE IF (COMP.EQ.'CX')  THEN                                            
          ICOMP = 25                                                            
        ELSE IF (COMP.EQ.'CY')  THEN                                            
          ICOMP = 26                                                            
        ELSE IF (COMP.EQ.'CZ')  THEN                                            
          ICOMP = 27                                                            
        ELSE                                                                    
          IERROR = 1                                                            
C                                                                               
      END IF                                                                    
C                                                                               
      END