Télécharger mode11.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE11 SOURCE CHAT 05/01/13 01:47:45 5004
  2. SUBROUTINE MODE11(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 NAVIER_STOKES
  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 :
  30. C
  31. C-----------------------------------------------------------------------
  32. IMPLICIT INTEGER(I-N)
  33. -INC CCOPTIO
  34. C
  35. CHARACTER*16 LESPRO(*)
  36. CHARACTER*4 LESTEF(*)
  37. *
  38. *= Noms des proprietes de materiau autorisees
  39. *
  40. NBPRO = 3
  41. IF (NBPRO.GT.N1MAX) THEN
  42. GOTO 100
  43. ELSE
  44. LESPRO(1) = 'NEWTONIEN'
  45. LESPRO(2) = 'BINGHAM'
  46. LESPRO(3) = 'VISCOPLASTIQUE'
  47. ENDIF
  48. *
  49. *= Noms des types d'elements finis autorises
  50. *
  51. NBTEF = 4
  52. LESTEF(1) = 'LINE'
  53. LESTEF(2) = 'MACR'
  54. LESTEF(3) = 'QUAF'
  55. LESTEF(4) = 'LINB'
  56. *
  57. RETURN
  58. *
  59. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  60. *
  61. 100 CALL ERREUR(5)
  62. RETURN
  63. END
  64.  
  65.  
  66.  
  67.  
  68.  

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