Télécharger idvar3.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVAR3 SOURCE AM 16/06/08 21:15:10 8953
  2.  
  3. C=======================================================================
  4. * RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. * --------------------------------------------------------
  6. *
  7. * ENTREES :
  8. * ---------
  9. * MATEPL NUMERO DU MATERIAU PLASTIQUE
  10. * MFR NUMERO DE FORMULATION
  11. * IFOUR VALEUR DE IFOU DANS CCOPTIO
  12. *
  13. * SORTIES :
  14. * ---------
  15. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  16. * OBLIGATOIRES ET FACULTATIVES
  17. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  18. * NBRFAC NOMBRE DE COMPOSANTES FACULTATIVES
  19. C=======================================================================
  20.  
  21. SUBROUTINE IDVAR3 (MATEPL,MFR,IFOUR,IPCOMP,NBROBL,NBRFAC)
  22.  
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8 (A-H,O-Z)
  25.  
  26. SEGMENT NOMID
  27. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  28. ENDSEGMENT
  29.  
  30. NBROBL=0
  31. NBRFAC=0
  32. NOMID=0
  33.  
  34. C 1 - Modele de LEMAITRE
  35. C ========================
  36. IF (MATEPL.EQ.24) THEN
  37. NBROBL=2
  38. SEGINI,NOMID
  39. LESOBL(1)='XX '
  40. LESOBL(2)='EPSE'
  41.  
  42. C 2 - Modele de MAXWELL
  43. C =======================
  44. ELSE IF (MATEPL.EQ.74) THEN
  45. NBROBL=6
  46. NBRFAC=4
  47. SEGINI,NOMID
  48. LESOBL(1)='EPSE'
  49. LESOBL(2)='SM0 '
  50. LESOBL(3)='SM1 '
  51. LESOBL(4)='SM2 '
  52. LESOBL(5)='SM3 '
  53. LESOBL(6)='SM4 '
  54. LESFAC(1)='SM5 '
  55. LESFAC(2)='SM6 '
  56. LESFAC(3)='SM7 '
  57. LESFAC(4)='SM8 '
  58.  
  59. C 3 - Modele BPEL_RELAX
  60. C =======================
  61. ELSE IF (MATEPL.EQ.95) THEN
  62. NBROBL=1
  63. SEGINI,NOMID
  64. LESOBL(1)='ERLX'
  65.  
  66.  
  67. IPCOMP=NOMID
  68. SEGDES,NOMID
  69.  
  70. C 4 - Modele KELVIN
  71. C =======================
  72. C MATEPL=174
  73. ELSE IF (MATEPL.EQ.174) THEN
  74. NBROBL=19
  75. SEGINI,NOMID
  76. LESOBL(1) = 'EPF1'
  77. LESOBL(2) = 'EPF2'
  78. LESOBL(3) = 'EPF3'
  79. LESOBL(4) = 'EPF4'
  80. LESOBL(5) = 'EPF5'
  81. LESOBL(6) = 'EPF6'
  82. LESOBL(7) = 'SMR1'
  83. LESOBL(8) = 'SMR2'
  84. LESOBL(9) = 'SMR3'
  85. LESOBL(10) = 'SMR4'
  86. LESOBL(11) = 'SMR5'
  87. LESOBL(12) = 'SMR6'
  88. LESOBL(13) = 'EPE1'
  89. LESOBL(14) = 'EPE2'
  90. LESOBL(15) = 'EPE3'
  91. LESOBL(16) = 'EPE4'
  92. LESOBL(17) = 'EPE5'
  93. LESOBL(18) = 'EPE6'
  94. LESOBL(19) = 'EPSE'
  95. ENDIF
  96.  
  97. IPCOMP=NOMID
  98. SEGDES,NOMID
  99.  
  100. RETURN
  101. END
  102.  
  103.  
  104.  
  105.  
  106.  

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