C IDPVIN    SOURCE    OF166741  24/10/03    21:15:20     12022          

*--------------------------------------------------------------------*
*                                                                    *
*     RECHERCHE DES NOMS DES COMPOSANTES DE FORCE EN MAGNETODYNAMIQUE*
*     _______________________________________________________________*
*                                                                    *
*     ENTREES:                                                       *
*                                                                    *
*        MFR       NUMERO DE LA FORMULATION                          *
*        IFOU      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                *
*                                                                    *
*--------------------------------------------------------------------*
      SUBROUTINE IDPVIN(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM

      SEGMENT NOMID
        CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
      ENDSEGMENT

      NBROBL=0
      NBRFAC=0
      NOMID =0

      IF (MFR.EQ.3) THEN
        NBROBL=3
        SEGINI NOMID
        LESOBL(1)='AX      '
        LESOBL(2)='AY      '
        LESOBL(3)='AZ      '
c*     ELSE
      ENDIF

 900  CONTINUE
      IF (NOMID.EQ.0) SEGINI NOMID
      IPNOMC = NOMID

      RETURN
      END