Esope source files

   1 : C ELLP08    SOURCE    CHAT      05/01/12    23:35:03     5004           
   2 :         SUBROUTINE ELLP08(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 TYPE DE DONNEES DE CARACTERISTIQUE EN RANG DANS CARACT           
  13 : C                                                                               
  14 : C     YOUN --> 1                                                                
  15 : C     NU   --> 2                                                                
  16 : C     RHO  --> 3                                                                
  17 : C     SECT --> 4                                                                
  18 : C     TORS --> 5                                                                
  19 : C     VECT --> 6                                                                
  20 : C     INRY --> 7                                                                
  21 : C     INRZ --> 8                                                                
  22 : C     SECY --> 9                                                                
  23 : C     SECZ --> 10                                                               
  24 : C     CAM  --> 11                                                               
  25 : C     ETA  --> 12                                                               
  26 : C                                                                               
  27 : C   PARAMETRES :                                                                
  28 : C   COMP    : TYPE DE CARACTERISTIQUE (CHARACTER*8)                             
  29 : C                                                                               
  30 : C   SORTIES :                                                                   
  31 : C                                                                               
  32 : C   ICOMP   : ENTIER CALCULE SUIVANT LE CODE PRECEDENT                          
  33 : C                                                                               
  34 : C   IERROR  : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS            
  35 : C             OU AVEC UNE ERREUR                                                
  36 : C                                                                               
  37 : C                                                                               
  38 : C   AUTEUR : SAINT-DIZIER                                                       
  39 : C   DATE   : 16 JUILLET 1990                                                    
  40 : C                                                                               
  41 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
  42 : C                                                                               
  43 :         CHARACTER*8 COMP                                                        
  44 : C                                                                               
  45 :         ICOMP = 0                                                               
  46 :         IERROR = 0                                                              
  47 : C                                                                               
  48 :         IF      (COMP.EQ.'YOUN')  THEN                                          
  49 :           ICOMP = 1                                                             
  50 :         ELSE IF (COMP.EQ.'NU')  THEN                                            
  51 :           ICOMP = 2                                                             
  52 :         ELSE IF (COMP.EQ.'RHO')  THEN                                           
  53 :           ICOMP = 3                                                             
  54 :         ELSE IF (COMP.EQ.'SECT')  THEN                                          
  55 :           ICOMP = 4                                                             
  56 :         ELSE IF (COMP.EQ.'TORS')  THEN                                          
  57 :           ICOMP = 5                                                             
  58 :         ELSE IF (COMP.EQ.'VECT')  THEN                                          
  59 :           ICOMP = 6                                                             
  60 :         ELSE IF (COMP.EQ.'INRY')  THEN                                          
  61 :           ICOMP = 7                                                             
  62 :         ELSE IF (COMP.EQ.'INRZ')  THEN                                          
  63 :           ICOMP = 8                                                             
  64 :         ELSE IF (COMP.EQ.'SECY')  THEN                                          
  65 :           ICOMP = 9                                                             
  66 :         ELSE IF (COMP.EQ.'SECZ')  THEN                                          
  67 :           ICOMP = 10                                                            
  68 :         ELSE IF (COMP.EQ.'CAM')  THEN                                           
  69 :           ICOMP = 11                                                            
  70 :         ELSE IF (COMP.EQ.'ETA')  THEN                                           
  71 :           ICOMP = 12                                                            
  72 :         ELSE                                                                    
  73 :           IERROR = 1                                                            
  74 : C                                                                               
  75 :       END IF                                                                    
  76 : C                                                                               
  77 :       END                                                                       
  78 :