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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. CHARACTER*16 LESPRO(*)
  13. CHARACTER*4 LESTEF(*)
  14. *
  15. * NOMS DE MODELES
  16. *
  17. NBPRO=1
  18. IF(NBPRO.GT.N1MAX) GO TO 99
  19. LESPRO( 1)='ISOTROPE'
  20. *
  21. * NOMS DE TYPES D'ELEMENTS FINIS
  22. *
  23. IF(IDIM.EQ.2) THEN
  24. NBTEF=3
  25. IF(NBTEF.GT.N2MAX) GO TO 99
  26. LESTEF(1)='LTR3'
  27. LESTEF(2)='LQU4'
  28. LESTEF(3)='LSU2'
  29. ELSE
  30. NBTEF=7
  31. IF(NBTEF.GT.N2MAX) GO TO 99
  32. LESTEF(1)='LCU8'
  33. LESTEF(2)='LPR6'
  34. LESTEF(3)='LPY5'
  35. LESTEF(4)='LTE4'
  36. LESTEF(5)='LSU3'
  37. LESTEF(6)='LSU4'
  38. LESTEF(7)='LSE2'
  39. ENDIF
  40. RETURN
  41. 99 CALL ERREUR(5)
  42. RETURN
  43. END
  44.  
  45.  

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