Télécharger idgraf.eso

Retour à la liste

Numérotation des lignes :

  1. C IDGRAF SOURCE AM 11/05/03 21:16:58 6955
  2. SUBROUTINE IDGRAF(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  3. *--------------------------------------------------------------------*
  4. * *
  5. * RECHERCHE DES NOMS DE COMPOSANTES DE GRADIENTS EN FLEXION *
  6. * _________________________________________________________ *
  7. * *
  8. * ENTREES: *
  9. * *
  10. * MFR NUMERO DE LA FORMULATION *
  11. * IFOU VALEUR DE IFOUR DE CCOPTIO *
  12. * *
  13. * SORTIES: *
  14. * *
  15. * IPNOMC POINTEUR SUR LES LISTES DE COMPOSANTES *
  16. * NBROBL LEUR NOMBRE ( 0 SI RIEN TROUVE ) *
  17. * NBRFAC LEUR NOMBRE ( 0 SI RIEN TROUVE ) *
  18. * *
  19. *--------------------------------------------------------------------*
  20. *
  21. IMPLICIT INTEGER(I-N)
  22. SEGMENT NOMID
  23. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  24.  
  25. ENDSEGMENT
  26. *
  27. NBROBL=0
  28. NBRFAC=0
  29. NOMID =0
  30. *
  31. IF (MFR.EQ.3.OR.MFR.EQ.9) THEN
  32. *
  33. * 1/ COQUE TRIDIMENTIONNELLE ( COQ3,DKT,COQ4 )
  34. *
  35. IF (IFOU.EQ.2) THEN
  36. NBROBL=9
  37. SEGINI NOMID
  38. LESOBL(1)='BX,X'
  39. LESOBL(2)='BX,Y'
  40. LESOBL(3)='BX '
  41. LESOBL(4)='BY,X'
  42. LESOBL(5)='BY,Y'
  43. LESOBL(6)='BY '
  44. LESOBL(7)='BZ,X'
  45. LESOBL(8)='BZ,Y'
  46. LESOBL(9)='BZ '
  47.  
  48. *
  49. * 2/COQUE AXI ET FOURIER ( COQ2 )
  50. *
  51. ELSEIF (IFOU.EQ.1.OR.IFOU.EQ.0.OR.IFOU.EQ.-1.OR.
  52. . IFOU.EQ.-2)THEN
  53. NBROBL=2
  54. SEGINI,NOMID
  55. LESOBL(1)='BU,S'
  56. LESOBL(2)='BU,T'
  57. ENDIF
  58. *
  59. ELSEIF (MFR.EQ.75) THEN
  60. C =====
  61. C Joint Unidimensionnel JOI1
  62. C =====
  63. IF (IFOU.EQ.2) THEN
  64. NBROBL=9
  65. SEGINI,NOMID
  66. LESOBL(1)='RX,X '
  67. LESOBL(2)='RX,Y '
  68. LESOBL(3)='RX,Z '
  69. LESOBL(4)='RY,X '
  70. LESOBL(5)='RY,Y '
  71. LESOBL(6)='RY,Z '
  72. LESOBL(7)='RZ,X '
  73. LESOBL(8)='RZ,Y '
  74. LESOBL(9)='RZ,Z '
  75. ELSE IF (IFOU.EQ.-2.OR.IFOU.EQ.-1) THEN
  76. NBROBL=2
  77. SEGINI,NOMID
  78. LESOBL(1)='RZ,X '
  79. LESOBL(2)='RZ,Y '
  80. ENDIF
  81.  
  82. *
  83. C CAS DES POUTRES ET TUYAUX
  84.  
  85. ELSEIF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  86. C
  87. IF (IFOU.EQ.2) THEN
  88. NBROBL=3
  89. SEGINI,NOMID
  90. LESOBL(1)='BU,S'
  91. LESOBL(2)='BV,S'
  92. LESOBL(3)='BW,S'
  93. C
  94. ELSE
  95. NBROBL=1
  96. SEGINI,NOMID
  97. LESOBL(1)='BW,S'
  98. ENDIF
  99.  
  100. ENDIF
  101. *
  102. IF(NOMID.EQ.0)SEGINI NOMID
  103. IPNOMC=NOMID
  104. SEGDES NOMID
  105. RETURN
  106. END
  107.  
  108.  
  109.  
  110.  

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