Télécharger ellp09.eso

Retour à la liste

Numérotation des lignes :

  1. C ELLP09 SOURCE CHAT 05/01/12 23:35:07 5004
  2. SUBROUTINE ELLP09(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 DES CONDITIONS AUX LIMITES TYPE CHARACTERE EN ENTIER
  13. C SUIVANT LE CODE SUIVANT :
  14. C
  15. C UX --> 1
  16. C UY --> 2
  17. C UZ --> 3
  18. C RX --> 4
  19. C RY --> 5
  20. C RZ --> 6
  21. C FX --> 7
  22. C FY --> 8
  23. C FZ --> 9
  24. C MX --> 10
  25. C MY --> 11
  26. C MZ --> 12
  27. C MA --> 13
  28. C J0X --> 14
  29. C J0Y --> 15
  30. C J0Z --> 16
  31. C
  32. C PARAMETRES :
  33. C COMP : TYPE DE CONDITION AUX LIMITES (CHARACTER*4)
  34. C
  35. C SORTIES :
  36. C
  37. C ICOMP : ENTIER CALCULE SUIVANT LE CODE PRECEDENT
  38. C
  39. C IERROR : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS
  40. C OU AVEC UNE ERREUR
  41. C
  42. C
  43. C AUTEUR : SAINT-DIZIER
  44. C DATE : 20 DECEMBRE 1989
  45. C
  46. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  47. C
  48. CHARACTER*4 COMP
  49. C
  50. ICOMP = 0
  51. IERROR = 0
  52. C
  53. IF (COMP.EQ.'UX') THEN
  54. ICOMP = 1
  55. ELSE IF (COMP.EQ.'UY') THEN
  56. ICOMP = 2
  57. ELSE IF (COMP.EQ.'UZ') THEN
  58. ICOMP = 3
  59. ELSE IF (COMP.EQ.'RX') THEN
  60. ICOMP = 4
  61. ELSE IF (COMP.EQ.'RY') THEN
  62. ICOMP = 5
  63. ELSE IF (COMP.EQ.'RZ') THEN
  64. ICOMP = 6
  65. ELSE IF (COMP.EQ.'FX') THEN
  66. ICOMP = 7
  67. ELSE IF (COMP.EQ.'FY') THEN
  68. ICOMP = 8
  69. ELSE IF (COMP.EQ.'FZ') THEN
  70. ICOMP = 9
  71. ELSE IF (COMP.EQ.'MX') THEN
  72. ICOMP = 10
  73. ELSE IF (COMP.EQ.'MY') THEN
  74. ICOMP = 11
  75. ELSE IF (COMP.EQ.'MZ') THEN
  76. ICOMP = 12
  77. ELSE IF (COMP.EQ.'MA') THEN
  78. ICOMP = 13
  79. ELSE IF (COMP.EQ.'J0X') THEN
  80. ICOMP = 14
  81. ELSE IF (COMP.EQ.'J0Y') THEN
  82. ICOMP = 15
  83. ELSE IF (COMP.EQ.'J0Z') THEN
  84. ICOMP = 16
  85. ELSE
  86. IERROR = 1
  87. C
  88. END IF
  89. C
  90. END
  91.  
  92.  

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