Télécharger ella09.eso

Retour à la liste

Numérotation des lignes :

  1. C ELLA09 SOURCE CHAT 05/01/12 23:33:54 5004
  2.  
  3. SUBROUTINE ELLA09(COMP,ICOMP,IERROR)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6.  
  7. C
  8. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  9. C
  10. C OPERATEUR ELFE LAPLACE ACOU
  11. C
  12. C CONVERSION 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 P OU DP --> 13
  28. C Q OU DQ --> 14
  29. C A --> 15
  30. C B --> 16
  31. C R --> 17
  32. C MA --> 18
  33. C J0X --> 19
  34. C J0Y --> 20
  35. C J0Z --> 21
  36. C KX --> 22
  37. C KY --> 23
  38. C KZ --> 24
  39. C CX --> 25
  40. C CY --> 26
  41. C CZ --> 27
  42. C
  43. C PARAMETRES :
  44. C COMP : TYPE DE CONDITION AUX LIMITES (CHARACTER*4)
  45. C
  46. C SORTIES :
  47. C
  48. C ICOMP : ENTIER CALCULE SUIVANT LE CODE PRECEDENT
  49. C
  50. C IERROR : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS
  51. C OU AVEC UNE ERREUR
  52. C
  53. C
  54. C AUTEURS : SAINT-DIZIER ET GORCY
  55. C DATE : 24 JANVIER 1991
  56. C MISE A JOUR : 21 JUIN 1991
  57. C
  58. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  59. C
  60. CHARACTER*4 COMP
  61. C
  62. ICOMP = 0
  63. IERROR = 0
  64. C
  65. IF (COMP.EQ.'UX') THEN
  66. ICOMP = 1
  67. ELSE IF (COMP.EQ.'UY') THEN
  68. ICOMP = 2
  69. ELSE IF (COMP.EQ.'UZ') THEN
  70. ICOMP = 3
  71. ELSE IF (COMP.EQ.'RX') THEN
  72. ICOMP = 4
  73. ELSE IF (COMP.EQ.'RY') THEN
  74. ICOMP = 5
  75. ELSE IF (COMP.EQ.'RZ') THEN
  76. ICOMP = 6
  77. ELSE IF (COMP.EQ.'FX') THEN
  78. ICOMP = 7
  79. ELSE IF (COMP.EQ.'FY') THEN
  80. ICOMP = 8
  81. ELSE IF (COMP.EQ.'FZ') THEN
  82. ICOMP = 9
  83. ELSE IF (COMP.EQ.'MX') THEN
  84. ICOMP = 10
  85. ELSE IF (COMP.EQ.'MY') THEN
  86. ICOMP = 11
  87. ELSE IF (COMP.EQ.'MZ') THEN
  88. ICOMP = 12
  89. ELSE IF ((COMP.EQ.'P').OR.(COMP.EQ.'DP')) THEN
  90. ICOMP = 13
  91. ELSE IF ((COMP.EQ.'Q').OR.(COMP.EQ.'DQ')) THEN
  92. ICOMP = 14
  93. ELSE IF (COMP.EQ.'A') THEN
  94. ICOMP = 15
  95. ELSE IF (COMP.EQ.'B') THEN
  96. ICOMP = 16
  97. ELSE IF (COMP.EQ.'R') THEN
  98. ICOMP = 17
  99. ELSE IF (COMP.EQ.'MA') THEN
  100. ICOMP = 18
  101. ELSE IF (COMP.EQ.'J0X') THEN
  102. ICOMP = 19
  103. ELSE IF (COMP.EQ.'J0Y') THEN
  104. ICOMP = 20
  105. ELSE IF (COMP.EQ.'J0Z') THEN
  106. ICOMP = 21
  107. ELSE IF (COMP.EQ.'KX') THEN
  108. ICOMP = 22
  109. ELSE IF (COMP.EQ.'KY') THEN
  110. ICOMP = 23
  111. ELSE IF (COMP.EQ.'KZ') THEN
  112. ICOMP = 24
  113. ELSE IF (COMP.EQ.'CX') THEN
  114. ICOMP = 25
  115. ELSE IF (COMP.EQ.'CY') THEN
  116. ICOMP = 26
  117. ELSE IF (COMP.EQ.'CZ') THEN
  118. ICOMP = 27
  119. ELSE
  120. IERROR = 1
  121. C
  122. END IF
  123. C
  124. END
  125.  
  126.  

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