C IDMETA    SOURCE    ROUX      07/10/25    21:15:34     5933           
      SUBROUTINE IDMETA (MFR,MOOBL,MOFAC,IPLAC,IRET)                            
*--------------------------------------------------------------------*          
*       Noms de composantes des caracteristiques melange             *          
*--------------------------------------------------------------------*          
*                                                                    *          
*  ENTREES:                                                          *          
*  -------                                                           *          
*     MFR      num{ro de formulation                                 *          
*     MOOBL    pointeur sur les mots obligatoires                    *          
*     MOFAC    POINTEUR SUR LES MOTS FACULTATIFS                     *          
*     IPLAC    numero du materiau                                    *          
*                                                                    *          
*  SORTIE :                                                          *          
*  -------                                                           *          
*                                                                    *          
*     IRET : 0 SI PROBLEME                                           *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMLMOTS                                                                    
-INC CCOPTIO                                                                    
*                                                                               
      JGN=8                                                                     
      IRET=1                                                                    
*                                                                               
*--------------------------------------------------------------------*          
*                                                                    *     
*                                                                    *          
*--------------------------------------------------------------------*          
      IF (IPLAC.EQ.1) THEN                                                      
*                                                                               
*        MODELE CEREM/M. MARTINEZ,H. BURLET, L.BRIOTTET,                      
*             changements de phase 16MND5                        
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+23                                                            
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           

         MOTS(JGA+1)=  'AC1' 
         MOTS(JGA+2)=  'AR1' 
         MOTS(JGA+3)=  'MS0' 
         MOTS(JGA+4)=  'BETA' 
         MOTS(JGA+5)=  'AC' 
         MOTS(JGA+6)=  'AA' 
         MOTS(JGA+7)=  'ZS' 
         MOTS(JGA+8)=  'TPLM' 
         MOTS(JGA+9)=  'CARB' 
         MOTS(JGA+10)= 'ACAR' 
         MOTS(JGA+11)= 'DG0' 
         MOTS(JGA+12)= 'AGRA' 

         MOTS(JGA+13)= 'TIHT'
         MOTS(JGA+14)= 'TFHT'
         MOTS(JGA+15)= 'DTHT'
         MOTS(JGA+16)= 'NHTR'
         MOTS(JGA+17)= 'NLEB'
                                                    
         MOTS(JGA+18)= 'AUST' 
         MOTS(JGA+19)= 'FERR' 
         MOTS(JGA+20)= 'BAIN' 
         MOTS(JGA+21)= 'MART' 
         MOTS(JGA+22)= 'MS' 
                             
         MOTS(JGA+23)= 'DTPS'
 
         GOTO 9999                                                              
      ELSE IF (IPLAC.EQ.2) THEN                                                 
*
*        approche ztmax    
*                                                                               
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+ 9                                                           
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)= 'PHA1' 
         MOTS(JGA+2)= 'PHA2'
         MOTS(JGA+3)= 'VIPH' 
         MOTS(JGA+4)= 'AC1' 
         MOTS(JGA+5)= 'AC2' 
         MOTS(JGA+6)= 'AC3' 
         MOTS(JGA+7)= 'AC4' 
         MOTS(JGA+8)= 'VDEH' 
         MOTS(JGA+9)= 'VPAR' 
         GOTO 9999                   
      ELSE IF (IPLAC.EQ.6) THEN                                                 
*
*        approche TMM_LMT2
*                                                                               
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+ 20                                                          
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)= 'PHA1'
         MOTS(JGA+2)= 'PHA2'
           MOTS(JGA+3)= 'PHA3'
         MOTS(JGA+4)= 'tinc'
         MOTS(JGA+5)= 'AC1'
         MOTS(JGA+6)= 'Ka'
         MOTS(JGA+7)= 'm'
         MOTS(JGA+8)= 'Kea'
         MOTS(JGA+9)= 'Eea'
           MOTS(JGA+10)= 'Ms'
           MOTS(JGA+11)= 'Ks'
           MOTS(JGA+12)= 'Ar'
           MOTS(JGA+13)= 'Br'
           MOTS(JGA+14)= 'Cr'
         MOTS(JGA+15)= 'Amax' 
         MOTS(JGA+16)= 'n'
           MOTS(JGA+17)= 'TF1'
           MOTS(JGA+18)= 'TF2'
           MOTS(JGA+19)= 'PHA4'
           MOTS(JGA+20)= 'PHA5'
         GOTO 9999                   

*                                     
      ELSE IF (IPLAC.EQ.3) THEN                                                 
*                                                                            
*       parallele        
         GOTO 9999                   
*                                      
      ELSE IF (IPLAC.EQ.4) THEN                                                 
* 
*     serie
         GOTO 9999                   
*                                                                              
      ELSE IF (IPLAC.EQ.5) THEN                                                 
* 
*     utilisateur
         GOTO 9999                   
*                                                                              
      ELSE IF (IPLAC.EQ.99) THEN                                                 
*
*   modele de Leblond et Devaux
*
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+13                                                            
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)= 'AC1' 
         MOTS(JGA+2)= 'AC2' 
         MOTS(JGA+3)= 'AC3' 
         MOTS(JGA+4)= 'AC4' 
         MOTS(JGA+5)= 'TAU1' 
         MOTS(JGA+6)= 'TAU2' 
         MOTS(JGA+7)= 'TAU3' 
         MOTS(JGA+8)= 'TAU4' 
         MOTS(JGA+9)= 'ZA' 
         MOTS(JGA+10)= 'ZF' 
         MOTS(JGA+11)= 'ZB' 
         MOTS(JGA+12)= 'ZM' 
         MOTS(JGA+13)= 'MS'
         GOTO 9999                   
                                     
      ELSE IF (IPLAC.EQ.99) THEN                                                 
*
*   modele croissance de grain                                                                               
*                                                                               
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+6                                                            
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)= 'L0' 
         MOTS(JGA+2)= 'A'
         MOTS(JGA+3)= 'Q'
         MOTS(JGA+4)= 'QN' 
         MOTS(JGA+5)= 'ZA' 
         MOTS(JGA+6)= 'DG' 
         GOTO 9999                   
*
*
      ELSE IF (IPLAC.EQ.99) THEN                                                 
*
*        approche semt2     
*                                                                               
         MLMOTS=MOOBL                                                           
         JGA=MOTS(/2)                                                           
         JGM=JGA+6                                                            
         SEGADJ MLMOTS                                                          
         MOOBL=MLMOTS                                                           
         MOTS(JGA+1)= 'AC1' 
         MOTS(JGA+2)= 'AC2' 
         MOTS(JGA+3)= 'AC3' 
         MOTS(JGA+4)= 'AC4' 
         MOTS(JGA+5)= 'ZF' 
         MOTS(JGA+6)= 'ZA' 
         MLMOTS=MOFAC
         JGA=MOTS(/2)                                                           
         JGM=JGA+2                                                            
         SEGADJ MLMOTS                                                          
         MOFAC=MLMOTS                                                           
         MOTS(JGA+1)= ' ' 
         MOTS(JGA+2)= ' ' 
         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