Télécharger modfrt.eso

Retour à la liste

Numérotation des lignes :

  1. C MODFRT SOURCE DURA 05/10/26 21:16:14 5216
  2. C MODFRT SOURCE CHAT 05/01/13 01:49:23 5004
  3. SUBROUTINE MODFRT(MOMODL,NMOD)
  4. *----------------------------------------------------------------------
  5. * - CAS DE LA FORMULATION 'FISSURE'
  6. * DEFINITION DES LOIS DE FROTTEMENT
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. *
  11. CHARACTER*16 MOMODL(*)
  12. *
  13. * Noms des materiaux
  14. *
  15. NMOD=6
  16. MOMODL(1)='POISEU_BLASIUS'
  17. MOMODL(2)='POISEU_COLEBROOK'
  18. MOMODL(3)='FROTTEMENT1'
  19. MOMODL(4)='FROTTEMENT2'
  20. MOMODL(5)='FROTTEMENT3'
  21. MOMODL(6)='FROTTEMENT4'
  22.  
  23. RETURN
  24. END
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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