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.  
  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