Télécharger model9.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL9 SOURCE CHAT 12/06/07 21:15:38 7389
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'RAYONNEMENT' =
  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 MODEL9(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. CHARACTER*16 LESPRO(*)
  18. CHARACTER*4 LESTEF(*)
  19.  
  20. C 1 - Noms de MODELES :
  21. C -----------------------
  22. NBPRO=9
  23. LESPRO(1)='CAVITE'
  24. LESPRO(2)='FAC_A_FAC'
  25. LESPRO(3)='INFINI'
  26. LESPRO(4)='CONVEXE'
  27. LESPRO(5)='FERME'
  28. LESPRO(6)='TRAYO'
  29. LESPRO(7)='SYMETRIE'
  30. lespro(8)='NGAU'
  31. lespro(9)='DANG'
  32.  
  33. C 2 - Noms de types d'ELEMENTS FINIS :
  34. C --------------------------------------
  35. IF (IDIM.EQ.1) THEN
  36. NBTEF=2
  37. IF (NBTEF.GT.N2MAX) GOTO 99
  38. LESTEF(1)='POI1'
  39. LESTEF(2)='SEG2'
  40. ELSE IF (IDIM.EQ.2) THEN
  41. NBTEF=3
  42. IF (NBTEF.GT.N2MAX) GOTO 99
  43. LESTEF(1)='SEG2'
  44. LESTEF(2)='SEG3'
  45. LESTEF(3)='COQ2'
  46. C** ELSE IF (IDIM.EQ.3) THEN
  47. ELSE
  48. NBTEF=8
  49. IF (NBTEF.GT.N2MAX) GOTO 99
  50. LESTEF(1)='TRI3'
  51. LESTEF(2)='TRI6'
  52. LESTEF(3)='QUA4'
  53. LESTEF(4)='QUA8'
  54. LESTEF(5)='COQ3'
  55. LESTEF(6)='COQ6'
  56. LESTEF(7)='COQ4'
  57. LESTEF(8)='COQ8'
  58. ENDIF
  59. RETURN
  60.  
  61. C 3 - Traitement des ERREURS
  62. C ----------------------------
  63. 99 CALL ERREUR(5)
  64. RETURN
  65.  
  66. END
  67.  
  68.  
  69.  
  70.  
  71.  

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