Télécharger mode17.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE17 SOURCE FANDEUR 10/12/17 21:18:03 6427
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'ELECTROSTATIQUE' =
  5. C= =
  6. C= Definition des noms de modeles de MATERIAU =
  7. C= et des noms de types d'ELEMENTS FINIS =
  8. C=======================================================================
  9.  
  10. SUBROUTINE MODE17 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. CHARACTER*16 LESPRO(*)
  20. CHARACTER*4 LESTEF(*)
  21.  
  22. C 1 - Noms de MODELES
  23. C ---------------------
  24. IF (IDIM.EQ.1) THEN
  25. NBPRO=1
  26. IF (NBPRO.GT.N1MAX) GOTO 99
  27. LESPRO(1)='ISOTROPE '
  28. ELSE
  29. NBPRO=3
  30. IF (NBPRO.GT.N1MAX) GOTO 99
  31. LESPRO(1)='ISOTROPE '
  32. LESPRO(2)='ORTHOTROPE '
  33. LESPRO(3)='ANISOTROPE '
  34. ENDIF
  35.  
  36. C 2 - Noms de types d'ELEMENTS FINIS
  37. C ------------------------------------
  38. IF (IDIM.EQ.1) THEN
  39. NBTEF=2
  40. IF (NBTEF.GT.N2MAX) GOTO 99
  41. C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
  42. LESTEF(1)='M1D2'
  43. LESTEF(2)='M1D3'
  44. ELSE IF (IDIM.EQ.2) THEN
  45. NBTEF=5
  46. IF (NBTEF.GT.N2MAX) GOTO 99
  47. LESTEF(1)='TRI3'
  48. LESTEF(2)='TRI6'
  49. LESTEF(3)='QUA4'
  50. LESTEF(4)='QUA8'
  51. LESTEF(5)='POLY'
  52. C* ELSE IF (IDIM.EQ.3) THEN
  53. ELSE
  54. NBTEF=8
  55. IF (NBTEF.GT.N2MAX) GOTO 99
  56. LESTEF(1)='CUB8'
  57. LESTEF(2)='CU20'
  58. LESTEF(3)='PRI6'
  59. LESTEF(4)='PR15'
  60. LESTEF(5)='TET4'
  61. LESTEF(6)='TE10'
  62. LESTEF(7)='PYR5'
  63. LESTEF(8)='PY13'
  64. ENDIF
  65. RETURN
  66.  
  67. C 3 - Traitement des ERREURS
  68. C ----------------------------
  69. 99 CALL ERREUR(5)
  70. RETURN
  71.  
  72. END
  73.  
  74.  
  75.  

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