C ELLP09    SOURCE    CHAT      05/01/12    23:35:07     5004           
        SUBROUTINE ELLP09(COMP,ICOMP,IERROR)                                    
C                                                                               
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8     (A-H,O-Y)                                           
        IMPLICIT COMPLEX*16 (Z)                                                 
C                                                                               
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
C                                                                               
C   OPERATEUR ELFE LAPLACE POUTRE                                               
C                                                                               
C   CONVERTION 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     MA --> 13                                                                 
C    J0X --> 14                                                                 
C    J0Y --> 15                                                                 
C    J0Z --> 16                                                                 
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   AUTEUR : SAINT-DIZIER                                                       
C   DATE   : 20 DECEMBRE 1989                                                   
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.'MA')  THEN                                            
          ICOMP = 13                                                            
        ELSE IF (COMP.EQ.'J0X')  THEN                                           
          ICOMP = 14                                                            
        ELSE IF (COMP.EQ.'J0Y')  THEN                                           
          ICOMP = 15                                                            
        ELSE IF (COMP.EQ.'J0Z')  THEN                                           
          ICOMP = 16                                                            
        ELSE                                                                    
          IERROR = 1                                                            
C                                                                               
      END IF                                                                    
C                                                                               
      END