Esope source files

   1 : C MODFRO    SOURCE    CHAT      12/01/17    21:15:48     7248           
   2 :       SUBROUTINE MODFRO(MOMODL,NMOD)
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'CONTACT' + FROTTEMENT  +'COULOMB' 
   5 : *      ou 'FROCABLE'
   6 : *            DEFINITION DES NOMS DES MODELES             
   7 : *----------------------------------------------------------------------         
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 : *                                                                               
  11 :       CHARACTER*16 MOMODL(*)                                                    
  12 : *                                                                               
  13 : *     Noms des modeles
  14 : *                                                                               
  15 :       NMOD=5
  16 :       MOMODL(1)='UNILATERAL'
  17 :       MOMODL(2)='MAINTENU'
  18 :       MOMODL(3)='FROTTANT'
  19 :       MOMODL(4)='COULOMB'
  20 :       MOMODL(5)='FROCABLE'                                             
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :  
  24 :  
  25 :