Esope source files

   1 : C IDPHAS    SOURCE    CHAT      11/03/16    21:25:35     6902           
   2 :       SUBROUTINE IDPHAS(MFR,IPMODL,IPCOMP,NBROBL,NBRFAC)
   3 : *--------------------------------------------------------------------*
   4 : *                                                                    *
   5 : *    RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES MICROSTRUCTURES *
   6 : *    ________________________________________________________        *
   7 : *                                                                    *
   8 : *    ENTREES:                                                        *
   9 : *                                                                    *
  10 : *        MFR       NUMERO DE LA FORMULATION                          *
  11 : *        IPMODL    OBJET MODEL ELEMENTAIRE ( SEGMENT ACTIF )         *
  12 : *                                                                    *
  13 : *    SORTIES:                                                        *
  14 : *                                                                    *
  15 : *        IPCOMP    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 : -INC SMMODEL
  26 : -INC CCOPTIO
  27 : -INC CCHAMP
  28 : *
  29 :       CHARACTER*16 MOMODL(100)
  30 : *
  31 :       NBROBL=0
  32 :       NBRFAC=0
  33 :       SEGINI NOMID
  34 :       IPCOMP = NOMID
  35 : C
  36 :       IMODEL=IPMODL
  37 :       NMAT=MATMOD(/2)
  38 :       MELE=NEFMOD
  39 : C
  40 :         INMAT = 1
  40 :       CALL MODMET (MOMODL,NMOD)
  41 :   50  CONTINUE
  42 :       INMAT = INMAT + 1
  43 :       IF (INMAT.LE.NMAT) THEN
  43 :         CALL PLACE (MOMODL,NMOD,IPLAC,MATMOD(INMAT))
  44 :         IF (IPLAC.EQ.1) THEN
  45 : * CEREM
  46 :           JGA=LESOBL(/2)
  47 :           JGB=LESFAC(/2)
  48 :           NBROBL=JGA+0  
  49 :           NBRFAC=JGB+0
  50 :           IPCOMP = NOMID                                                              
  51 : *                                                          
  52 :         ELSE IF (IPLAC.EQ.2) THEN
  53 : * SEMT2
  54 :           JGA=LESOBL(/2)
  55 :           JGB=LESFAC(/2)
  56 :           NBROBL=JGA+0  
  57 :           NBRFAC=JGB+0
  58 :           IPCOMP = NOMID                                                              
  59 : *                                                      
  60 :         ELSE IF (IPLAC.EQ.3) THEN
  61 : * SRMP12
  62 :           JGA=LESOBL(/2)
  63 :           JGB=LESFAC(/2)
  64 :           NBROBL=JGA+0  
  65 :           NBRFAC=JGB+0
  66 :           IPCOMP = NOMID                                                              
  67 : *
  68 : *                                                      
  69 :         ELSE IF (IPLAC.EQ.4) THEN
  70 : * LEBLOND
  71 :           IPCOMP = NOMID                                                              
  72 : *                                                      
  73 :         ELSE IF (IPLAC.EQ.5) THEN
  74 : * MGRAIN
  75 :           JGA=LESOBL(/2)
  76 :           JGB=LESFAC(/2)
  77 :           NBROBL=JGA+0  
  78 :           NBRFAC=JGB+0
  79 :           IPCOMP = NOMID                                                              
  80 : *                                                         
  81 :         ELSE
  82 : *
  83 :         ENDIF
  84 :         GOTO 50
  85 :       ENDIF
  86 : *
  87 :       NBROBL=LESOBL(/2)
  88 :       NBRFAC=LESFAC(/2)
  89 :       SEGDES NOMID                                                              
  90 :       RETURN                                                                 
  91 : 
  92 : C
  93 :       END
  94 : 
  95 : 
  96 : 
  97 : 
  98 : 
  99 : 
 100 : 
 101 : 
 102 : 
 103 : 
 104 : 
 105 : 
 106 : 
 107 : 
 108 : 
 109 : 
 110 : 
 111 : 
 112 : 
 113 : 
 114 : 
 115 :  
 116 :  
 117 :  
 118 :  
 119 :  
 120 :  
 121 :  
 122 :  
 123 :  
 124 :  
 125 :  
 126 :  
 127 :