Télécharger idva11.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVA11 SOURCE CHAT 05/01/13 00:30:53 5004
  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. * NPINT NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. * POUR LES ELEMENTS DE COQUE INTEGRES
  14. *
  15. * SORTIES :
  16. * ---------
  17. * IPCOMP POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. * OBLIGATOIRES ET FACULTATIVES
  19. * NBROBL NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. * NBRFAC NOMBRE DE COMPOSANTES FACTULTATIVES
  21. C=======================================================================
  22.  
  23. SUBROUTINE IDVA11 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  24.  
  25. IMPLICIT INTEGER(I-N)
  26. IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28. SEGMENT NOMID
  29. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  30. ENDSEGMENT
  31.  
  32. NBROBL=0
  33. NBRFAC=0
  34. NOMID=0
  35.  
  36. C 1 - MATERIAU HINTE contraintes planes
  37. C =======================================
  38. IF (MATEPL.EQ.89) THEN
  39. NBROBL=5
  40. SEGINI,NOMID
  41. LESOBL(1)='EPSE'
  42. LESOBL(2)='D3 '
  43. LESOBL(3)='D2 '
  44. LESOBL(4)='D1 '
  45. LESOBL(5)='YDB '
  46.  
  47. C 2 - MATERIAU VISCOHINTE contraintes planes
  48. C ============================================
  49. ELSE IF (MATEPL.EQ.90) THEN
  50. NBROBL=5
  51. SEGINI,NOMID
  52. LESOBL(1)='EPSE'
  53. LESOBL(2)='D3 '
  54. LESOBL(3)='D2 '
  55. LESOBL(4)='D1 '
  56. LESOBL(5)='YDB '
  57. ENDIF
  58.  
  59. IPCOMP=NOMID
  60. SEGDES,NOMID
  61.  
  62. RETURN
  63. END
  64.  
  65.  
  66.  

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