Télécharger la plaquette Cast3M


fr en

Télécharger ellp08.eso

Retour à la liste

Numérotation des lignes : 

ellp08

  1. C ELLP08    SOURCE    CB215821  20/11/04    21:16:36     10766          
  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*(LOCOMP))
  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.  
  44. -INC PPARAM
  45.         CHARACTER*(LOCOMP) COMP
  46. C
  47.         ICOMP = 0
  48.         IERROR = 0
  49. C
  50.         IF      (COMP.EQ.'YOUN')  THEN
  51.           ICOMP = 1
  52.         ELSE IF (COMP.EQ.'NU')  THEN
  53.           ICOMP = 2
  54.         ELSE IF (COMP.EQ.'RHO')  THEN
  55.           ICOMP = 3
  56.         ELSE IF (COMP.EQ.'SECT')  THEN
  57.           ICOMP = 4
  58.         ELSE IF (COMP.EQ.'TORS')  THEN
  59.           ICOMP = 5
  60.         ELSE IF (COMP.EQ.'VECT')  THEN
  61.           ICOMP = 6
  62.         ELSE IF (COMP.EQ.'INRY')  THEN
  63.           ICOMP = 7
  64.         ELSE IF (COMP.EQ.'INRZ')  THEN
  65.           ICOMP = 8
  66.         ELSE IF (COMP.EQ.'SECY')  THEN
  67.           ICOMP = 9
  68.         ELSE IF (COMP.EQ.'SECZ')  THEN
  69.           ICOMP = 10
  70.         ELSE IF (COMP.EQ.'CAM')  THEN
  71.           ICOMP = 11
  72.         ELSE IF (COMP.EQ.'ETA')  THEN
  73.           ICOMP = 12
  74.         ELSE
  75.           IERROR = 1
  76. C
  77.       END IF
  78. C
  79.       END
  80.  
  81.  
  82.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales