C IDFC      SOURCE    CB215821  19/08/20    21:18:23     10287          
      SUBROUTINE IDFC(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
*--------------------------------------------------------------------*
*                                                                    *
*    RECHERCHE DES NOMS DES COMPOSANTES DE FONCTION DE COURANT       *
*    _________________________________________________________       *
*                                                                    *
*    ENTREES:                                                        *
*                                                                    *
*        MFR       NUMERO DE LA FORMULATION                          *
*        IFOU      VALEUR DU IFOUR DE CCOPTIO                        *
*                                                                    *
*    SORTIES:                                                        *
*                                                                    *
*        IPNOMC    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)
      SEGMENT NOMID
        CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
      ENDSEGMENT
*
      NBROBL=0
      NBRFAC=0
      NOMID=0
*
      NBROBL=1
      SEGINI NOMID
      LESOBL(1)='FC  '
      IPNOMC=NOMID
      END