Télécharger la plaquette Cast3M


fr en

Télécharger mode13.eso

Retour à la liste

Numérotation des lignes : 

mode13

  1. C MODE13    SOURCE    MB234859  25/08/26    21:15:07     12343          
  2. C MODE11    SOURCE    MAGN      98/12/23    21:40:54     3405
  3.       SUBROUTINE MODE13(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  4. C-----------------------------------------------------------------------
  5. C Definition des noms de proprietes de materiau et du noms de
  6. C type d'elements fini dans le cas d'une formulation NAVIER_STOKES
  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 NBTEF   : =0.
  16. C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  17. C
  18. C----------------------
  19. C Variables en COMMON :
  20. C----------------------
  21. C
  22. C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  23. C
  24. C-----------------------------------------------------------------------
  25. C
  26. C Langage : FORTRAN77
  27. C
  28. C Auteurs :
  29. C
  30. C-----------------------------------------------------------------------
  31.       IMPLICIT INTEGER(I-N)
  32.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35. C
  36.       CHARACTER*16 LESPRO(*)
  37.       CHARACTER*4  LESTEF(*)
  38. *
  39. *= Noms des proprietes de materiau autorisees
  40. *
  41.       NBPRO = 1
  42.       IF (NBPRO.GT.N1MAX) THEN
  43.          GOTO 100
  44.       ELSE
  45.          LESPRO(1) = 'NEWTONIEN'
  46.       ENDIF
  47. *
  48. *= Noms des types d'elements finis autorises
  49. *
  50.       NBTEF = 7
  51.       LESTEF(1)='SEG2'
  52.       LESTEF(2)='TRI3'
  53.       LESTEF(3)='QUA4'
  54.       LESTEF(4)='CUB8'
  55.       LESTEF(5)='PRI6'
  56.       LESTEF(6)='TET4'
  57.       LESTEF(7)='PYR5'
  58. *
  59.       RETURN
  60. *
  61. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  62. *
  63.  100  CALL ERREUR(5)
  64.       END
  65.  
  66.  

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