Télécharger la plaquette Cast3M


fr en

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