Esope source files

   1 : C IDPVIN    SOURCE    CHAT      05/01/13    00:30:37     5004           
   2 :       SUBROUTINE IDPVIN(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
   3 : *--------------------------------------------------------------------*
   4 : *                                                                    *
   5 : *     RECHERCHE DES NOMS DES COMPOSANTES DE FORCE EN MAGNETODYNAMIQUE*
   6 : *     _______________________________________________________________*
   7 : *                                                                    *
   8 : *     ENTREES:                                                       *
   9 : *                                                                    *
  10 : *        MFR       NUMERO DE LA FORMULATION                          *
  11 : *        IFOU      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 :       IF(MFR.EQ.3) THEN
  34 :         NBROBL=3
  35 :         SEGINI NOMID
  36 :         LESOBL(1)='AX  '
  37 :         LESOBL(2)='AY  '
  38 :         LESOBL(3)='AZ  '
  39 :         GO TO 9999
  40 :       ENDIF
  41 : *
  42 :  9999 CONTINUE
  43 :       IF (NOMID.EQ.0) SEGINI NOMID
  44 :       IPNOMC=NOMID
  45 :       SEGDES NOMID
  46 :       RETURN
  47 :       END
  48 : 
  49 : 
  50 :  
  51 :  
  52 :