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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. CHARACTER*16 MOMODL(100)
  14. CHARACTER*16 LESPRO(*)
  15. *
  16. CHARACTER*4 LESTEF(*)
  17. *
  18. * NOMS DES approches
  19. *
  20. CALL MODMEL (MOMODL,NMOD)
  21. DO 1 I=1,NMOD
  22. LESPRO(I)=MOMODL(I)
  23. 1 CONTINUE
  24. NBPRO=NMOD
  25.  
  26. *
  27. * NOMS DE TYPES D'ELEMENTS FINIS
  28. *
  29. IF(IDIM.EQ.2) THEN
  30. NBTEF=9
  31. IF(NBTEF.GT.N2MAX) GO TO 99
  32. LESTEF(1)='SEG2'
  33. LESTEF(2)='SEG3'
  34. LESTEF(3)='TRI3'
  35. LESTEF(4)='TRI6'
  36. LESTEF(5)='QUA4'
  37. LESTEF(6)='QUA8'
  38. LESTEF(7)='COQ2'
  39. LESTEF(8)='BARR'
  40. LESTEF(9)='POLY'
  41. ELSE
  42. NBTEF=13
  43. IF(NBTEF.GT.N2MAX) GO TO 99
  44. LESTEF(1)='CUB8'
  45. LESTEF(2)='CU20'
  46. LESTEF(3)='PRI6'
  47. LESTEF(4)='PR15'
  48. LESTEF(5)='TET4'
  49. LESTEF(6)='TE10'
  50. LESTEF(7)='PYR5'
  51. LESTEF(8)='PY13'
  52. LESTEF(9)='COQ3'
  53. LESTEF(10)='COQ4'
  54. LESTEF(11)='COQ6'
  55. LESTEF(12)='COQ8'
  56. LESTEF(13)='BARR'
  57. ENDIF
  58. RETURN
  59. 99 CALL ERREUR(5)
  60. RETURN
  61. END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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