Esope source files

   1 : C IDFC      SOURCE    CHAT      05/01/13    00:29:04     5004           
   2 :       SUBROUTINE IDFC(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
   3 : *--------------------------------------------------------------------*
   4 : *                                                                    *
   5 : *    RECHERCHE DES NOMS DES COMPOSANTES DE FONCTION DE COURANT       *
   6 : *    _________________________________________________________       *
   7 : *                                                                    *
   8 : *    ENTREES:                                                        *
   9 : *                                                                    *
  10 : *        MFR       NUMERO DE LA FORMULATION                          *
  11 : *        IFOU      VALEUR DU IFOUR DE CCOPTIO                        *
  12 : *                                                                    *
  13 : *    SORTIES:                                                        *
  14 : *                                                                    *
  15 : *        IPNOMC    pointeur sur les listes de noms de composantes    *
  16 : *                  obligatoires et facultatives                      *
  17 : *                                                                    *
  18 : *        NBROBL    nombre de composantes obligatoires                *
  19 : *                                                                    *
  20 : *        NBRFAC    nombre de composantes facultatives                *
  21 : *                                                                    *
  22 : *--------------------------------------------------------------------*
  23 : *
  24 :       IMPLICIT INTEGER(I-N)
  25 :       SEGMENT NOMID
  26 :         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  27 :       ENDSEGMENT
  28 : *
  29 :       NBROBL=0
  30 :       NBRFAC=0
  31 :       NOMID=0
  32 : *
  33 :       NBROBL=1
  34 :       SEGINI NOMID
  35 :       LESOBL(1)='FC  '
  36 :       IPNOMC=NOMID
  37 :       SEGDES NOMID
  38 :       RETURN
  39 :       END
  40 : 
  41 : 
  42 :  
  43 :  
  44 :  
  45 :