Télécharger medper.eso

Retour à la liste

Numérotation des lignes :

medper
  1. C MEDPER SOURCE OF166741 23/02/15 21:15:07 11416
  2.  
  3. INTEGER FUNCTION MEDPER (itypel)
  4.  
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. IMPLICIT INTEGER(I-N)
  7.  
  8. C MEDPER = ipo indique la position (+1) dans le tableau iper (CCMED.INC)
  9. C MEDPER = -1 si pas de permutation pour le type d'element demande
  10.  
  11. IF (itypel.EQ. 6) THEN
  12. C Cas des TRI6
  13. ipo = 0
  14. ELSE IF (itypel.EQ.10) THEN
  15. C Cas des QUA8
  16. ipo = 5
  17. ELSE IF (itypel.EQ.15) THEN
  18. C Cas des CU20
  19. ipo = 12
  20. ELSE IF (itypel.EQ.17) THEN
  21. C Cas des PR15
  22. ipo = 31
  23. ELSE IF (itypel.EQ.24) THEN
  24. C Cas des TE10
  25. ipo = 45
  26. ELSE IF (itypel.EQ. 7) THEN
  27. C Cas des TRI7
  28. ipo = 54
  29. ELSE IF (itypel.EQ.11) THEN
  30. C Cas des QUA9
  31. ipo = 60
  32. ELSE IF (itypel.EQ.26) THEN
  33. C Cas des PY13
  34. ipo = 68
  35. ELSE IF (itypel.EQ. 3) THEN
  36. C Cas des SEG3
  37. ipo = 80
  38. ELSE
  39. C Pas de permutation pour les elements non listes au-dessus
  40. ipo = -1
  41. ENDIF
  42.  
  43. MEDPER = ipo
  44.  
  45. c RETURN
  46. END
  47.  
  48.  
  49.  

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