Esope source files

   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 :