Télécharger idprin.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPRIN SOURCE FANDEUR 10/02/01 21:15:29 6603
  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
    LESOBL(1)='SI11'
  69. LESOBL(2)='SI22'
  70. LESOBL(3)='COX1'
  71. LESOBL(4)='COY1'
  72. LESOBL(5)='COZ1'
  73. LESOBL(6)='COX2'
  74. LESOBL(7)='COY2'
  75. LESOBL(8)='COZ2'
  76.  
  77. C 3 - Elements LINESPRING et TUYAU FISSURE (tridimensionnel)
  78. C ==========================================
  79. ELSE IF (MFR.EQ.15.OR.MFR.EQ.17) THEN
  80. IF (IFOU.EQ.2) THEN
  81. NBROBL=1
  82. SEGINI,NOMID
  83. LESOBL(1)='SI11'
  84. ENDIF
  85. ENDIF
  86.  
  87. C Par DEFAUT : segment VIDE
  88. C ===========================
  89. IF (NOMID.EQ.0) SEGINI,NOMID
  90.  
  91. SEGDES,NOMID
  92. IPNOMC=NOMID
  93.  
  94. RETURN
  95. END
  96.  
  97.  
  98.  

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