Télécharger la plaquette Cast3M


fr en

Télécharger ellp09.eso

Retour à la liste

Numérotation des lignes : 

ellp09

  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