Télécharger idprin.eso

Retour à la liste

Numérotation des lignes :

idprin
  1. C IDPRIN SOURCE JK148537 23/11/20 21:15:06 11790
  2.  
  3. C=======================================================================
  4. C= RECHERCHE DES NOMS DE COMPOSANTES DE CONTRAINTES PRINCIPALES =
  5. C= ------------------------------------------------------------ =
  6. C= =
  7. C= Entrees : =
  8. C= MFR numero de la formulation utilisee =
  9. C= IFOU valeur de IFOUR de CCOPTIO =
  10. C= =
  11. C= Sorties : =
  12. C= IPNOMC pointeur de type NOMID sur les listes de noms de =
  13. C= composantes OBLigatoires et FACultatives =
  14. C= NBROBL nombre de composantes OBLigatoires =
  15. C= NBRFAC nombre de composantes FACultatives =
  16. C=======================================================================
  17.  
  18. SUBROUTINE IDPRIN (MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  19.  
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8 (A-H,O-Z)
  22.  
  23. SEGMENT NOMID
  24. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  25. ENDSEGMENT
  26.  
  27. NBROBL=0
  28. NBRFAC=0
  29. NOMID=0
  30.  
  31. C 1 - ELEMENT MASSIF - MILIEU POREUX
  32. C ====================================
  33. IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33.OR.MFR.EQ.35.OR.
  34. & MFR.EQ.63) THEN
  35. C =====
  36. C 1.1 - Cas particulier : MASSIF 1D (IDIM=1)
  37. C =====
  38. IF (MFR.EQ.1.AND.IFOU.GE.3.AND.IFOU.LE.15) THEN
  39. NBROBL=3
  40. SEGINI,NOMID
  41. LESOBL(1)='SI11'
  42. LESOBL(2)='SI22'
  43. LESOBL(3)='SI33'
  44. C =====
  45. C 1.2 - Cas general
  46. C =====
  47. ELSE
  48. NBROBL=12
  49. SEGINI,NOMID
  50. LESOBL(1)='SI11'
  51. LESOBL(2)='SI22'
  52. LESOBL(3)='SI33'
  53. LESOBL(4)='COX1'
  54. LESOBL(5)='COY1'
  55. LESOBL(6)='COZ1'
  56. LESOBL(7)='COX2'
  57. LESOBL(8)='COY2'
  58. LESOBL(9)='COZ2'
  59. LESOBL(10)='COX3'
  60. LESOBL(11)='COY3'
  61. LESOBL(12)='COZ3'
  62. ENDIF
  63.  
  64. C 2 - Elements COQUES
  65. C =====================
  66. ELSE IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  67. NBROBL=8
  68. SEGINI,NOMID
  69. LESOBL(1)='SI11'
  70. LESOBL(2)='SI22'
  71. LESOBL(3)='COX1'
  72. LESOBL(4)='COY1'
  73. LESOBL(5)='COZ1'
  74. LESOBL(6)='COX2'
  75. LESOBL(7)='COY2'
  76. LESOBL(8)='COZ2'
  77.  
  78. C 3 - Elements LINESPRING et TUYAU FISSURE (tridimensionnel)
  79. C ==========================================
  80. ELSE IF (MFR.EQ.15.OR.MFR.EQ.17) THEN
  81. IF (IFOU.EQ.2) THEN
  82. NBROBL=1
  83. SEGINI,NOMID
  84. LESOBL(1)='SI11'
  85. ENDIF
  86.  
  87.  
  88. ELSE IF (MFR.EQ.52) THEN
  89. NBROBL=1
  90. SEGINI,NOMID
  91. LESOBL(1)='PN'
  92.  
  93. ENDIF
  94.  
  95. C Par DEFAUT : segment VIDE
  96. C ===========================
  97. IF (NOMID.EQ.0) SEGINI,NOMID
  98.  
  99. SEGDES,NOMID
  100. IPNOMC=NOMID
  101.  
  102. RETURN
  103. END
  104.  
  105.  
  106.  
  107.  

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