Télécharger la plaquette Cast3M


fr en

Télécharger ella09.eso

Retour à la liste

Numérotation des lignes : 

ella09

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

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