C MODEL8    SOURCE    CHAT      12/01/17    21:15:36     7248           
      SUBROUTINE MODEL8(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
*----------------------------------------------------------------------         
*    OBJET MODELE  -  CAS DE LA FORMULATION 'CONTACT'
*    DEFINITION DES NOMS DE MODELES DE CONTACT
*            ET DES NOMS DE TYPES D'ELEMENTS FINIS                              
*----------------------------------------------------------------------         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
*                                                                               
      CHARACTER*16 MOMODL(100)
*                                                                               
      CHARACTER*16 LESPRO(*)                                                    
      CHARACTER*4 LESTEF(*)                                                     
*                                                                               
*  NOMS DES MODELES DE contact -FROTTEMENTS
*  -------------------------------                                                                          
      CALL MOCONT (MOMODL,NMOD)
*                                                                               
      DO 1 I=1,NMOD                                                             
         LESPRO(I)=MOMODL(I)                                                    
 1    CONTINUE                                                           
      NBPRO=NMOD
*      write(6,*) 'lespro ',( lespro(i),i=1,nmod)                                                                
*                                                                               
      IF(NBPRO.GT.N1MAX) THEN                                                   
        CALL ERREUR(5)
        GO TO 99                                                                
      END IF                                                                    
*                                                                               
*  NOMS DE TYPES D'ELEMENTS FINIS                                               
*  ------------------------------                                                                             
      IF(IDIM.EQ.2) THEN                                                        
          NBTEF=3
          IF(NBTEF.GT.N2MAX) THEN
            CALL ERREUR(5)
            GO TO 99
          END IF
          LESTEF(1)='MULT'
          LESTEF(2)='FRO3'
          LESTEF(3)='CAF2'
      ELSE IF(IDIM.EQ.3) THEN
          NBTEF=3
          IF(NBTEF.GT.N2MAX) THEN
            CALL ERREUR(5)
            GO TO 99
          END IF
          LESTEF(1)='MULT'
          LESTEF(2)='FRO4'        
          LESTEF(3)='CAF3'
      ENDIF                                                                     
      RETURN                                                                    
  99  CALL ERREUR(5)                                                            
      RETURN                                                                    
      END