1 : C IDPLEN SOURCE AM 12/02/06 21:15:56 7281
2 : SUBROUTINE IDPLEN (MFR,MOOBL,MOFAC,IPLAC,IRET)
3 : *--------------------------------------------------------------------*
4 : * Noms de composantes de mat{riaux plastique endommageables *
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 E N D O M M A G E A B L E *
32 : * *
33 : *--------------------------------------------------------------------*
34 : IF (IPLAC.EQ.1) THEN
35 : *
36 : * MODELE D'ENDOMMAGEMENT P/Y
37 : *
38 : IF (MFR.EQ.15.OR.MFR.EQ.17) GOTO 99
39 : MLMOTS=MOOBL
40 : JGA=MOTS(/2)
41 : JGM=JGA+3
42 : SEGADJ MLMOTS
43 : MOOBL=MLMOTS
44 : MOTS(JGA+1)='TRAC'
45 : MOTS(JGA+2)='EVOL'
46 : MOTS(JGA+3)='COMP'
47 : GOTO 9999
48 : *
49 : ELSE IF (IPLAC.EQ.2) THEN
50 : *
51 : * MODELE ROUSSELIER
52 : *
53 : MLMOTS=MOOBL
54 : JGA=MOTS(/2)
55 : JGM=JGA+5
56 : SEGADJ MLMOTS
57 : MOOBL=MLMOTS
58 : MOTS(JGA+1)='TRAC'
59 : MOTS(JGA+2)='F '
60 : MOTS(JGA+3)='D '
61 : MOTS(JGA+4)='SIG1'
62 : MOTS(JGA+5)='FC '
63 : GOTO 9999
64 : *
65 : ELSE IF (IPLAC.EQ.3) THEN
66 : *
67 : * MODELE GURSON2
68 : *
69 : MLMOTS=MOOBL
70 : JGA=MOTS(/2)
71 : JGM=JGA+12
72 : SEGADJ MLMOTS
73 : MOOBL=MLMOTS
74 : MOTS(JGA+1)='TRAC'
75 : MOTS(JGA+2)='Q '
76 : MOTS(JGA+3)='FU '
77 : MOTS(JGA+4)='FF '
78 : MOTS(JGA+5)='FC '
79 : MOTS(JGA+6)='FNS0'
80 : MOTS(JGA+7)='FNE0'
81 : MOTS(JGA+8)='SNS '
82 : MOTS(JGA+9)='SNE '
83 : MOTS(JGA+10)='SIGN'
84 : MOTS(JGA+11)='EPSN'
85 : MOTS(JGA+12)='F0 '
86 : MLMOTS=MOFAC
87 : JGM=MOTS(/2)+1
88 : SEGADJ MLMOTS
89 : MOTS(JGM)='SRMA'
90 : GOTO 9999
91 : *
92 : ELSE IF (IPLAC.EQ.4) THEN
93 : *
94 : * MODELE DRAGON
95 : *
96 : MLMOTS=MOOBL
97 : JGA=MOTS(/2)
98 : JGM=JGA+6
99 : SEGADJ MLMOTS
100 : MOOBL=MLMOTS
101 : MOTS(JGA+1)='g '
102 : MOTS(JGA+2)='ALFA'
103 : MOTS(JGA+3)='BETA'
104 : MOTS(JGA+4)='C0 '
105 : MOTS(JGA+5)='C1 '
106 : MOTS(JGA+6)='B '
107 : GOTO 9999
108 : *
109 : ELSE IF (IPLAC.EQ.5) THEN
110 : *
111 : * MODELE ENDOMMAGEMENT BETON_URGC
112 : *
113 : MLMOTS=MOOBL
114 : JGA=MOTS(/2)
115 : JGM=JGA+11
116 : SEGADJ MLMOTS
117 : MOTS(JGA+1 )='ALFA'
118 : MOTS(JGA+2 )='BETA'
119 : MOTS(JGA+3 )='LCS '
120 : MOTS(JGA+4 )='GFC '
121 : MOTS(JGA+5 )='GFT '
122 : MOTS(JGA+6 )='ITON'
123 : MOTS(JGA+7 )='IMOD'
124 : MOTS(JGA+8 )='DC '
125 : MOTS(JGA+9 )='DT '
126 : MOTS(JGA+10)='IASO'
127 : MOTS(JGA+11)='ICOU'
128 : GOTO 9999
129 : *
130 : ELSE IF (IPLAC.EQ.6) THEN
131 : *
132 : * MODELE ENDOMMAGEMENT BETON_INSA 3D
133 : *
134 : MLMOTS=MOOBL
135 : JGA=MOTS(/2)
136 : JGM=JGA+4
137 : SEGADJ MLMOTS
138 : MOTS(JGA+1 )='RT'
139 : MOTS(JGA+2 )='RC'
140 : MOTS(JGA+3 )='GFT'
141 : MOTS(JGA+4 )='GFC'
142 : GOTO 9999
143 : *
144 : ELSE IF (IPLAC.EQ.7) THEN
145 : *
146 : * MODELE ENDOMMAGEMENT BETON_DYNAR_LMT
147 : *
148 : MLMOTS=MOOBL
149 : JGA=MOTS(/2)
150 : JGM=JGA+18
151 : SEGADJ MLMOTS
152 : MOTS(JGA+1 )='F0'
153 : MOTS(JGA+2 )='Q1'
154 : MOTS(JGA+3 )='Q2'
155 : MOTS(JGA+4 )='Q3'
156 : MOTS(JGA+5 )='SGM0'
157 : MOTS(JGA+6 )='XN'
158 : MOTS(JGA+7 )='NVP'
159 : MOTS(JGA+8 )='MVP'
160 : MOTS(JGA+9 )='K'
161 : MOTS(JGA+10)='MDT'
162 : MOTS(JGA+11)='NDT'
163 : MOTS(JGA+12)='AT'
164 : MOTS(JGA+13)='BT'
165 : MOTS(JGA+14)='MDC'
166 : MOTS(JGA+15)='NDC'
167 : MOTS(JGA+16)='AC'
168 : MOTS(JGA+17)='BC'
169 : MOTS(JGA+18)='ED0'
170 : GOTO 9999
171 : *
172 : ELSE IF (IPLAC.EQ.8) THEN
173 : * MODELE Plastique endommageable Mazars + Sheffield
174 : *
175 : MLMOTS=MOOBL
176 : JGA=MOTS(/2)
177 : JGM=JGA+16
178 : SEGADJ MLMOTS
179 : MOOBL=MLMOTS
180 : MOTS(JGA+1)='AC'
181 : MOTS(JGA+2)='AT'
182 : MOTS(JGA+3)='BC'
183 : MOTS(JGA+4)='BT'
184 : MOTS(JGA+5)='EPD0'
185 : MOTS(JGA+6)='RC'
186 : MOTS(JGA+7)='RT'
187 : MOTS(JGA+8)='P'
188 : MOTS(JGA+9)='AH'
189 : MOTS(JGA+10)='BH'
190 : MOTS(JGA+11)='CH'
191 : MOTS(JGA+12)='GAMA'
192 : MOTS(JGA+13)='ALFA'
193 : MOTS(JGA+14)='A'
194 : MOTS(JGA+15)='K0'
195 : MOTS(JGA+16)='BETA'
196 : GOTO 9999
197 :
198 : ELSE IF (IPLAC.EQ.9) THEN
199 : * MODELE GERNAY
200 : *
201 : MLMOTS=MOOBL
202 : JGA=MOTS(/2)
203 : JGM=JGA+8
204 : SEGADJ MLMOTS
205 : MOOBL=MLMOTS
206 : MOTS(JGA+1)='RC'
207 : MOTS(JGA+2)='RT'
208 : MOTS(JGA+3)='RB'
209 : MOTS(JGA+4)='EPS1'
210 : MOTS(JGA+5)='DILA'
211 : MOTS(JGA+6)='DAM1'
212 : MOTS(JGA+7)='XC'
213 : MOTS(JGA+8)='GT'
214 : GOTO 9999
215 :
216 : ELSE IF (IPLAC.EQ.10) THEN
217 : * MODELE WELLS
218 : *
219 : MLMOTS=MOOBL
220 : JGA=MOTS(/2)
221 : JGM=JGA+4
222 : SEGADJ MLMOTS
223 : MOOBL=MLMOTS
224 : MOTS(JGA+1)='LTR'
225 : MOTS(JGA+2)='GFTR'
226 : MOTS(JGA+3)='HS'
227 : MOTS(JGA+4)='DINT'
228 : GOTO 9999
229 :
230 : ENDIF
231 : GOTO 99
232 : *
233 : 9999 CONTINUE
234 : IRET=1
235 : RETURN
236 : *
237 : * SI PROBLEME , ON SORT AVEC IRET A 0
238 : *
239 : 99 CONTINUE
240 : IRET=0
240 : CALL ERREUR(261)
241 : RETURN
242 : END
243 :
244 :
245 :
246 :
247 :
248 :
249 :
250 :
251 :
252 :
253 :
254 :
255 :
256 :
257 :
258 :
259 :
© Cast3M 2003 - All rights reserved.
Disclaimer