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.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. -INC CCHAMP
  30. *
  31. CHARACTER*16 MOMODL(100)
  32. *
  33. NBROBL=0
  34. NBRFAC=0
  35. SEGINI NOMID
  36. IPCOMP = NOMID
  37. C
  38. IMODEL=IPMODL
  39. NMAT=MATMOD(/2)
  40. MELE=NEFMOD
  41. C
  42. INMAT = 1
  43. CALL MODMET (MOMODL,NMOD)
  44. 50 CONTINUE
  45. INMAT = INMAT + 1
  46. IF (INMAT.LE.NMAT) THEN
  47. CALL PLACE (MOMODL,NMOD,IPLAC,MATMOD(INMAT))
  48. IF (IPLAC.EQ.1) THEN
  49. * CEREM
  50. JGA=LESOBL(/2)
  51. JGB=LESFAC(/2)
  52. NBROBL=JGA+0
  53. NBRFAC=JGB+0
  54. IPCOMP = NOMID
  55. *
  56. ELSE IF (IPLAC.EQ.2) THEN
  57. * SEMT2
  58. JGA=LESOBL(/2)
  59. JGB=LESFAC(/2)
  60. NBROBL=JGA+0
  61. NBRFAC=JGB+0
  62. IPCOMP = NOMID
  63. *
  64. ELSE IF (IPLAC.EQ.3) THEN
  65. * SRMP12
  66. JGA=LESOBL(/2)
  67. JGB=LESFAC(/2)
  68. NBROBL=JGA+0
  69. NBRFAC=JGB+0
  70. IPCOMP = NOMID
  71. *
  72. *
  73. ELSE IF (IPLAC.EQ.4) THEN
  74. * LEBLOND
  75. IPCOMP = NOMID
  76. *
  77. ELSE IF (IPLAC.EQ.5) THEN
  78. * MGRAIN
  79. JGA=LESOBL(/2)
  80. JGB=LESFAC(/2)
  81. NBROBL=JGA+0
  82. NBRFAC=JGB+0
  83. IPCOMP = NOMID
  84. *
  85. ELSE
  86. *
  87. ENDIF
  88. GOTO 50
  89. ENDIF
  90. *
  91. NBROBL=LESOBL(/2)
  92. NBRFAC=LESFAC(/2)
  93. SEGDES NOMID
  94. RETURN
  95.  
  96. C
  97. END
  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.  
  132.  
  133.  

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