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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. CHARACTER*4 LESTEF(*)
  13. *
  14. * NOMS DE MODELES
  15. *
  16. NBPRO=0
  17. *
  18. * NOMS DE TYPES D'ELEMENTS FINIS
  19. *
  20. IF(IDIM.EQ.2) THEN
  21. NBTEF=2
  22. IF(NBTEF.GT.N2MAX) GO TO 99
  23. LESTEF(1)='RAC2'
  24. LESTEF(2)='RACO'
  25. ELSE
  26. NBTEF=5
  27. IF(NBTEF.GT.N2MAX) GO TO 99
  28. LESTEF(1)='LIA3'
  29. LESTEF(2)='LIA4'
  30. LESTEF(3)='LICO'
  31. LESTEF(4)='LIC4'
  32. LESTEF(5)='LITU'
  33. ENDIF
  34. RETURN
  35. 99 CALL ERREUR(5)
  36. RETURN
  37. END
  38.  
  39.  

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