C IDFRO     SOURCE    CHAT      05/10/27    21:16:12     5227           
      SUBROUTINE IDFRO (MOOBL,MOFAC,IPLAC,IRET)
*--------------------------------------------------------------------*
*       Noms de composantes de materiaux en frottement               *
*--------------------------------------------------------------------*
*                                                                    *
*  ENTREES:                                                          *
*  -------                                                           *                                *
*     MOOBL    pointeur sur les mots obligatoires                    *
*     MOFAC    POINTEUR SUR LES MOTS FACULTATIFS                     *
*     IPLAC    numero du materiau dans MODFRO                        *
*                                                                    *   
*  SORTIES:                                                          *
*  --------                                                          *
*     IRET = 0 si problème                                           *
*--------------------------------------------------------------------*
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAl*8(A-H,O-Z)
-INC SMLMOTS
-INC CCOPTIO
*
      IRET=1
      jgn=8
*
      IF (IPLAC.EQ.1) THEN
*
*         FROTTEMENT DE COULOMB
*         ---------------------
    
          INMAT=1
          JGM=1
          SEGINI MLMOTS
          MOOBL=MLMOTS
          MOTS(1)='MU  '
*
          JGM=2
          SEGINI MLMOTS
          MOFAC=MLMOTS
          MOTS(1)='COHE'
          MOTS(2)='ADHE'        

      ELSE IF (IPLAC.EQ.2) THEN                                                                                                                   
*                                                                       
*         FROTTEMENTS DE CABLES                                         
*         ---------------------                                                              
           
          INMAT=1                                                     
          JGM=2                                                                                                     
          SEGINI MLMOTS                                                 
          MOOBL=MLMOTS                                                  
          MOTS(1)='FF  '                                                
          MOTS(2)='PHIF' 
          jgm=0
          segini mlmots
          mofac=mlmots                                                 
      ELSE
          IRET=0
          CALL ERREUR (261)
      ENDIF
      RETURN
      END