Télécharger la plaquette Cast3M


fr en

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