Télécharger ellp08.eso

Retour à la liste

Numérotation des lignes :

  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.  
  79.  

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