C ELLP08 SOURCE CB215821 20/11/04 21:16:36 10766 SUBROUTINE ELLP08(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 TYPE DE DONNEES DE CARACTERISTIQUE EN RANG DANS CARACT C C YOUN --> 1 C NU --> 2 C RHO --> 3 C SECT --> 4 C TORS --> 5 C VECT --> 6 C INRY --> 7 C INRZ --> 8 C SECY --> 9 C SECZ --> 10 C CAM --> 11 C ETA --> 12 C C PARAMETRES : C COMP : TYPE DE CARACTERISTIQUE (CHARACTER*(LOCOMP)) 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 : 16 JUILLET 1990 C C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C -INC PPARAM CHARACTER*(LOCOMP) COMP C ICOMP = 0 IERROR = 0 C IF (COMP.EQ.'YOUN') THEN ICOMP = 1 ELSE IF (COMP.EQ.'NU') THEN ICOMP = 2 ELSE IF (COMP.EQ.'RHO') THEN ICOMP = 3 ELSE IF (COMP.EQ.'SECT') THEN ICOMP = 4 ELSE IF (COMP.EQ.'TORS') THEN ICOMP = 5 ELSE IF (COMP.EQ.'VECT') THEN ICOMP = 6 ELSE IF (COMP.EQ.'INRY') THEN ICOMP = 7 ELSE IF (COMP.EQ.'INRZ') THEN ICOMP = 8 ELSE IF (COMP.EQ.'SECY') THEN ICOMP = 9 ELSE IF (COMP.EQ.'SECZ') THEN ICOMP = 10 ELSE IF (COMP.EQ.'CAM') THEN ICOMP = 11 ELSE IF (COMP.EQ.'ETA') THEN ICOMP = 12 ELSE IERROR = 1 C END IF C END