Télécharger mode14.eso

Retour à la liste

Numérotation des lignes :

mode14
  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.  
  35. -INC PPARAM
  36. -INC CCOPTIO
  37. C
  38. CHARACTER*16 MOMODL(200)
  39. CHARACTER*16 LESPRO(*)
  40. CHARACTER*4 LESTEF(*)
  41. C
  42. C 1 - Noms de MODELES :
  43. C -----------------------
  44. C type de condensation
  45. CALL MODCDE(MOMODL,NMOD)
  46. DO i=1,NMOD
  47. LESPRO(i)=MOMODL(i)
  48. ENDDO
  49. NBPRO=NMOD
  50. C comportement de la vapeur
  51. CALL MODVAP(MOMODL,NMOD)
  52. DO i=NBPRO+1,NBPRO+NMOD
  53. LESPRO(i)=MOMODL(i-NBPRO)
  54. ENDDO
  55. NBPRO=NBPRO+NMOD
  56. C lois de frottement utilisateur
  57. CALL MODFRT(MOMODL,NMOD)
  58. DO i=NBPRO+1,NBPRO+NMOD
  59. LESPRO(i)=MOMODL(i-NBPRO)
  60. ENDDO
  61. NBPRO=NBPRO+NMOD
  62. IF (NBPRO.GT.N1MAX) GOTO 100
  63.  
  64. C 2 - Noms de types d'ELEMENTS FINIS :
  65. C --------------------------------------
  66. IF (IDIM.EQ.1) THEN
  67. NBTEF=1
  68. IF (NBTEF.GT.N2MAX) GOTO 100
  69. LESTEF(1)='SEG2'
  70. ELSE IF (IDIM.EQ.2) THEN
  71. NBTEF=1
  72. IF (NBTEF.GT.N2MAX) GOTO 100
  73. LESTEF(1)='SEG2'
  74. ELSE
  75. NBTEF=1
  76. IF (NBTEF.GT.N2MAX) GOTO 100
  77. LESTEF(1)='SEG2'
  78. ENDIF
  79. RETURN
  80.  
  81. C 3 - Traitement des ERREURS
  82. C ----------------------------
  83.  
  84. 100 CALL ERREUR(5)
  85. RETURN
  86. END
  87.  
  88.  
  89.  

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