Télécharger la plaquette Cast3M


fr en

Télécharger modfrt.eso

Retour à la liste

Numérotation des lignes : 

modfrt

  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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. *
  13.       CHARACTER*16 MOMODL(*)
  14. *
  15. *     Noms des materiaux
  16. *
  17.       NMOD=6
  18.       MOMODL(1)='POISEU_BLASIUS'
  19.       MOMODL(2)='POISEU_COLEBROOK'
  20.       MOMODL(3)='FROTTEMENT1'
  21.       MOMODL(4)='FROTTEMENT2'
  22.       MOMODL(5)='FROTTEMENT3'
  23.       MOMODL(6)='FROTTEMENT4'
  24.  
  25.       RETURN
  26.       END
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  

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