1 : C IDFLUA SOURCE AM 05/11/10 21:15:09 5234
2 : SUBROUTINE IDFLUA (MFR,MOOBL,MOFAC,IPLAC,IRET)
3 : *--------------------------------------------------------------------*
4 : * Noms de composantes de mat{riaux fluages *
5 : *--------------------------------------------------------------------*
6 : * *
7 : * ENTREES: *
8 : * ------- *
9 : * MFR num{ro de formulation *
10 : * IPMODL objet mod}le {l{mentaire ( segment actif ) *
11 : * MOOBL pointeur sur les mots obligatoires *
12 : * MOFAC POINTEUR SUR LES MOTS FACULTATIFS *
13 : * IPLAC numero du materiau dans MODFLU *
14 : * *
15 : * SORTIE : *
16 : * ------- *
17 : * *
18 : * IRET : 0 SI PROBLEME *
19 : * *
20 : *--------------------------------------------------------------------*
21 : *
22 : IMPLICIT INTEGER(I-N)
23 : -INC SMLMOTS
24 : -INC CCOPTIO
25 : *
26 : JGN=8
27 : IRET=1
28 : *
29 : *--------------------------------------------------------------------*
30 : * *
31 : * T Y P E F L U A G E *
32 : * *
33 : *--------------------------------------------------------------------*
34 : IF (IPLAC.EQ.1) THEN
35 : *
36 : * MODELE FLUAGE-1 NORTON
37 : *
38 : MLMOTS=MOOBL
39 : JGA=MOTS(/2)
40 : JGM=JGA+4
41 : SEGADJ MLMOTS
42 : MOOBL=MLMOTS
43 : MOTS(JGA+1)= 'SMAX'
44 : MOTS(JGA+2)= 'AF1 '
45 : MOTS(JGA+3)= 'AF2 '
46 : MOTS(JGA+4)= 'AF3 '
47 : GOTO 9999
48 : ELSE IF (IPLAC.EQ.2) THEN
49 : *
50 : * MODELE FLUAGE-2 BLACKBURN
51 : *
52 : MLMOTS=MOOBL
53 : JGA=MOTS(/2)
54 : JGM=JGA+14
55 : SEGADJ MLMOTS
56 : MOOBL=MLMOTS
57 : MOTS(JGA+1)= 'SMAX'
58 : MOTS(JGA+2)= 'AF1 '
59 : MOTS(JGA+3)= 'AF2 '
60 : MOTS(JGA+4)= 'AF3 '
61 : MOTS(JGA+5)= 'AF4 '
62 : MOTS(JGA+6)= 'RF1 '
63 : MOTS(JGA+7)= 'RF2 '
64 : MOTS(JGA+8)= 'RF3 '
65 : MOTS(JGA+9)= 'RF4 '
66 : MOTS(JGA+10)= 'BF1 '
67 : MOTS(JGA+11)= 'BF2 '
68 : MOTS(JGA+12)= 'BF3 '
69 : MOTS(JGA+13)= 'BF4 '
70 : MOTS(JGA+14)= 'BF5 '
71 : GOTO 9999
72 : ELSE IF (IPLAC.EQ.3) THEN
73 : *
74 : * MODELE FLUAGE-3 RCC-MR FOR 1S MATERIAL (SS 316 LN)
75 : *
76 : MLMOTS=MOOBL
77 : JGA=MOTS(/2)
78 : JGM=JGA+8
79 : SEGADJ MLMOTS
80 : MOOBL=MLMOTS
81 : MOTS(JGA+1)= 'SMAX'
82 : MOTS(JGA+2)= 'AF1 '
83 : MOTS(JGA+3)= 'AF3 '
84 : MOTS(JGA+4)= 'AF2 '
85 : MOTS(JGA+5)= 'TF1 '
86 : MOTS(JGA+6)= 'TF2 '
87 : MOTS(JGA+7)= 'BF1 '
88 : MOTS(JGA+8)= 'BF2 '
89 : GOTO 9999
90 : ELSE IF (IPLAC.EQ.4) THEN
91 : *
92 : * MODELE FLUAGE-4 RCC-MR FOR 2S MATERIAL (SS 304 LN)
93 : *
94 : MLMOTS=MOOBL
95 : JGA=MOTS(/2)
96 : JGM=JGA+12
97 : SEGADJ MLMOTS
98 : MOOBL=MLMOTS
99 : MOTS(JGA+1)= 'SMAX'
100 : MOTS(JGA+2)= 'BF1 '
101 : MOTS(JGA+3)= 'BF2 '
102 : MOTS(JGA+4)= 'BF3 '
103 : MOTS(JGA+5)= 'RF1 '
104 : MOTS(JGA+6)= 'RF2 '
105 : MOTS(JGA+7)= 'RF3 '
106 : MOTS(JGA+8)= 'AF1 '
107 : MOTS(JGA+9)= 'SF1 '
108 : MOTS(JGA+10)= 'AF2 '
109 : MOTS(JGA+11)= 'AF3 '
110 : MOTS(JGA+12)= 'SF2 '
111 : GOTO 9999
112 : ELSE IF (IPLAC.EQ.5) THEN
113 : *
114 : * MODELE FLUAGE-5 LEMAITRE/TIJANI MODEL (ROCK SALT)
115 : *
116 : MLMOTS=MOOBL
117 : JGA=MOTS(/2)
118 : JGM=JGA+7
119 : SEGADJ MLMOTS
120 : MOOBL=MLMOTS
121 : MOTS(JGA+1)= 'SMAX'
122 : MOTS(JGA+2)= 'AF1 '
123 : MOTS(JGA+3)= 'AF2 '
124 : MOTS(JGA+4)= 'AF3 '
125 : MOTS(JGA+5)= 'KXF '
126 : MOTS(JGA+6)= 'KYF '
127 : MOTS(JGA+7)= 'AF4 '
128 : GOTO 9999
129 : ELSE IF (IPLAC.EQ.6) THEN
130 : *
131 : * MODELE FLUAGE-6 POLYNOMIAL
132 : *
133 : MLMOTS=MOOBL
134 : JGA=MOTS(/2)
135 : JGM=JGA+8
136 : SEGADJ MLMOTS
137 : MOOBL=MLMOTS
138 : MOTS(JGA+1)= 'SMAX'
139 : MOTS(JGA+2)= 'AF0 '
140 : MOTS(JGA+3)= 'AF1 '
141 : MOTS(JGA+4)= 'AF2 '
142 : MOTS(JGA+5)= 'AF3 '
143 : MOTS(JGA+6)= 'AF4 '
144 : MOTS(JGA+7)= 'AF5 '
145 : MOTS(JGA+8)= 'AF6 '
146 : GOTO 9999
147 : ELSE IF (IPLAC.EQ.7) THEN
148 : *
149 : * MODELE FLUAGE-7 BLACKBURN_2
150 : *
151 : MLMOTS=MOOBL
152 : JGA=MOTS(/2)
153 : JGM=JGA+14
154 : SEGADJ MLMOTS
155 : MOOBL=MLMOTS
156 : MOTS(JGA+1)= 'SMAX'
157 : MOTS(JGA+2)= 'AF1 '
158 : MOTS(JGA+3)= 'AF2 '
159 : MOTS(JGA+4)= 'AF3 '
160 : MOTS(JGA+5)= 'AF4 '
161 : MOTS(JGA+6)= 'RF1 '
162 : MOTS(JGA+7)= 'RF2 '
163 : MOTS(JGA+8)= 'RF3 '
164 : MOTS(JGA+9)= 'RF4 '
165 : MOTS(JGA+10)= 'BF1 '
166 : MOTS(JGA+11)= 'BF2 '
167 : MOTS(JGA+12)= 'BF3 '
168 : MOTS(JGA+13)= 'BF4 '
169 : MOTS(JGA+14)= 'BF5 '
170 : GOTO 9999
171 : C
172 : ELSE IF (IPLAC.EQ.8) THEN
173 : *****************************************************
174 : C
175 : C=========================================================
176 : C MODELE CERAMIC = BETON OTTOSEN + FLUAGE NORTON
177 : C=========================================================
178 : C Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
179 : IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
180 : & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
181 : *
182 : MLMOTS=MOOBL
183 : JGA=MOTS(/2)
184 : JGM=JGA+13
185 : SEGADJ MLMOTS
186 : MOOBL=MLMOTS
187 : IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN
188 : MOTS(JGA+1)='LXX '
189 : MOTS(JGA+2)='LYY '
190 : MOTS(JGA+3)='LXY '
191 : MOTS(JGA+4)='LZZ '
192 : MOTS(JGA+5)='PXX '
193 : MOTS(JGA+6)='PYY '
194 : MOTS(JGA+7)='PXY '
195 : MOTS(JGA+8)= 'SMAX'
196 : MOTS(JGA+9)= 'AF1 '
197 : MOTS(JGA+10)= 'AF2 '
198 : MOTS(JGA+11)= 'AF3 '
199 : MOTS(JGA+12)= 'TTRA '
200 : MOTS(JGA+13)= 'ENDG '
201 : *
202 : ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN
203 : MOTS(JGA+1)='LRR '
204 : MOTS(JGA+2)='LZZ '
205 : MOTS(JGA+3)='LRZ '
206 : MOTS(JGA+4)='LOO '
207 : MOTS(JGA+5)='PRR '
208 : MOTS(JGA+6)='PZZ '
209 : MOTS(JGA+7)='PRZ '
210 : MOTS(JGA+8)= 'SMAX'
211 : MOTS(JGA+9)= 'AF1 '
212 : MOTS(JGA+10)= 'AF2 '
213 : MOTS(JGA+11)= 'AF3 '
214 : MOTS(JGA+12)= 'TTRA '
215 : MOTS(JGA+13)= 'ENDG '
216 : ENDIF
217 : *
218 : MLMOTS=MOFAC
219 : JGA=MOTS(/2)
220 : JGM=JGA+30
221 : SEGADJ MLMOTS
222 : MOFAC=MLMOTS
223 : MOTS(JGA+1) ='GFTR'
224 : MOTS(JGA+2) ='LTR '
225 : MOTS(JGA+3) ='GFCS'
226 : MOTS(JGA+4) ='LCS '
227 : MOTS(JGA+5) ='GS '
228 : MOTS(JGA+6) ='BTR '
229 : MOTS(JGA+7) ='BCS '
230 : MOTS(JGA+8) ='WRUP'
231 : MOTS(JGA+9) ='BILI'
232 : MOTS(JGA+10)='EPSR'
233 : MOTS(JGA+11)='GFT1'
234 : MOTS(JGA+12)='GFT2'
235 : MOTS(JGA+13)='GFT3'
236 : MOTS(JGA+14)='GS1 '
237 : MOTS(JGA+15)='GS2 '
238 : MOTS(JGA+16)='GS3 '
239 : MOTS(JGA+17)='LTR1'
240 : MOTS(JGA+18)='LTR2'
241 : MOTS(JGA+19)='LTR3'
242 : MOTS(JGA+20)='EPCM'
243 : MOTS(JGA+21)='EPCU'
244 : MOTS(JGA+22)='LCBI'
245 : MOTS(JGA+23)='XK2 '
246 : MOTS(JGA+24)='XGB '
247 : MOTS(JGA+25)='XPA '
248 : MOTS(JGA+26)='WRU1'
249 : MOTS(JGA+27)='WRU2'
250 : MOTS(JGA+28)='BIL1'
251 : MOTS(JGA+29)='BIL2'
252 : MOTS(JGA+30)='EPSB'
253 : GOTO 9999
254 : ENDIF
255 : C
256 : C Formulation CONTRAINTES PLANES / 3D COQUES MINCES
257 : IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
258 : & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
259 : *
260 : MLMOTS=MOOBL
261 : JGA=MOTS(/2)
262 : JGM=JGA+13
263 : SEGADJ MLMOTS
264 : MOOBL=MLMOTS
265 : IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
266 : MOTS(JGA+1)='LXX '
267 : MOTS(JGA+2)='LYY '
268 : MOTS(JGA+3)='LXY '
269 : MOTS(JGA+4)='LZZ '
270 : MOTS(JGA+5)='PXX '
271 : MOTS(JGA+6)='PYY '
272 : MOTS(JGA+7)='PXY '
273 : MOTS(JGA+8)= 'SMAX'
274 : MOTS(JGA+9)= 'AF1 '
275 : MOTS(JGA+10)= 'AF2 '
276 : MOTS(JGA+11)= 'AF3 '
277 : MOTS(JGA+12)= 'TTRA '
278 : MOTS(JGA+13)= 'ENDG'
279 : *
280 : ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
281 : MOTS(JGA+1)='LSS '
282 : MOTS(JGA+2)='LTT '
283 : MOTS(JGA+3)='LST '
284 : MOTS(JGA+4)='LNN '
285 : MOTS(JGA+5)='PSS '
286 : MOTS(JGA+6)='PTT '
287 : MOTS(JGA+7)='PST '
288 : MOTS(JGA+8)= 'SMAX'
289 : MOTS(JGA+9)= 'AF1 '
290 : MOTS(JGA+10)= 'AF2 '
291 : MOTS(JGA+11)= 'AF3 '
292 : MOTS(JGA+12)= 'TTRA '
293 : MOTS(JGA+13)= 'ENDG'
294 : ENDIF
295 : *
296 : MLMOTS=MOFAC
297 : JGA=MOTS(/2)
298 : JGM=JGA+25
299 : SEGADJ MLMOTS
300 : MOFAC=MLMOTS
301 : MOTS(JGA+1) ='GFTR'
302 : MOTS(JGA+2) ='LTR '
303 : MOTS(JGA+3) ='GFCS'
304 : MOTS(JGA+4) ='LCS '
305 : MOTS(JGA+5) ='GS '
306 : MOTS(JGA+6) ='BTR '
307 : MOTS(JGA+7) ='BCS '
308 : MOTS(JGA+8) ='WRUP'
309 : MOTS(JGA+9) ='BILI'
310 : MOTS(JGA+10)='GFT1'
311 : MOTS(JGA+11)='GFT2'
312 : MOTS(JGA+12)='GS1 '
313 : MOTS(JGA+13)='GS2 '
314 : MOTS(JGA+14)='LTR1'
315 : MOTS(JGA+15)='LTR2'
316 : MOTS(JGA+16)='EPCM'
317 : MOTS(JGA+17)='EPCU'
318 : MOTS(JGA+18)='LCBI'
319 : MOTS(JGA+19)='XK2 '
320 : MOTS(JGA+20)='XGB '
321 : MOTS(JGA+21)='XPA '
322 : MOTS(JGA+22)='WRU1'
323 : MOTS(JGA+23)='WRU2'
324 : MOTS(JGA+24)='BIL1'
325 : MOTS(JGA+25)='BIL2'
326 : GOTO 9999
327 : ENDIF
328 : C
329 : C Formulation TRIDIMENSIONNELLE MASSIVE
330 : IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
331 : MLMOTS=MOOBL
332 : JGA=MOTS(/2)
333 : JGM=JGA+18
334 : SEGADJ MLMOTS
335 : MOOBL=MLMOTS
336 : MOTS(JGA+1) ='LXX '
337 : MOTS(JGA+2) ='LYY '
338 : MOTS(JGA+3) ='LZZ '
339 : MOTS(JGA+4) ='LXY '
340 : MOTS(JGA+5) ='LXZ '
341 : MOTS(JGA+6) ='LYZ '
342 : MOTS(JGA+7) ='PXX '
343 : MOTS(JGA+8) ='PYY '
344 : MOTS(JGA+9) ='PZZ '
345 : MOTS(JGA+10)='PXY '
346 : MOTS(JGA+11)='PXZ '
347 : MOTS(JGA+12)='PYZ '
348 : MOTS(JGA+13)= 'SMAX'
349 : MOTS(JGA+14)= 'AF1 '
350 : MOTS(JGA+15)= 'AF2 '
351 : MOTS(JGA+16)= 'AF3 '
352 : MOTS(JGA+17)= 'TTRA '
353 : MOTS(JGA+18)= 'ENDG'
354 : MLMOTS=MOFAC
355 : JGA=MOTS(/2)
356 : JGM=JGA+30
357 : SEGADJ MLMOTS
358 : MOFAC=MLMOTS
359 : MOTS(JGA+1)='GFTR'
360 : MOTS(JGA+2)='LTR '
361 : MOTS(JGA+3)='GFCS'
362 : MOTS(JGA+4)='LCS '
363 : MOTS(JGA+5)='GS '
364 : MOTS(JGA+6)='BTR '
365 : MOTS(JGA+7)='BCS '
366 : MOTS(JGA+8)='WRUP'
367 : MOTS(JGA+9)='BILI'
368 : MOTS(JGA+10)='GFT1'
369 : MOTS(JGA+11)='GFT2'
370 : MOTS(JGA+12)='GFT3'
371 : MOTS(JGA+13)='GS1 '
372 : MOTS(JGA+14)='GS2 '
373 : MOTS(JGA+15)='GS3 '
374 : MOTS(JGA+16)='LTR1'
375 : MOTS(JGA+17)='LTR2'
376 : MOTS(JGA+18)='LTR3'
377 : MOTS(JGA+19)='EPCM'
378 : MOTS(JGA+20)='EPCU'
379 : MOTS(JGA+21)='LCBI'
380 : MOTS(JGA+22)='XK2 '
381 : MOTS(JGA+23)='XGB '
382 : MOTS(JGA+24)='XPA '
383 : MOTS(JGA+25)='WRU1'
384 : MOTS(JGA+26)='WRU2'
385 : MOTS(JGA+27)='WRU3'
386 : MOTS(JGA+28)='BIL1'
387 : MOTS(JGA+29)='BIL2'
388 : MOTS(JGA+30)='BIL3'
389 : GOTO 9999
390 : ENDIF
391 :
392 : C
393 : ELSE IF (IPLAC.EQ.9) THEN
394 : C
395 : C=========================================================
396 : C MODELE DE MAXWELL
397 : C=========================================================
398 : C
399 : *
400 : MLMOTS=MOOBL
401 : JGA=MOTS(/2)
402 : JGM=JGA+9
403 : SEGADJ MLMOTS
404 : MOOBL=MLMOTS
405 : MOTS(JGA+1)='EM0 '
406 : MOTS(JGA+2)='EM1 '
407 : MOTS(JGA+3)='TR1 '
408 : MOTS(JGA+4)='EM2 '
409 : MOTS(JGA+5)='TR2 '
410 : MOTS(JGA+6)='EM3 '
411 : MOTS(JGA+7)='TR3 '
412 : MOTS(JGA+8)='EM4 '
413 : MOTS(JGA+9)='TR4 '
414 : *
415 : MLMOTS=MOFAC
416 : JGA=MOTS(/2)
417 : JGM=JGA+8
418 : SEGADJ MLMOTS
419 : MOFAC=MLMOTS
420 : MOTS(JGA+1)='EM5 '
421 : MOTS(JGA+2)='TR5 '
422 : MOTS(JGA+3)='EM6 '
423 : MOTS(JGA+4)='TR6 '
424 : MOTS(JGA+5)='EM7 '
425 : MOTS(JGA+6)='TR7 '
426 : MOTS(JGA+7)='EM8 '
427 : MOTS(JGA+8)='TR8 '
428 : GO TO 9999
429 : *
430 : ELSE IF (IPLAC.EQ.10) THEN
431 : *
432 : * MODELE COMETE
433 : *
434 : MLMOTS=MOOBL
435 : JGA=MOTS(/2)
436 : JGM=JGA+9
437 : SEGADJ MLMOTS
438 : MOOBL=MLMOTS
439 : MOTS(JGA+1)= 'SMAX'
440 : MOTS(JGA+2)= 'AF1 '
441 : MOTS(JGA+3)= 'AF2 '
442 : MOTS(JGA+4)= 'AF3 '
443 : MOTS(JGA+5)= 'BF1 '
444 : MOTS(JGA+6)= 'BF2 '
445 : MOTS(JGA+7)= 'BF3 '
446 : MOTS(JGA+8)= 'BF4 '
447 : MOTS(JGA+9)= 'FII '
448 : GOTO 9999
449 : ELSE IF (IPLAC.EQ.11) THEN
450 : *
451 : * MODELE CCPL
452 : *
453 : MLMOTS=MOOBL
454 : JGA=MOTS(/2)
455 :
456 : JGM=JGA+15
457 : SEGADJ MLMOTS
458 : MOOBL=MLMOTS
459 : MOTS(JGA+1)= 'SMAX'
460 : MOTS(JGA+2)= 'AF1 '
461 : MOTS(JGA+3)= 'AF2 '
462 : MOTS(JGA+4)= 'AF3 '
463 : MOTS(JGA+5)= 'BF1 '
464 : MOTS(JGA+6)= 'BF2 '
465 : MOTS(JGA+7)= 'BF3 '
466 : MOTS(JGA+8)= 'CF1 '
467 : MOTS(JGA+9)= 'CF2 '
468 : MOTS(JGA+10)= 'CF3 '
469 : MOTS(JGA+11)= 'DF1 '
470 : MOTS(JGA+12)= 'DF2 '
471 : MOTS(JGA+13)= 'DF3 '
472 : MOTS(JGA+14)= 'FII '
473 : MOTS(JGA+15)= 'AL1 '
474 :
475 : GOTO 9999
476 : ELSE IF (IPLAC.EQ.12) THEN
477 :
478 : *
479 : * MODELE X11
480 : *
481 :
482 : MLMOTS=MOOBL
483 : JGA=MOTS(/2)
484 :
485 : JGM=JGA+13
486 : SEGADJ MLMOTS
487 : MOOBL=MLMOTS
488 : MOTS(JGA+1)= 'SMAX'
489 : MOTS(JGA+2)= 'VPF0'
490 : MOTS(JGA+3)= 'VPF1'
491 : MOTS(JGA+4)= 'VPF2'
492 : MOTS(JGA+5)= 'VSF0'
493 : MOTS(JGA+6)= 'VSF1'
494 : MOTS(JGA+7)= 'VS01'
495 : MOTS(JGA+8)= 'VS02'
496 : MOTS(JGA+9)= 'VP01'
497 : MOTS(JGA+10)= 'VP02'
498 : MOTS(JGA+11)= 'EP01'
499 : MOTS(JGA+12)= 'EP02'
500 : MOTS(JGA+13)= 'FII '
501 : GOTO 9999
502 : *
503 : ELSE IF (IPLAC.EQ.13) THEN
504 : C
505 : C=========================================================
506 : C MODELE DE BPEL
507 : C=========================================================
508 : C
509 : *
510 : MLMOTS=MOOBL
511 : JGA=MOTS(/2)
512 : JGM=JGA+3
513 : SEGADJ MLMOTS
514 : MOOBL=MLMOTS
515 : MOTS(JGA+1)='RMIL'
516 : MOTS(JGA+2)='FPRG'
517 : MOTS(JGA+3)='TCHA'
518 : GO TO 9999
519 : *
520 : ELSE IF (IPLAC.EQ.14) THEN
521 : *
522 : * VISCOELASTIQUE BETON_URGC
523 : *
524 : MLMOTS=MOOBL
525 : JGA=MOTS(/2)
526 : JGM=JGA+15
527 : SEGADJ MLMOTS
528 : MOOBL=MLMOTS
529 : MOTS(JGA+1)='ALFA'
530 : MOTS(JGA+2)='BETA'
531 : MOTS(JGA+3)='LCS '
532 : MOTS(JGA+4)='GFC'
533 : MOTS(JGA+5)='GFT'
534 : MOTS(JGA+6)='ITON'
535 : MOTS(JGA+7)='IMOD'
536 : MOTS(JGA+8)='ICT'
537 : MOTS(JGA+9)='ICC'
538 : MOTS(JGA+10)='DATC'
539 : MOTS(JGA+11)='NBRC'
540 : MOTS(JGA+12)='IFOR'
541 : MOTS(JGA+13)='IMFL'
542 : MOTS(JGA+14)='DATU'
543 : MOTS(JGA+15)='DATS'
544 : GOTO 9999
545 :
546 : ELSE IF (IPLAC.EQ.15) THEN
547 : *
548 : * MODELE SODERBERG
549 : *
550 : MLMOTS=MOOBL
551 : JGA=MOTS(/2)
552 :
553 : JGM=JGA+21
554 : SEGADJ MLMOTS
555 : MOOBL=MLMOTS
556 : MOTS(JGA+1)= 'SMAX'
557 : MOTS(JGA+2)= 'AF1 '
558 : MOTS(JGA+3)= 'AF2 '
559 : MOTS(JGA+4)= 'AF3 '
560 : MOTS(JGA+5)= 'BF1 '
561 : MOTS(JGA+6)= 'BF2 '
562 : MOTS(JGA+7)= 'BF3 '
563 : MOTS(JGA+8)= 'CF1 '
564 : MOTS(JGA+9)= 'CF2 '
565 : MOTS(JGA+10)= 'CF3 '
566 : MOTS(JGA+11)= 'DF1 '
567 : MOTS(JGA+12)= 'DF2 '
568 : MOTS(JGA+13)= 'DF3 '
569 : MOTS(JGA+14)= 'FII '
570 : MOTS(JGA+15)= 'AL1 '
571 :
572 : MOTS(JGA+16)= 'EF1 '
573 : MOTS(JGA+17)= 'EF2 '
574 : MOTS(JGA+18)= 'EF3 '
575 : MOTS(JGA+19)= 'RF1 '
576 : MOTS(JGA+20)= 'RF2 '
577 : MOTS(JGA+21)= 'RF3 '
578 :
579 : GOTO 9999
580 :
581 : ELSE IF (IPLAC.EQ.16) THEN
582 : *
583 : * MODELE MAXOTT
584 : *
585 :
586 : * Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
587 : IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
588 : & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
589 : *
590 : MLMOTS=MOOBL
591 : JGA=MOTS(/2)
592 : JGM=JGA+16
593 : SEGADJ MLMOTS
594 : MOOBL=MLMOTS
595 : IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-2) THEN
596 : MOTS(JGA+1)='LXX '
597 : MOTS(JGA+2)='LYY '
598 : MOTS(JGA+3)='LXY '
599 : MOTS(JGA+4)='LZZ '
600 : MOTS(JGA+5)='PXX '
601 : MOTS(JGA+6)='PYY '
602 : MOTS(JGA+7)='PXY '
603 : *
604 : ELSE IF (IFOMOD.EQ.0.OR.IFOMOD.EQ.1) THEN
605 : MOTS(JGA+1)='LRR '
606 : MOTS(JGA+2)='LZZ '
607 : MOTS(JGA+3)='LRZ '
608 : MOTS(JGA+4)='LOO '
609 : MOTS(JGA+5)='PRR '
610 : MOTS(JGA+6)='PZZ '
611 : MOTS(JGA+7)='PRZ '
612 : ENDIF
613 : MOTS(JGA+8)='EM0 '
614 : MOTS(JGA+9)='EM1 '
615 : MOTS(JGA+10)='TR1 '
616 : MOTS(JGA+11)='EM2 '
617 : MOTS(JGA+12)='TR2 '
618 : MOTS(JGA+13)='EM3 '
619 : MOTS(JGA+14)='TR3 '
620 : MOTS(JGA+15)='EM4 '
621 : MOTS(JGA+16)='TR4 '
622 : *
623 : MLMOTS=MOFAC
624 : JGA=MOTS(/2)
625 : JGM=JGA+38
626 : SEGADJ MLMOTS
627 : MOFAC=MLMOTS
628 : MOTS(JGA+1) ='GFTR'
629 : MOTS(JGA+2) ='LTR '
630 : MOTS(JGA+3) ='GFCS'
631 : MOTS(JGA+4) ='LCS '
632 : MOTS(JGA+5) ='GS '
633 : MOTS(JGA+6) ='BTR '
634 : MOTS(JGA+7) ='BCS '
635 : MOTS(JGA+8) ='WRUP'
636 : MOTS(JGA+9) ='BILI'
637 : MOTS(JGA+10)='EPSR'
638 : MOTS(JGA+11)='GFT1'
639 : MOTS(JGA+12)='GFT2'
640 : MOTS(JGA+13)='GFT3'
641 : MOTS(JGA+14)='GS1 '
642 : MOTS(JGA+15)='GS2 '
643 : MOTS(JGA+16)='GS3 '
644 : MOTS(JGA+17)='LTR1'
645 : MOTS(JGA+18)='LTR2'
646 : MOTS(JGA+19)='LTR3'
647 : MOTS(JGA+20)='EPCM'
648 : MOTS(JGA+21)='EPCU'
649 : MOTS(JGA+22)='LCBI'
650 : MOTS(JGA+23)='XK2 '
651 : MOTS(JGA+24)='XGB '
652 : MOTS(JGA+25)='XPA '
653 : MOTS(JGA+26)='WRU1'
654 : MOTS(JGA+27)='WRU2'
655 : MOTS(JGA+28)='BIL1'
656 : MOTS(JGA+29)='BIL2'
657 : MOTS(JGA+30)='EPSB'
658 : MOTS(JGA+31)='EM5 '
659 : MOTS(JGA+32)='TR5 '
660 : MOTS(JGA+33)='EM6 '
661 : MOTS(JGA+34)='TR6 '
662 : MOTS(JGA+35)='EM7 '
663 : MOTS(JGA+36)='TR7 '
664 : MOTS(JGA+37)='EM8 '
665 : MOTS(JGA+38)='TR8 '
666 : GOTO 9999
667 : ENDIF
668 :
669 : *
670 : * Formulation CONTRAINTES PLANES / 3D COQUES MINCES
671 : IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
672 : & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
673 : *
674 : MLMOTS=MOOBL
675 : JGA=MOTS(/2)
676 : JGM=JGA+16
677 : SEGADJ MLMOTS
678 : MOOBL=MLMOTS
679 : IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
680 : MOTS(JGA+1)='LXX '
681 : MOTS(JGA+2)='LYY '
682 : MOTS(JGA+3)='LXY '
683 : MOTS(JGA+4)='LZZ '
684 : MOTS(JGA+5)='PXX '
685 : MOTS(JGA+6)='PYY '
686 : MOTS(JGA+7)='PXY '
687 : *
688 : ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
689 : MOTS(JGA+1)='LSS '
690 : MOTS(JGA+2)='LTT '
691 : MOTS(JGA+3)='LST '
692 : MOTS(JGA+4)='LNN '
693 : MOTS(JGA+5)='PSS '
694 : MOTS(JGA+6)='PTT '
695 : MOTS(JGA+7)='PST '
696 : ENDIF
697 : MOTS(JGA+8)='EM0 '
698 : MOTS(JGA+9)='EM1 '
699 : MOTS(JGA+10)='TR1 '
700 : MOTS(JGA+11)='EM2 '
701 : MOTS(JGA+12)='TR2 '
702 : MOTS(JGA+13)='EM3 '
703 : MOTS(JGA+14)='TR3 '
704 : MOTS(JGA+15)='EM4 '
705 : MOTS(JGA+16)='TR4 '
706 : *
707 : MLMOTS=MOFAC
708 : JGA=MOTS(/2)
709 : JGM=JGA+33
710 : SEGADJ MLMOTS
711 : MOFAC=MLMOTS
712 : MOTS(JGA+1) ='GFTR'
713 : MOTS(JGA+2) ='LTR '
714 : MOTS(JGA+3) ='GFCS'
715 : MOTS(JGA+4) ='LCS '
716 : MOTS(JGA+5) ='GS '
717 : MOTS(JGA+6) ='BTR '
718 : MOTS(JGA+7) ='BCS '
719 : MOTS(JGA+8) ='WRUP'
720 : MOTS(JGA+9) ='BILI'
721 : MOTS(JGA+10)='GFT1'
722 : MOTS(JGA+11)='GFT2'
723 : MOTS(JGA+12)='GS1 '
724 : MOTS(JGA+13)='GS2 '
725 : MOTS(JGA+14)='LTR1'
726 : MOTS(JGA+15)='LTR2'
727 : MOTS(JGA+16)='EPCM'
728 : MOTS(JGA+17)='EPCU'
729 : MOTS(JGA+18)='LCBI'
730 : MOTS(JGA+19)='XK2 '
731 : MOTS(JGA+20)='XGB '
732 : MOTS(JGA+21)='XPA '
733 : MOTS(JGA+22)='WRU1'
734 : MOTS(JGA+23)='WRU2'
735 : MOTS(JGA+24)='BIL1'
736 : MOTS(JGA+25)='BIL2'
737 : MOTS(JGA+26)='EM5 '
738 : MOTS(JGA+27)='TR5 '
739 : MOTS(JGA+28)='EM6 '
740 : MOTS(JGA+29)='TR6 '
741 : MOTS(JGA+30)='EM7 '
742 : MOTS(JGA+31)='TR7 '
743 : MOTS(JGA+32)='EM8 '
744 : MOTS(JGA+33)='TR8 '
745 : GOTO 9999
746 : ENDIF
747 : *
748 : * Formulation TRIDIMENSIONNELLE MASSIVE
749 : IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
750 : MLMOTS=MOOBL
751 : JGA=MOTS(/2)
752 : JGM=JGA+21
753 : SEGADJ MLMOTS
754 : MOOBL=MLMOTS
755 : MOTS(JGA+1) ='LXX '
756 : MOTS(JGA+2) ='LYY '
757 : MOTS(JGA+3) ='LZZ '
758 : MOTS(JGA+4) ='LXY '
759 : MOTS(JGA+5) ='LXZ '
760 : MOTS(JGA+6) ='LYZ '
761 : MOTS(JGA+7) ='PXX '
762 : MOTS(JGA+8) ='PYY '
763 : MOTS(JGA+9) ='PZZ '
764 : MOTS(JGA+10)='PXY '
765 : MOTS(JGA+11)='PXZ '
766 : MOTS(JGA+12)='PYZ '
767 : MOTS(JGA+13)='EM0 '
768 : MOTS(JGA+14)='EM1 '
769 : MOTS(JGA+15)='TR1 '
770 : MOTS(JGA+16)='EM2 '
771 : MOTS(JGA+17)='TR2 '
772 : MOTS(JGA+18)='EM3 '
773 : MOTS(JGA+19)='TR3 '
774 : MOTS(JGA+20)='EM4 '
775 : MOTS(JGA+21)='TR4 '
776 : MLMOTS=MOFAC
777 : JGA=MOTS(/2)
778 : JGM=JGA+38
779 : SEGADJ MLMOTS
780 : MOFAC=MLMOTS
781 : MOTS(JGA+1)='GFTR'
782 : MOTS(JGA+2)='LTR '
783 : MOTS(JGA+3)='GFCS'
784 : MOTS(JGA+4)='LCS '
785 : MOTS(JGA+5)='GS '
786 : MOTS(JGA+6)='BTR '
787 : MOTS(JGA+7)='BCS '
788 : MOTS(JGA+8)='WRUP'
789 : MOTS(JGA+9)='BILI'
790 : MOTS(JGA+10)='GFT1'
791 : MOTS(JGA+11)='GFT2'
792 : MOTS(JGA+12)='GFT3'
793 : MOTS(JGA+13)='GS1 '
794 : MOTS(JGA+14)='GS2 '
795 : MOTS(JGA+15)='GS3 '
796 : MOTS(JGA+16)='LTR1'
797 : MOTS(JGA+17)='LTR2'
798 : MOTS(JGA+18)='LTR3'
799 : MOTS(JGA+19)='EPCM'
800 : MOTS(JGA+20)='EPCU'
801 : MOTS(JGA+21)='LCBI'
802 : MOTS(JGA+22)='XK2 '
803 : MOTS(JGA+23)='XGB '
804 : MOTS(JGA+24)='XPA '
805 : MOTS(JGA+25)='WRU1'
806 : MOTS(JGA+26)='WRU2'
807 : MOTS(JGA+27)='WRU3'
808 : MOTS(JGA+28)='BIL1'
809 : MOTS(JGA+29)='BIL2'
810 : MOTS(JGA+30)='BIL3'
811 : MOTS(JGA+31)='EM5 '
812 : MOTS(JGA+32)='TR5 '
813 : MOTS(JGA+33)='EM6 '
814 : MOTS(JGA+34)='TR6 '
815 : MOTS(JGA+35)='EM7 '
816 : MOTS(JGA+36)='TR7 '
817 : MOTS(JGA+37)='EM8 '
818 : MOTS(JGA+38)='TR8 '
819 : GOTO 9999
820 : ENDIF
821 : *
822 : ELSE IF (IPLAC.EQ.17) THEN
823 : *
824 : * MODELE FBB1
825 : *
826 : MLMOTS=MOOBL
827 : JGA=MOTS(/2)
828 :
829 : JGM=JGA+12
830 : SEGADJ MLMOTS
831 : MOOBL=MLMOTS
832 :
833 : MOTS(JGA+1)='KRSP'
834 : MOTS(JGA+2)='VRSP'
835 : MOTS(JGA+3)='KISP'
836 : MOTS(JGA+4)='VISP'
837 : MOTS(JGA+5)='KRDV'
838 : MOTS(JGA+6)='VRDV'
839 : MOTS(JGA+7)='VIDV'
840 : MOTS(JGA+8)='KDES'
841 : MOTS(JGA+9)='VDES'
842 : MOTS(JGA+10)='IFPO'
843 : MOTS(JGA+11)='IDES'
844 : MOTS(JGA+12)='ICOU'
845 : GOTO 9999
846 :
847 : *
848 : ELSE IF (IPLAC.EQ.18) THEN
849 : *
850 : * MODELE FBB2
851 : *
852 :
853 : C= 18.1 - Modes de calcul PLAN DEFO, PLAN GENE, Axisymetrie, Fourier
854 : IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1.OR.
855 : . IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
856 : MLMOTS=MOOBL
857 : JGA=MOTS(/2)
858 : JGM=JGA+19
859 : SEGADJ,MLMOTS
860 : MOOBL=MLMOTS
861 : MOTS(JGA+1)='KRSP'
862 : MOTS(JGA+2)='VRSP'
863 : MOTS(JGA+3)='KISP'
864 : MOTS(JGA+4)='VISP'
865 : MOTS(JGA+5)='KRDV'
866 : MOTS(JGA+6)='VRDV'
867 : MOTS(JGA+7)='VIDV'
868 : MOTS(JGA+8)='KDES'
869 : MOTS(JGA+9)='VDES'
870 : MOTS(JGA+10)='IFPO'
871 : MOTS(JGA+11)='IDES'
872 : MOTS(JGA+12)='ICOU'
873 : IF (IFOUR.EQ.-3.OR.IFOUR.EQ.-1) THEN
874 : MOTS(JGA+13)='LXX '
875 : MOTS(JGA+14)='LYY '
876 : MOTS(JGA+15)='LXY '
877 : MOTS(JGA+16)='LZZ '
878 : MOTS(JGA+17)='PXX '
879 : MOTS(JGA+18)='PYY '
880 : MOTS(JGA+19)='PXY '
881 : C* ELSE IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
882 : ELSE
883 : MOTS(JGA+13)='LRR '
884 : MOTS(JGA+14)='LZZ '
885 : MOTS(JGA+15)='LRZ '
886 : MOTS(JGA+16)='LOO '
887 : MOTS(JGA+17)='PRR '
888 : MOTS(JGA+18)='PZZ '
889 : MOTS(JGA+19)='PRZ '
890 : ENDIF
891 : *
892 : MLMOTS=MOFAC
893 : JGA=MOTS(/2)
894 : JGM=JGA+30
895 : SEGADJ MLMOTS
896 : MOFAC=MLMOTS
897 : MOTS(JGA+1) ='GFTR'
898 : MOTS(JGA+2) ='LTR '
899 : MOTS(JGA+3) ='GFCS'
900 : MOTS(JGA+4) ='LCS '
901 : MOTS(JGA+5) ='GS '
902 : MOTS(JGA+6) ='BTR '
903 : MOTS(JGA+7) ='BCS '
904 : MOTS(JGA+8) ='WRUP'
905 : MOTS(JGA+9) ='BILI'
906 : MOTS(JGA+10)='EPSR'
907 : MOTS(JGA+11)='GFT1'
908 : MOTS(JGA+12)='GFT2'
909 : MOTS(JGA+13)='GFT3'
910 : MOTS(JGA+14)='GS1 '
911 : MOTS(JGA+15)='GS2 '
912 : MOTS(JGA+16)='GS3 '
913 : MOTS(JGA+17)='LTR1'
914 : MOTS(JGA+18)='LTR2'
915 : MOTS(JGA+19)='LTR3'
916 : MOTS(JGA+20)='EPCM'
917 : MOTS(JGA+21)='EPCU'
918 : MOTS(JGA+22)='LCBI'
919 : MOTS(JGA+23)='XK2 '
920 : MOTS(JGA+24)='XGB '
921 : MOTS(JGA+25)='XPA '
922 : MOTS(JGA+26)='WRU1'
923 : MOTS(JGA+27)='WRU2'
924 : MOTS(JGA+28)='BIL1'
925 : MOTS(JGA+29)='BIL2'
926 : MOTS(JGA+30)='EPSB'
927 : GO TO 9999
928 : C= 18.2 - Modes de calcul PLAN CONT et TRIDimensionnel COQUEs minces
929 : ELSE IF ((IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)).OR.
930 : . IFOUR.EQ.-2) THEN
931 : MLMOTS=MOOBL
932 : JGA=MOTS(/2)
933 : JGM=JGA+19
934 : SEGADJ,MLMOTS
935 : MOOBL=MLMOTS
936 : MOTS(JGA+1)='KRSP'
937 : MOTS(JGA+2)='VRSP'
938 : MOTS(JGA+3)='KISP'
939 : MOTS(JGA+4)='VISP'
940 : MOTS(JGA+5)='KRDV'
941 : MOTS(JGA+6)='VRDV'
942 : MOTS(JGA+7)='VIDV'
943 : MOTS(JGA+8)='KDES'
944 : MOTS(JGA+9)='VDES'
945 : MOTS(JGA+10)='IFPO'
946 : MOTS(JGA+11)='IDES'
947 : MOTS(JGA+12)='ICOU'
948 : IF (IFOUR.EQ.-2) THEN
949 : MOTS(JGA+13)='LXX '
950 : MOTS(JGA+14)='LYY '
951 : MOTS(JGA+15)='LXY '
952 : MOTS(JGA+16)='LZZ '
953 : MOTS(JGA+17)='PXX '
954 : MOTS(JGA+18)='PYY '
955 : MOTS(JGA+19)='PXY '
956 : C* ELSE IF (IFOUR.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
957 : ELSE
958 : MOTS(JGA+13)='LSS '
959 : MOTS(JGA+14)='LTT '
960 : MOTS(JGA+15)='LST '
961 : MOTS(JGA+16)='LNN '
962 : MOTS(JGA+17)='PSS '
963 : MOTS(JGA+18)='PTT '
964 : MOTS(JGA+19)='PST '
965 : ENDIF
966 : *
967 : MLMOTS=MOFAC
968 : JGA=MOTS(/2)
969 : JGM=JGA+25
970 : SEGADJ MLMOTS
971 : MOFAC=MLMOTS
972 : MOTS(JGA+1) ='GFTR'
973 : MOTS(JGA+2) ='LTR '
974 : MOTS(JGA+3) ='GFCS'
975 : MOTS(JGA+4) ='LCS '
976 : MOTS(JGA+5) ='GS '
977 : MOTS(JGA+6) ='BTR '
978 : MOTS(JGA+7) ='BCS '
979 : MOTS(JGA+8) ='WRUP'
980 : MOTS(JGA+9) ='BILI'
981 : MOTS(JGA+10)='GFT1'
982 : MOTS(JGA+11)='GFT2'
983 : MOTS(JGA+12)='GS1 '
984 : MOTS(JGA+13)='GS2 '
985 : MOTS(JGA+14)='LTR1'
986 : MOTS(JGA+15)='LTR2'
987 : MOTS(JGA+16)='EPCM'
988 : MOTS(JGA+17)='EPCU'
989 : MOTS(JGA+18)='LCBI'
990 : MOTS(JGA+19)='XK2 '
991 : MOTS(JGA+20)='XGB '
992 : MOTS(JGA+21)='XPA '
993 : MOTS(JGA+22)='WRU1'
994 : MOTS(JGA+23)='WRU2'
995 : MOTS(JGA+24)='BIL1'
996 : MOTS(JGA+25)='BIL2'
997 : GO TO 9999
998 : C= 18.3 - Formulation TRIDIMENSIONNELLE MASSIVE
999 : ELSE IF (IFOUR.EQ.2.AND.MFR.EQ.1) THEN
1000 : MLMOTS=MOOBL
1001 : JGA=MOTS(/2)
1002 : JGM=JGA+24
1003 : SEGADJ,MLMOTS
1004 : MOOBL=MLMOTS
1005 : MOTS(JGA+1)='KRSP'
1006 : MOTS(JGA+2)='VRSP'
1007 : MOTS(JGA+3)='KISP'
1008 : MOTS(JGA+4)='VISP'
1009 : MOTS(JGA+5)='KRDV'
1010 : MOTS(JGA+6)='VRDV'
1011 : MOTS(JGA+7)='VIDV'
1012 : MOTS(JGA+8)='KDES'
1013 : MOTS(JGA+9)='VDES'
1014 : MOTS(JGA+10)='IFPO'
1015 : MOTS(JGA+11)='IDES'
1016 : MOTS(JGA+12)='ICOU'
1017 : MOTS(JGA+13)='LXX '
1018 : MOTS(JGA+14)='LYY '
1019 : MOTS(JGA+15)='LZZ '
1020 : MOTS(JGA+16)='LXY '
1021 : MOTS(JGA+17)='LXZ '
1022 : MOTS(JGA+18)='LYZ '
1023 : MOTS(JGA+19)='PXX '
1024 : MOTS(JGA+20)='PYY '
1025 : MOTS(JGA+21)='PZZ '
1026 : MOTS(JGA+22)='PXY '
1027 : MOTS(JGA+23)='PXZ '
1028 : MOTS(JGA+24)='PYZ '
1029 : *
1030 : MLMOTS=MOFAC
1031 : JGA=MOTS(/2)
1032 : JGM=JGA+30
1033 : SEGADJ MLMOTS
1034 : MOFAC=MLMOTS
1035 : MOTS(JGA+1)='GFTR'
1036 : MOTS(JGA+2)='LTR '
1037 : MOTS(JGA+3)='GFCS'
1038 : MOTS(JGA+4)='LCS '
1039 : MOTS(JGA+5)='GS '
1040 : MOTS(JGA+6)='BTR '
1041 : MOTS(JGA+7)='BCS '
1042 : MOTS(JGA+8)='WRUP'
1043 : MOTS(JGA+9)='BILI'
1044 : MOTS(JGA+10)='GFT1'
1045 : MOTS(JGA+11)='GFT2'
1046 : MOTS(JGA+12)='GFT3'
1047 : MOTS(JGA+13)='GS1 '
1048 : MOTS(JGA+14)='GS2 '
1049 : MOTS(JGA+15)='GS3 '
1050 : MOTS(JGA+16)='LTR1'
1051 : MOTS(JGA+17)='LTR2'
1052 : MOTS(JGA+18)='LTR3'
1053 : MOTS(JGA+19)='EPCM'
1054 : MOTS(JGA+20)='EPCU'
1055 : MOTS(JGA+21)='LCBI'
1056 : MOTS(JGA+22)='XK2 '
1057 : MOTS(JGA+23)='XGB '
1058 : MOTS(JGA+24)='XPA '
1059 : MOTS(JGA+25)='WRU1'
1060 : MOTS(JGA+26)='WRU2'
1061 : MOTS(JGA+27)='WRU3'
1062 : MOTS(JGA+28)='BIL1'
1063 : MOTS(JGA+29)='BIL2'
1064 : MOTS(JGA+30)='BIL3'
1065 : GO TO 9999
1066 : ENDIF
1067 : *
1068 : *****************************************************
1069 : ENDIF
1070 : GOTO 99
1071 : *
1072 : 9999 CONTINUE
1073 : IRET=1
1074 : RETURN
1075 : *
1076 : * SI PROBLEME , ON SORT AVEC IRET A 0
1077 : *
1078 : 99 CONTINUE
1079 : IRET=0
1079 : CALL ERREUR(261)
1080 : RETURN
1081 : END
1082 :
1083 :
1084 :
1085 :
1086 :
1087 :
1088 :
1089 :
1090 :
1091 :
1092 :
1093 :
1094 :
© Cast3M 2003 - All rights reserved.
Disclaimer