C IDPLEN    SOURCE    AM        12/02/06    21:15:56     7281           
      SUBROUTINE IDPLEN (MFR,MOOBL,MOFAC,IPLAC,IRET)                            
*--------------------------------------------------------------------*          
*       Noms de composantes de mat{riaux plastique endommageables    *          
*--------------------------------------------------------------------*          
*                                                                    *          
*  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     P L A S T I Q U E     E N D O M M A G E A B L E     *          
*                                                                    *          
*--------------------------------------------------------------------*          
      IF (IPLAC.EQ.1) THEN                                                      
*                                                                               
*        MODELE D'ENDOMMAGEMENT P/Y                                
*                                                                               
         IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99                                    
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+3                                                              
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)='TRAC'                                                     
         MOTS(JGA+2)='EVOL'   
         MOTS(JGA+3)='COMP'
         GOTO 9999                                                              
*
      ELSE IF (IPLAC.EQ.2) THEN 
*
*   MODELE ROUSSELIER    
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+5
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='TRAC'
         MOTS(JGA+2)='F   ' 
         MOTS(JGA+3)='D   ' 
         MOTS(JGA+4)='SIG1' 
         MOTS(JGA+5)='FC  ' 
         GOTO 9999
* 
      ELSE IF (IPLAC.EQ.3) THEN
*
*   MODELE GURSON2    
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+12
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='TRAC'
         MOTS(JGA+2)='Q   '
         MOTS(JGA+3)='FU  '
         MOTS(JGA+4)='FF  '
         MOTS(JGA+5)='FC  '
         MOTS(JGA+6)='FNS0' 
         MOTS(JGA+7)='FNE0' 
         MOTS(JGA+8)='SNS ' 
         MOTS(JGA+9)='SNE ' 
         MOTS(JGA+10)='SIGN' 
         MOTS(JGA+11)='EPSN'  
         MOTS(JGA+12)='F0  '
         MLMOTS=MOFAC
         JGM=MOTS(/2)+1
         SEGADJ MLMOTS
         MOTS(JGM)='SRMA'          
         GOTO 9999
* 
      ELSE IF (IPLAC.EQ.4) THEN
*
*   MODELE DRAGON
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+6
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='g  '
         MOTS(JGA+2)='ALFA'
         MOTS(JGA+3)='BETA'
         MOTS(JGA+4)='C0  '
         MOTS(JGA+5)='C1  '
         MOTS(JGA+6)='B   '
         GOTO 9999
*
      ELSE IF (IPLAC.EQ.5) THEN
*
*        MODELE ENDOMMAGEMENT BETON_URGC 
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+11
         SEGADJ MLMOTS
              MOTS(JGA+1 )='ALFA'
              MOTS(JGA+2 )='BETA'
              MOTS(JGA+3 )='LCS '
              MOTS(JGA+4 )='GFC '
              MOTS(JGA+5 )='GFT '
              MOTS(JGA+6 )='ITON'
              MOTS(JGA+7 )='IMOD'
              MOTS(JGA+8 )='DC  '
              MOTS(JGA+9 )='DT  '
              MOTS(JGA+10)='IASO'
              MOTS(JGA+11)='ICOU'                
         GOTO 9999
*  
      ELSE IF (IPLAC.EQ.6) THEN
*
*        MODELE ENDOMMAGEMENT BETON_INSA 3D 
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+4
         SEGADJ MLMOTS
              MOTS(JGA+1 )='RT'
              MOTS(JGA+2 )='RC'
              MOTS(JGA+3 )='GFT'
              MOTS(JGA+4 )='GFC'                 
         GOTO 9999 
*
      ELSE IF (IPLAC.EQ.7) THEN
*
*        MODELE ENDOMMAGEMENT BETON_DYNAR_LMT  
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+18
         SEGADJ MLMOTS
              MOTS(JGA+1 )='F0'
              MOTS(JGA+2 )='Q1'
              MOTS(JGA+3 )='Q2'
              MOTS(JGA+4 )='Q3'
              MOTS(JGA+5 )='SGM0'
              MOTS(JGA+6 )='XN'
              MOTS(JGA+7 )='NVP'
              MOTS(JGA+8 )='MVP'
              MOTS(JGA+9 )='K'
              MOTS(JGA+10)='MDT'
              MOTS(JGA+11)='NDT'
              MOTS(JGA+12)='AT'
              MOTS(JGA+13)='BT'
              MOTS(JGA+14)='MDC'
              MOTS(JGA+15)='NDC'
              MOTS(JGA+16)='AC'
              MOTS(JGA+17)='BC'
              MOTS(JGA+18)='ED0'
         GOTO 9999 
*
      ELSE IF (IPLAC.EQ.8) THEN
*        MODELE Plastique endommageable Mazars + Sheffield
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+16
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='AC'
         MOTS(JGA+2)='AT'
         MOTS(JGA+3)='BC'
         MOTS(JGA+4)='BT'
         MOTS(JGA+5)='EPD0'
         MOTS(JGA+6)='RC'
         MOTS(JGA+7)='RT'
         MOTS(JGA+8)='P'
         MOTS(JGA+9)='AH'
         MOTS(JGA+10)='BH'
         MOTS(JGA+11)='CH'
         MOTS(JGA+12)='GAMA'
         MOTS(JGA+13)='ALFA'
         MOTS(JGA+14)='A'
         MOTS(JGA+15)='K0'
         MOTS(JGA+16)='BETA'
         GOTO 9999

      ELSE IF (IPLAC.EQ.9) THEN
*        MODELE GERNAY
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+8
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='RC'
         MOTS(JGA+2)='RT'
         MOTS(JGA+3)='RB'
         MOTS(JGA+4)='EPS1'
         MOTS(JGA+5)='DILA'
         MOTS(JGA+6)='DAM1'
         MOTS(JGA+7)='XC'
         MOTS(JGA+8)='GT'
         GOTO 9999

      ELSE IF (IPLAC.EQ.10) THEN
*        MODELE WELLS 
*
         MLMOTS=MOOBL
         JGA=MOTS(/2)
         JGM=JGA+4
         SEGADJ MLMOTS
         MOOBL=MLMOTS
         MOTS(JGA+1)='LTR'
         MOTS(JGA+2)='GFTR'
         MOTS(JGA+3)='HS'
         MOTS(JGA+4)='DINT'
         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