Télécharger ella08.eso

Retour à la liste

Numérotation des lignes :

  1. C ELLA08 SOURCE CHAT 05/01/12 23:33:51 5004
  2. SUBROUTINE ELLA08(COMP,ICOMP,IERROR)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C
  6. C OPERATEUR ELFE LAPLACE ACOU
  7. C
  8. C CONVERTION TYPE DE DONNEES DE CARACTERISTIQUE EN RANG DANS CARACT
  9. C
  10. C YOUN --> 1
  11. C NU --> 2
  12. C RHO --> 3
  13. C RINT --> 4
  14. C REXT --> 5
  15. C KCYZ --> 6
  16. C CAM --> 7
  17. C ETA --> 8
  18. C RHOF --> 9
  19. C CSON --> 10
  20. C VECT --> 11
  21. C
  22. C PARAMETRES :
  23. C COMP : TYPE DE CARACTERISTIQUE (CHARACTER*8)
  24. C
  25. C SORTIES :
  26. C
  27. C ICOMP : ENTIER CALCULE SUIVANT LE CODE PRECEDENT
  28. C
  29. C IERROR : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS
  30. C OU AVEC UNE ERREUR
  31. C
  32. C
  33. C AUTEURS : SAINT-DIZIER ET GORCY
  34. C DATE : 24 JANVIER 1991
  35. C
  36. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  37. C
  38. C
  39. IMPLICIT INTEGER(I-N)
  40. INTEGER ICOMP,IERROR
  41. CHARACTER*8 COMP
  42. C
  43. ICOMP = 0
  44. IERROR = 0
  45. C
  46. IF (COMP.EQ.'YOUN') THEN
  47. ICOMP = 1
  48. ELSE IF (COMP.EQ.'NU') THEN
  49. ICOMP = 2
  50. ELSE IF (COMP.EQ.'RHO') THEN
  51. ICOMP = 3
  52. ELSE IF (COMP.EQ.'RINT') THEN
  53. ICOMP = 4
  54. ELSE IF (COMP.EQ.'REXT') THEN
  55. ICOMP = 5
  56. ELSE IF (COMP.EQ.'KCYZ') THEN
  57. ICOMP = 6
  58. ELSE IF (COMP.EQ.'CAM') THEN
  59. ICOMP = 7
  60. ELSE IF (COMP.EQ.'ETA') THEN
  61. ICOMP = 8
  62. ELSE IF (COMP.EQ.'RHOF') THEN
  63. ICOMP = 9
  64. ELSE IF (COMP.EQ.'CSON') THEN
  65. ICOMP = 10
  66. ELSE IF (COMP.EQ.'VECT') THEN
  67. ICOMP = 11
  68. ELSE
  69. IERROR = 1
  70. C
  71. END IF
  72. C
  73. END
  74.  
  75.  

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