Télécharger model3.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL3 SOURCE CHAT 05/01/13 01:48:11 5004
  2. SUBROUTINE MODEL3(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. * OBJET MODELE - CAS DE LA FORMULATION 'LIQUIDE '
  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*16 LESPRO(*)
  11. CHARACTER*4 LESTEF(*)
  12. *
  13. * NOMS DE MODELES
  14. *
  15. NBPRO=1
  16. IF(NBPRO.GT.N1MAX) GO TO 99
  17. LESPRO( 1)='ISOTROPE'
  18. *
  19. * NOMS DE TYPES D'ELEMENTS FINIS
  20. *
  21. IF(IDIM.EQ.2) THEN
  22. NBTEF=3
  23. IF(NBTEF.GT.N2MAX) GO TO 99
  24. LESTEF(1)='LTR3'
  25. LESTEF(2)='LQU4'
  26. LESTEF(3)='LSU2'
  27. ELSE
  28. NBTEF=7
  29. IF(NBTEF.GT.N2MAX) GO TO 99
  30. LESTEF(1)='LCU8'
  31. LESTEF(2)='LPR6'
  32. LESTEF(3)='LPY5'
  33. LESTEF(4)='LTE4'
  34. LESTEF(5)='LSU3'
  35. LESTEF(6)='LSU4'
  36. LESTEF(7)='LSE2'
  37. ENDIF
  38. RETURN
  39. 99 CALL ERREUR(5)
  40. RETURN
  41. END
  42.  
  43.  

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