C IDELNL    SOURCE    PASCAL    19/07/26    21:15:14     10198          
      SUBROUTINE IDELNL (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
*--------------------------------------------------------------------*
*       Noms de composantes de materiaux elastiques non lineaires    *
*--------------------------------------------------------------------*
*                                                                    *
*  ENTREES:                                                          *
*  -------                                                           *
*     MFR      numero de formulation                                 *
*     TABOBL   Tableau des mots OBLIGATOIRES                         *
*     TABFAC   Tableau des mots FACULTATIFS                          *
*     JGOBL    Taille utilisee du tableau des mots OBLIGATOIRES      *
*     JGFAC    Taille utilisee du tableau des mots FACULTATIFS       *
*     IPLAC    numero du materiau dans MODPLA                        *
*                                                                    *
*  SORTIE :                                                          *
*  -------                                                           *
*                                                                    *
*     IRET : 0 SI PROBLEME                                           *
*                                                                    *
*--------------------------------------------------------------------*
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      

-INC PPARAM
-INC CCOPTIO
      CHARACTER*8  TABOBL(ITA),TABFAC(ITA)
*
      IRET=1

*--------------------------------------------------------------------*
*                                                                    *
*    T Y P E   EQUIPLAS                                              *
*                                                                    *
*--------------------------------------------------------------------*
      IF (IPLAC.EQ.1) THEN
*        MODELE EQUIPLAS
*
         JGM0  = JGOBL
         JGOBL = JGM0+1
         TABOBL(JGM0+1) = 'ECRO'
         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