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    CHAT      05/01/13    01:47:59     5004
  2. C MODE11    SOURCE    MAGN      98/12/23    21:40:54     3405
  3.       SUBROUTINE MODE13(LESPRO,NBPRO,NBTEF,N1MAX)
  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. *
  38. *= Noms des proprietes de materiau autorisees
  39. *
  40.       NBPRO = 1
  41.       IF (NBPRO.GT.N1MAX) THEN
  42.          GOTO 100
  43.       ELSE
  44.          LESPRO(1) = 'NEWTONIEN'
  45.       ENDIF
  46. *
  47. *= Noms des types d'elements finis autorises
  48. *
  49.          NBTEF = 0
  50. *
  51.       RETURN
  52. *
  53. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  54. *
  55.  100  CALL ERREUR(5)
  56.       RETURN
  57.       END
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  

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