1 : C IDMETA SOURCE ROUX 07/10/25 21:15:34 5933
2 : SUBROUTINE IDMETA (MFR,MOOBL,MOFAC,IPLAC,IRET)
3 : *--------------------------------------------------------------------*
4 : * Noms de composantes des caracteristiques melange *
5 : *--------------------------------------------------------------------*
6 : * *
7 : * ENTREES: *
8 : * ------- *
9 : * MFR num{ro de formulation *
10 : * MOOBL pointeur sur les mots obligatoires *
11 : * MOFAC POINTEUR SUR LES MOTS FACULTATIFS *
12 : * IPLAC numero du materiau *
13 : * *
14 : * SORTIE : *
15 : * ------- *
16 : * *
17 : * IRET : 0 SI PROBLEME *
18 : * *
19 : *--------------------------------------------------------------------*
20 : *
21 : IMPLICIT INTEGER(I-N)
22 : -INC SMLMOTS
23 : -INC CCOPTIO
24 : *
25 : JGN=8
26 : IRET=1
27 : *
28 : *--------------------------------------------------------------------*
29 : * *
30 : * *
31 : *--------------------------------------------------------------------*
32 : IF (IPLAC.EQ.1) THEN
33 : *
34 : * MODELE CEREM/M. MARTINEZ,H. BURLET, L.BRIOTTET,
35 : * changements de phase 16MND5
36 : MLMOTS=MOOBL
37 : JGA=MOTS(/2)
38 : JGM=JGA+23
39 : SEGADJ MLMOTS
40 : MOOBL=MLMOTS
41 :
42 : MOTS(JGA+1)= 'AC1'
43 : MOTS(JGA+2)= 'AR1'
44 : MOTS(JGA+3)= 'MS0'
45 : MOTS(JGA+4)= 'BETA'
46 : MOTS(JGA+5)= 'AC'
47 : MOTS(JGA+6)= 'AA'
48 : MOTS(JGA+7)= 'ZS'
49 : MOTS(JGA+8)= 'TPLM'
50 : MOTS(JGA+9)= 'CARB'
51 : MOTS(JGA+10)= 'ACAR'
52 : MOTS(JGA+11)= 'DG0'
53 : MOTS(JGA+12)= 'AGRA'
54 :
55 : MOTS(JGA+13)= 'TIHT'
56 : MOTS(JGA+14)= 'TFHT'
57 : MOTS(JGA+15)= 'DTHT'
58 : MOTS(JGA+16)= 'NHTR'
59 : MOTS(JGA+17)= 'NLEB'
60 :
61 : MOTS(JGA+18)= 'AUST'
62 : MOTS(JGA+19)= 'FERR'
63 : MOTS(JGA+20)= 'BAIN'
64 : MOTS(JGA+21)= 'MART'
65 : MOTS(JGA+22)= 'MS'
66 :
67 : MOTS(JGA+23)= 'DTPS'
68 :
69 : GOTO 9999
70 : ELSE IF (IPLAC.EQ.2) THEN
71 : *
72 : * approche ztmax
73 : *
74 : MLMOTS=MOOBL
75 : JGA=MOTS(/2)
76 : JGM=JGA+ 9
77 : SEGADJ MLMOTS
78 : MOOBL=MLMOTS
79 : MOTS(JGA+1)= 'PHA1'
80 : MOTS(JGA+2)= 'PHA2'
81 : MOTS(JGA+3)= 'VIPH'
82 : MOTS(JGA+4)= 'AC1'
83 : MOTS(JGA+5)= 'AC2'
84 : MOTS(JGA+6)= 'AC3'
85 : MOTS(JGA+7)= 'AC4'
86 : MOTS(JGA+8)= 'VDEH'
87 : MOTS(JGA+9)= 'VPAR'
88 : GOTO 9999
89 : ELSE IF (IPLAC.EQ.6) THEN
90 : *
91 : * approche TMM_LMT2
92 : *
93 : MLMOTS=MOOBL
94 : JGA=MOTS(/2)
95 : JGM=JGA+ 20
96 : SEGADJ MLMOTS
97 : MOOBL=MLMOTS
98 : MOTS(JGA+1)= 'PHA1'
99 : MOTS(JGA+2)= 'PHA2'
100 : MOTS(JGA+3)= 'PHA3'
101 : MOTS(JGA+4)= 'tinc'
102 : MOTS(JGA+5)= 'AC1'
103 : MOTS(JGA+6)= 'Ka'
104 : MOTS(JGA+7)= 'm'
105 : MOTS(JGA+8)= 'Kea'
106 : MOTS(JGA+9)= 'Eea'
107 : MOTS(JGA+10)= 'Ms'
108 : MOTS(JGA+11)= 'Ks'
109 : MOTS(JGA+12)= 'Ar'
110 : MOTS(JGA+13)= 'Br'
111 : MOTS(JGA+14)= 'Cr'
112 : MOTS(JGA+15)= 'Amax'
113 : MOTS(JGA+16)= 'n'
114 : MOTS(JGA+17)= 'TF1'
115 : MOTS(JGA+18)= 'TF2'
116 : MOTS(JGA+19)= 'PHA4'
117 : MOTS(JGA+20)= 'PHA5'
118 : GOTO 9999
119 :
120 : *
121 : ELSE IF (IPLAC.EQ.3) THEN
122 : *
123 : * parallele
124 : GOTO 9999
125 : *
126 : ELSE IF (IPLAC.EQ.4) THEN
127 : *
128 : * serie
129 : GOTO 9999
130 : *
131 : ELSE IF (IPLAC.EQ.5) THEN
132 : *
133 : * utilisateur
134 : GOTO 9999
135 : *
136 : ELSE IF (IPLAC.EQ.99) THEN
137 : *
138 : * modele de Leblond et Devaux
139 : *
140 : MLMOTS=MOOBL
141 : JGA=MOTS(/2)
142 : JGM=JGA+13
143 : SEGADJ MLMOTS
144 : MOOBL=MLMOTS
145 : MOTS(JGA+1)= 'AC1'
146 : MOTS(JGA+2)= 'AC2'
147 : MOTS(JGA+3)= 'AC3'
148 : MOTS(JGA+4)= 'AC4'
149 : MOTS(JGA+5)= 'TAU1'
150 : MOTS(JGA+6)= 'TAU2'
151 : MOTS(JGA+7)= 'TAU3'
152 : MOTS(JGA+8)= 'TAU4'
153 : MOTS(JGA+9)= 'ZA'
154 : MOTS(JGA+10)= 'ZF'
155 : MOTS(JGA+11)= 'ZB'
156 : MOTS(JGA+12)= 'ZM'
157 : MOTS(JGA+13)= 'MS'
158 : GOTO 9999
159 :
160 : ELSE IF (IPLAC.EQ.99) THEN
161 : *
162 : * modele croissance de grain
163 : *
164 : MLMOTS=MOOBL
165 : JGA=MOTS(/2)
166 : JGM=JGA+6
167 : SEGADJ MLMOTS
168 : MOOBL=MLMOTS
169 : MOTS(JGA+1)= 'L0'
170 : MOTS(JGA+2)= 'A'
171 : MOTS(JGA+3)= 'Q'
172 : MOTS(JGA+4)= 'QN'
173 : MOTS(JGA+5)= 'ZA'
174 : MOTS(JGA+6)= 'DG'
175 : GOTO 9999
176 : *
177 : *
178 : ELSE IF (IPLAC.EQ.99) THEN
179 : *
180 : * approche semt2
181 : *
182 : MLMOTS=MOOBL
183 : JGA=MOTS(/2)
184 : JGM=JGA+6
185 : SEGADJ MLMOTS
186 : MOOBL=MLMOTS
187 : MOTS(JGA+1)= 'AC1'
188 : MOTS(JGA+2)= 'AC2'
189 : MOTS(JGA+3)= 'AC3'
190 : MOTS(JGA+4)= 'AC4'
191 : MOTS(JGA+5)= 'ZF'
192 : MOTS(JGA+6)= 'ZA'
193 : MLMOTS=MOFAC
194 : JGA=MOTS(/2)
195 : JGM=JGA+2
196 : SEGADJ MLMOTS
197 : MOFAC=MLMOTS
198 : MOTS(JGA+1)= ' '
199 : MOTS(JGA+2)= ' '
200 : GOTO 9999
201 : *
202 : ENDIF
203 : *
204 : GOTO 99
205 : *
206 : 9999 CONTINUE
207 : IRET=1
208 : RETURN
209 : *
210 : * SI PROBLEME , ON SORT AVEC IRET A 0
211 : *
212 : 99 CONTINUE
213 : IRET=0
213 : CALL ERREUR(261)
214 : RETURN
215 : END
216 :
217 :
218 :
219 :
220 :
221 :
222 :
© Cast3M 2003 - All rights reserved.
Disclaimer