Télécharger la plaquette Cast3M


fr en

Télécharger model7.eso

Retour à la liste

Numérotation des lignes : 

model7

  1. C MODEL7    SOURCE    CHAT      05/01/13    01:48:37     5004
  2.       SUBROUTINE MODEL7(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C-----------------------------------------------------------------------
  4. C Definition des noms de proprietes de materiau et du noms de
  5. C type d'elements fini dans le cas d'une formulation DARCY
  6. C-----------------------------------------------------------------------
  7. C
  8. C---------------------------
  9. C Parametres Entree/Sortie :
  10. C---------------------------
  11. C
  12. C  /S LESPRO  : Noms des proprietes du materiau autorises
  13. C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
  14. C  /S LESTEF  : Noms des types d'elements finis autorises
  15. C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
  16. C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  17. C E/  N2MAX   : Taille maximale du vecteur LESTEF.
  18. C
  19. C----------------------
  20. C Variables en COMMON :
  21. C----------------------
  22. C
  23. C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  24. C
  25. C-----------------------------------------------------------------------
  26. C
  27. C Langage : FORTRAN77
  28. C
  29. C Auteurs : F.DABBENE 08/93
  30. C
  31. C-----------------------------------------------------------------------
  32.       IMPLICIT INTEGER(I-N)
  33.  
  34. -INC PPARAM
  35. -INC CCOPTIO
  36. C
  37.       CHARACTER*16 LESPRO(*)
  38.       CHARACTER*4  LESTEF(*)
  39. *
  40. *= Noms des proprietes de materiau autorisees
  41. *
  42.       NBPRO = 3
  43.       IF (NBPRO.GT.N1MAX) THEN
  44.          GOTO 100
  45.       ELSE
  46.          LESPRO(1) = 'ISOTROPE'
  47.          LESPRO(2) = 'ORTHOTROPE'
  48.          LESPRO(3) = 'ANISOTROPE'
  49.       ENDIF
  50. *
  51. *= Noms des types d'elements finis autorises
  52. *
  53.       IF (IDIM.EQ.2) THEN
  54.          NBTEF = 2
  55.          IF (NBTEF.GT.N2MAX) THEN
  56.             GOTO 100
  57.          ELSE
  58.             LESTEF(1) = 'HYT3'
  59.             LESTEF(2) = 'HYQ4'
  60.          ENDIF
  61.       ELSE
  62.          NBTEF = 3
  63.          IF (NBTEF.GT.N2MAX) THEN
  64.             GOTO 100
  65.          ELSE
  66.             LESTEF(1) = 'HYT4'
  67.             LESTEF(2) = 'HYP6'
  68.             LESTEF(3) = 'HYC8'
  69.          ENDIF
  70.       ENDIF
  71. *
  72.       RETURN
  73. *
  74. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  75. *
  76.  100  CALL ERREUR(5)
  77.       RETURN
  78.       END
  79.  
  80.  

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