Télécharger la plaquette Cast3M


fr en

Télécharger ella08.eso

Retour à la liste

Numérotation des lignes : 

ella08

  1. C ELLA08    SOURCE    CB215821  20/11/04    21:16:32     10766          
  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*(LOCOMP))
  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. -INC PPARAM
  42.       CHARACTER*(LOCOMP) COMP
  43. C
  44.       ICOMP = 0
  45.       IERROR = 0
  46. C
  47.       IF      (COMP.EQ.'YOUN')  THEN
  48.           ICOMP = 1
  49.       ELSE IF (COMP.EQ.'NU')  THEN
  50.           ICOMP = 2
  51.       ELSE IF (COMP.EQ.'RHO')  THEN
  52.           ICOMP = 3
  53.       ELSE IF (COMP.EQ.'RINT')  THEN
  54.           ICOMP = 4
  55.       ELSE IF (COMP.EQ.'REXT')  THEN
  56.           ICOMP = 5
  57.       ELSE IF (COMP.EQ.'KCYZ')  THEN
  58.           ICOMP = 6
  59.       ELSE IF (COMP.EQ.'CAM')  THEN
  60.           ICOMP = 7
  61.       ELSE IF (COMP.EQ.'ETA')  THEN
  62.           ICOMP = 8
  63.       ELSE IF (COMP.EQ.'RHOF')  THEN
  64.           ICOMP = 9
  65.       ELSE IF (COMP.EQ.'CSON')  THEN
  66.           ICOMP = 10
  67.       ELSE IF (COMP.EQ.'VECT')  THEN
  68.           ICOMP = 11
  69.       ELSE
  70.           IERROR = 1
  71. C
  72.       END IF
  73. C
  74.       END
  75.  
  76.  
  77.  

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