Esope source files

   1 : C ELLP09    SOURCE    CHAT      05/01/12    23:35:07     5004           
   2 :         SUBROUTINE ELLP09(COMP,ICOMP,IERROR)                                    
   3 : C                                                                               
   4 :       IMPLICIT INTEGER(I-N)
   5 :         IMPLICIT REAL*8     (A-H,O-Y)                                           
   6 :         IMPLICIT COMPLEX*16 (Z)                                                 
   7 : C                                                                               
   8 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
   9 : C                                                                               
  10 : C   OPERATEUR ELFE LAPLACE POUTRE                                               
  11 : C                                                                               
  12 : C   CONVERTION DES CONDITIONS AUX LIMITES TYPE CHARACTERE EN ENTIER             
  13 : C   SUIVANT LE CODE SUIVANT :                                                   
  14 : C                                                                               
  15 : C     UX --> 1                                                                  
  16 : C     UY --> 2                                                                  
  17 : C     UZ --> 3                                                                  
  18 : C     RX --> 4                                                                  
  19 : C     RY --> 5                                                                  
  20 : C     RZ --> 6                                                                  
  21 : C     FX --> 7                                                                  
  22 : C     FY --> 8                                                                  
  23 : C     FZ --> 9                                                                  
  24 : C     MX --> 10                                                                 
  25 : C     MY --> 11                                                                 
  26 : C     MZ --> 12                                                                 
  27 : C     MA --> 13                                                                 
  28 : C    J0X --> 14                                                                 
  29 : C    J0Y --> 15                                                                 
  30 : C    J0Z --> 16                                                                 
  31 : C                                                                               
  32 : C   PARAMETRES :                                                                
  33 : C   COMP    : TYPE DE CONDITION AUX LIMITES (CHARACTER*4)                       
  34 : C                                                                               
  35 : C   SORTIES :                                                                   
  36 : C                                                                               
  37 : C   ICOMP   : ENTIER CALCULE SUIVANT LE CODE PRECEDENT                          
  38 : C                                                                               
  39 : C   IERROR  : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS            
  40 : C             OU AVEC UNE ERREUR                                                
  41 : C                                                                               
  42 : C                                                                               
  43 : C   AUTEUR : SAINT-DIZIER                                                       
  44 : C   DATE   : 20 DECEMBRE 1989                                                   
  45 : C                                                                               
  46 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
  47 : C                                                                               
  48 :         CHARACTER*4 COMP                                                        
  49 : C                                                                               
  50 :         ICOMP = 0                                                               
  51 :         IERROR = 0                                                              
  52 : C                                                                               
  53 :         IF      (COMP.EQ.'UX')  THEN                                            
  54 :           ICOMP = 1                                                             
  55 :         ELSE IF (COMP.EQ.'UY')  THEN                                            
  56 :           ICOMP = 2                                                             
  57 :         ELSE IF (COMP.EQ.'UZ')  THEN                                            
  58 :           ICOMP = 3                                                             
  59 :         ELSE IF (COMP.EQ.'RX')  THEN                                            
  60 :           ICOMP = 4                                                             
  61 :         ELSE IF (COMP.EQ.'RY')  THEN                                            
  62 :           ICOMP = 5                                                             
  63 :         ELSE IF (COMP.EQ.'RZ')  THEN                                            
  64 :           ICOMP = 6                                                             
  65 :         ELSE IF (COMP.EQ.'FX')  THEN                                            
  66 :           ICOMP = 7                                                             
  67 :         ELSE IF (COMP.EQ.'FY')  THEN                                            
  68 :           ICOMP = 8                                                             
  69 :         ELSE IF (COMP.EQ.'FZ')  THEN                                            
  70 :           ICOMP = 9                                                             
  71 :         ELSE IF (COMP.EQ.'MX')  THEN                                            
  72 :           ICOMP = 10                                                            
  73 :         ELSE IF (COMP.EQ.'MY')  THEN                                            
  74 :           ICOMP = 11                                                            
  75 :         ELSE IF (COMP.EQ.'MZ')  THEN                                            
  76 :           ICOMP = 12                                                            
  77 :         ELSE IF (COMP.EQ.'MA')  THEN                                            
  78 :           ICOMP = 13                                                            
  79 :         ELSE IF (COMP.EQ.'J0X')  THEN                                           
  80 :           ICOMP = 14                                                            
  81 :         ELSE IF (COMP.EQ.'J0Y')  THEN                                           
  82 :           ICOMP = 15                                                            
  83 :         ELSE IF (COMP.EQ.'J0Z')  THEN                                           
  84 :           ICOMP = 16                                                            
  85 :         ELSE                                                                    
  86 :           IERROR = 1                                                            
  87 : C                                                                               
  88 :       END IF                                                                    
  89 : C                                                                               
  90 :       END                                                                       
  91 :