Télécharger model5.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL5 SOURCE CHAT 05/01/13 01:48:26 5004
  2. SUBROUTINE MODEL5(NBPRO,LESTEF,NBTEF,N2MAX)
  3. *----------------------------------------------------------------------
  4. * OBJET MODELE - CAS DE LA FORMULATION 'LIQUIDE ' + 'MECANIQUE'
  5. * DEFINITION DES NOMS DE MODELES DE MATERIAU
  6. * ET DES NOMS DE TYPES D'ELEMENTS FINIS
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. CHARACTER*4 LESTEF(*)
  11. *
  12. * NOMS DE MODELES
  13. *
  14. NBPRO=0
  15. *
  16. * NOMS DE TYPES D'ELEMENTS FINIS
  17. *
  18. IF(IDIM.EQ.2) THEN
  19. NBTEF=2
  20. IF(NBTEF.GT.N2MAX) GO TO 99
  21. LESTEF(1)='RAC2'
  22. LESTEF(2)='RACO'
  23. ELSE
  24. NBTEF=5
  25. IF(NBTEF.GT.N2MAX) GO TO 99
  26. LESTEF(1)='LIA3'
  27. LESTEF(2)='LIA4'
  28. LESTEF(3)='LICO'
  29. LESTEF(4)='LIC4'
  30. LESTEF(5)='LITU'
  31. ENDIF
  32. RETURN
  33. 99 CALL ERREUR(5)
  34. RETURN
  35. END
  36.  
  37.  

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