Télécharger la plaquette Cast3M


fr en

Télécharger sttype.eso

Retour à la liste

Numérotation des lignes : 

sttype

  1. C STTYPE    SOURCE    CHAT      06/03/29    21:35:04     5360
  2. C
  3. C
  4.       SUBROUTINE STTYPE(IDE,NBNE,NBCE,ISENS,ITYPE,iarr)
  5. C     *****************************************************************
  6. C     OBJET STTYPE : RENVOI DES INFO SUR UN TYPE D'ELEMENT
  7. C
  8. C     SI ISENS = 1
  9. C       EN ENTREE :
  10. C          IDE    :
  11. C          NBNE   :
  12. C       EN SORTIE :
  13. C          NBCE   :
  14. C          ITYPE  :
  15. C     SI ISENS = -1
  16. C       EN ENTREE :
  17. C          ITYPE  :
  18. C       EN SORTIE :
  19. C          IDE    :
  20. C          NBNE   :
  21. C          NBCE   :
  22. C     CONVENTION  :
  23. C           TYPE  : 1 SOMMET
  24. C                   2 SEGMENT
  25. C                   3 TRIANGLE
  26. C                   4 QUADRANGLE
  27. C                   5 TETRAEDRE
  28. C                   6 PRISME
  29. C                   7 PYRAMIDE
  30. C                   8 HEXAEDRE
  31. C     *****************************************************************
  32.       IMPLICIT INTEGER(I-N)
  33.       INTEGER IDE,NBNE,NBCE,ISENS,ITYPE,iarr
  34. C
  35.        INTEGER   NBTYP
  36.        PARAMETER (NBTYP = 8)
  37.        INTEGER   STNBNE(NBTYP),STNBCE(NBTYP),STIDE(NBTYP)
  38.        DATA  STNBNE /1,2,3,4,4,6,5,8 /
  39.        DATA  STNBCE /0,2,3,4,4,5,5,6 /
  40.        DATA  STIDE  /0,1,2,2,3,3,3,3 /
  41. C
  42.        IF(ISENS.EQ.1)THEN
  43. C
  44.       GOTO( 12,13,14 ) IDE
  45.       IF(IDE.EQ.0)THEN
  46.         ITYPE = 1
  47.         NBCE  = 0
  48.       ELSE
  49.         iarr = -1
  50.         GOTO 9999
  51.       ENDIF
  52. C
  53. C       --- CAS 1D ---
  54.    12   NBCE = 2
  55.         IF(NBNE.EQ.2)ITYPE = 2
  56.         GOTO 9999
  57. C
  58. C       --- CAS 2D ---
  59.    13   IF(NBNE.EQ.3)THEN
  60.           NBCE  = 3
  61.           ITYPE = 3
  62.           GOTO 9999
  63.         ENDIF
  64.         IF(NBNE.EQ.4)THEN
  65.           NBCE  = 4
  66.           ITYPE = 4
  67.           GOTO 9999
  68.         ENDIF
  69. C
  70. C       --- CAS 3D ---
  71.    14   IF( NBNE.EQ.4  )THEN
  72.           NBCE  = 4
  73.           ITYPE = 5
  74.           GOTO 9999
  75.         ENDIF
  76.         IF( NBNE.EQ.5  )THEN
  77.           NBCE  = 5
  78.           ITYPE = 7
  79.           GOTO 9999
  80.         ENDIF
  81.         IF( NBNE.EQ.6  )THEN
  82.           NBCE  = 5
  83.           ITYPE = 6
  84.           GOTO 9999
  85.         ENDIF
  86.         IF( NBNE.EQ.8  )THEN
  87.           NBCE  = 6
  88.           ITYPE = 8
  89.           GOTO 9999
  90.         ENDIF
  91. C
  92. C     ----------------------------------------------------
  93. C
  94.       ELSE
  95.       IF((ITYPE.GT.NBTYP).OR.(ITYPE.LT.1))THEN
  96.         iarr = -1
  97.         GOTO 9999
  98.       ENDIF
  99.       NBCE  = STNBCE(ITYPE)
  100.       NBNE  = STNBNE(ITYPE)
  101.       IDE   = STIDE(ITYPE)
  102.       ENDIF
  103. C
  104.  9999 END
  105.  
  106.  
  107.  
  108.  

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