Esope source files

   1 : C ELLA08    SOURCE    CHAT      05/01/12    23:33:51     5004           
   2 :       SUBROUTINE ELLA08(COMP,ICOMP,IERROR)                                      
   3 : C                                                                               
   4 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC        
   5 : C                                                                               
   6 : C   OPERATEUR ELFE LAPLACE ACOU                                                 
   7 : C                                                                               
   8 : C   CONVERTION TYPE DE DONNEES DE CARACTERISTIQUE EN RANG DANS CARACT           
   9 : C                                                                               
  10 : C     YOUN --> 1                                                                
  11 : C     NU   --> 2                                                                
  12 : C     RHO  --> 3                                                                
  13 : C     RINT --> 4                                                                
  14 : C     REXT --> 5                                                                
  15 : C     KCYZ --> 6                                                                
  16 : C     CAM  --> 7                                                                
  17 : C     ETA  --> 8                                                                
  18 : C     RHOF --> 9                                                                
  19 : C     CSON --> 10                                                               
  20 : C     VECT --> 11                                                               
  21 : C                                                                               
  22 : C   PARAMETRES :                                                                
  23 : C   COMP    : TYPE DE CARACTERISTIQUE (CHARACTER*8)                             
  24 : C                                                                               
  25 : C   SORTIES :                                                                   
  26 : C                                                                               
  27 : C   ICOMP   : ENTIER CALCULE SUIVANT LE CODE PRECEDENT                          
  28 : C                                                                               
  29 : C   IERROR  : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS            
  30 : C             OU AVEC UNE ERREUR                                                
  31 : C                                                                               
  32 : C                                                                               
  33 : C   AUTEURS : SAINT-DIZIER ET GORCY                                             
  34 : C   DATE    : 24 JANVIER 1991                                                   
  35 : C                                                                               
  36 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC            
  37 : C                                                                               
  38 : C                                                                               
  39 :       IMPLICIT INTEGER(I-N)
  40 :       INTEGER ICOMP,IERROR                                                      
  41 :       CHARACTER*8 COMP                                                          
  42 : C                                                                               
  43 :       ICOMP = 0                                                                 
  44 :       IERROR = 0                                                                
  45 : C                                                                               
  46 :       IF      (COMP.EQ.'YOUN')  THEN                                            
  47 :           ICOMP = 1                                                             
  48 :       ELSE IF (COMP.EQ.'NU')  THEN                                              
  49 :           ICOMP = 2                                                             
  50 :       ELSE IF (COMP.EQ.'RHO')  THEN                                             
  51 :           ICOMP = 3                                                             
  52 :       ELSE IF (COMP.EQ.'RINT')  THEN                                            
  53 :           ICOMP = 4                                                             
  54 :       ELSE IF (COMP.EQ.'REXT')  THEN                                            
  55 :           ICOMP = 5                                                             
  56 :       ELSE IF (COMP.EQ.'KCYZ')  THEN                                            
  57 :           ICOMP = 6                                                             
  58 :       ELSE IF (COMP.EQ.'CAM')  THEN                                             
  59 :           ICOMP = 7                                                             
  60 :       ELSE IF (COMP.EQ.'ETA')  THEN                                             
  61 :           ICOMP = 8                                                             
  62 :       ELSE IF (COMP.EQ.'RHOF')  THEN                                            
  63 :           ICOMP = 9                                                             
  64 :       ELSE IF (COMP.EQ.'CSON')  THEN                                            
  65 :           ICOMP = 10                                                            
  66 :       ELSE IF (COMP.EQ.'VECT')  THEN                                            
  67 :           ICOMP = 11                                                            
  68 :       ELSE                                                                      
  69 :           IERROR = 1                                                            
  70 : C                                                                               
  71 :       END IF                                                                    
  72 : C                                                                               
  73 :       END                                                                       
  74 :