Télécharger idphas.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPHAS SOURCE BP208322 15/06/22 21:19:24 8543
  2. SUBROUTINE IDPHAS(MFR,IPMODL,IPCOMP,NBROBL,NBRFAC)
  3. *--------------------------------------------------------------------*
  4. * *
  5. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES MICROSTRUCTURES *
  6. * ________________________________________________________ *
  7. * *
  8. * ENTREES: *
  9. * *
  10. * MFR NUMERO DE LA FORMULATION *
  11. * IPMODL OBJET MODEL ELEMENTAIRE ( SEGMENT ACTIF ) *
  12. * *
  13. * SORTIES: *
  14. * *
  15. * IPCOMP POINTEUR SUR LES LISTES DE NOMS DE COMPOSANTES *
  16. * obligatoires et facultatives *
  17. * *
  18. * NBROBL nombre de composantes obligatoires *
  19. * *
  20. * NBRFAC nombre de composantes facultatives *
  21. * *
  22. *--------------------------------------------------------------------*
  23. *
  24. IMPLICIT INTEGER(I-N)
  25. -INC SMMODEL
  26. -INC CCOPTIO
  27. -INC CCHAMP
  28. *
  29. CHARACTER*16 MOMODL(100)
  30. *
  31. NBROBL=0
  32. NBRFAC=0
  33. SEGINI NOMID
  34. IPCOMP = NOMID
  35. C
  36. IMODEL=IPMODL
  37. NMAT=MATMOD(/2)
  38. MELE=NEFMOD
  39. C
  40. INMAT = 1
  41. CALL MODMET (MOMODL,NMOD)
  42. 50 CONTINUE
  43. INMAT = INMAT + 1
  44. IF (INMAT.LE.NMAT) THEN
  45. CALL PLACE (MOMODL,NMOD,IPLAC,MATMOD(INMAT))
  46. IF (IPLAC.EQ.1) THEN
  47. * CEREM
  48. JGA=LESOBL(/2)
  49. JGB=LESFAC(/2)
  50. NBROBL=JGA+0
  51. NBRFAC=JGB+0
  52. IPCOMP = NOMID
  53. *
  54. ELSE IF (IPLAC.EQ.2) THEN
  55. * SEMT2
  56. JGA=LESOBL(/2)
  57. JGB=LESFAC(/2)
  58. NBROBL=JGA+0
  59. NBRFAC=JGB+0
  60. IPCOMP = NOMID
  61. *
  62. ELSE IF (IPLAC.EQ.3) THEN
  63. * SRMP12
  64. JGA=LESOBL(/2)
  65. JGB=LESFAC(/2)
  66. NBROBL=JGA+0
  67. NBRFAC=JGB+0
  68. IPCOMP = NOMID
  69. *
  70. *
  71. ELSE IF (IPLAC.EQ.4) THEN
  72. * LEBLOND
  73. IPCOMP = NOMID
  74. *
  75. ELSE IF (IPLAC.EQ.5) THEN
  76. * MGRAIN
  77. JGA=LESOBL(/2)
  78. JGB=LESFAC(/2)
  79. NBROBL=JGA+0
  80. NBRFAC=JGB+0
  81. IPCOMP = NOMID
  82. *
  83. ELSE
  84. *
  85. ENDIF
  86. GOTO 50
  87. ENDIF
  88. *
  89. NBROBL=LESOBL(/2)
  90. NBRFAC=LESFAC(/2)
  91. SEGDES NOMID
  92. RETURN
  93.  
  94. C
  95. END
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  

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