Télécharger sttype.eso

Retour à la liste

Numérotation des lignes :

  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