1 : C IDPLAS SOURCE BR232186 13/12/09 21:15:12 7841
2 : SUBROUTINE IDPLAS (MFR,MOOBL,MOFAC,IPLAC,IRET)
3 : *--------------------------------------------------------------------*
4 : * Noms de composantes de mat{riaux plastiques *
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 facultatif *
13 : * IPLAC numero du materiau dans MODPLA *
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 P L A S T I Q U E *
32 : * *
33 : *--------------------------------------------------------------------*
34 : IF (IPLAC.EQ.1) THEN
35 : *
36 : * MODELE DE VON MISES ECROUISSAGE ISOTROPE
37 : *
38 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
39 : MLMOTS=MOOBL
40 : JGA=MOTS(/2)
41 : JGM=JGA+1
42 : SEGADJ MLMOTS
43 : MOOBL=MLMOTS
44 : MOTS(JGA+1)='TRAC'
45 : GOTO 9999
46 : ELSE IF (IPLAC.EQ.2) THEN
47 : *
48 : * MODELE PLASTIQUE PARFAIT
49 : *
50 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
51 : MLMOTS=MOOBL
52 : JGA=MOTS(/2)
53 : JGM=JGA+1
54 : SEGADJ MLMOTS
55 : MOOBL=MLMOTS
56 : MOTS(JGA+1)='SIGY'
57 : GOTO 9999
58 : ELSE IF (IPLAC.EQ.3) THEN
59 : *
60 : * MODELE DE VON MISES ECROUISSAGE CINEMATIQUE BILIEAIRE
61 : *
62 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
63 : MLMOTS=MOOBL
64 : JGA=MOTS(/2)
65 : JGM=JGA+2
66 : SEGADJ MLMOTS
67 : MOOBL=MLMOTS
68 : MOTS(JGA+1)='SIGY'
69 : MOTS(JGA+2)='H '
70 : GOTO 9999
71 : ELSE IF (IPLAC.EQ.4) THEN
72 : *
73 : * MODELE PLASTIQUE DRUCKER GENERAL A ECOULEMENT NON ASSOCIER
74 : *
75 : MLMOTS=MOOBL
76 : JGA=MOTS(/2)
77 : JGM=JGA+9
78 : SEGADJ MLMOTS
79 : MOOBL=MLMOTS
80 : MOTS(JGA+1)='ALFA'
81 : MOTS(JGA+2)='BETA'
82 : MOTS(JGA+3)='K '
83 : MOTS(JGA+4)='GAMM'
84 : MOTS(JGA+5)='DELT'
85 : MOTS(JGA+6)='ETA '
86 : MOTS(JGA+7)='MU '
87 : MOTS(JGA+8)='KL '
88 : MOTS(JGA+9)='H '
89 : GOTO 9999
90 : ELSE IF (IPLAC.EQ.5) THEN
91 : *
92 : * MODELE PLASTIQUE DRUCKER PRAGER
93 : *
94 : MLMOTS=MOOBL
95 : JGA=MOTS(/2)
96 : JGM=JGA+2
97 : SEGADJ MLMOTS
98 : MOOBL=MLMOTS
99 : MOTS(JGA+1)= 'LTR '
100 : MOTS(JGA+2)= 'LCS '
101 : GOTO 9999
102 : ELSE IF (IPLAC.EQ.6) THEN
103 : *
104 : * MODELE PLASTIQUE BETON
105 : * TOUS LES PARAMETRES DU MODELE SONT EN FACULTATIF
106 : *
107 : MLMOTS=MOFAC
108 : JGA=MOTS(/2)
109 : JGM=JGA+28
110 : SEGADJ MLMOTS
111 : MOFAC=MLMOTS
112 : MOTS(JGA+1 )='LTR1'
113 : MOTS(JGA+2 )='ETR1'
114 : MOTS(JGA+3 )='LTT1'
115 : MOTS(JGA+4 )='ETT1'
116 : MOTS(JGA+5 )='ERS1'
117 : MOTS(JGA+6 )='LTR2'
118 : MOTS(JGA+7 )='ETR2'
119 : MOTS(JGA+8 )='LTT2'
120 : MOTS(JGA+9 )='ETT2'
121 : MOTS(JGA+10)='ERS2'
122 : MOTS(JGA+11)='LTR3'
123 : MOTS(JGA+12)='ETR3'
124 : MOTS(JGA+13)='LTT3'
125 : MOTS(JGA+14)='ETT3'
126 : MOTS(JGA+15)='ERS3'
127 : MOTS(JGA+16)='BETR'
128 : MOTS(JGA+17)='LCS '
129 : MOTS(JGA+18)='ECS '
130 : MOTS(JGA+19)='LBIC'
131 : MOTS(JGA+20)='VF1X'
132 : MOTS(JGA+21)='VF1Y'
133 : MOTS(JGA+22)='VF1Z'
134 : MOTS(JGA+23)='VF2X'
135 : MOTS(JGA+24)='VF2Y'
136 : MOTS(JGA+25)='VF2Z'
137 : MOTS(JGA+26)='VF3X'
138 : MOTS(JGA+27)='VF3Y'
139 : MOTS(JGA+28)='VF3Z'
140 : GOTO 9999
141 : ELSE IF (IPLAC.EQ.7) THEN
142 : *
143 : * MODELE PLASTIQUE CHABOCHE A UN CENTRE ET ECROUISSAGE ISOTROPE
144 : *
145 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
146 : MLMOTS=MOOBL
147 : JGA=MOTS(/2)
148 : JGM=JGA+5
149 : SEGADJ MLMOTS
150 : MOOBL=MLMOTS
151 : MOTS(JGA+1)='A '
152 : MOTS(JGA+2)='C '
153 : MOTS(JGA+3)='R0 '
154 : MOTS(JGA+4)='PSI '
155 : MOTS(JGA+5)='OMEG'
156 : *
157 : MLMOTS=MOFAC
158 : JGA=MOTS(/2)
159 : JGM=JGA+2
160 : SEGADJ MLMOTS
161 : MOFAC=MLMOTS
162 : JGM=JGA
163 : SEGINI MLMOT1
164 : DO 10 IC=1,JGA
165 : MLMOT1.MOTS(IC)=MOTS(IC)
166 : 10 CONTINUE
167 : DO 11 IC=1,JGA
168 : MOTS(IC+2)=MLMOT1.MOTS(IC)
169 : 11 CONTINUE
170 : SEGSUP MLMOT1
171 : MOTS(1)='RM '
172 : MOTS(2)='B '
173 : GOTO 9999
174 : ELSE IF (IPLAC.EQ.8) THEN
175 : *
176 : * MODELE PLASTIQUE CHABOCHE A DEUX CENTRES (ET ECROUISSAGE ISOTRO
177 : *
178 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
179 : MLMOTS=MOOBL
180 : JGA=MOTS(/2)
181 : JGM=JGA+7
182 : SEGADJ MLMOTS
183 : MOOBL=MLMOTS
184 : MOTS(JGA+1)='A1 '
185 : MOTS(JGA+2)='C1 '
186 : MOTS(JGA+3)='A2 '
187 : MOTS(JGA+4)='C2 '
188 : MOTS(JGA+5)='R0 '
189 : MOTS(JGA+6)='PSI '
190 : MOTS(JGA+7)='OMEG'
191 : *
192 : MLMOTS=MOFAC
193 : JGA=MOTS(/2)
194 : JGM=JGA+2
195 : SEGADJ MLMOTS
196 : MOFAC=MLMOTS
197 : JGM=JGA
198 : SEGINI MLMOT1
199 : DO 20 IC=1,JGA
200 : MLMOT1.MOTS(IC)=MOTS(IC)
201 : 20 CONTINUE
202 : DO 21 IC=1,JGA
203 : MOTS(IC+2)=MLMOT1.MOTS(IC)
204 : 21 CONTINUE
205 : SEGSUP MLMOT1
206 : MOTS(1)='RM '
207 : MOTS(2)='B '
208 : GOTO 9999
209 : ELSE IF (IPLAC.EQ.9) THEN
210 : *
211 : * MODELE PLASTIQUE PARFAIT ET ECROUISSAGE POUR L'ELEMENT TUYAU FI
212 : *
213 : IF (MFR.NE.17) GOTO 99
214 : MLMOTS=MOFAC
215 : JGA=MOTS(/2)
216 : JGM=JGA+5
217 : SEGADJ MLMOTS
218 : MOFAC=MLMOTS
219 : JGM=JGA
220 : SEGINI MLMOT1
221 : DO 30 IC=1,JGA
222 : MLMOT1.MOTS(IC)=MOTS(IC)
223 : 30 CONTINUE
224 : DO 31 IC=1,JGA
225 : MOTS(IC+5)=MLMOT1.MOTS(IC)
226 : 31 CONTINUE
227 : SEGSUP MLMOT1
228 : MOTS(1)='SIGF'
229 : MOTS(2)='J1C '
230 : MOTS(3)='TMAT'
231 : MOTS(4)='TRAC'
232 : MOTS(5)='JDA '
233 : GOTO 9999
234 : ELSE IF (IPLAC.EQ.10) THEN
235 : *
236 : * ECROUISSAGE ET ENDOMMAGEMENT ISOTROPES - PLAST. ASS.- VON MISES
237 : *
238 : MLMOTS=MOOBL
239 : JGA=MOTS(/2)
240 : JGM=JGA+4
241 : SEGADJ MLMOTS
242 : MOOBL=MLMOTS
243 : MOTS(JGA+1)='TRAC'
244 : MOTS(JGA+2)='EPSD'
245 : MOTS(JGA+3)='DC '
246 : MOTS(JGA+4)='EPSR'
247 : GOTO 9999
248 : ELSE IF (IPLAC.EQ.11) THEN
249 : *
250 : * MODELE DE GAUVAIN
251 : *
252 : MLMOTS=MOOBL
253 : JGA=MOTS(/2)
254 : JGM=JGA+3
255 : SEGADJ MLMOTS
256 : MOOBL=MLMOTS
257 : MOTS(JGA+1)='TRAC'
258 : MOTS(JGA+2)='STOR'
259 : MOTS(JGA+3)='SCOM'
260 : GOTO 9999
261 : ELSE IF (IPLAC.EQ.12) THEN
262 : *
263 : * PLASTIQUE PARFAIT ET ECROUISSAGE POUR L'ELEMENT LINESPRING
264 : *
265 : IF (MFR.NE.15) GOTO 99
266 : MLMOTS=MOFAC
267 : JGA=MOTS(/2)
268 : JGM=JGA+2
269 : SEGADJ MLMOTS
270 : MOFAC=MLMOTS
271 : JGM=JGA
272 : SEGINI MLMOT1
273 : DO 40 IC=1,JGA
274 : MLMOT1.MOTS(IC)=MOTS(IC)
275 : 40 CONTINUE
276 : DO 41 IC=1,JGA
277 : MOTS(IC+2)=MLMOT1.MOTS(IC)
278 : 41 CONTINUE
279 : SEGSUP MLMOT1
280 : MOTS(1)='SIGF'
281 : MOTS(2)='TRAC'
282 : GOTO 9999
283 : ELSE IF (IPLAC.EQ.13) THEN
284 : *
285 : * MODELE UBIQUITOUS
286 : *
287 : MLMOTS=MOOBL
288 : JGA=MOTS(/2)
289 : JGM=JGA+5
290 : SEGADJ MLMOTS
291 : MOOBL=MLMOTS
292 : MOTS(JGA+1)='NCRI'
293 : MOTS(JGA+2)='ANG1'
294 : MOTS(JGA+3)='TRA1'
295 : MOTS(JGA+4)='PHI1'
296 : MOTS(JGA+5)='PSI1'
297 : *
298 : MLMOTS=MOFAC
299 : JGA=MOTS(/2)
300 : JGM=JGA+4
301 : SEGADJ MLMOTS
302 : MOFAC=MLMOTS
303 : MOTS(JGA+1)='ANG2'
304 : MOTS(JGA+2)='TRA2'
305 : MOTS(JGA+3)='PHI2'
306 : MOTS(JGA+4)='PSI2'
307 : GOTO 9999
308 : ELSE IF (IPLAC.EQ.14) THEN
309 : *
310 : * MODELE GLOBAL
311 : *
312 : MLMOTS=MOFAC
313 : JGA=MOTS(/2)
314 : JGM=JGA+5
315 : SEGADJ MLMOTS
316 : MOFAC=MLMOTS
317 : MOTS(JGA+1)='COMP'
318 : MOTS(JGA+2)='FLXY'
319 : MOTS(JGA+3)='FLXZ'
320 : MOTS(JGA+4)='CISY'
321 : MOTS(JGA+5)='CISZ'
322 : GOTO 9999
323 : ELSE IF (IPLAC.EQ.15) THEN
324 : *
325 : * MODELE CAM-CLAY
326 : *
327 : MLMOTS=MOOBL
328 : JGA=MOTS(/2)
329 : JGM=JGA+7
330 : SEGADJ MLMOTS
331 : MOOBL=MLMOTS
332 : MOTS(JGA+1)='E0 '
333 : MOTS(JGA+2)='P0 '
334 : MOTS(JGA+3)='COHE'
335 : MOTS(JGA+4)='M '
336 : MOTS(JGA+5)='LAMD'
337 : MOTS(JGA+6)='KAPA'
338 : MOTS(JGA+7)='G1 '
339 : GOTO 9999
340 : ELSE IF (IPLAC.EQ.16) THEN
341 : *
342 : * MODELE MOHR-COULOMB POUR LES JOINTS
343 : *
344 : IF (MFR.NE.35.AND.MFR.NE.75) GO TO 99
345 : MLMOTS=MOOBL
346 : JGA=MOTS(/2)
347 : IF(MFR.EQ.35) THEN
348 : JGM=JGA+4
349 : ELSE IF (MFR.EQ.75) THEN
350 : JGM=JGA+5
351 : ENDIF
352 : SEGADJ MLMOTS
353 : MOOBL=MLMOTS
354 : MOTS(JGA+1)='EF '
355 : MOTS(JGA+2)='ECN '
356 : MOTS(JGA+3)='COHE'
357 : MOTS(JGA+4)='FRIC'
358 : IF (MFR.EQ.75) MOTS(JGA+5)='TYPE'
359 : MLMOTS=MOFAC
360 : JGA=MOTS(/2)
361 : JGM=JGA+1
362 : SEGADJ MLMOTS
363 : MOFAC=MLMOTS
364 : MOTS(JGA+1) ='FTRC'
365 : GOTO 9999
366 : ELSE IF (IPLAC.EQ.17) THEN
367 : *
368 : * MODELE COULOMB_DILATANT POUR LES JOINTS
369 : *
370 : IF (MFR.NE.35) GO TO 99
371 : MLMOTS=MOOBL
372 : JGA=MOTS(/2)
373 : JGM=JGA+3
374 : SEGADJ MLMOTS
375 : MOOBL=MLMOTS
376 : MOTS(JGA+1)='PHI '
377 : MOTS(JGA+2)='MU '
378 : MOTS(JGA+3)='FTRC'
379 : GOTO 9999
380 : ELSE IF (IPLAC.EQ.18) THEN
381 : *
382 : * MODELE BETON_AXI
383 : *
384 : MLMOTS=MOFAC
385 : JGA=MOTS(/2)
386 : JGM=JGA+13
387 : SEGADJ MLMOTS
388 : MOFAC=MLMOTS
389 : MOTS(JGA+1) ='LTR1'
390 : MOTS(JGA+2) ='LTR2'
391 : MOTS(JGA+3) ='LTR3'
392 : MOTS(JGA+4) ='ANGL'
393 : MOTS(JGA+5) ='LCS '
394 : MOTS(JGA+6) ='ECS '
395 : MOTS(JGA+7) ='LCT '
396 : MOTS(JGA+8) ='PCT '
397 : MOTS(JGA+9) ='LCD '
398 : MOTS(JGA+10)='PCD '
399 : MOTS(JGA+11)='ECD '
400 : MOTS(JGA+12)='LPH '
401 : MOTS(JGA+13)='PENT'
402 : GOTO 9999
403 : ELSE IF (IPLAC.EQ.19) THEN
404 : *
405 : * MODELE DE GURSON POUR LA RUPTURE DUCTILE
406 : *
407 : MLMOTS=MOOBL
408 : JGA=MOTS(/2)
409 : JGM=JGA+4
410 : SEGADJ MLMOTS
411 : MOOBL=MLMOTS
412 : MOTS(JGA+1)= 'SIGY'
413 : MOTS(JGA+2)= 'H '
414 : MOTS(JGA+3)= 'SBAR'
415 : MOTS(JGA+4)= 'PORO'
416 : GOTO 9999
417 : *
418 : * MODELE BETON LIBRE ET BETON CONFINE (MODELE A FIBRE ET ELEMENTS BARRE)
419 : *
420 : ELSE IF (IPLAC.EQ.20) THEN
421 : MLMOTS=MOOBL
422 : JGA=MOTS(/2)
423 : JGM=JGA+13
424 : SEGADJ MLMOTS
425 : MOOBL=MLMOTS
426 : MOTS(JGA+1)= 'STFC'
427 : MOTS(JGA+2)= 'EZER'
428 : MOTS(JGA+3)= 'STFT'
429 : MOTS(JGA+4)= 'ALF1'
430 : MOTS(JGA+5)= 'OME1'
431 : MOTS(JGA+6)= 'ZETA'
432 : MOTS(JGA+7)= 'ST85'
433 : MOTS(JGA+8)= 'TRAF'
434 : MOTS(JGA+9)= 'FACL'
435 : MOTS(JGA+10)= 'FAMX'
436 : MOTS(JGA+11)= 'STPT'
437 : MOTS(JGA+12)= 'FAM1'
438 : MOTS(JGA+13)= 'FAM2'
439 :
440 : GOTO 9999
441 : ELSE IF (IPLAC.EQ.21) THEN
442 : *
443 : * MODELE ACIER_UNI (MODELE A FIBRE ET ELEMENTS BARRE)
444 : *
445 : MLMOTS=MOOBL
446 : JGA=MOTS(/2)
447 : JGM=JGA+12
448 : SEGADJ MLMOTS
449 : MOOBL=MLMOTS
450 : MOTS(JGA+ 1)= 'STSY'
451 : MOTS(JGA+ 2)= 'STSU'
452 : MOTS(JGA+ 3)= 'EPSH'
453 : MOTS(JGA+ 4)= 'EPSU'
454 : MOTS(JGA+ 5)= 'ROFA'
455 : MOTS(JGA+ 6)= 'BFAC'
456 : MOTS(JGA+ 7)= 'A1FA'
457 : MOTS(JGA+ 8)= 'A2FA'
458 : MOTS(JGA+ 9)= 'FALD'
459 : MOTS(JGA+10)= 'A6FA'
460 : MOTS(JGA+11)= 'CFAC'
461 : MOTS(JGA+12)= 'AFAC'
462 : GOTO 9999
463 : *
464 : ELSE IF (IPLAC.EQ.51) THEN
465 : *
466 : * MODELE ACIER_ANCRAGE AVEC LES LOIS ELIGEHAUSEN ET ACIER_UNI
467 : *
468 : MLMOTS=MOOBL
469 : JGA=MOTS(/2)
470 : C
471 : IF (MFR.EQ.47) THEN
472 : C
473 : C Modele à fibre
474 : C
475 : JGM=JGA+21
476 : ELSE
477 : C
478 : C Elements de barre
479 : C
480 : JGM=JGA+20
481 : C
482 : ENDIF
483 : C
484 : SEGADJ MLMOTS
485 : MOOBL=MLMOTS
486 : MOTS(JGA+ 1)= 'STSY'
487 : MOTS(JGA+ 2)= 'STSU'
488 : MOTS(JGA+ 3)= 'EPSH'
489 : MOTS(JGA+ 4)= 'EPSU'
490 : MOTS(JGA+ 5)= 'ROFA'
491 : MOTS(JGA+ 6)= 'BFAC'
492 : MOTS(JGA+ 7)= 'A1FA'
493 : MOTS(JGA+ 8)= 'A2FA'
494 : MOTS(JGA+ 9)= 'FALD'
495 : MOTS(JGA+10)= 'A6FA'
496 : MOTS(JGA+11)= 'CFAC'
497 : MOTS(JGA+12)= 'AFAC'
498 : MOTS(JGA+13)= 'G12 '
499 : MOTS(JGA+14)= 'S1T '
500 : MOTS(JGA+15)= 'S2T '
501 : MOTS(JGA+16)= 'S3T '
502 : MOTS(JGA+17)= 'T1T '
503 : MOTS(JGA+18)= 'T3T '
504 : MOTS(JGA+19)= 'ALFA'
505 : MOTS(JGA+20)= 'LANC'
506 : C
507 : IF (MFR.EQ.47) THEN
508 : C
509 : C Modele à fibre
510 : C
511 : MOTS(JGA+21)= 'SECB'
512 : ENDIF
513 : C
514 : GOTO 9999
515 : *
516 : ELSE IF (IPLAC.EQ.44) THEN
517 : *
518 : * MODELE FRAGILE_UNI (MODELE A FIBRE)
519 : *
520 : MLMOTS=MOOBL
521 : JGA=MOTS(/2)
522 : JGM=JGA+6
523 : SEGADJ MLMOTS
524 : MOOBL=MLMOTS
525 : MOTS(JGA+ 1)= 'FC '
526 : MOTS(JGA+ 2)= 'FC_R'
527 : MOTS(JGA+ 3)= 'STRC'
528 : MOTS(JGA+ 4)= 'FT '
529 : MOTS(JGA+ 5)= 'FT_R'
530 : MOTS(JGA+ 6)= 'STRT'
531 : GOTO 9999
532 : *
533 : ELSE IF (IPLAC.EQ.45) THEN
534 : *
535 : * MODELE BETON_BAEL (MODELE A FIBRE)
536 : *
537 : MLMOTS=MOOBL
538 : JGA=MOTS(/2)
539 : JGM=JGA+1
540 : SEGADJ MLMOTS
541 : MOOBL=MLMOTS
542 : MOTS(JGA+ 1)= 'FC '
543 : GOTO 9999
544 : *
545 : ELSE IF (IPLAC.EQ.46) THEN
546 : *
547 : * MODELE PARFAIT_UNI (MODELE A FIBRE)
548 : *
549 : MLMOTS=MOOBL
550 : JGA=MOTS(/2)
551 : JGM=JGA+2
552 : SEGADJ MLMOTS
553 : MOOBL=MLMOTS
554 : MOTS(JGA+ 1)= 'SIGY'
555 : MOTS(JGA+ 2)= 'H '
556 : GOTO 9999
557 : *
558 : ELSE IF (IPLAC.EQ.50) THEN
559 : *
560 : * MODELE PARFAIT_ANCRAGE AVEC LES LOIS ELIGEHAUSEN ET PARFAIT_UNI
561 : *
562 : MLMOTS=MOOBL
563 : JGA=MOTS(/2)
564 : C
565 : IF (MFR.EQ.47) THEN
566 : C
567 : C Modele à fibre
568 : C
569 : JGM=JGA+11
570 : ELSE
571 : C
572 : C Elements de barre
573 : C
574 : JGM=JGA+10
575 : C
576 : ENDIF
577 : SEGADJ MLMOTS
578 : MOOBL=MLMOTS
579 : MOTS(JGA+ 1)= 'SIGY'
580 : MOTS(JGA+ 2)= 'H '
581 : MOTS(JGA+ 3)= 'G12 '
582 : MOTS(JGA+ 4)= 'S1T '
583 : MOTS(JGA+ 5)= 'S2T '
584 : MOTS(JGA+ 6)= 'S3T '
585 : MOTS(JGA+ 7)= 'T1T '
586 : MOTS(JGA+ 8)= 'T3T '
587 : MOTS(JGA+ 9)= 'ALFA'
588 : MOTS(JGA+10)= 'LANC'
589 : C
590 : IF (MFR.EQ.47) THEN
591 : C
592 : C Modele à fibre
593 : C
594 : MOTS(JGA+11)= 'SECB'
595 : ENDIF
596 : C
597 : GOTO 9999
598 : C
599 : ELSE IF (IPLAC.EQ.53) THEN
600 : C
601 : C MODELE UNILATERAL (MODELE A FIBRE)
602 : C
603 : MLMOTS=MOOBL
604 : JGA=MOTS(/2)
605 : JGM=JGA+9
606 : SEGADJ MLMOTS
607 : MOOBL=MLMOTS
608 : MOTS(JGA+ 1)= 'YS1 '
609 : MOTS(JGA+ 2)= 'YS2 '
610 : MOTS(JGA+ 3)= 'A1 '
611 : MOTS(JGA+ 4)= 'A2 '
612 : MOTS(JGA+ 5)= 'B1 '
613 : MOTS(JGA+ 6)= 'B2 '
614 : MOTS(JGA+ 7)= 'BET1'
615 : MOTS(JGA+ 8)= 'BET2'
616 : MOTS(JGA+ 9)= 'SIGF'
617 : GOTO 9999
618 : C
619 : ELSE IF (IPLAC.EQ.47) THEN
620 : C
621 : C MODELE STRUT_UNI (MODELE A FIBRE)
622 : C
623 : MLMOTS=MOOBL
624 : JGA=MOTS(/2)
625 : JGM=JGA+23
626 : SEGADJ MLMOTS
627 : MOOBL=MLMOTS
628 : * Beton
629 : MOTS(JGA+1)= 'STFC'
630 : MOTS(JGA+2)= 'EZER'
631 : MOTS(JGA+3)= 'STFT'
632 : MOTS(JGA+4)= 'ALF1'
633 : MOTS(JGA+5)= 'OME1'
634 : MOTS(JGA+6)= 'ZETA'
635 : MOTS(JGA+7)= 'ST85'
636 : MOTS(JGA+8)= 'TRAF'
637 : MOTS(JGA+21)= 'STPT'
638 : MOTS(JGA+22)= 'FACL'
639 : MOTS(JGA+23)= 'FAMX'
640 : * Acier
641 : MOTS(JGA+ 9)= 'YOUS'
642 : MOTS(JGA+10)= 'STSY'
643 : MOTS(JGA+11)= 'STSU'
644 : MOTS(JGA+12)= 'EPSH'
645 : MOTS(JGA+13)= 'EPSU'
646 : MOTS(JGA+14)= 'ROFA'
647 : MOTS(JGA+15)= 'BFAC'
648 : MOTS(JGA+16)= 'A1FA'
649 : MOTS(JGA+17)= 'A2FA'
650 : * Diagonale
651 : MOTS(JGA+18)= 'ROST'
652 : MOTS(JGA+19)= 'THET'
653 : MOTS(JGA+20)= 'EULT'
654 : *
655 : GOTO 9999
656 : *
657 : *
658 : ELSE IF (IPLAC.EQ.22) THEN
659 : *
660 : * MODELE SECTION
661 : *
662 : * RIEN DE SPECIAL A FAIRE
663 : GOTO 9999
664 : ELSE IF (IPLAC.EQ.23) THEN
665 : C
666 : C=========================================================
667 : C MODELE BETON OTTOSEN
668 : C=========================================================
669 : C
670 : C Formulation DEFORMATIONS PLANES /AXISYMETRIQUE
671 : IF ((IFOMOD.EQ.-1.AND.IFOUR.NE.-2).OR.
672 : & (IFOMOD.EQ.0.OR.IFOMOD.EQ.1)) THEN
673 : *
674 : MLMOTS=MOOBL
675 : JGA=MOTS(/2)
676 : JGM=JGA+7
677 : SEGADJ MLMOTS
678 : MOOBL=MLMOTS
679 : IF (IFOMOD.EQ.-1.AND.IFOUR.NE.-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.0.OR.IFOMOD.EQ.1) THEN
689 : MOTS(JGA+1)='LRR '
690 : MOTS(JGA+2)='LZZ '
691 : MOTS(JGA+3)='LRZ '
692 : MOTS(JGA+4)='LOO '
693 : MOTS(JGA+5)='PRR '
694 : MOTS(JGA+6)='PZZ '
695 : MOTS(JGA+7)='PRZ '
696 : ENDIF
697 : *
698 : MLMOTS=MOFAC
699 : JGA=MOTS(/2)
700 : JGM=JGA+30
701 : SEGADJ MLMOTS
702 : MOFAC=MLMOTS
703 : MOTS(JGA+1) ='GFTR'
704 : MOTS(JGA+2) ='LTR '
705 : MOTS(JGA+3) ='GFCS'
706 : MOTS(JGA+4) ='LCS '
707 : MOTS(JGA+5) ='GS '
708 : MOTS(JGA+6) ='BTR '
709 : MOTS(JGA+7) ='BCS '
710 : MOTS(JGA+8) ='WRUP'
711 : MOTS(JGA+9) ='BILI'
712 : MOTS(JGA+10)='EPSR'
713 : MOTS(JGA+11)='GFT1'
714 : MOTS(JGA+12)='GFT2'
715 : MOTS(JGA+13)='GFT3'
716 : MOTS(JGA+14)='GS1 '
717 : MOTS(JGA+15)='GS2 '
718 : MOTS(JGA+16)='GS3 '
719 : MOTS(JGA+17)='LTR1'
720 : MOTS(JGA+18)='LTR2'
721 : MOTS(JGA+19)='LTR3'
722 : MOTS(JGA+20)='EPCM'
723 : MOTS(JGA+21)='EPCU'
724 : MOTS(JGA+22)='LCBI'
725 : MOTS(JGA+23)='XK2 '
726 : MOTS(JGA+24)='XGB '
727 : MOTS(JGA+25)='XPA '
728 : MOTS(JGA+26)='WRU1'
729 : MOTS(JGA+27)='WRU2'
730 : MOTS(JGA+28)='BIL1'
731 : MOTS(JGA+29)='BIL2'
732 : MOTS(JGA+30)='EPSB'
733 : GOTO 9999
734 : ENDIF
735 : C
736 : C Formulation CONTRAINTES PLANES / 3D COQUES MINCES
737 : IF ((IFOMOD.EQ.-1.AND.IFOUR.EQ.-2).OR.
738 : & (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9))) THEN
739 : *
740 : MLMOTS=MOOBL
741 : JGA=MOTS(/2)
742 : JGM=JGA+7
743 : SEGADJ MLMOTS
744 : MOOBL=MLMOTS
745 : IF (IFOMOD.EQ.-1.AND.IFOUR.EQ.-2) THEN
746 : MOTS(JGA+1)='LXX '
747 : MOTS(JGA+2)='LYY '
748 : MOTS(JGA+3)='LXY '
749 : MOTS(JGA+4)='LZZ '
750 : MOTS(JGA+5)='PXX '
751 : MOTS(JGA+6)='PYY '
752 : MOTS(JGA+7)='PXY '
753 : *
754 : ELSE IF (IFOMOD.EQ.2.AND.(MFR.EQ.3.OR.MFR.EQ.9)) THEN
755 : MOTS(JGA+1)='LSS '
756 : MOTS(JGA+2)='LTT '
757 : MOTS(JGA+3)='LST '
758 : MOTS(JGA+4)='LNN '
759 : MOTS(JGA+5)='PSS '
760 : MOTS(JGA+6)='PTT '
761 : MOTS(JGA+7)='PST '
762 : ENDIF
763 : *
764 : MLMOTS=MOFAC
765 : JGA=MOTS(/2)
766 : JGM=JGA+25
767 : SEGADJ MLMOTS
768 : MOFAC=MLMOTS
769 : MOTS(JGA+1) ='GFTR'
770 : MOTS(JGA+2) ='LTR '
771 : MOTS(JGA+3) ='GFCS'
772 : MOTS(JGA+4) ='LCS '
773 : MOTS(JGA+5) ='GS '
774 : MOTS(JGA+6) ='BTR '
775 : MOTS(JGA+7) ='BCS '
776 : MOTS(JGA+8) ='WRUP'
777 : MOTS(JGA+9) ='BILI'
778 : MOTS(JGA+10)='GFT1'
779 : MOTS(JGA+11)='GFT2'
780 : MOTS(JGA+12)='GS1 '
781 : MOTS(JGA+13)='GS2 '
782 : MOTS(JGA+14)='LTR1'
783 : MOTS(JGA+15)='LTR2'
784 : MOTS(JGA+16)='EPCM'
785 : MOTS(JGA+17)='EPCU'
786 : MOTS(JGA+18)='LCBI'
787 : MOTS(JGA+19)='XK2 '
788 : MOTS(JGA+20)='XGB '
789 : MOTS(JGA+21)='XPA '
790 : MOTS(JGA+22)='WRU1'
791 : MOTS(JGA+23)='WRU2'
792 : MOTS(JGA+24)='BIL1'
793 : MOTS(JGA+25)='BIL2'
794 : GOTO 9999
795 : ENDIF
796 : C
797 : C Formulation TRIDIMENSIONNELLE MASSIVE
798 : IF (IFOMOD.EQ.2.AND.MFR.EQ.1) THEN
799 : MLMOTS=MOOBL
800 : JGA=MOTS(/2)
801 : JGM=JGA+12
802 : SEGADJ MLMOTS
803 : MOOBL=MLMOTS
804 : MOTS(JGA+1) ='LXX '
805 : MOTS(JGA+2) ='LYY '
806 : MOTS(JGA+3) ='LZZ '
807 : MOTS(JGA+4) ='LXY '
808 : MOTS(JGA+5) ='LXZ '
809 : MOTS(JGA+6) ='LYZ '
810 : MOTS(JGA+7) ='PXX '
811 : MOTS(JGA+8) ='PYY '
812 : MOTS(JGA+9) ='PZZ '
813 : MOTS(JGA+10)='PXY '
814 : MOTS(JGA+11)='PXZ '
815 : MOTS(JGA+12)='PYZ '
816 : MLMOTS=MOFAC
817 : JGA=MOTS(/2)
818 : JGM=JGA+30
819 : SEGADJ MLMOTS
820 : MOFAC=MLMOTS
821 : MOTS(JGA+1)='GFTR'
822 : MOTS(JGA+2)='LTR '
823 : MOTS(JGA+3)='GFCS'
824 : MOTS(JGA+4)='LCS '
825 : MOTS(JGA+5)='GS '
826 : MOTS(JGA+6)='BTR '
827 : MOTS(JGA+7)='BCS '
828 : MOTS(JGA+8)='WRUP'
829 : MOTS(JGA+9)='BILI'
830 : MOTS(JGA+10)='GFT1'
831 : MOTS(JGA+11)='GFT2'
832 : MOTS(JGA+12)='GFT3'
833 : MOTS(JGA+13)='GS1 '
834 : MOTS(JGA+14)='GS2 '
835 : MOTS(JGA+15)='GS3 '
836 : MOTS(JGA+16)='LTR1'
837 : MOTS(JGA+17)='LTR2'
838 : MOTS(JGA+18)='LTR3'
839 : MOTS(JGA+19)='EPCM'
840 : MOTS(JGA+20)='EPCU'
841 : MOTS(JGA+21)='LCBI'
842 : MOTS(JGA+22)='XK2 '
843 : MOTS(JGA+23)='XGB '
844 : MOTS(JGA+24)='XPA '
845 : MOTS(JGA+25)='WRU1'
846 : MOTS(JGA+26)='WRU2'
847 : MOTS(JGA+27)='WRU3'
848 : MOTS(JGA+28)='BIL1'
849 : MOTS(JGA+29)='BIL2'
850 : MOTS(JGA+30)='BIL3'
851 : GOTO 9999
852 : ENDIF
853 : *
854 : ELSE IF (IPLAC.EQ.24) THEN
855 : *
856 : * MODELE MAZARS_FIB (MODELE A FIBRE)
857 : *
858 : MLMOTS=MOOBL
859 : JGA=MOTS(/2)
860 : JGM=JGA+6
861 : SEGADJ MLMOTS
862 : MOTS(JGA+1)= 'KTR0'
863 : MOTS(JGA+2)= 'ACOM'
864 : MOTS(JGA+3)= 'BCOM'
865 : MOTS(JGA+4)= 'ATRA'
866 : MOTS(JGA+5)= 'BTRA'
867 : MOTS(JGA+6)= 'BETA'
868 : GOTO 9999
869 : *
870 : ELSE IF (IPLAC.EQ.25) THEN
871 : *
872 : * MODELE AMADEI-SAEB POUR LES JOINTS
873 : *
874 : IF (MFR.NE.35) GO TO 99
875 : MLMOTS=MOOBL
876 : JGA=MOTS(/2)
877 : JGM=JGA+10
878 : SEGADJ MLMOTS
879 : MOOBL=MLMOTS
880 : MOTS(JGA+1)='FIMU'
881 : MOTS(JGA+2)='SGMT'
882 : MOTS(JGA+3)='I0 '
883 : MOTS(JGA+4)='S0 '
884 : MOTS(JGA+5)='B0 '
885 : MOTS(JGA+6)='UR '
886 : MOTS(JGA+7)='UP '
887 : MOTS(JGA+8)='KNI '
888 : MOTS(JGA+9)='FI0 '
889 : MOTS(JGA+10)='VM '
890 : GOTO 9999
891 : *
892 : ELSE IF (IPLAC.EQ.26) THEN
893 : *
894 : * MODELE HUJEUX
895 : *
896 : MLMOTS=MOOBL
897 : JGA=MOTS(/2)
898 : JGM=JGA+10
899 : SEGADJ MLMOTS
900 : MOOBL=MLMOTS
901 : MOTS(JGA+1)='P0 '
902 : MOTS(JGA+2)='COHE'
903 : MOTS(JGA+3)='M '
904 : MOTS(JGA+4)='BETA'
905 : MOTS(JGA+5)='A '
906 : MOTS(JGA+6)='B '
907 : MOTS(JGA+7)='R0 '
908 : MOTS(JGA+8)='P1 '
909 : MOTS(JGA+9)='N '
910 : MOTS(JGA+10)='E1 '
911 : GOTO 9999
912 : *
913 : ELSE IF (IPLAC.EQ.27) THEN
914 : *
915 : * MODELE STEINBERG COCHRAN GUINAN
916 : *
917 : * IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
918 : MLMOTS=MOOBL
919 : JGA=MOTS(/2)
920 : JGM=JGA+9
921 : SEGADJ MLMOTS
922 : MOOBL=MLMOTS
923 : MOTS(JGA+1)='SIGY'
924 : MOTS(JGA+2)='BETA'
925 : MOTS(JGA+3)='N'
926 : MOTS(JGA+4)='EPSI'
927 : MOTS(JGA+5)='GP'
928 : MOTS(JGA+6)='GT'
929 : MOTS(JGA+7)='YMAX'
930 : MOTS(JGA+8)='TMO'
931 : MOTS(JGA+9)='MU'
932 : GOTO 9999
933 : *
934 : ELSE IF (IPLAC.EQ.28) THEN
935 : *
936 : * MODELE ZERILLI ARMSTRONG
937 : *
938 : MLMOTS=MOOBL
939 : JGA=MOTS(/2)
940 : JGM=JGA+10
941 : SEGADJ MLMOTS
942 : MOOBL=MLMOTS
943 : MOTS(JGA+1)='DYG'
944 : MOTS(JGA+2)='C1'
945 : MOTS(JGA+3)='C2'
946 : MOTS(JGA+4)='C3'
947 : MOTS(JGA+5)='C4'
948 : MOTS(JGA+6)='C5'
949 : MOTS(JGA+7)='N'
950 : MOTS(JGA+8)='K'
951 : MOTS(JGA+9)='L'
952 : MOTS(JGA+10)='TYPE'
953 : GOTO 9999
954 : *
955 : ELSE IF (IPLAC.EQ.29) THEN
956 : *
957 : * MODELE PRESTON TONKS WALLACE
958 : *
959 : MLMOTS=MOOBL
960 : JGA=MOTS(/2)
961 : JGM=JGA+15
962 : SEGADJ MLMOTS
963 : MOOBL=MLMOTS
964 : MOTS(JGA+1)='TAU'
965 : MOTS(JGA+2)='P'
966 : MOTS(JGA+3)='S0'
967 : MOTS(JGA+4)='SINF'
968 : MOTS(JGA+5)='K'
969 : MOTS(JGA+6)='G'
970 : MOTS(JGA+7)='Y0'
971 : MOTS(JGA+8)='YINF'
972 : MOTS(JGA+9)='Y1'
973 : MOTS(JGA+10)='Y2'
974 : MOTS(JGA+11)='BETA'
975 : MOTS(JGA+12)='GP'
976 : MOTS(JGA+13)='GT'
977 : MOTS(JGA+14)='MU'
978 : MOTS(JGA+15)='TMO'
979 : GOTO 9999
980 : *
981 : ELSE IF (IPLAC.EQ.30) THEN
982 : *
983 : * MODELE BETOCYCL EN CONTRAINTE PLANE
984 : *
985 : MLMOTS=MOOBL
986 : JGA=MOTS(/2)
987 : JGM=JGA+11
988 : SEGADJ MLMOTS
989 : MOOBL=MLMOTS
990 : MOTS(JGA+1)='HHH1'
991 : MOTS(JGA+2)='FTPE'
992 : MOTS(JGA+3)='FCPE'
993 : MOTS(JGA+4)='FTGR'
994 : MOTS(JGA+5)='FCGR'
995 : MOTS(JGA+6)='EPSO'
996 : MOTS(JGA+7)='WOR0'
997 : MOTS(JGA+8)='TREV'
998 : MOTS(JGA+9)='COEV'
999 : MOTS(JGA+10)='LCAT'
1000 : MOTS(JGA+11)='LCAC'
1001 : GOTO 9999
1002 : *
1003 : ELSE IF (IPLAC.EQ.31) THEN
1004 : C
1005 : C MODELE ROTATING CRACK EN CONTRAINTE PLANE
1006 : C
1007 : MLMOTS=MOOBL
1008 : JGA=MOTS(/2)
1009 : JGM=JGA+4
1010 : SEGADJ MLMOTS
1011 : MOOBL=MLMOTS
1012 : MOTS(JGA+1)= 'FTRA'
1013 : MOTS(JGA+2)= 'EPSR'
1014 : MOTS(JGA+3)= 'FRES'
1015 : MOTS(JGA+4)= 'BETA'
1016 : GOTO 9999
1017 : *
1018 : ELSE IF (IPLAC.EQ.32) THEN
1019 : *
1020 : * MODELE JOINT_SOFT POUR LES JOINTS
1021 : *
1022 : IF (MFR.NE.35) GO TO 99
1023 : MLMOTS=MOOBL
1024 : JGA=MOTS(/2)
1025 : *
1026 : JGM=JGA+6
1027 : SEGADJ MLMOTS
1028 : MOOBL=MLMOTS
1029 : MOTS(JGA+1)='PNOR'
1030 : MOTS(JGA+2)='CPLG'
1031 : MOTS(JGA+3)='BETA'
1032 : MOTS(JGA+4)='SJCB'
1033 : MOTS(JGA+5)='SJSB'
1034 : MOTS(JGA+6)='SJTB'
1035 : *
1036 : GOTO 9999
1037 : *
1038 : ELSE IF (IPLAC.EQ.49) THEN
1039 : *
1040 : * MODELE ANCRAGE_ELIGEHAUSEN POUR LES JOINTS
1041 : *
1042 : IF (MFR.NE.35) GO TO 99
1043 : MLMOTS=MOOBL
1044 : JGA=MOTS(/2)
1045 : JGM=JGA+7
1046 : SEGADJ MLMOTS
1047 : MOOBL=MLMOTS
1048 : MOTS(JGA+1)='S1T '
1049 : MOTS(JGA+2)='S2T '
1050 : MOTS(JGA+3)='S3T '
1051 : MOTS(JGA+4)='T1T '
1052 : MOTS(JGA+5)='T3T '
1053 : MOTS(JGA+6)='ALFA'
1054 : MOTS(JGA+7)='PERI'
1055 : GOTO 9999
1056 : *
1057 : ELSE IF (IPLAC.EQ.33) THEN
1058 : *
1059 : * MODELE BILINEAIRE MOMY
1060 : *
1061 : MLMOTS=MOOBL
1062 : JGA=MOTS(/2)
1063 : JGM=JGA+2
1064 : SEGADJ MLMOTS
1065 : MOTS(JGA+1)='EAYI'
1066 : MOTS(JGA+2)='YMOM'
1067 : GOTO 9999
1068 : *
1069 : ELSE IF (IPLAC.EQ.34) THEN
1070 : *
1071 : * MODELE BILINEAIRE EFFZ
1072 : *
1073 : MLMOTS=MOOBL
1074 : JGA=MOTS(/2)
1075 : JGM=JGA+2
1076 : SEGADJ MLMOTS
1077 : MOTS(JGA+1)='EAYI'
1078 : MOTS(JGA+2)='YEFF'
1079 : GOTO 9999
1080 : *
1081 : ELSE IF ((IPLAC.EQ.35).OR.(IPLAC.EQ.36)) THEN
1082 : *
1083 : * MODELE PLASTIQUE TAKEMO_MOMY OU TAKEMO_EFFZ
1084 : *
1085 : MLMOTS=MOOBL
1086 : JGA=MOTS(/2)
1087 : JGM=JGA+7
1088 : SEGADJ MLMOTS
1089 : MOTS(JGA+1)='TRAC'
1090 : MOTS(JGA+2)='SFDP'
1091 : MOTS(JGA+3)='SFDN'
1092 : MOTS(JGA+4)='PINP'
1093 : MOTS(JGA+5)='PINN'
1094 : MOTS(JGA+6)='SRDP'
1095 : MOTS(JGA+7)='SRDN'
1096 : GOTO 9999
1097 : C
1098 : ELSE IF(IPLAC.EQ.37) THEN
1099 : *
1100 : * MODELE BETON_INSA
1101 : *
1102 : MLMOTS=MOFAC
1103 : JGA=MOTS(/2)
1104 : JGM=JGA+12
1105 : SEGADJ MLMOTS
1106 : MOFAC=MLMOTS
1107 : MOTS(JGA+1 )='ALFA'
1108 : MOTS(JGA+2 )='LCS '
1109 : MOTS(JGA+3 )='EMAX'
1110 : MOTS(JGA+4 )='EPUT'
1111 : MOTS(JGA+5 )='FTC '
1112 : MOTS(JGA+6 )='ICOM'
1113 : MOTS(JGA+7 )='GFTR'
1114 : *
1115 : MOTS(JGA+8 )='IFLU'
1116 : MOTS(JGA+9 )='RMOY'
1117 : MOTS(JGA+10)='PHIF'
1118 : MOTS(JGA+11)='TEM1'
1119 : MOTS(JGA+12)='POAR'
1120 : GOTO 9999
1121 : *
1122 : ELSE IF (IPLAC.EQ.38.AND.(MFR.EQ.27.OR.MFR.EQ.49)) THEN
1123 : *
1124 : * ECROUIS_INSA (MATERIAU ECROUISSABLE UNIDIRECTIONEL)
1125 : *
1126 : MLMOTS=MOOBL
1127 : JGA=MOTS(/2)
1128 : JGM=JGA+1
1129 : SEGADJ MLMOTS
1130 : MOOBL=MLMOTS
1131 : MOTS(JGA+1)='TRAC'
1132 : GOTO 9999
1133 : *
1134 : ELSE IF (IPLAC.EQ.38.AND.MFR.NE.27.AND.MFR.NE.49) THEN
1135 : *
1136 : * ECROUIS_INSA (MATERIAU ORTHOTROPE ECROUISSABLE DECOUPLE)
1137 : *
1138 : MLMOTS=MOOBL
1139 : JGA=MOTS(/2)
1140 : JGM=JGA+2
1141 : SEGADJ MLMOTS
1142 : MOOBL=MLMOTS
1143 : MOTS(JGA+1)='TRA1'
1144 : MOTS(JGA+2)='TRA2'
1145 : GOTO 9999
1146 : *
1147 : ELSE IF (IPLAC.EQ.39.AND.(MFR.EQ.27.OR.MFR.EQ.49)) THEN
1148 : *
1149 : * PARFAIT_INSA (MATERIAU PLASTIQUE PARFAIT UNIDIRECTIONEL)
1150 : *
1151 : MLMOTS=MOOBL
1152 : JGA=MOTS(/2)
1153 : JGM=JGA+1
1154 : SEGADJ MLMOTS
1155 : MOOBL=MLMOTS
1156 : MOTS(JGA+1)='SIGY'
1157 : GOTO 9999
1158 : *
1159 : ELSE IF (IPLAC.EQ.39.AND.MFR.NE.27.AND.MFR.NE.49) THEN
1160 : *
1161 : * PARFAIT_INSA (MATERIAU ORTHOTROPE PLASTIQUE PARFAIT DECOUPLE)
1162 : *
1163 : MLMOTS=MOOBL
1164 : JGA=MOTS(/2)
1165 : JGM=JGA+2
1166 : SEGADJ MLMOTS
1167 : MOOBL=MLMOTS
1168 : MOTS(JGA+1)='SIG1'
1169 : MOTS(JGA+2)='SIG2'
1170 : GOTO 9999
1171 : *
1172 : ELSE IF (IPLAC.EQ.40) THEN
1173 : *
1174 : * ALONSO
1175 : *
1176 : MLMOTS=MOOBL
1177 : JGA=MOTS(/2)
1178 : JGM=JGA+12
1179 : SEGADJ MLMOTS
1180 : MOOBL=MLMOTS
1181 : MOTS(JGA+1)='KS'
1182 : MOTS(JGA+2)='LAMS'
1183 : MOTS(JGA+3)='M'
1184 : MOTS(JGA+4)='KK'
1185 : MOTS(JGA+5)='PC0'
1186 : MOTS(JGA+6)='P0'
1187 : MOTS(JGA+7)='LAM1'
1188 : MOTS(JGA+8)='T0'
1189 : MOTS(JGA+9)='TAU'
1190 : MOTS(JGA+10)='GTAN'
1191 : MOTS(JGA+11)='KTAN'
1192 : MOTS(JGA+12)='E0'
1193 : *
1194 : MLMOTS=MOFAC
1195 : JGA=MOTS(/2)
1196 : JGM=JGA+4
1197 : SEGADJ MLMOTS
1198 : MOFAC=MLMOTS
1199 : MOTS(JGA+1 )='KALF'
1200 : MOTS(JGA+2 )='KBET'
1201 : MOTS(JGA+3 )='KGAM'
1202 : MOTS(JGA+4 )='PREF'
1203 : GOTO 9999
1204 : *
1205 : ELSE IF (IPLAC.EQ.41) THEN
1206 : *
1207 : * PAKZAD
1208 : *
1209 : MLMOTS=MOOBL
1210 : JGA=MOTS(/2)
1211 : JGM=JGA+15
1212 : SEGADJ MLMOTS
1213 : MOOBL=MLMOTS
1214 : MOTS(JGA+1)='N'
1215 : MOTS(JGA+2)='KA'
1216 : MOTS(JGA+3)='GA'
1217 : MOTS(JGA+4)='PATM'
1218 : MOTS(JGA+5)='PC0'
1219 : MOTS(JGA+6)='M'
1220 : MOTS(JGA+7)='BETA'
1221 : MOTS(JGA+8)='A0'
1222 : MOTS(JGA+9)='PREF'
1223 : MOTS(JGA+10)='S0'
1224 : MOTS(JGA+11)='M1'
1225 : MOTS(JGA+12)='M2'
1226 : MOTS(JGA+13)='M3'
1227 : MOTS(JGA+14)='BSEC'
1228 : MOTS(JGA+15)='TAU'
1229 : GOTO 9999
1230 : *
1231 : ELSE IF (IPLAC.EQ.42) THEN
1232 : *
1233 : * MODELE PLASTIQUE INFILL_UNI
1234 : *
1235 : MLMOTS=MOOBL
1236 : JGA=MOTS(/2)
1237 : JGM=JGA+8
1238 : SEGADJ MLMOTS
1239 : MOTS(JGA+1)='DELA'
1240 : MOTS(JGA+2)='DMAX'
1241 : MOTS(JGA+3)='BETA'
1242 : MOTS(JGA+4)='GAMM'
1243 : MOTS(JGA+5)='GAMP'
1244 : MOTS(JGA+6)='ALFA'
1245 : MOTS(JGA+7)='TETA'
1246 : * MOTS(JGA+8)='NETA'
1247 : MOTS(JGA+8)='MONO'
1248 : GOTO 9999
1249 : *
1250 : ELSE IF (IPLAC.EQ.43) THEN
1251 : *
1252 : * MODELE PLASTIQUE CISAIL_NL
1253 : *
1254 : MLMOTS=MOOBL
1255 : JGA=MOTS(/2)
1256 : JGM=JGA+9
1257 : SEGADJ MLMOTS
1258 : MOTS(JGA+1)='DELP'
1259 : MOTS(JGA+2)='DELN'
1260 : MOTS(JGA+3)='DMAP'
1261 : MOTS(JGA+4)='DMAN'
1262 : MOTS(JGA+5)='BETA'
1263 : MOTS(JGA+6)='ALFA'
1264 : MOTS(JGA+7)='TETA'
1265 : MOTS(JGA+8)='MONP'
1266 : MOTS(JGA+9)='MONN'
1267 : GOTO 9999
1268 :
1269 : ELSE IF (IPLAC.EQ.48) THEN
1270 : *
1271 : *+++++++++++++++++++++++++++++++++
1272 : * MODELE HINTE
1273 : *+++++++++++++++++++++++++++++++++++
1274 : *
1275 : MLMOTS=MOOBL
1276 : JGA=MOTS(/2)
1277 : JGM=JGA+6
1278 : SEGADJ MLMOTS
1279 : MOOBL=MLMOTS
1280 : MOTS(JGA+1)='GAM1'
1281 : MOTS(JGA+2)='AL '
1282 : MOTS(JGA+3)='DCRI'
1283 : MOTS(JGA+4)='NN '
1284 : MOTS(JGA+5)='YO '
1285 : MOTS(JGA+6)='YC '
1286 : GOTO 9999
1287 :
1288 : ELSE IF (IPLAC.EQ.52) THEN
1289 : *
1290 : * MODELE PLASTIQUE BETON_URGC
1291 : *
1292 : MLMOTS=MOOBL
1293 : JGA=MOTS(/2)
1294 : JGM=JGA+9
1295 : SEGADJ MLMOTS
1296 : MOTS(JGA+1)='ALFA'
1297 : MOTS(JGA+2)='BETA'
1298 : MOTS(JGA+3)='LCS '
1299 : MOTS(JGA+4)='GFC'
1300 : MOTS(JGA+5)='GFT'
1301 : MOTS(JGA+6)='ITON'
1302 : MOTS(JGA+7)='IMOD'
1303 : MOTS(JGA+8)='ICT '
1304 : MOTS(JGA+9)='ICC'
1305 : GOTO 9999
1306 : * BCN
1307 : ELSE IF (IPLAC.EQ.54) THEN
1308 : CCC
1309 : CCC MRS-Lade model
1310 : CCC
1311 : MLMOTS=MOOBL
1312 : JGA=MOTS(/2)
1313 : JGM=JGA+18
1314 : SEGADJ MLMOTS
1315 : MOOBL=MLMOTS
1316 : MOTS(JGA+1)='PC'
1317 : MOTS(JGA+2)='PA'
1318 : MOTS(JGA+3)='QA'
1319 : MOTS(JGA+4)='EXPM'
1320 : MOTS(JGA+5)='E'
1321 : MOTS(JGA+6)='K1'
1322 : MOTS(JGA+7)='K2'
1323 : MOTS(JGA+8)='ETAB'
1324 : MOTS(JGA+9)='EXPV'
1325 : MOTS(JGA+10)='EPSI'
1326 : MOTS(JGA+11)='N'
1327 : MOTS(JGA+12)='CCON'
1328 : MOTS(JGA+13)='EXPL'
1329 : MOTS(JGA+14)='PCAP'
1330 : MOTS(JGA+15)='EXPR'
1331 : MOTS(JGA+16)='CCAP'
1332 : MOTS(JGA+17)='PHI'
1333 : MOTS(JGA+18)='ALP'
1334 : GOTO 9999
1335 :
1336 : ELSE IF (IPLAC.EQ.55) THEN
1337 : CCC
1338 : CCC J2 model
1339 : CCC
1340 : MLMOTS=MOOBL
1341 : JGA=MOTS(/2)
1342 : JGM=JGA+4
1343 : SEGADJ MLMOTS
1344 : MOOBL=MLMOTS
1345 : MOTS(JGA+1)='SIG0'
1346 : MOTS(JGA+2)='SIGI'
1347 : MOTS(JGA+3)='KISO'
1348 : MOTS(JGA+4)='VELO'
1349 : GOTO 9999
1350 : ELSE IF ((IPLAC.EQ.56).or.(IPLAC.EQ.58)) THEN
1351 : CCC
1352 : CCC Rounded Hyperbolic Mohr_coulomb model
1353 : CCC
1354 : MLMOTS=MOOBL
1355 : JGA=MOTS(/2)
1356 : JGM=JGA+2
1357 : SEGADJ MLMOTS
1358 : MOOBL=MLMOTS
1359 : MOTS(JGA+1)='COHE'
1360 : MOTS(JGA+2)='PHI'
1361 : GOTO 9999
1362 : ELSE IF (IPLAC.EQ.57) THEN
1363 : CCC
1364 : CCC VMT_FEFP model
1365 : CCC
1366 : MLMOTS=MOOBL
1367 : JGA=MOTS(/2)
1368 : JGM=JGA+5
1369 : SEGADJ MLMOTS
1370 : MOOBL=MLMOTS
1371 : MOTS(JGA+1)='SIG0'
1372 : MOTS(JGA+2)='SIGI'
1373 : MOTS(JGA+3)='KISO'
1374 : MOTS(JGA+4)='VELO'
1375 : MOTS(JGA+5)='MSHA'
1376 : GOTO 9999
1377 : ELSE IF (IPLAC.EQ.59) THEN
1378 : CCC
1379 : CCC POWDER_FEFP model
1380 : CCC
1381 : MLMOTS=MOOBL
1382 : JGA=MOTS(/2)
1383 : JGM=JGA+4
1384 : SEGADJ MLMOTS
1385 : MOOBL=MLMOTS
1386 : MOTS(JGA+1)='SIGY'
1387 : MOTS(JGA+2)='NNN1'
1388 : MOTS(JGA+3)='NNN2'
1389 : MOTS(JGA+4)='ETA0'
1390 : GOTO 9999
1391 : ELSE IF (IPLAC.EQ.60) THEN
1392 : CCC
1393 : CCC POWDERCAP_FEFP model
1394 : CCC
1395 : MLMOTS=MOOBL
1396 : JGA=MOTS(/2)
1397 : JGM=JGA+8
1398 : SEGADJ MLMOTS
1399 : MOOBL=MLMOTS
1400 : MOTS(JGA+1)='COHE'
1401 : MOTS(JGA+2)='PHI'
1402 : MOTS(JGA+3)='ETA0'
1403 : MOTS(JGA+4)='PHI0'
1404 : MOTS(JGA+5)='NNNC'
1405 : MOTS(JGA+6)='SIGY'
1406 : MOTS(JGA+7)='NNN1'
1407 : MOTS(JGA+8)='NNN2'
1408 : GOTO 9999
1409 : * BCN
1410 : ELSE IF (IPLAC.EQ.61) THEN
1411 : *
1412 : * MODELE JOINT_COAT POUR LES JOINTS CISAILLEMENT
1413 : *
1414 : IF (MFR.NE.53) GO TO 99
1415 : MLMOTS=MOOBL
1416 : JGA=MOTS(/2)
1417 : JGM=JGA+2
1418 : SEGADJ MLMOTS
1419 : MOOBL=MLMOTS
1420 : MOTS(JGA+1)='SJSB'
1421 : MOTS(JGA+2)='BETA'
1422 : GOTO 9999
1423 : *
1424 : ELSE IF (IPLAC.EQ.62) THEN
1425 : *
1426 : * MODELE JOINT_COAT POUR LES JOINTS CISAILLEMENT
1427 : *
1428 : MLMOTS=MOOBL
1429 : JGA=MOTS(/2)
1430 : JGM=JGA+13
1431 : SEGADJ MLMOTS
1432 : MOOBL=MLMOTS
1433 : MOTS(JGA+1 )='SIT0'
1434 : MOTS(JGA+2 )='SIFC'
1435 : MOTS(JGA+3 )='SIGT'
1436 : MOTS(JGA+4 )='EPTU'
1437 : MOTS(JGA+5 )='SIGC'
1438 : MOTS(JGA+6 )='EPSC'
1439 : MOTS(JGA+7 )='SICU'
1440 : MOTS(JGA+8 )='EPCU'
1441 : MOTS(JGA+9 )='COED'
1442 : MOTS(JGA+10)='COER'
1443 : MOTS(JGA+11)='BETA'
1444 : MOTS(JGA+12)='BET1'
1445 : MOTS(JGA+13)='COEU'
1446 : GOTO 9999
1447 : C+PPf
1448 : C+PPm
1449 : *
1450 : ELSE IF (IPLAC.EQ.63) THEN
1451 : *
1452 : * MODELE MUR_SHEAR POUR LES JOINTS CISAILLEMENT
1453 : *
1454 : IF(MFR.NE.7.AND.MFR.NE.61) GO TO 99
1455 : MLMOTS=MOOBL
1456 : JGA=MOTS(/2)
1457 : JGM=JGA+13
1458 : SEGADJ MLMOTS
1459 : MOOBL=MLMOTS
1460 : MOTS(JGA+1 )='CUFP'
1461 : MOTS(JGA+2 )='CUKP'
1462 : MOTS(JGA+3 )='CULP'
1463 : MOTS(JGA+4 )='CUFM'
1464 : MOTS(JGA+5 )='CUKM'
1465 : MOTS(JGA+6 )='CULM'
1466 : MOTS(JGA+7 )='DTRP'
1467 : MOTS(JGA+8 )='DTRM'
1468 : MOTS(JGA+9 )='BETA'
1469 : MOTS(JGA+10)='NELA'
1470 : MOTS(JGA+11)='TRFA'
1471 : MOTS(JGA+12)='DOCP'
1472 : MOTS(JGA+13)='DOCM'
1473 : *
1474 : C+2004 !!!!!!!!!! RHO et ALPH doivent etre a la fin! voir defmat!!!
1475 : MLMOTS=MOFAC
1476 : JGA=MOTS(/2)
1477 : JGM=JGA+3
1478 : SEGADJ MLMOTS
1479 : MOFAC=MLMOTS
1480 : DO ie1=1,JGA
1481 : MOTS(JGM+1-ie1)=MOTS(JGA+1-ie1)
1482 : ENDDO
1483 : MOTS(1)='EXPN'
1484 : MOTS(2)='FNRF'
1485 : MOTS(3)='FTDI'
1486 : C+2004
1487 : GOTO 9999
1488 : *
1489 : ELSE IF (IPLAC.EQ.64) THEN
1490 : *
1491 : * MODELE INCO
1492 : *
1493 : IF (MFR.NE.35) GO TO 99
1494 : MLMOTS=MOOBL
1495 : JGA=MOTS(/2)
1496 : JGM=JGA+4
1497 : SEGADJ MLMOTS
1498 : MOOBL=MLMOTS
1499 : MOTS(JGA+1)='LTR '
1500 : MOTS(JGA+2)='GFTR'
1501 : MOTS(JGA+3)='HS '
1502 : MOTS(JGA+4)='DINT'
1503 : MLMOTS=MOFAC
1504 : JGA=MOTS(/2)
1505 : JGM=JGA+1
1506 : SEGADJ MLMOTS
1507 : MOFAC=MLMOTS
1508 : MOTS(JGA+1) ='FTRC'
1509 : GOTO 9999
1510 :
1511 : * modif DP2
1512 : ELSE IF (IPLAC.EQ.65) THEN
1513 : *
1514 : * MODELE PLASTIQUE DRUCKER PRAGER A DEUX SURFACES
1515 : *
1516 : MLMOTS=MOOBL
1517 : JGA=MOTS(/2)
1518 : JGM=JGA+7
1519 : SEGADJ MLMOTS
1520 : MOOBL=MLMOTS
1521 : MOTS(JGA+1)='LTR'
1522 : MOTS(JGA+2)='LCS'
1523 : MOTS(JGA+3)='LBI'
1524 : MOTS(JGA+4)='SIGY'
1525 : MOTS(JGA+5)='EPM'
1526 : MOTS(JGA+6)='EPU'
1527 : MOTS(JGA+7)='LCAR'
1528 : MLMOTS=MOFAC
1529 : JGA=MOTS(/2)
1530 : JGM=JGA+1
1531 : SEGADJ MLMOTS
1532 : MOFAC=MLMOTS
1533 : JGM=JGA
1534 : SEGINI MLMOT1
1535 : DO IC=1,JGA
1536 : MLMOT1.MOTS(IC)=MOTS(IC)
1537 : ENDDO
1538 : DO IC=1,JGA
1539 : MOTS(IC+1)=MLMOT1.MOTS(IC)
1540 : ENDDO
1541 : SEGSUP MLMOT1
1542 : MOTS(1)='GF '
1543 : GOTO 9999
1544 : ELSE IF (IPLAC.EQ.69) THEN
1545 : *
1546 : * MODELE PLASTIQUE BILIN_EFFX
1547 : *
1548 : MLMOTS=MOOBL
1549 : JGA=MOTS(/2)
1550 : JGM=JGA+2
1551 : SEGADJ MLMOTS
1552 : MOTS(JGA+1)='ETAN'
1553 : MOTS(JGA+2)='YIEF'
1554 : GOTO 9999
1555 : ELSE IF (IPLAC.EQ.67) THEN
1556 : *
1557 : * MODELE PLASTIQUE INTIMP
1558 : *
1559 : MLMOTS=MOOBL
1560 : JGA=MOTS(/2)
1561 : JGM=JGA+14
1562 : SEGADJ MLMOTS
1563 : MOTS(JGA+ 1)= 'SOCT'
1564 : MOTS(JGA+ 2)= 'DCS '
1565 : MOTS(JGA+ 3)= 'SOGS'
1566 : MOTS(JGA+ 4)= 'TCS '
1567 : MOTS(JGA+ 5)= 'MS '
1568 : MOTS(JGA+ 6)= 'KS '
1569 : MOTS(JGA+ 7)= 'GCEO'
1570 : MOTS(JGA+ 8)= 'AD '
1571 : MOTS(JGA+ 9)= 'ACOE'
1572 : MOTS(JGA+10)= 'GAMC'
1573 : MOTS(JGA+11)= 'LCCO'
1574 : MOTS(JGA+12)= 'EPSC'
1575 : MOTS(JGA+13)= 'TCI '
1576 : MOTS(JGA+14)= 'CALA'
1577 : GOTO 9999
1578 :
1579 : ELSE IF (IPLAC.EQ.68) THEN
1580 : *
1581 : * MODELE PLASTIQUE INTJOI2D
1582 : *
1583 : IF (MFR.NE.35) GO TO 99
1584 : MLMOTS=MOOBL
1585 : JGA=MOTS(/2)
1586 : JGM=JGA+13
1587 : SEGADJ MLMOTS
1588 : MOOBL=MLMOTS
1589 : MOTS(JGA+1 )='AD '
1590 : MOTS(JGA+2 )='Y0 '
1591 : MOTS(JGA+3 )='ALPA'
1592 : MOTS(JGA+4 )='GAIN'
1593 : MOTS(JGA+5 )='AAIN'
1594 : MOTS(JGA+6 )='Q1CO'
1595 : MOTS(JGA+7 )='Q2CO'
1596 : MOTS(JGA+8 )='Q3CO'
1597 : MOTS(JGA+9 )='SYCO'
1598 : MOTS(JGA+10)='NCOE'
1599 : MOTS(JGA+11)='KCOE'
1600 : MOTS(JGA+12)='TC '
1601 : MOTS(JGA+13)='GONF'
1602 : GOTO 9999
1603 :
1604 : *
1605 : ELSE IF (IPLAC.EQ.70) THEN
1606 : *
1607 : * MODELE PLASTIQUE ISS_GRANGE
1608 : *
1609 : MLMOTS=MOOBL
1610 : JGA=MOTS(/2)
1611 : JGM=JGA+15
1612 : SEGADJ MLMOTS
1613 : MOOBL=MLMOTS
1614 : MOTS(JGA+1 )='DIAM '
1615 : MOTS(JGA+2 )='LX '
1616 : MOTS(JGA+3 )='LY '
1617 : C MOTS(JGA+4 )='KELZ '
1618 : C MOTS(JGA+5 )='KELH '
1619 : C MOTS(JGA+6 )='KERY '
1620 : C MOTS(JGA+7 )='KERX '
1621 : C MOTS(JGA+8 )='KELT '
1622 : MOTS(JGA+4 )='XA '
1623 : MOTS(JGA+5 )='XB '
1624 : MOTS(JGA+6 )='XC '
1625 : MOTS(JGA+7 )='XD '
1626 : MOTS(JGA+8 )='XE '
1627 : MOTS(JGA+9 )='XF '
1628 : MOTS(JGA+10)='QMAX '
1629 : MOTS(JGA+11)='A9 '
1630 : MOTS(JGA+12)='A6 '
1631 : MOTS(JGA+13)='ETA3 '
1632 : MOTS(JGA+14)='XTIM '
1633 : MOTS(JGA+15)='A8 '
1634 : GOTO 9999
1635 :
1636 : *
1637 : ELSE IF (IPLAC.EQ.71) THEN
1638 : *
1639 : * MODELE PLASTIQUE RUP_THER
1640 : *
1641 : MLMOTS=MOOBL
1642 : JGA=MOTS(/2)
1643 : JGM=JGA+10
1644 : SEGADJ MLMOTS
1645 : MOOBL=MLMOTS
1646 : MOTS(JGA+1 )='KB '
1647 : MOTS(JGA+2 )='YBO '
1648 : MOTS(JGA+3 )='C1 '
1649 : MOTS(JGA+4 )='D1 '
1650 : MOTS(JGA+5 )='ALPB'
1651 : MOTS(JGA+6 )='BETB'
1652 : MOTS(JGA+7 )='KA '
1653 : MOTS(JGA+8 )='YAO '
1654 : MOTS(JGA+9 )='ALPA'
1655 : MOTS(JGA+10 )='BETA'
1656 : GOTO 9999
1657 : C +BR
1658 : ELSE IF (IPLAC.EQ.72) THEN
1659 : *
1660 : * MODELE PLASTIQUE RICBET_UNI
1661 : *
1662 : MLMOTS=MOOBL
1663 : JGA=MOTS(/2)
1664 : JGM=JGA+12
1665 : SEGADJ MLMOTS
1666 : MOOBL=MLMOTS
1667 : MOTS(JGA+1 )='FT '
1668 : MOTS(JGA+2 )='ALDI'
1669 : MOTS(JGA+3 )='GAM1'
1670 : MOTS(JGA+4 )='A1 '
1671 : MOTS(JGA+5 )='SIGF'
1672 : MOTS(JGA+6 )='FC '
1673 : MOTS(JGA+7 )='AF '
1674 : MOTS(JGA+8 )='AG '
1675 : MOTS(JGA+9 )='AC '
1676 : MOTS(JGA+10)='BC '
1677 : MOTS(JGA+11)='SIGU'
1678 : MOTS(JGA+12)='HYST'
1679 : GOTO 9999
1680 :
1681 : ELSE IF (IPLAC.EQ.73) THEN
1682 : *
1683 : * MODELE RAGMOUT
1684 : *
1685 : MLMOTS=MOOBL
1686 : JGA=MOTS(/2)
1687 : JGM=JGA+7
1688 : SEGADJ MLMOTS
1689 : MOOBL=MLMOTS
1690 : MOTS(JGA+1 )='UELA'
1691 : MOTS(JGA+2 )='FPLA'
1692 : MOTS(JGA+3 )='PFIS'
1693 : MOTS(JGA+4 )='HCIN'
1694 : MOTS(JGA+5 )='QFRA'
1695 : MOTS(JGA+6 )='APIH'
1696 : MOTS(JGA+7 )='BPIH'
1697 : GOTO 9999
1698 :
1699 : C -BR
1700 : *
1701 : *
1702 : ENDIF
1703 : GOTO 99
1704 : *
1705 : 9999 CONTINUE
1706 : IRET=1
1707 : RETURN
1708 : *
1709 : * SI PROBLEME , ON SORT AVEC IRET A 0
1710 : *
1711 : 99 CONTINUE
1712 : IRET=0
1712 : CALL ERREUR(261)
1713 : RETURN
1714 : END
1715 :
1716 :
1717 :
1718 :
1719 :
1720 :
1721 :
1722 :
1723 :
1724 :
1725 :
1726 :
1727 :
1728 :
1729 :
1730 :
1731 :
1732 :
1733 :
1734 :
1735 :
1736 :
1737 :
1738 :
1739 :
1740 :
1741 :
1742 :
1743 :
1744 :
1745 :
1746 :
1747 :
1748 :
1749 :
1750 :
1751 :
1752 :
1753 :
© Cast3M 2003 - All rights reserved.
Disclaimer