Télécharger mode12.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE12 SOURCE CHAT 05/01/13 01:47:48 5004
  2. SUBROUTINE MODE12(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. * OBJET MODELE - CAS DE LA FORMULATION 'MELANGE'
  5. IMPLICIT INTEGER(I-N)
  6.  
  7. * DEFINITION DES NOMS DE MODELES DE MATERIAU
  8. * ET DES NOMS DE TYPES D'ELEMENTS FINIS
  9. *----------------------------------------------------------------------
  10. -INC CCOPTIO
  11. CHARACTER*16 MOMODL(100)
  12. CHARACTER*16 LESPRO(*)
  13. *
  14. CHARACTER*4 LESTEF(*)
  15. *
  16. * NOMS DES approches
  17. *
  18. CALL MODMEL (MOMODL,NMOD)
  19. DO 1 I=1,NMOD
  20. LESPRO(I)=MOMODL(I)
  21. 1 CONTINUE
  22. NBPRO=NMOD
  23.  
  24. *
  25. * NOMS DE TYPES D'ELEMENTS FINIS
  26. *
  27. IF(IDIM.EQ.2) THEN
  28. NBTEF=9
  29. IF(NBTEF.GT.N2MAX) GO TO 99
  30. LESTEF(1)='SEG2'
  31. LESTEF(2)='SEG3'
  32. LESTEF(3)='TRI3'
  33. LESTEF(4)='TRI6'
  34. LESTEF(5)='QUA4'
  35. LESTEF(6)='QUA8'
  36. LESTEF(7)='COQ2'
  37. LESTEF(8)='BARR'
  38. LESTEF(9)='POLY'
  39. ELSE
  40. NBTEF=13
  41. IF(NBTEF.GT.N2MAX) GO TO 99
  42. LESTEF(1)='CUB8'
  43. LESTEF(2)='CU20'
  44. LESTEF(3)='PRI6'
  45. LESTEF(4)='PR15'
  46. LESTEF(5)='TET4'
  47. LESTEF(6)='TE10'
  48. LESTEF(7)='PYR5'
  49. LESTEF(8)='PY13'
  50. LESTEF(9)='COQ3'
  51. LESTEF(10)='COQ4'
  52. LESTEF(11)='COQ6'
  53. LESTEF(12)='COQ8'
  54. LESTEF(13)='BARR'
  55. ENDIF
  56. RETURN
  57. 99 CALL ERREUR(5)
  58. RETURN
  59. END
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  

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