Télécharger mode14.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE14 SOURCE DURA 05/10/26 21:15:50 5216
  2. C MODE14 SOURCE CHAT 05/01/13 01:48:37 5004
  3. SUBROUTINE MODE14 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  4. C-----------------------------------------------------------------------
  5. C Definition des noms de proprietes de materiau et des noms de
  6. C type d'elements fini dans le cas d'une formulation FISSURE
  7. C-----------------------------------------------------------------------
  8. C
  9. C---------------------------
  10. C Parametres Entree/Sortie :
  11. C---------------------------
  12. C
  13. C /S LESPRO : Noms des proprietes du materiau autorises
  14. C /S NBPRO : Nombre de noms contenus dans LESPRO.
  15. C /S LESTEF : Noms des types d'elements finis autorises
  16. C /S NBTEF : Nombre de noms contenus dans LESTEF.
  17. C E/ N1MAX : Taille maximale du vecteur LESPRO.
  18. C E/ N2MAX : Taille maximale du vecteur LESTEF.
  19. C
  20. C----------------------
  21. C Variables en COMMON :
  22. C----------------------
  23. C
  24. C IDIM : Dimension de l'espace (2 en 2D, 3 en 3D)
  25. C
  26. C-----------------------------------------------------------------------
  27. C
  28. C Langage : FORTRAN77
  29. C
  30. C Auteurs : H. SIMON 04/2005
  31. C
  32. C-----------------------------------------------------------------------
  33. IMPLICIT INTEGER(I-N)
  34. -INC CCOPTIO
  35. C
  36. CHARACTER*16 MOMODL(200)
  37. CHARACTER*16 LESPRO(*)
  38. CHARACTER*4 LESTEF(*)
  39. C
  40. C 1 - Noms de MODELES :
  41. C -----------------------
  42. C type de condensation
  43. CALL MODCDE(MOMODL,NMOD)
  44. DO i=1,NMOD
  45. LESPRO(i)=MOMODL(i)
  46. ENDDO
  47. NBPRO=NMOD
  48. C comportement de la vapeur
  49. CALL MODVAP(MOMODL,NMOD)
  50. DO i=NBPRO+1,NBPRO+NMOD
  51. LESPRO(i)=MOMODL(i-NBPRO)
  52. ENDDO
  53. NBPRO=NBPRO+NMOD
  54. C lois de frottement utilisateur
  55. CALL MODFRT(MOMODL,NMOD)
  56. DO i=NBPRO+1,NBPRO+NMOD
  57. LESPRO(i)=MOMODL(i-NBPRO)
  58. ENDDO
  59. NBPRO=NBPRO+NMOD
  60. IF (NBPRO.GT.N1MAX) GOTO 100
  61.  
  62. C 2 - Noms de types d'ELEMENTS FINIS :
  63. C --------------------------------------
  64. IF (IDIM.EQ.1) THEN
  65. NBTEF=1
  66. IF (NBTEF.GT.N2MAX) GOTO 100
  67. LESTEF(1)='SEG2'
  68. ELSE IF (IDIM.EQ.2) THEN
  69. NBTEF=1
  70. IF (NBTEF.GT.N2MAX) GOTO 100
  71. LESTEF(1)='SEG2'
  72. ELSE
  73. NBTEF=1
  74. IF (NBTEF.GT.N2MAX) GOTO 100
  75. LESTEF(1)='SEG2'
  76. ENDIF
  77. RETURN
  78.  
  79. C 3 - Traitement des ERREURS
  80. C ----------------------------
  81.  
  82. 100 CALL ERREUR(5)
  83. RETURN
  84. END
  85.  
  86.  
  87.  

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