Télécharger mode13.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  33. C
  34. CHARACTER*16 LESPRO(*)
  35. *
  36. *= Noms des proprietes de materiau autorisees
  37. *
  38. NBPRO = 1
  39. IF (NBPRO.GT.N1MAX) THEN
  40. GOTO 100
  41. ELSE
  42. LESPRO(1) = 'NEWTONIEN'
  43. ENDIF
  44. *
  45. *= Noms des types d'elements finis autorises
  46. *
  47. NBTEF = 0
  48. *
  49. RETURN
  50. *
  51. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  52. *
  53. 100 CALL ERREUR(5)
  54. RETURN
  55. END
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  

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