C IDPHAS    SOURCE    CHAT      11/03/16    21:25:35     6902           
      SUBROUTINE IDPHAS(MFR,IPMODL,IPCOMP,NBROBL,NBRFAC)
*--------------------------------------------------------------------*
*                                                                    *
*    RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES MICROSTRUCTURES *
*    ________________________________________________________        *
*                                                                    *
*    ENTREES:                                                        *
*                                                                    *
*        MFR       NUMERO DE LA FORMULATION                          *
*        IPMODL    OBJET MODEL ELEMENTAIRE ( SEGMENT ACTIF )         *
*                                                                    *
*    SORTIES:                                                        *
*                                                                    *
*        IPCOMP    POINTEUR SUR LES LISTES DE NOMS DE COMPOSANTES    *
*                  obligatoires et facultatives                      *
*                                                                    *
*        NBROBL    nombre de composantes obligatoires                *
*                                                                    *
*        NBRFAC    nombre de composantes facultatives                *
*                                                                    *
*--------------------------------------------------------------------*
*
      IMPLICIT INTEGER(I-N)
-INC SMMODEL
-INC CCOPTIO
-INC CCHAMP
*
      CHARACTER*16 MOMODL(100)
*
      NBROBL=0
      NBRFAC=0
      SEGINI NOMID
      IPCOMP = NOMID
C
      IMODEL=IPMODL
      NMAT=MATMOD(/2)
      MELE=NEFMOD
C
        INMAT = 1
      CALL MODMET (MOMODL,NMOD)
  50  CONTINUE
      INMAT = INMAT + 1
      IF (INMAT.LE.NMAT) THEN
        CALL PLACE (MOMODL,NMOD,IPLAC,MATMOD(INMAT))
        IF (IPLAC.EQ.1) THEN
* CEREM
          JGA=LESOBL(/2)
          JGB=LESFAC(/2)
          NBROBL=JGA+0  
          NBRFAC=JGB+0
          IPCOMP = NOMID                                                              
*                                                          
        ELSE IF (IPLAC.EQ.2) THEN
* SEMT2
          JGA=LESOBL(/2)
          JGB=LESFAC(/2)
          NBROBL=JGA+0  
          NBRFAC=JGB+0
          IPCOMP = NOMID                                                              
*                                                      
        ELSE IF (IPLAC.EQ.3) THEN
* SRMP12
          JGA=LESOBL(/2)
          JGB=LESFAC(/2)
          NBROBL=JGA+0  
          NBRFAC=JGB+0
          IPCOMP = NOMID                                                              
*
*                                                      
        ELSE IF (IPLAC.EQ.4) THEN
* LEBLOND
          IPCOMP = NOMID                                                              
*                                                      
        ELSE IF (IPLAC.EQ.5) THEN
* MGRAIN
          JGA=LESOBL(/2)
          JGB=LESFAC(/2)
          NBROBL=JGA+0  
          NBRFAC=JGB+0
          IPCOMP = NOMID                                                              
*                                                         
        ELSE
*
        ENDIF
        GOTO 50
      ENDIF
*
      NBROBL=LESOBL(/2)
      NBRFAC=LESFAC(/2)
      SEGDES NOMID                                                              
      RETURN                                                                 

C
      END