C IDELNL    SOURCE    CHAT      05/01/13    00:28:53     5004           
C IDPLEN    SOURCE    AC2       97/04/29    21:20:29     2680           
      SUBROUTINE IDELNL (MFR,MOOBL,MOFAC,IPLAC,IRET)                            
*--------------------------------------------------------------------*          
*       Noms de composantes de mat{riaux elastiques non lineaires    *          
*--------------------------------------------------------------------*          
*                                                                    *          
*  ENTREES:                                                          *          
*  -------                                                           *          
*     MFR      num{ro de formulation                                 *          
*     IPMODL   objet mod}le {l{mentaire ( segment actif )            *          
*     MOOBL    pointeur sur les mots obligatoires                    *          
*     MOFAC    pointeur sur les mots facultatif                      *          
*     IPLAC    numero du materiau dans MODPLA                        *          
*                                                                    *          
*  SORTIE :                                                          *          
*  -------                                                           *          
*                                                                    *          
*     IRET : 0 SI PROBLEME                                           *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMLMOTS                                                                    
-INC CCOPTIO                                                                    
*                                                                               
      JGN=8                                                                     
      IRET=1                                                                    
*                                                                               
*--------------------------------------------------------------------*          
*                                                                    *          
*    T Y P E   EQUIPLAS                                              *          
*                                                                    *          
*--------------------------------------------------------------------*          
      IF (IPLAC.EQ.1) THEN                                                      
*                                                                               
*        MODELE EQUIPLAS                               
*                                                                               
         IF (MOOBL.NE.0) THEN
            MLMOTS = MOOBL
            JGA = MOTS(/2)
            JGM = JGA+1
            SEGADJ,MLMOTS
         ELSE
            JGA = 0
            JGM = 1
            SEGINI,MLMOTS
         ENDIF
         MOOBL = MLMOTS
         MOTS(JGA+1) = 'TRAC'
         GOTO 9999
* 
      ENDIF                                                                     
      GOTO 99                                                                   
*                                                                               
 9999 CONTINUE                                                                  
      IRET=1                                                                    
      RETURN                                                                    
*                                                                               
*     SI PROBLEME , ON SORT AVEC IRET A 0                                       
*                                                                               
  99  CONTINUE                                                                  
      IRET=0                                                                    
      CALL ERREUR(261)                                                          
      RETURN                                                                    
      END