1 #& MODIF COMMANDE DATE 24/06/2002 AUTEUR F1BHHAJ J.ANGLES
2 # CONFIGURATION MANAGEMENT OF EDF VERSION
3 # ======================================================================
4 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8 # (AT YOUR OPTION) ANY LATER VERSION.
10 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
18 # ======================================================================
31 __version__="$Name: $"
32 __Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
34 JdC = JDC_CATA(code='ASTER',
36 regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
38 A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
39 # Type le plus general
40 class entier (ASSD):pass
41 class reel (ASSD):pass
42 class complexe(ASSD):pass
43 class liste (ASSD):pass
44 class chaine (ASSD):pass
56 class cabl_precont (ASSD):pass
57 class cara_elem (ASSD):pass
58 class cara_pout (ASSD):pass
59 class cham_mater (ASSD):pass
60 class char_acou (ASSD):pass
61 class char_cine_acou (ASSD):pass
62 class char_cine_meca (ASSD):pass
63 class char_cine_ther (ASSD):pass
64 class char_meca (ASSD):pass
65 class char_ther (ASSD):pass
66 class courbe (ASSD):pass
67 class fond_fiss (ASSD):pass
68 class interf_dyna_clas(ASSD):pass
69 class interspfact (ASSD):pass
70 class listis (ASSD):pass
71 class listr8 (ASSD):pass
72 class macr_elem_dyna (ASSD):pass
73 class macr_elem_stat (ASSD):pass
74 class mater (ASSD):pass
75 class melasflu (ASSD):pass
76 class modele (ASSD):pass
77 class modele_gene (ASSD):pass
78 class nume_ddl (ASSD):pass
79 class nume_ddl_gene (ASSD):pass
80 class obstacle (ASSD):pass
81 class spectre (ASSD):pass
82 class surface (ASSD):pass
83 class tran_gene (ASSD):pass
84 class type_flui_stru (ASSD):pass
85 class valeur (ASSD):pass
88 #--------------------------------
89 class maillage(ASSD):pass
90 class squelette (maillage):pass
93 # cham_gd (carte,cham_no,cham_elem)
94 #--------------------------------
96 class cham_gd(ASSD):pass
99 #--------------------------------
100 class carte(cham_gd):pass
101 class carte_dbel_r (carte):pass
102 class carte_depl_c (carte):pass
103 class carte_depl_f (carte):pass
104 class carte_depl_r (carte):pass
105 class carte_durt_r (carte):pass
106 class carte_ener_r (carte):pass
107 class carte_epsi_r (carte):pass
108 class carte_erreur (carte):pass
109 class carte_flux_r (carte):pass
110 class carte_g_depl_r (carte):pass
111 class carte_geom_r (carte):pass
112 class carte_hydr_r (carte):pass
113 class carte_inst_r (carte):pass
114 class carte_inte_r (carte):pass
115 class carte_irra_r (carte):pass
116 class carte_meta_r (carte):pass
117 class carte_neut_f (carte):pass
118 class carte_neut_r (carte):pass
119 class carte_pres_r (carte):pass
120 class carte_sief_r (carte):pass
121 class carte_sour_r (carte):pass
122 class carte_temp_f (carte):pass
123 class carte_temp_r (carte):pass
124 class carte_var2_r (carte):pass
125 class carte_vnor_c (carte):pass
128 # cham_gd/cham_elem :
129 #--------------------------------
130 class cham_elem(cham_gd):pass
131 class cham_elem_crit_r(cham_elem):pass
132 class cham_elem_dbel_r(cham_elem):pass
133 class cham_elem_depl_c(cham_elem):pass
134 class cham_elem_depl_f(cham_elem):pass
135 class cham_elem_depl_r(cham_elem):pass
136 class cham_elem_dommag(cham_elem):pass
137 class cham_elem_durt_r(cham_elem):pass
138 class cham_elem_ener_r(cham_elem):pass
139 class cham_elem_epsi_c(cham_elem):pass
140 class cham_elem_epsi_r(cham_elem):pass
141 class cham_elem_erreur(cham_elem):pass
142 class cham_elem_facy_r(cham_elem):pass
143 class cham_elem_flux_r(cham_elem):pass
144 class cham_elem_g_depl(cham_elem):pass
145 class cham_elem_geom_r(cham_elem):pass
146 class cham_elem_hydr_r(cham_elem):pass
147 class cham_elem_inst_r(cham_elem):pass
148 class cham_elem_inte_r(cham_elem):pass
149 class cham_elem_irra_r(cham_elem):pass
150 class cham_elem_meta_r(cham_elem):pass
151 class cham_elem_neut_f(cham_elem):pass
152 class cham_elem_neut_r(cham_elem):pass
153 class cham_elem_pres_r(cham_elem):pass
154 class cham_elem_sief_c(cham_elem):pass
155 class cham_elem_sief_r(cham_elem):pass
156 class cham_elem_sour_r(cham_elem):pass
157 class cham_elem_temp_f(cham_elem):pass
158 class cham_elem_temp_r(cham_elem):pass
159 class cham_elem_vari_r(cham_elem):pass
160 class cham_elem_vnor_c(cham_elem):pass
164 #--------------------------------
165 class cham_no(cham_gd):pass
166 class cham_no_dbel_r (cham_no):pass
167 class cham_no_depl_c (cham_no):pass
168 class cham_no_depl_f (cham_no):pass
169 class cham_no_depl_r (cham_no):pass
170 class cham_no_durt_r (cham_no):pass
171 class cham_no_ener_r (cham_no):pass
172 class cham_no_epsi_r (cham_no):pass
173 class cham_no_erreur (cham_no):pass
174 class cham_no_flux_r (cham_no):pass
175 class cham_no_g_depl_r (cham_no):pass
176 class cham_no_geom_r (cham_no):pass
177 class cham_no_hydr_r (cham_no):pass
178 class cham_no_inst_r (cham_no):pass
179 class cham_no_inte_r (cham_no):pass
180 class cham_no_irra_r (cham_no):pass
181 class cham_no_meta_r (cham_no):pass
182 class cham_no_neut_f (cham_no):pass
183 class cham_no_neut_r (cham_no):pass
184 class cham_no_pres_c (cham_no):pass
185 class cham_no_pres_r (cham_no):pass
186 class cham_no_sief_r (cham_no):pass
187 class cham_no_sour_r (cham_no):pass
188 class cham_no_temp_c (cham_no):pass
189 class cham_no_temp_f (cham_no):pass
190 class cham_no_temp_r (cham_no):pass
191 class cham_no_vanl_r (cham_no):pass
192 class cham_no_var2_r (cham_no):pass
193 class cham_no_vnor_c (cham_no):pass
196 # resultat : (evol,mode_stat,mode_meca)
197 #--------------------------------
199 class resultat(ASSD):
200 def __getitem__(self,key):
201 return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
203 class acou_harmo (resultat):pass
204 class base_modale (resultat):pass
205 class comb_fourier (resultat):pass
206 class dyna_harmo (resultat):pass
207 class dyna_trans (resultat):pass
208 class fourier_elas (resultat):pass
209 class harm_gene (resultat):pass
210 class mode_acou (resultat):pass
211 class mode_cycl (resultat):pass
212 class mode_flamb (resultat):pass
213 class mode_gene (resultat):pass
214 class mult_elas (resultat):pass
215 class theta_geom (resultat):pass
218 #--------------------------------
219 class evol(resultat):pass
220 class evol_char(evol):pass
221 class evol_elas(evol):pass
222 class evol_noli(evol):pass
223 class evol_ther(evol):pass
224 class evol_varc(evol):pass
226 # resultat/mode_stat :
227 #--------------------------------
228 class mode_stat(resultat):pass
229 class mode_stat_depl(mode_stat):pass
230 class mode_stat_acce(mode_stat):pass
231 class mode_stat_forc(mode_stat):pass
234 # resultat/mode_meca :
235 #--------------------------------
236 class mode_meca(resultat):pass
237 class mode_meca_c(mode_meca):pass
241 #--------------------------------
242 class para_sensi(fonction):pass
243 class fonction_c(fonction):pass
247 #--------------------------------
248 class matr_asse(ASSD):pass
249 class matr_asse_depl_c(matr_asse):pass
250 class matr_asse_depl_r(matr_asse):pass
251 class matr_asse_gene_r(matr_asse):pass
252 class matr_asse_gene_c(matr_asse):pass
253 class matr_asse_pres_c(matr_asse):pass
254 class matr_asse_pres_r(matr_asse):pass
255 class matr_asse_temp_c(matr_asse):pass
256 class matr_asse_temp_r(matr_asse):pass
259 #--------------------------------
260 class matr_elem(ASSD):pass
261 class matr_elem_depl_c(matr_elem):pass
262 class matr_elem_depl_r(matr_elem):pass
263 class matr_elem_pres_c(matr_elem):pass
264 class matr_elem_temp_r(matr_elem):pass
269 # table : (tabl_fonc)
270 #--------------------------------
273 def __getitem__(self,key):
274 return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
276 class tabl_aire_int (table):pass
277 class tabl_calc_g_loca(table):pass
278 class tabl_calc_g_th (table):pass
279 class tabl_cara_geom (table):pass
280 class tabl_char_limite(table):pass
281 class tabl_ener_elas (table):pass
282 class tabl_ener_pot (table):pass
283 class tabl_ener_cin (table):pass
284 class tabl_trav_ext (table):pass
285 class tabl_ener_totale(table):pass
286 class tabl_indic_ener (table):pass
287 class tabl_indic_seuil(table):pass
288 class tabl_intsp (table):pass
289 class tabl_mass_iner (table):pass
290 class tabl_post_alea (table):pass
291 class tabl_post_beta (table):pass
292 class tabl_post_dyna (table):pass
293 class tabl_post_f_alea(table):pass
294 class tabl_post_fatig (table):pass
295 class tabl_post_gouj2e(table):pass
296 class tabl_post_k (table):pass
297 class tabl_post_rccm (table):pass
298 class tabl_post_rele (table):pass
299 class tabl_post_simpli(table):pass
300 class tabl_post_usur (table):pass
301 class tabl_reca_weib (table):pass
302 class tabl_rice_tracey(table):pass
303 class tabl_texture (table):pass
304 class tabl_trc (table):pass
305 class tabl_weibull (table):pass
308 #--------------------------------
309 class tabl_fonc (table):pass
310 class tabl_fonc_max (tabl_fonc):pass
311 class tabl_fonc_noci (tabl_fonc):pass
312 class tabl_fonc_rms (tabl_fonc):pass
316 #--------------------------------
317 class vect_asse(ASSD):pass
318 class vect_asse_gene(vect_asse):pass
322 #--------------------------------
323 class vect_elem(ASSD):pass
324 class vect_elem_depl_r(vect_elem):pass
325 class vect_elem_pres_c(vect_elem):pass
326 class vect_elem_pres_r(vect_elem):pass
327 class vect_elem_temp_r(vect_elem):pass
329 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
330 # CONFIGURATION MANAGEMENT OF EDF VERSION
331 # ======================================================================
332 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
333 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
334 # REDISTRIBUTION OF THIS FILE.
335 # ======================================================================
336 # RESPONSABLE JMBHH01 J.M.PROIX
337 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op= 19,sd_prod=cara_elem,
338 fr="Affectation de caractéristiques à des éléments de structure",
339 docu="U4.42.01-g3",reentrant='n',
340 UIinfo={"groupes":("Modélisation",)},
341 regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
342 'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
343 MODELE =SIMP(statut='o',typ=modele ),
344 INFO =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
345 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
347 POUTRE =FACT(statut='f',min=1,max='**',
348 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
349 MAILLE =SIMP(statut='f',typ=ma,max='**'),
350 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
351 SECTION =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
352 CARA_SECT =SIMP(statut='f',typ=(cara_pout) ),
353 TUYAU_NCOU =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
354 TUYAU_NSEC =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
355 b_generale =BLOC( condition = "SECTION=='GENERALE'",
356 CARA =SIMP(statut='o',typ='TXM',max='**',
357 into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
358 "AI","JG","IYR2","IZR2","A1",
359 "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
360 "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
361 "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
362 "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
363 "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
364 "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
365 "EPY2","EPZ2","R","R1","R2") ),
366 VALE =SIMP(statut='o',typ='R',max='**'),
367 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
369 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
370 CARA =SIMP(statut='o',typ='TXM',max='**',
371 into=("H","EP","HY","HZ","EPY","EPZ",
372 "H1","HZ1","HY1","EP1","EPY1","EPZ1",
373 "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
374 VALE =SIMP(statut='o',typ='R',max='**'),
375 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
377 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
378 CARA =SIMP(statut='o',typ='TXM',max='**',
379 into=("R","EP","R1","R2","EP1","EP2") ),
380 VALE =SIMP(statut='o',typ='R',max='**'),
381 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
382 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
384 FCX =SIMP(statut='f',typ=(fonction) ),
387 BARRE =FACT(statut='f',min=1,max='**',
388 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
389 MAILLE =SIMP(statut='f',typ=ma,max='**'),
390 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
391 SECTION =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
392 b_generale =BLOC( condition = "SECTION=='GENERALE'",
393 CARA =SIMP(statut='o',typ='TXM',into=("A",) ),
394 VALE =SIMP(statut='o',typ='R' ),
396 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
397 CARA =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
398 VALE =SIMP(statut='o',typ='R',max=6 ),
400 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
401 CARA =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
402 VALE =SIMP(statut='o',typ='R',max=2 ),
404 FCX =SIMP(statut='f',typ=(fonction) ),
407 COQUE =FACT(statut='f',min=1,max='**',
408 regles=(UN_PARMI('MAILLE','GROUP_MA' ),
409 PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
410 MAILLE =SIMP(statut='f',typ=ma,max='**'),
411 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
412 EPAIS =SIMP(statut='o',typ='R' ),
413 ANGL_REP =SIMP(statut='f',typ='R',min=2,max=2),
414 A_CIS =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
415 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
416 COQUE_NCOU =SIMP(statut='f',typ='I',defaut= 1 ),
417 EXCENTREMENT =SIMP(statut='f',typ='R' ),
418 INER_ROTA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
419 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
422 CABLE =FACT(statut='f',min=1,max='**',
423 regles=(UN_PARMI('MAILLE','GROUP_MA'),
424 UN_PARMI('A','SECTION') ),
425 MAILLE =SIMP(statut='f',typ=ma,max='**'),
426 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
427 N_INIT =SIMP(statut='f',typ='R',defaut= 5000. ),
428 A =SIMP(statut='f',typ='R' ),
429 SECTION =SIMP(statut='f',typ='R' ),
430 FCX =SIMP(statut='f',typ=(fonction) ),
433 DISCRET =FACT(statut='f',min=1,max='**',
434 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
435 NOEUD =SIMP(statut='f',typ=no,max='**'),
436 MAILLE =SIMP(statut='f',typ=ma,max='**'),
437 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
438 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
439 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
440 AMOR_HYST =SIMP(statut='f',typ='R' ),
441 CARA =SIMP(statut='o',typ='TXM',max='**',
442 into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
443 "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
444 "M_T_D_N","M_TR_D_N","M_T_N",
445 "M_T_L", "M_TR_N", "M_TR_L",
446 "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
447 "A_T_N", "A_T_L", "A_TR_N", "A_TR_L") ),
448 VALE =SIMP(statut='o',typ='R',max='**'),
451 ORIENTATION =FACT(statut='f',min=1,max='**',
452 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
453 MAILLE =SIMP(statut='f',typ=ma,max='**'),
454 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
455 NOEUD =SIMP(statut='f',typ=no,max='**'),
456 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
457 CARA =SIMP(statut='o',typ='TXM',
458 into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
459 VALE =SIMP(statut='o',typ='R',max='**'),
460 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
461 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
464 DEFI_ARC =FACT(statut='f',min=1,max='**',
465 regles=(UN_PARMI('MAILLE','GROUP_MA'),
466 UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
467 'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
468 PRESENT_PRESENT('ORIE_ARC','RAYON'),
469 EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
470 EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
471 EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
472 EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
473 PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
474 PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
475 MAILLE =SIMP(statut='f',typ=ma,max='**'),
476 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
477 ORIE_ARC =SIMP(statut='f',typ='R'),
478 CENTRE =SIMP(statut='f',typ='R',max='**'),
479 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
480 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
481 POIN_TANG =SIMP(statut='f',typ='R',max='**'),
482 NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
483 GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
484 RAYON =SIMP(statut='f',typ='R'),
485 COEF_FLEX =SIMP(statut='f',typ='R'),
486 INDI_SIGM =SIMP(statut='f',typ='R'),
487 COEF_FLEX_XY =SIMP(statut='f',typ='R'),
488 INDI_SIGM_XY =SIMP(statut='f',typ='R'),
489 COEF_FLEX_XZ =SIMP(statut='f',typ='R'),
490 INDI_SIGM_XZ =SIMP(statut='f',typ='R'),
491 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
492 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
495 MASSIF =FACT(statut='f',min=1,max='**',
496 regles=(UN_PARMI('MAILLE','GROUP_MA'),
497 UN_PARMI('ANGL_REP','ANGL_AXE'),
498 EXCLUS('ANGL_REP','ANGL_AXE'),
499 EXCLUS('ANGL_REP','ORIG_AXE'),
500 PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
501 MAILLE =SIMP(statut='f',typ=ma,max='**'),
502 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
503 ANGL_REP =SIMP(statut='f',typ='R',max=3),
504 ANGL_AXE =SIMP(statut='f',typ='R',max=2),
505 ORIG_AXE =SIMP(statut='f',typ='R',max=3),
508 POUTRE_FLUI =FACT(statut='f',min=1,max='**',
509 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
510 MAILLE =SIMP(statut='f',typ=ma,max='**'),
511 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
512 B_T =SIMP(statut='o',typ='R'),
513 B_N =SIMP(statut='o',typ='R'),
514 B_TN =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
515 A_FLUI =SIMP(statut='o',typ='R'),
516 A_CELL =SIMP(statut='o',typ='R'),
517 COEF_ECHELLE =SIMP(statut='o',typ='R'),
520 GRILLE =FACT(statut='f',min=1,max='**',
521 regles=(UN_PARMI('MAILLE','GROUP_MA'),
522 EXCLUS('ANGL_REP','ORIG_AXE'),
523 ENSEMBLE('ORIG_AXE','AXE')),
524 MAILLE =SIMP(statut='f',typ=ma,max='**'),
525 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
526 SECTION_L =SIMP(statut='o',typ='R'),
527 ANGL_REP =SIMP(statut='f',typ='R',max=2),
528 ANGL_L =SIMP(statut='f',typ='R'),
529 POUR_CENT_L =SIMP(statut='f',typ='R'),
530 POUR_CENT_T =SIMP(statut='f',typ='R'),
531 EXCENTREMENT =SIMP(statut='f',typ='R'),
532 ORIG_AXE =SIMP(statut='f',typ='R',max='**'),
533 AXE =SIMP(statut='f',typ='R',max='**'),
534 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
535 GRILLE_NCOU =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
538 RIGI_PARASOL =FACT(statut='f',min=1,max='**',
539 regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
540 UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
541 GROUP_MA =SIMP(statut='o',typ=ma,max='**'),
542 FONC_GROUP =SIMP(statut='f',typ=(fonction) ),
543 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
544 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
545 CARA =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
546 VALE =SIMP(statut='o',typ='R',max='**'),
547 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
548 NOEUD_CENTRE =SIMP(statut='f',typ=no),
549 COOR_CENTRE =SIMP(statut='f',typ='R',max='**'),
552 ASSE_GRIL =FACT(statut='f',min=1,max='**',
553 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
554 MAILLE =SIMP(statut='f',typ=ma,max='**'),
555 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
556 CARA =SIMP(statut='o',typ='TXM',max='**',
557 into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
558 VALE =SIMP(statut='o',typ='R',max='**'),
559 PAS_T =SIMP(statut='o',typ='R'),
560 PAS_N =SIMP(statut='o',typ='R'),
561 ANGL_REP =SIMP(statut='o',typ='R',max='**'),
562 COEF_ECHELLE =SIMP(statut='o',typ='R'),
566 AFFE_SECT =FACT(statut='f',min=1,max='**',
567 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
568 AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
569 PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
571 NOM =SIMP(statut='f',typ='TXM'),
573 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
574 MAILLE =SIMP(statut='f',typ=ma,max='**'),
576 TOUT_SECT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
577 GROUP_MA_SECT =SIMP(statut='f',typ=grma,max='**'),
578 MAILLE_SECT =SIMP(statut='f',typ=ma,max='**'),
580 MAILLAGE_SECT =SIMP(statut='o',typ=maillage),
581 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
585 AFFE_FIBRE =FACT(statut='f',min=1,max='**',
586 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
588 NOM =SIMP(statut='f',typ='TXM'),
590 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
591 MAILLE =SIMP(statut='f',typ=ma,max='**'),
593 CARA =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
594 VALE =SIMP(statut='o',typ='R',max='**'),
595 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
600 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
601 # CONFIGURATION MANAGEMENT OF EDF VERSION
602 # ======================================================================
603 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
604 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
605 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
606 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
607 # (AT YOUR OPTION) ANY LATER VERSION.
609 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
610 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
611 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
612 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
614 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
615 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
616 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
617 # ======================================================================
618 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op= 68,sd_prod=char_acou,
619 fr="Affectation de charges et conditions aux limites acoustiques constantes",
620 docu="U4.44.04-e",reentrant='n',
621 UIinfo={"groupes":("Modélisation",)},
622 regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
623 MODELE =SIMP(statut='o',typ=modele ),
624 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
625 PRES_IMPO =FACT(statut='f',min=1,max='**',
626 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
627 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
628 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
629 MAILLE =SIMP(statut='f',typ=ma,max='**'),
630 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
631 NOEUD =SIMP(statut='f',typ=no,max='**'),
632 PRES =SIMP(statut='o',typ='C' ),
634 VITE_FACE =FACT(statut='f',min=1,max='**',
635 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
636 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
637 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
638 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
639 MAILLE =SIMP(statut='f',typ=ma,max='**'),
640 VNOR =SIMP(statut='o',typ='C' ),
642 IMPE_FACE =FACT(statut='f',min=1,max='**',
643 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
644 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
645 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
646 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
647 MAILLE =SIMP(statut='f',typ=ma,max='**'),
648 IMPE =SIMP(statut='o',typ='C' ),
650 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
651 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
652 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
653 NOEUD =SIMP(statut='f',typ=no,max='**'),
654 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
655 MAILLE =SIMP(statut='f',typ=ma,max='**'),
656 DDL =SIMP(statut='o',typ='TXM',max='**'),
659 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
660 # CONFIGURATION MANAGEMENT OF EDF VERSION
661 # ======================================================================
662 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
663 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
664 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
665 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
666 # (AT YOUR OPTION) ANY LATER VERSION.
668 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
669 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
670 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
671 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
673 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
674 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
675 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
676 # ======================================================================
677 # RESPONSABLE VABHHTS J.PELLET
678 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
679 if MECA_IMPO != None : return char_cine_meca
680 if THER_IMPO != None : return char_cine_ther
681 if ACOU_IMPO != None : return char_cine_acou
682 raise AsException("type de concept resultat non prevu")
684 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
685 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
686 docu="U4.44.03-e",reentrant='n',
687 UIinfo={"groupes":("Modélisation",)},
688 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
689 EXCLUS('MECA_IMPO','THER_IMPO'),
690 EXCLUS('MECA_IMPO','ACOU_IMPO'),
691 EXCLUS('THER_IMPO','ACOU_IMPO'),),
692 MODELE =SIMP(statut='o',typ=modele ),
693 MECA_IMPO =FACT(statut='f',min=1,max='**',
694 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
695 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
696 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
697 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
698 NOEUD =SIMP(statut='f',typ=no,max='**'),
699 DX =SIMP(statut='f',typ='R' ),
700 DY =SIMP(statut='f',typ='R' ),
701 DZ =SIMP(statut='f',typ='R' ),
702 DRX =SIMP(statut='f',typ='R' ),
703 DRY =SIMP(statut='f',typ='R' ),
704 DRZ =SIMP(statut='f',typ='R' ),
705 GRX =SIMP(statut='f',typ='R' ),
706 PRES =SIMP(statut='f',typ='R' ),
707 TEMP =SIMP(statut='f',typ='R' ),
708 PHI =SIMP(statut='f',typ='R' ),
710 THER_IMPO =FACT(statut='f',min=1,max='**',
711 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
712 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
713 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
714 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
715 NOEUD =SIMP(statut='f',typ=no,max='**'),
716 TEMP_SUP =SIMP(statut='f',typ='R' ),
717 TEMP =SIMP(statut='f',typ='R' ),
718 TEMP_INF =SIMP(statut='f',typ='R' ),
720 ACOU_IMPO =FACT(statut='f',min=1,max='**',
721 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
722 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
723 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
724 NOEUD =SIMP(statut='f',typ=no,max='**'),
725 PRES =SIMP(statut='o',typ='C' ),
727 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
729 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
730 # CONFIGURATION MANAGEMENT OF EDF VERSION
731 # ======================================================================
732 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
733 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
734 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
735 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
736 # (AT YOUR OPTION) ANY LATER VERSION.
738 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
739 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
740 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
741 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
743 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
744 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
745 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
746 # ======================================================================
747 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
748 if MECA_IMPO != None : return char_cine_meca
749 if THER_IMPO != None : return char_cine_ther
750 raise AsException("type de concept resultat non prevu")
752 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
753 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
754 docu="U4.44.03-e",reentrant='n',
755 UIinfo={"groupes":("Modélisation",)},
756 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
757 EXCLUS('MECA_IMPO','THER_IMPO'),),
758 MODELE =SIMP(statut='o',typ=modele ),
759 MECA_IMPO =FACT(statut='f',min=1,max='**',
760 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
761 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
762 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
763 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
764 NOEUD =SIMP(statut='f',typ=no,max='**'),
765 DX =SIMP(statut='f',typ=fonction ),
766 DY =SIMP(statut='f',typ=fonction ),
767 DZ =SIMP(statut='f',typ=fonction ),
768 DRX =SIMP(statut='f',typ=fonction ),
769 DRY =SIMP(statut='f',typ=fonction ),
770 DRZ =SIMP(statut='f',typ=fonction ),
771 GRX =SIMP(statut='f',typ=fonction ),
772 PRES =SIMP(statut='f',typ=fonction ),
773 TEMP =SIMP(statut='f',typ=fonction ),
774 PHI =SIMP(statut='f',typ=fonction ),
776 THER_IMPO =FACT(statut='f',min=1,max='**',
777 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
778 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
779 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
780 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
781 NOEUD =SIMP(statut='f',typ=no,max='**'),
782 TEMP_SUP =SIMP(statut='f',typ=fonction ),
783 TEMP =SIMP(statut='f',typ=fonction ),
784 TEMP_INF =SIMP(statut='f',typ=fonction ),
786 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
788 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
789 # CONFIGURATION MANAGEMENT OF EDF VERSION
790 # ======================================================================
791 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
792 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
793 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
794 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
795 # (AT YOUR OPTION) ANY LATER VERSION.
797 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
798 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
799 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
800 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
802 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
803 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
804 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
805 # ======================================================================
806 # RESPONSABLE G8BHHXD X.DESROCHES
807 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op= 7,sd_prod=char_meca
808 ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
809 docu="U4.44.01-g2",reentrant='n',
810 UIinfo={"groupes":("Modélisation",)},
811 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
812 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
813 'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
814 'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
815 'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
816 'LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
817 'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
818 'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
819 'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
820 'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
821 EXCLUS('PRES_CALCULEE','EVOL_CHAR'),),
822 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
823 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
824 MODELE =SIMP(statut='o',typ=(modele) ),
825 TEMP_CALCULEE =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
826 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
827 HYDR_CALCULEE =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
829 SECH_CALCULEE =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
830 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
831 EPSA_CALCULEE =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
833 # A TERME PRES_CALCULEE N'EXISTERA PLUS
834 EVOL_CHAR =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
836 PRES_CALCULEE =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
839 PESANTEUR =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
840 ROTATION =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
841 b_rotation =BLOC ( condition = "ROTATION != None",
842 CENTRE =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
844 DDL_IMPO =FACT(statut='f',min=1,max='**',
845 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
846 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
847 'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
848 'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
849 'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
850 'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
851 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
852 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
853 NOEUD =SIMP(statut='f',typ=no,max='**'),
854 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
855 MAILLE =SIMP(statut='f',typ=ma,max='**'),
856 DX =SIMP(statut='f',typ='R' ),
857 DY =SIMP(statut='f',typ='R' ),
858 DZ =SIMP(statut='f',typ='R' ),
859 DRX =SIMP(statut='f',typ='R' ),
860 DRY =SIMP(statut='f',typ='R' ),
861 DRZ =SIMP(statut='f',typ='R' ),
862 GRX =SIMP(statut='f',typ='R' ),
863 PRES =SIMP(statut='f',typ='R' ),
864 PHI =SIMP(statut='f',typ='R' ),
865 TEMP =SIMP(statut='f',typ='R' ),
866 PRE1 =SIMP(statut='f',typ='R' ),
867 PRE2 =SIMP(statut='f',typ='R' ),
868 UI2 =SIMP(statut='f',typ='R' ),
869 UI3 =SIMP(statut='f',typ='R' ),
870 UI4 =SIMP(statut='f',typ='R' ),
871 UI5 =SIMP(statut='f',typ='R' ),
872 UI6 =SIMP(statut='f',typ='R' ),
873 UO2 =SIMP(statut='f',typ='R' ),
874 UO3 =SIMP(statut='f',typ='R' ),
875 UO4 =SIMP(statut='f',typ='R' ),
876 UO5 =SIMP(statut='f',typ='R' ),
877 UO6 =SIMP(statut='f',typ='R' ),
878 VI2 =SIMP(statut='f',typ='R' ),
879 VI3 =SIMP(statut='f',typ='R' ),
880 VI4 =SIMP(statut='f',typ='R' ),
881 VI5 =SIMP(statut='f',typ='R' ),
882 VI6 =SIMP(statut='f',typ='R' ),
883 VO2 =SIMP(statut='f',typ='R' ),
884 VO3 =SIMP(statut='f',typ='R' ),
885 VO4 =SIMP(statut='f',typ='R' ),
886 VO5 =SIMP(statut='f',typ='R' ),
887 VO6 =SIMP(statut='f',typ='R' ),
888 WI2 =SIMP(statut='f',typ='R' ),
889 WI3 =SIMP(statut='f',typ='R' ),
890 WI4 =SIMP(statut='f',typ='R' ),
891 WI5 =SIMP(statut='f',typ='R' ),
892 WI6 =SIMP(statut='f',typ='R' ),
893 WO2 =SIMP(statut='f',typ='R' ),
894 WO3 =SIMP(statut='f',typ='R' ),
895 WO4 =SIMP(statut='f',typ='R' ),
896 WO5 =SIMP(statut='f',typ='R' ),
897 WO6 =SIMP(statut='f',typ='R' ),
898 WO =SIMP(statut='f',typ='R' ),
899 WI1 =SIMP(statut='f',typ='R' ),
900 WO1 =SIMP(statut='f',typ='R' ),
901 GONF =SIMP(statut='f',typ='R' ),
906 FACE_IMPO =FACT(statut='f',min=1,max='**',
907 regles=(UN_PARMI('GROUP_MA','MAILLE',),
908 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
909 'TEMP','PRE1','PRE2','DNOR','DTAN'),
913 EXCLUS('DNOR','DRX'),
914 EXCLUS('DNOR','DRY'),
915 EXCLUS('DNOR','DRZ'),
919 EXCLUS('DTAN','DRX'),
920 EXCLUS('DTAN','DRY'),
921 EXCLUS('DTAN','DRZ'),),
922 # rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
923 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
924 MAILLE =SIMP(statut='f',typ=ma,max='**'),
925 DX =SIMP(statut='f',typ='R' ),
926 DY =SIMP(statut='f',typ='R' ),
927 DZ =SIMP(statut='f',typ='R' ),
928 DRX =SIMP(statut='f',typ='R' ),
929 DRY =SIMP(statut='f',typ='R' ),
930 DRZ =SIMP(statut='f',typ='R' ),
931 DNOR =SIMP(statut='f',typ='R' ),
932 DTAN =SIMP(statut='f',typ='R' ),
933 GRX =SIMP(statut='f',typ='R' ),
934 PRES =SIMP(statut='f',typ='R' ),
935 PHI =SIMP(statut='f',typ='R' ),
936 TEMP =SIMP(statut='f',typ='R' ),
937 PRE1 =SIMP(statut='f',typ='R' ),
938 PRE2 =SIMP(statut='f',typ='R' ),
941 LIAISON_DDL =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
943 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
944 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
945 NOEUD =SIMP(statut='f',typ=no,max='**'),
946 DDL =SIMP(statut='o',typ='TXM',max='**'),
947 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
948 COEF_IMPO =SIMP(statut='o',typ='R' ),
951 LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
953 regles=(UN_PARMI('GROUP_NO','NOEUD'),
954 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
955 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
956 NOEUD =SIMP(statut='f',typ=no,max='**'),
957 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
958 DX =SIMP(statut='f',typ='R' ),
959 DY =SIMP(statut='f',typ='R' ),
960 DZ =SIMP(statut='f',typ='R' ),
961 DRX =SIMP(statut='f',typ='R' ),
962 DRY =SIMP(statut='f',typ='R' ),
963 DRZ =SIMP(statut='f',typ='R' ),
966 LIAISON_GROUP =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
968 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
969 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
970 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
971 EXCLUS('GROUP_MA_1','NOEUD_2'),
972 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
973 EXCLUS('GROUP_NO_1','MAILLE_2'),
974 EXCLUS('MAILLE_1','GROUP_NO_2'),
975 EXCLUS('MAILLE_1','NOEUD_2'),
976 EXCLUS('NOEUD_1','GROUP_MA_2'),
977 EXCLUS('NOEUD_1','MAILLE_2'),
978 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
980 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
981 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
982 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
983 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
984 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
985 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
986 GROUP_NO_2 =SIMP(statut='f',typ=no,max='**'),
987 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
989 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
990 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
991 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
992 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
993 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
994 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
995 COEF_IMPO =SIMP(statut='o',typ='R' ),
996 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
997 TRAN =SIMP(statut='f',typ='R',max=3),
998 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
999 CENTRE =SIMP(statut='f',typ='R',max=3),
1002 LIAISON_MAIL =FACT(statut='f',min=1,max='**',
1003 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1004 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1005 PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1006 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
1007 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
1008 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
1009 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
1010 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
1011 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
1012 TRAN =SIMP(statut='f',typ='R',max=3 ),
1013 ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
1014 CENTRE =SIMP(statut='f',typ='R',max=3 ),
1015 DDL_MAIT =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1016 DDL_ESCL =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1020 LIAISON_SOLIDE =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1021 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1022 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1023 NOEUD =SIMP(statut='f',typ=no,max='**'),
1024 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1025 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1026 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1029 LIAISON_ELEM =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1030 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1031 UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1032 OPTION =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1033 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1034 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1035 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1036 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1037 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1038 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
1039 AXE_POUTRE =SIMP(statut='f',typ='R',max=3),
1040 ANGL_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
1043 LIAISON_UNIF =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1045 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1046 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1047 NOEUD =SIMP(statut='f',typ=no,max='**'),
1048 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1049 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1050 DDL =SIMP(statut='o',typ='TXM',max='**'),
1053 LIAISON_CHAMNO =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1055 # type de cham_no CO()
1056 CHAM_NO =SIMP(statut='o',typ=cham_no), #CO()
1057 COEF_IMPO =SIMP(statut='o',typ='R' ),
1058 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1061 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
1063 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1064 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1065 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1066 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1067 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1068 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1069 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1070 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1071 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1072 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1073 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1074 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1075 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1076 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1077 b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1078 fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1079 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1080 EXCLUS('DIST_1','COEF_IMPO'),),
1081 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1082 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1083 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1084 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1085 fr="Paramètre de la réactualisation géométrique",
1086 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1087 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1088 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1089 COEF_IMPO =SIMP(statut='f',typ='R'),
1090 COEF_MULT_2 =SIMP(statut='f',typ='R'),
1091 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
1092 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1093 DIST_1 =SIMP(statut='f',typ='R'),
1094 DIST_2 =SIMP(statut='f',typ='R'),
1095 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1096 b_lagrangien =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1097 fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1098 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1099 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1100 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1101 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1102 fr="Paramètre de la réactualisation géométrique",
1103 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1104 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1105 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1106 DIST_1 =SIMP(statut='f',typ='R'),
1107 DIST_2 =SIMP(statut='f',typ='R'),
1108 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1109 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1110 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1111 COULOMB =SIMP(statut='o',typ='R',max=1),
1112 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1114 b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
1115 fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1116 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1117 E_N =SIMP(statut='f',typ='R'),
1118 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1119 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1120 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1121 fr="Paramètre de la réactualisation géométrique",
1122 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1123 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1124 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1125 DIST_1 =SIMP(statut='f',typ='R'),
1126 DIST_2 =SIMP(statut='f',typ='R'),
1127 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1128 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1129 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1130 COULOMB =SIMP(statut='o',typ='R',max=1),
1131 E_T =SIMP(statut='f',typ='R',
1132 fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1133 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1135 b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
1136 fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1137 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1138 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1139 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1140 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
1141 MODL_AXIS =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1142 DIRECTION_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
1143 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
1144 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
1145 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1146 COULOMB =SIMP(statut='o',typ='R',max=1),
1147 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
1148 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
1149 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),),),
1152 FORCE_NODALE =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1153 regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1154 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1155 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1156 NOEUD =SIMP(statut='f',typ=no,max='**'),
1157 FX =SIMP(statut='f',typ='R' ),
1158 FY =SIMP(statut='f',typ='R' ),
1159 FZ =SIMP(statut='f',typ='R' ),
1160 MX =SIMP(statut='f',typ='R' ),
1161 MY =SIMP(statut='f',typ='R' ),
1162 MZ =SIMP(statut='f',typ='R' ),
1163 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1166 FORCE_FACE =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1168 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1169 AU_MOINS_UN('FX','FY','FZ'),),
1170 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1171 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1172 FX =SIMP(statut='f',typ='R' ),
1173 FY =SIMP(statut='f',typ='R' ),
1174 FZ =SIMP(statut='f',typ='R' ),
1177 FORCE_ARETE =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1179 regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1180 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1181 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1182 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1183 FX =SIMP(statut='f',typ='R' ),
1184 FY =SIMP(statut='f',typ='R' ),
1185 FZ =SIMP(statut='f',typ='R' ),
1186 MX =SIMP(statut='f',typ='R' ),
1187 MY =SIMP(statut='f',typ='R' ),
1188 MZ =SIMP(statut='f',typ='R' ),
1191 FORCE_CONTOUR =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1193 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1194 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1195 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1196 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1197 FX =SIMP(statut='f',typ='R' ),
1198 FY =SIMP(statut='f',typ='R' ),
1199 FZ =SIMP(statut='f',typ='R' ),
1200 MX =SIMP(statut='f',typ='R' ),
1201 MY =SIMP(statut='f',typ='R' ),
1202 MZ =SIMP(statut='f',typ='R' ),
1205 FORCE_INTERNE =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1207 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1208 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1209 AU_MOINS_UN('FX','FY','FZ' ),),
1210 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1211 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1212 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1213 FX =SIMP(statut='f',typ='R' ),
1214 FY =SIMP(statut='f',typ='R' ),
1215 FZ =SIMP(statut='f',typ='R' ),
1218 PRES_REP =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1220 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1221 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1222 AU_MOINS_UN('PRES','CISA_2D' ),),
1223 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1224 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1225 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1226 PRES =SIMP(statut='f',typ='R' ),
1227 CISA_2D =SIMP(statut='f',typ='R' ),
1230 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
1231 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1232 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
1233 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1234 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1235 PRES =SIMP(statut='o',typ='R' ),
1238 EPSI_INIT =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1240 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1241 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1242 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1243 'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1244 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1245 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1246 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1247 EPXX =SIMP(statut='f',typ='R' ),
1248 EPYY =SIMP(statut='f',typ='R' ),
1249 EPZZ =SIMP(statut='f',typ='R' ),
1250 EPXY =SIMP(statut='f',typ='R' ),
1251 EPXZ =SIMP(statut='f',typ='R' ),
1252 EPYZ =SIMP(statut='f',typ='R' ),
1253 EPX =SIMP(statut='f',typ='R' ),
1254 KY =SIMP(statut='f',typ='R' ),
1255 KZ =SIMP(statut='f',typ='R' ),
1256 EXX =SIMP(statut='f',typ='R' ),
1257 EYY =SIMP(statut='f',typ='R' ),
1258 EXY =SIMP(statut='f',typ='R' ),
1259 KXX =SIMP(statut='f',typ='R' ),
1260 KYY =SIMP(statut='f',typ='R' ),
1261 KXY =SIMP(statut='f',typ='R' ),
1264 ARLEQUIN =FACT(statut='f',min=1,max='**',
1265 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
1266 GROUP_MA_2 =SIMP(statut='o',typ=grma,max='**'),
1267 GROUP_MA_COLL =SIMP(statut='o',typ=grma,max='**'),
1268 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
1269 regles =(UN_PARMI('POIDS_1','POIDS_2'),),
1270 POIDS_1 =SIMP(statut='f',typ='R'),
1271 POIDS_2 =SIMP(statut='f',typ='R'),
1274 FORCE_POUTRE =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1275 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1276 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1277 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1278 PRESENT_ABSENT('FX','N','VY','VZ'),
1279 PRESENT_ABSENT('FY','N','VY','VZ'),
1280 PRESENT_ABSENT('FZ','N','VY','VZ'),
1281 PRESENT_ABSENT('N','FX','FY','FZ'),
1282 PRESENT_ABSENT('VY','FX','FY','FZ'),
1283 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1284 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1285 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1286 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1287 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1288 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1289 FX =SIMP(statut='f',typ='R' ),
1290 FY =SIMP(statut='f',typ='R' ),
1291 FZ =SIMP(statut='f',typ='R' ),
1293 N =SIMP(statut='f',typ='R' ),
1294 VY =SIMP(statut='f',typ='R' ),
1295 VZ =SIMP(statut='f',typ='R' ),
1299 FORCE_TUYAU =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1300 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1301 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1302 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1303 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1304 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1305 PRES =SIMP(statut='f',typ='R' ),
1308 FORCE_COQUE =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1309 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1310 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1311 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1312 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1313 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1314 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1315 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1316 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1317 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1318 PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1319 PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1320 PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1321 PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1322 PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1323 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1324 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1325 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1326 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1327 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1329 FX =SIMP(statut='f',typ='R' ),
1330 FY =SIMP(statut='f',typ='R' ),
1331 FZ =SIMP(statut='f',typ='R' ),
1332 MX =SIMP(statut='f',typ='R' ),
1333 MY =SIMP(statut='f',typ='R' ),
1334 MZ =SIMP(statut='f',typ='R' ),
1336 F1 =SIMP(statut='f',typ='R' ),
1337 F2 =SIMP(statut='f',typ='R' ),
1338 F3 =SIMP(statut='f',typ='R' ),
1339 MF1 =SIMP(statut='f',typ='R' ),
1340 MF2 =SIMP(statut='f',typ='R' ),
1342 PRES =SIMP(statut='f',typ='R' ),
1343 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1347 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
1348 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1349 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1350 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1351 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1352 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1353 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1354 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1355 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1356 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1359 RELA_CINE_BP =FACT(statut='f',min=1,max='**',
1360 CABLE_BP =SIMP(statut='o',typ=cabl_precont ),
1361 SIGM_BPEL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1362 RELA_CINE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1365 FORCE_ELEC =FACT(statut='f',
1366 fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1368 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1369 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1370 AU_MOINS_UN('FX','FY','FZ','POSITION'),
1371 EXCLUS('FX','POSITION'),
1372 EXCLUS('FY','POSITION'),
1373 EXCLUS('FZ','POSITION'),),
1374 # trop de regles : les blocs conditionnels permettent d en suprimer
1375 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1376 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1377 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1379 FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1380 FY =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1381 FZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1383 POSITION =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1384 b_para =BLOC ( condition = "POSITION == 'PARA'",
1385 regles=(UN_PARMI('TRANS','DIST'),),
1386 TRANS =SIMP(statut='f',typ='R',max=3),
1387 DIST =SIMP(statut='f',typ='R' ),
1388 b_point2 =BLOC ( condition = "DIST != None",
1389 POINT2 =SIMP(statut='o',typ='R',max=3),
1392 b_fini_infi =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1393 POINT1 =SIMP(statut='o',typ='R',max=3),
1394 POINT2 =SIMP(statut='o',typ='R',max=3),
1401 INTE_ELEC =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1403 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1404 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1405 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1406 EXCLUS('TRANS','SYME'),),
1407 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1408 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1409 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1410 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1411 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1412 TRANS =SIMP(statut='f',typ='R',max='**'),
1413 SYME =SIMP(statut='f',typ='R',max='**'),
1417 IMPE_FACE =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1418 regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1419 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1420 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1421 IMPE =SIMP(statut='o',typ='R' ),
1424 VITE_FACE =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1425 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1426 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1427 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1428 VNOR =SIMP(statut='o',typ='R' ),
1433 ONDE_FLUI =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1434 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1435 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1436 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1437 PRES =SIMP(statut='o',typ='R' ),
1440 FLUX_THM_REP =FACT(statut='f',min=1,max='**',
1441 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1442 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1443 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1444 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1445 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1446 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1447 FLUN =SIMP(statut='f',typ='R' ),
1448 FLUN_HYDR1 =SIMP(statut='f',typ='R' ),
1449 FLUN_HYDR2 =SIMP(statut='f',typ='R' ),
1452 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1454 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
1455 # CONFIGURATION MANAGEMENT OF EDF VERSION
1456 # ======================================================================
1457 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1461 # (AT YOUR OPTION) ANY LATER VERSION.
1463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1470 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1471 # ======================================================================
1472 # RESPONSABLE G8BHHXD X.DESROCHES
1473 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op= 7,sd_prod=char_meca,
1474 fr="Affectation de charges et conditions aux limites mécaniques complexes",
1475 docu="U4.44.05-d2",reentrant='n',
1476 UIinfo={"groupes":("Modélisation",)},
1477 regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1478 MODELE =SIMP(statut='o',typ=modele ),
1479 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1480 DDL_IMPO =FACT(statut='f',min=1,max='**',
1481 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1482 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1483 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1484 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1485 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1486 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1487 NOEUD =SIMP(statut='f',typ=no,max='**'),
1488 DX =SIMP(statut='f',typ='C' ),
1489 DY =SIMP(statut='f',typ='C' ),
1490 DZ =SIMP(statut='f',typ='C' ),
1491 DRX =SIMP(statut='f',typ='C' ),
1492 DRY =SIMP(statut='f',typ='C' ),
1493 DRZ =SIMP(statut='f',typ='C' ),
1494 GRX =SIMP(statut='f',typ='C' ),
1495 PRES =SIMP(statut='f',typ='C' ),
1496 PHI =SIMP(statut='f',typ='C' ),
1498 FORCE_POUTRE =FACT(statut='f',min=1,max='**',
1499 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1500 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1501 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1502 PRESENT_ABSENT('FX','N','VY','VZ',),
1503 PRESENT_ABSENT('FY','N','VY','VZ',),
1504 PRESENT_ABSENT('FZ','N','VY','VZ',),
1505 PRESENT_ABSENT('N','FX','FY','FZ',),
1506 PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1507 PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1508 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1509 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1510 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1511 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1512 FX =SIMP(statut='f',typ='C' ),
1513 FY =SIMP(statut='f',typ='C' ),
1514 FZ =SIMP(statut='f',typ='C' ),
1515 N =SIMP(statut='f',typ='C' ),
1516 VY =SIMP(statut='f',typ='C' ),
1517 VZ =SIMP(statut='f',typ='C' ),
1519 LIAISON_DDL =FACT(statut='f',min=1,max='**',
1520 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1521 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1522 NOEUD =SIMP(statut='f',typ=no,max='**'),
1523 DDL =SIMP(statut='o',typ='TXM',max='**'),
1524 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1525 COEF_IMPO =SIMP(statut='o',typ='C' ),
1527 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1529 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
1530 # CONFIGURATION MANAGEMENT OF EDF VERSION
1531 # ======================================================================
1532 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1533 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1534 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1535 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1536 # (AT YOUR OPTION) ANY LATER VERSION.
1538 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1539 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1540 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1541 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1543 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1544 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1545 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1546 # ======================================================================
1547 # RESPONSABLE G8BHHXD X.DESROCHES
1548 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1549 fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1550 docu="U4.44.01-g3",reentrant='n',
1551 UIinfo={"groupes":("Modélisation",)},
1552 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1553 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1554 'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1555 'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1556 'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1558 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1559 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1560 MODELE =SIMP(statut='o',typ=modele ),
1562 DDL_IMPO =FACT(statut='f',min=1,max='**',
1563 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1564 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1565 'TEMP','PRE1','PRE2'),),
1566 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1567 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1568 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1569 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1570 NOEUD =SIMP(statut='f',typ=no,max='**'),
1571 DX =SIMP(statut='f',typ=(fonction) ),
1572 DY =SIMP(statut='f',typ=(fonction) ),
1573 DZ =SIMP(statut='f',typ=(fonction) ),
1574 DRX =SIMP(statut='f',typ=(fonction) ),
1575 DRY =SIMP(statut='f',typ=(fonction) ),
1576 DRZ =SIMP(statut='f',typ=(fonction) ),
1577 GRX =SIMP(statut='f',typ=(fonction) ),
1578 PRES =SIMP(statut='f',typ=(fonction) ),
1579 PHI =SIMP(statut='f',typ=(fonction) ),
1580 TEMP =SIMP(statut='f',typ=(fonction) ),
1581 PRE1 =SIMP(statut='f',typ=(fonction) ),
1582 PRE2 =SIMP(statut='f',typ=(fonction) ),
1585 FACE_IMPO =FACT(statut='f',min=1,max='**',
1586 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1587 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1588 EXCLUS('DNOR','DX'),
1589 EXCLUS('DNOR','DY'),
1590 EXCLUS('DNOR','DZ'),
1591 EXCLUS('DNOR','DRX'),
1592 EXCLUS('DNOR','DRY'),
1593 EXCLUS('DNOR','DRZ'),
1594 EXCLUS('DTAN','DX'),
1595 EXCLUS('DTAN','DY'),
1596 EXCLUS('DTAN','DZ'),
1597 EXCLUS('DTAN','DRX'),
1598 EXCLUS('DTAN','DRY'),
1599 EXCLUS('DTAN','DRZ'),),
1600 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1601 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1602 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1603 DX =SIMP(statut='f',typ=(fonction) ),
1604 DY =SIMP(statut='f',typ=(fonction) ),
1605 DZ =SIMP(statut='f',typ=(fonction) ),
1606 DRX =SIMP(statut='f',typ=(fonction) ),
1607 DRY =SIMP(statut='f',typ=(fonction) ),
1608 DRZ =SIMP(statut='f',typ=(fonction) ),
1609 GRX =SIMP(statut='f',typ=(fonction) ),
1610 PRES =SIMP(statut='f',typ=(fonction) ),
1611 PHI =SIMP(statut='f',typ=(fonction) ),
1612 TEMP =SIMP(statut='f',typ=(fonction) ),
1613 PRE1 =SIMP(statut='f',typ=(fonction) ),
1614 PRE2 =SIMP(statut='f',typ=(fonction) ),
1615 DNOR =SIMP(statut='f',typ=(fonction) ),
1616 DTAN =SIMP(statut='f',typ=(fonction) ),
1619 LIAISON_DDL =FACT(statut='f',min=1,max='**',
1620 fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1621 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1622 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1623 NOEUD =SIMP(statut='f',typ=no,max='**'),
1624 DDL =SIMP(statut='o',typ='TXM',max='**'),
1625 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1626 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1629 LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1630 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1631 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1632 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1633 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1634 NOEUD =SIMP(statut='f',typ=no,max='**'),
1635 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
1636 DX =SIMP(statut='f',typ=(fonction) ),
1637 DY =SIMP(statut='f',typ=(fonction) ),
1638 DZ =SIMP(statut='f',typ=(fonction) ),
1639 DRX =SIMP(statut='f',typ=(fonction) ),
1640 DRY =SIMP(statut='f',typ=(fonction) ),
1641 DRZ =SIMP(statut='f',typ=(fonction) ),
1644 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
1645 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1646 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1647 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1648 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1649 EXCLUS('GROUP_MA_1','NOEUD_2'),
1650 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1651 EXCLUS('GROUP_NO_1','MAILLE_2'),
1652 EXCLUS('MAILLE_1','GROUP_NO_2'),
1653 EXCLUS('MAILLE_1','NOEUD_2'),
1654 EXCLUS('NOEUD_1','GROUP_MA_2'),
1655 EXCLUS('NOEUD_1','MAILLE_2'),
1656 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1657 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1658 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1659 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1660 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1661 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1662 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1663 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1664 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1665 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1666 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1667 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1668 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1669 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1670 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1671 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1672 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1673 TRAN =SIMP(statut='f',typ='R',max=3),
1674 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1675 CENTRE =SIMP(statut='f',typ='R',max=3),
1678 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1679 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1680 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1681 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1682 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1683 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1684 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1685 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1686 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1687 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1688 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1689 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1690 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1691 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1692 b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1693 fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1694 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1695 EXCLUS('DIST_1','COEF_IMPO'),),
1696 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1697 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1698 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1699 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1700 fr="Paramètre de la réactualisation géométrique",
1701 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1702 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1703 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1704 COEF_IMPO =SIMP(statut='f',typ='R'),
1705 COEF_MULT_2 =SIMP(statut='f',typ='R'),
1706 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
1707 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1708 DIST_1 =SIMP(statut='f',typ=(fonction)),
1709 DIST_2 =SIMP(statut='f',typ=(fonction)),
1710 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1711 b_lagrangien =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1712 fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1713 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1714 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1715 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1716 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1717 fr="Paramètre de la réactualisation géométrique",
1718 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1719 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1720 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1721 DIST_1 =SIMP(statut='f',typ=(fonction)),
1722 DIST_2 =SIMP(statut='f',typ=(fonction)),
1723 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1724 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1725 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1726 COULOMB =SIMP(statut='o',typ='R',max=1),
1727 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1729 b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
1730 fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1731 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1732 E_N =SIMP(statut='f',typ='R'),
1733 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1734 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1735 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1736 fr="Paramètre de la réactualisation géométrique",
1737 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1738 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1739 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1740 DIST_1 =SIMP(statut='f',typ=(fonction)),
1741 DIST_2 =SIMP(statut='f',typ=(fonction)),
1742 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1743 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1744 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1745 COULOMB =SIMP(statut='o',typ='R',max=1),
1746 E_T =SIMP(statut='f',typ='R',
1747 fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1748 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1750 b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
1751 fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1752 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1753 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1754 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1755 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
1756 MODL_AXIS =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1757 DIRECTION_APPA =SIMP(statut='f',typ='R',max=3),
1758 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
1759 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
1760 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1761 COULOMB =SIMP(statut='o',typ='R',max=1),
1762 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
1763 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
1764 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),),),
1767 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
1768 fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1769 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1770 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1771 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1772 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1773 NOEUD =SIMP(statut='f',typ=no,max='**'),
1774 DDL =SIMP(statut='o',typ='TXM',max='**'),
1777 LIAISON_SOLIDE =FACT(statut='f',min=1,max='**',
1778 fr="Modéliser une partie indéformable d une structure",
1779 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1780 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1781 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1782 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1783 NOEUD =SIMP(statut='f',typ=no,max='**'),
1784 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1789 FORCE_NODALE =FACT(statut='f',min=1,max='**',
1790 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1791 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1792 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1793 NOEUD =SIMP(statut='f',typ=no,max='**'),
1794 FX =SIMP(statut='f',typ=(fonction) ),
1795 FY =SIMP(statut='f',typ=(fonction) ),
1796 FZ =SIMP(statut='f',typ=(fonction) ),
1797 MX =SIMP(statut='f',typ=(fonction) ),
1798 MY =SIMP(statut='f',typ=(fonction) ),
1799 MZ =SIMP(statut='f',typ=(fonction) ),
1800 ANGL_NAUT =SIMP(statut='f',typ=(fonction),max=3 ),
1803 FORCE_FACE =FACT(statut='f',min=1,max='**',
1804 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1805 AU_MOINS_UN('FX','FY','FZ'),),
1806 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1807 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1808 FX =SIMP(statut='f',typ=(fonction) ),
1809 FY =SIMP(statut='f',typ=(fonction) ),
1810 FZ =SIMP(statut='f',typ=(fonction) ),
1812 FORCE_ARETE =FACT(statut='f',min=1,max='**',
1813 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1814 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1815 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1816 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1817 FX =SIMP(statut='f',typ=(fonction) ),
1818 FY =SIMP(statut='f',typ=(fonction) ),
1819 FZ =SIMP(statut='f',typ=(fonction) ),
1820 MX =SIMP(statut='f',typ=(fonction) ),
1821 MY =SIMP(statut='f',typ=(fonction) ),
1822 MZ =SIMP(statut='f',typ=(fonction) ),
1824 FORCE_CONTOUR =FACT(statut='f',min=1,max='**',
1825 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1826 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1827 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1828 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1829 FX =SIMP(statut='f',typ=(fonction) ),
1830 FY =SIMP(statut='f',typ=(fonction) ),
1831 FZ =SIMP(statut='f',typ=(fonction) ),
1832 MX =SIMP(statut='f',typ=(fonction) ),
1833 MY =SIMP(statut='f',typ=(fonction) ),
1834 MZ =SIMP(statut='f',typ=(fonction) ),
1837 FORCE_INTERNE =FACT(statut='f',min=1,max='**',
1838 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1839 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1840 AU_MOINS_UN('FX','FY','FZ'),),
1841 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1842 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1843 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1844 FX =SIMP(statut='f',typ=(fonction) ),
1845 FY =SIMP(statut='f',typ=(fonction) ),
1846 FZ =SIMP(statut='f',typ=(fonction) ),
1849 PRES_REP =FACT(statut='f',min=1,max='**',
1850 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1851 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1852 AU_MOINS_UN('PRES','CISA_2D'),),
1853 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1854 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1855 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1856 PRES =SIMP(statut='f',typ=(fonction) ),
1857 CISA_2D =SIMP(statut='f',typ=(fonction) ),
1860 EPSI_INIT =FACT(statut='f',min=1,max='**',
1861 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1862 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1863 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1864 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1865 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1866 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1867 EPXX =SIMP(statut='f',typ=(fonction) ),
1868 EPYY =SIMP(statut='f',typ=(fonction) ),
1869 EPZZ =SIMP(statut='f',typ=(fonction) ),
1870 EPXY =SIMP(statut='f',typ=(fonction) ),
1871 EPXZ =SIMP(statut='f',typ=(fonction) ),
1872 EPYZ =SIMP(statut='f',typ=(fonction) ),
1875 FORCE_POUTRE =FACT(statut='f',min=1,max='**',
1876 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1877 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1878 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1879 PRESENT_ABSENT('FX','N','VY','VZ'),
1880 PRESENT_ABSENT('FY','N','VY','VZ'),
1881 PRESENT_ABSENT('FZ','N','VY','VZ'),
1882 PRESENT_ABSENT('N','FX','FY','FZ'),
1883 PRESENT_ABSENT('VY','FX','FY','FZ'),
1884 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1885 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1886 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1887 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1888 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1889 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1890 FX =SIMP(statut='f',typ=(fonction) ),
1891 FY =SIMP(statut='f',typ=(fonction) ),
1892 FZ =SIMP(statut='f',typ=(fonction) ),
1893 N =SIMP(statut='f',typ=(fonction) ),
1894 VY =SIMP(statut='f',typ=(fonction) ),
1895 VZ =SIMP(statut='f',typ=(fonction) ),
1898 FORCE_TUYAU =FACT(statut='f',min=1,max='**',
1899 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1900 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1901 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1902 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1903 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1904 PRES =SIMP(statut='f',typ=(fonction) ),
1907 FORCE_COQUE =FACT(statut='f',min=1,max='**',
1908 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1909 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1910 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1911 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1912 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1913 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1914 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1915 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1916 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1917 PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1918 PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1919 PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1920 PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1921 PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1922 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1923 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1924 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1925 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1926 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1927 FX =SIMP(statut='f',typ=(fonction) ),
1928 FY =SIMP(statut='f',typ=(fonction) ),
1929 FZ =SIMP(statut='f',typ=(fonction) ),
1930 MX =SIMP(statut='f',typ=(fonction) ),
1931 MY =SIMP(statut='f',typ=(fonction) ),
1932 MZ =SIMP(statut='f',typ=(fonction) ),
1933 F1 =SIMP(statut='f',typ=(fonction) ),
1934 F2 =SIMP(statut='f',typ=(fonction) ),
1935 F3 =SIMP(statut='f',typ=(fonction) ),
1936 MF1 =SIMP(statut='f',typ=(fonction) ),
1937 MF2 =SIMP(statut='f',typ=(fonction) ),
1938 PRES =SIMP(statut='f',typ=(fonction) ),
1939 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
1940 into=("SUP","INF","MOY","MAIL") ),
1943 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
1944 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1945 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1946 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1947 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1948 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1949 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1950 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1951 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1952 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1956 VITE_FACE =FACT(statut='f',min=1,max='**',
1957 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1958 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1959 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1960 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1961 VNOR =SIMP(statut='o',typ=(fonction) ),
1963 IMPE_FACE =FACT(statut='f',min=1,max='**',
1964 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1965 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1966 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1967 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1968 IMPE =SIMP(statut='o',typ=(fonction) ),
1970 ONDE_PLANE =FACT(statut='f',min=1,max='**',
1971 DIRECTION =SIMP(statut='o',typ='R',max='**'),
1972 TYPE_ONDE =SIMP(statut='o',typ='TXM' ),
1973 FONC_SIGNAL =SIMP(statut='o',typ=(fonction) ),
1974 DIST_ORIG =SIMP(statut='o',typ='R' ),
1979 FLUX_THM_REP =FACT(statut='f',min=1,max='**',
1980 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1981 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1982 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1983 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1984 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1985 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1986 FLUN =SIMP(statut='f',typ=(fonction) ),
1987 FLUN_HYDR1 =SIMP(statut='f',typ=(fonction) ),
1988 FLUN_HYDR2 =SIMP(statut='f',typ=(fonction) ),
1991 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1993 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
1994 # CONFIGURATION MANAGEMENT OF EDF VERSION
1995 # ======================================================================
1996 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1997 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1998 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1999 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2000 # (AT YOUR OPTION) ANY LATER VERSION.
2002 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2003 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2004 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2005 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2007 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2008 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2009 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2010 # ======================================================================
2011 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
2013 docu="",reentrant='n',
2014 UIinfo={"groupes":("Outils métier",)},
2015 regles=(AU_MOINS_UN('CARA_TORSION', ),),
2016 MODELE =SIMP(statut='o',typ=modele ),
2017 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",
2018 into=("OUI","NON") ),
2019 CARA_TORSION =FACT(statut='f',min=1,max='**',
2020 regles=(UN_PARMI('TOUT','GROUP_MA'),),
2021 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2022 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2024 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2026 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2027 # CONFIGURATION MANAGEMENT OF EDF VERSION
2028 # ======================================================================
2029 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2030 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2031 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2032 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2033 # (AT YOUR OPTION) ANY LATER VERSION.
2035 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2036 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2037 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2038 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2040 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2041 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2042 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2043 # ======================================================================
2044 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
2045 ,fr="Affectation de charges et conditions aux limites thermiques constantes",
2046 docu="U4.44.02-g2",reentrant='n',
2047 UIinfo={"groupes":("Modélisation",)},
2048 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
2049 'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
2050 'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
2051 VERI_DDL =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
2052 MODELE =SIMP(statut='o',typ=(modele) ),
2054 TEMP_IMPO =FACT(statut='f',min=1,max='**',
2055 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2056 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2057 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2058 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2059 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2060 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2061 NOEUD =SIMP(statut='f',typ=no,max='**'),
2062 TEMP =SIMP(statut='f',typ='R'),
2063 TEMP_INF =SIMP(statut='f',typ='R'),
2064 TEMP_SUP =SIMP(statut='f',typ='R'), ),
2066 FLUX_REP =FACT(statut='f',min=1,max='**',
2067 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2068 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2069 PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2070 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2071 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2072 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2073 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2074 FLUN =SIMP(statut='f',typ='R'),
2075 FLUN_INF =SIMP(statut='f',typ='R'),
2076 FLUN_SUP =SIMP(statut='f',typ='R'),
2077 CARA_TORSION =SIMP(statut='f',typ=tabl_aire_int ),
2081 RAYONNEMENT =FACT(statut='f',min=1,max='**',
2082 fr="Attention, exprimer les températures en Celsius si rayonnement",
2083 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2084 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2085 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2086 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2087 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2088 SIGMA =SIMP(statut='o',typ='R'),
2089 EPSILON =SIMP(statut='o',typ='R'),
2090 TEMP_EXT =SIMP(statut='o',typ='R'),
2093 ECHANGE =FACT(statut='f',min=1,max='**',
2094 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2095 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2096 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2097 ENSEMBLE('COEF_H','TEMP_EXT',),
2098 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2099 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2100 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2101 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2102 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2103 COEF_H =SIMP(statut='f',typ='R'),
2104 TEMP_EXT =SIMP(statut='f',typ='R'),
2105 COEF_H_INF =SIMP(statut='f',typ='R'),
2106 TEMP_EXT_INF =SIMP(statut='f',typ='R'),
2107 COEF_H_SUP =SIMP(statut='f',typ='R'),
2108 TEMP_EXT_SUP =SIMP(statut='f',typ='R'),
2111 SOURCE =FACT(statut='f',min=1,max='**',
2112 regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2113 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2114 PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2115 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2116 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2117 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2118 SOUR =SIMP(statut='f',typ='R'),
2119 SOUR_CALCULEE =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2122 GRAD_TEMP_INIT =FACT(statut='f',min=1,max='**',
2123 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2124 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2125 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2126 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2127 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2128 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2129 FLUX_X =SIMP(statut='f',typ='R' ),
2130 FLUX_Y =SIMP(statut='f',typ='R' ),
2131 FLUX_Z =SIMP(statut='f',typ='R' ),
2134 LIAISON_DDL =FACT(statut='f',min=1,max='**',
2135 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2136 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2137 NOEUD =SIMP(statut='f',typ=no,max='**'),
2138 DDL =SIMP(statut='f',typ='TXM',max='**',
2139 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2140 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2141 COEF_IMPO =SIMP(statut='o',typ='R' ),
2144 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
2145 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2146 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2147 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2148 EXCLUS('GROUP_MA_1','NOEUD_2'),
2149 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2150 EXCLUS('GROUP_NO_1','MAILLE_2'),
2151 EXCLUS('MAILLE_1','GROUP_NO_2'),
2152 EXCLUS('MAILLE_1','NOEUD_2'),
2153 EXCLUS('NOEUD_1','GROUP_MA_2'),
2154 EXCLUS('NOEUD_1','MAILLE_2'),
2155 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2156 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2157 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2158 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2159 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2160 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2161 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2162 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2163 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2164 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2165 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2166 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2167 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2168 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2169 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2170 into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2171 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2172 COEF_IMPO =SIMP(statut='o',typ='R' ),
2173 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2174 TRAN =SIMP(statut='f',typ='R',max='**'),
2175 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2176 CENTRE =SIMP(statut='f',typ='R',max='**'),
2179 LIAISON_MAIL =FACT(statut='f',min=1,max='**',
2180 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2181 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2183 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
2184 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
2185 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
2186 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
2187 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
2188 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
2189 TRAN =SIMP(statut='f',typ='R',max='**' ),
2190 ANGL_NAUT =SIMP(statut='f',typ='R',max='**' ),
2191 CENTRE =SIMP(statut='f',typ='R',max='**' ),
2194 ECHANGE_PAROI =FACT(statut='f',min=1,max='**',
2195 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2196 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2197 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2198 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2199 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2200 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2201 COEF_H =SIMP(statut='f',typ='R'),
2202 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2203 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2204 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2207 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2208 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2209 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2210 NOEUD =SIMP(statut='f',typ=no,max='**'),
2211 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2212 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2213 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2214 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2217 LIAISON_CHAMNO =FACT(statut='f',min=1,max='**',
2218 CHAM_NO =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2219 COEF_IMPO =SIMP(statut='o',typ='R' ),
2220 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2223 CONVECTION =FACT(statut='f',min=1,max='**',
2224 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2228 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2230 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2231 # CONFIGURATION MANAGEMENT OF EDF VERSION
2232 # ======================================================================
2233 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2234 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2235 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2236 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2237 # (AT YOUR OPTION) ANY LATER VERSION.
2239 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2240 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2241 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2242 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2244 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2245 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2246 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2247 # ======================================================================
2248 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2249 fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2250 docu="U4.44.02-g2",reentrant='n',
2251 UIinfo={"groupes":("Modélisation",)},
2252 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2253 'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2254 'GRAD_TEMP_INIT','RAYONNEMENT'),),
2255 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2256 MODELE =SIMP(statut='o',typ=(modele) ),
2258 TEMP_IMPO =FACT(statut='f',min=1,max='**',
2259 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2260 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2261 PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2262 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2263 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2264 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2265 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2266 NOEUD =SIMP(statut='f',typ=no,max='**'),
2267 EVOL_THER =SIMP(statut='f',typ=(evol_ther) ),
2268 DDL =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2269 TEMP =SIMP(statut='f',typ=(fonction) ),
2270 TEMP_INF =SIMP(statut='f',typ=(fonction) ),
2271 TEMP_SUP =SIMP(statut='f',typ=(fonction) ),
2274 FLUX_REP =FACT(statut='f',min=1,max='**',
2275 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2276 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2277 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2278 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2279 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2280 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2281 FLUN =SIMP(statut='f',typ=(fonction) ),
2282 FLUN_INF =SIMP(statut='f',typ=(fonction) ),
2283 FLUN_SUP =SIMP(statut='f',typ=(fonction) ),
2284 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2285 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2286 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2289 FLUX_NL =FACT(statut='f',min=1,max='**',
2290 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2291 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2292 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2293 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2294 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2295 FLUN =SIMP(statut='o',typ=(fonction) ),
2299 RAYONNEMENT =FACT(statut='f',min=1,max='**',
2300 fr="Attention, exprimer les températures en Celsius si rayonnement",
2301 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2302 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2303 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2304 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2305 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2306 SIGMA =SIMP(statut='o',typ=(fonction) ),
2307 EPSILON =SIMP(statut='o',typ=(fonction) ),
2308 TEMP_EXT =SIMP(statut='o',typ=(fonction) ),
2313 ECHANGE =FACT(statut='f',min=1,max='**',
2314 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2315 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2316 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2317 ENSEMBLE('COEF_H','TEMP_EXT'),
2318 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2319 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2320 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2321 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2322 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2323 COEF_H =SIMP(statut='f',typ=(fonction) ),
2324 TEMP_EXT =SIMP(statut='f',typ=(fonction) ),
2325 COEF_H_INF =SIMP(statut='f',typ=(fonction) ),
2326 TEMP_EXT_INF =SIMP(statut='f',typ=(fonction) ),
2327 COEF_H_SUP =SIMP(statut='f',typ=(fonction) ),
2328 TEMP_EXT_SUP =SIMP(statut='f',typ=(fonction) ),
2332 SOURCE =FACT(statut='f',min=1,max='**',
2333 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2334 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2335 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2336 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2337 SOUR =SIMP(statut='o',typ=(fonction) ),
2340 GRAD_TEMP_INIT =FACT(statut='f',min=1,max='**',
2341 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2342 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2343 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2344 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2345 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2346 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2347 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2348 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2349 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2352 ECHANGE_PAROI =FACT(statut='f',min=1,max='**',
2353 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2354 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2355 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2356 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2357 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2358 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2359 COEF_H =SIMP(statut='o',typ=(fonction) ),
2360 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2361 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2362 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2365 LIAISON_DDL =FACT(statut='f',min=1,max='**',
2366 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2367 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2368 NOEUD =SIMP(statut='f',typ=no,max='**'),
2369 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2370 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2371 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2374 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
2375 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2376 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2377 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2378 EXCLUS('GROUP_MA_1','NOEUD_2'),
2379 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2380 EXCLUS('GROUP_NO_1','MAILLE_2'),
2381 EXCLUS('MAILLE_1','GROUP_NO_2'),
2382 EXCLUS('MAILLE_1','NOEUD_2'),
2383 EXCLUS('NOEUD_1','GROUP_MA_2'),
2384 EXCLUS('NOEUD_1','MAILLE_2'),
2385 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2386 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2387 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2388 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2389 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2390 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2391 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2392 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2393 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2394 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2395 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2396 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2397 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2398 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2399 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2400 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2401 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2402 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2403 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2404 TRAN =SIMP(statut='f',typ='R',max='**'),
2405 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2406 CENTRE =SIMP(statut='f',typ='R',max='**'),
2409 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2410 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2411 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2412 NOEUD =SIMP(statut='f',typ=no,max='**'),
2413 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2414 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2415 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2416 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2419 CONVECTION =FACT(statut='f',min=1,max='**',
2420 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2423 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2425 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2426 # CONFIGURATION MANAGEMENT OF EDF VERSION
2427 # ======================================================================
2428 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2429 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2430 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2431 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2432 # (AT YOUR OPTION) ANY LATER VERSION.
2434 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2435 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2436 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2437 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2439 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2440 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2441 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2442 # ======================================================================
2443 # RESPONSABLE VABHHTS J.PELLET
2444 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2445 fr="Affectation de caractéristiques de matériaux à un maillage",
2446 docu="U4.43.03-f",reentrant='n',
2447 UIinfo={"groupes":("Modélisation",)},
2448 MAILLAGE =SIMP(statut='o',typ=maillage),
2449 MODELE =SIMP(statut='f',typ=modele),
2450 AFFE =FACT(statut='o',min=1,max='**',
2451 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2452 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2453 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2454 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2455 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2456 NOEUD =SIMP(statut='f',typ=no,max='**'),
2457 MATER =SIMP(statut='o',typ=mater),
2458 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2461 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2462 # CONFIGURATION MANAGEMENT OF EDF VERSION
2463 # ======================================================================
2464 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2465 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2466 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2467 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2468 # (AT YOUR OPTION) ANY LATER VERSION.
2470 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2471 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2472 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2473 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2475 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2476 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2477 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2478 # ======================================================================
2479 # RESPONSABLE JMBHH01 J.M.PROIX
2480 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2481 UIinfo={"groupes":("Modélisation",)},
2482 fr="Affectation des éléments finis sur le maillage",reentrant='n',
2483 regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2484 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
2485 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2486 VERIF =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2487 AFFE_SOUS_STRUC =FACT(statut='f',min=1,max=1,
2488 regles=(UN_PARMI('TOUT','MAILLE'),),
2489 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2490 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2491 PHENOMENE =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2493 AFFE =FACT(statut='f',min=1,max='**',
2494 regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2495 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2496 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2497 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2498 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2499 NOEUD =SIMP(statut='f',typ=no,max='**'),
2500 PHENOMENE =SIMP(statut='o',typ='TXM',
2501 into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2502 b_mecanique =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2503 fr="modelisations mécaniques",
2504 MODELISATION =SIMP(statut='o',typ='TXM', into=(
2601 b_thermique =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2602 fr="modelisations thermiques",
2603 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2616 b_acoustique =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2617 fr="modelisations acoustiques",
2618 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2625 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2626 # CONFIGURATION MANAGEMENT OF EDF VERSION
2627 # ======================================================================
2628 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2632 # (AT YOUR OPTION) ANY LATER VERSION.
2634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2641 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2642 # ======================================================================
2643 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2644 UIinfo={"groupes":("Modélisation",)},
2645 fr="Interrogation sur le catalogue des commandes et les concepts produits",
2646 regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2647 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2648 TYPE_ELEM =FACT(fr="couple type_elem option",
2649 statut='f',min=1,max=1,
2650 INITEL =SIMP(statut='f',typ='TXM',defaut="NON",
2651 into=("OUI","NON",) ),
2653 CONCEPT =FACT(statut='f',min=1,max='**',
2654 NOM =SIMP(fr="liste des noms de concept",
2655 statut='f',typ='TXM',max='**',defaut="*"),
2656 OPTION =SIMP(fr="option d'édition de concept",
2657 statut='f',typ='TXM',defaut="TOUT_TYPE",
2658 into=("TOUT_TYPE","CREER","A_CREER",) ),
2661 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2662 # CONFIGURATION MANAGEMENT OF EDF VERSION
2663 # ======================================================================
2664 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2665 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2666 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2667 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2668 # (AT YOUR OPTION) ANY LATER VERSION.
2670 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2671 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2672 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2673 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2675 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2676 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2677 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2678 # ======================================================================
2679 # RESPONSABLE VABHHTS J.PELLET
2680 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2681 fr="Assembler deux maillages sous un seul nom",
2682 docu="U4.23.03-e",reentrant='n',
2683 UIinfo={"groupes":("Maillage",)},
2684 MAILLAGE =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2686 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2687 # CONFIGURATION MANAGEMENT OF EDF VERSION
2688 # ======================================================================
2689 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2690 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2691 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2692 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2693 # (AT YOUR OPTION) ANY LATER VERSION.
2695 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2696 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2697 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2698 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2700 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2701 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2702 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2703 # ======================================================================
2704 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2705 fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2706 docu="U4.65.04-d",reentrant='n',
2707 UIinfo={"groupes":("Matrices/vecteurs",)},
2708 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2709 OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2711 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2712 # CONFIGURATION MANAGEMENT OF EDF VERSION
2713 # ======================================================================
2714 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2718 # (AT YOUR OPTION) ANY LATER VERSION.
2720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2727 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2728 # ======================================================================
2729 # RESPONSABLE VABHHTS J.PELLET
2730 def asse_matrice_prod(MATR_ELEM,**args):
2731 if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2732 if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2733 if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2734 if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2735 raise AsException("type de concept resultat non prevu")
2737 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2738 fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2739 UIinfo={"groupes":("Matrices/vecteurs",)},
2740 MATR_ELEM =SIMP(statut='o',
2741 typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2742 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
2743 CHAR_CINE =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2744 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
2746 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2747 # CONFIGURATION MANAGEMENT OF EDF VERSION
2748 # ======================================================================
2749 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2750 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2751 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2752 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2753 # (AT YOUR OPTION) ANY LATER VERSION.
2755 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2756 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2757 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2758 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2760 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2761 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2762 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2763 # ======================================================================
2764 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2765 fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2766 docu="U4.65.05-d",reentrant='n',
2767 UIinfo={"groupes":("Matrices/vecteurs",)},
2768 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2769 CHAR_SOUS_STRUC =FACT(statut='o',min=1,max='**',
2770 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
2771 VECT_ASSE =SIMP(statut='o',typ=cham_no_depl_r ),
2774 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2775 # CONFIGURATION MANAGEMENT OF EDF VERSION
2776 # ======================================================================
2777 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2778 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2779 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2780 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2781 # (AT YOUR OPTION) ANY LATER VERSION.
2783 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2784 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2785 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2786 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2788 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2789 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2790 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2791 # ======================================================================
2792 # RESPONSABLE VABHHTS J.PELLET
2793 def asse_vecteur_prod(VECT_ELEM,**args):
2794 if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2795 if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2796 if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2797 if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2798 raise AsException("type de concept resultat non prevu ")
2800 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2801 fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2802 UIinfo={"groupes":("Matrices/vecteurs",)},
2803 VECT_ELEM =SIMP(statut='o',typ=vect_elem,max='**'),
2804 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2805 INFO =SIMP(statut='f',typ='I',into=(1,2,) ),
2807 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2808 # CONFIGURATION MANAGEMENT OF EDF VERSION
2809 # ======================================================================
2810 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2811 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2812 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2813 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2814 # (AT YOUR OPTION) ANY LATER VERSION.
2816 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2817 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2818 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2819 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2821 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2822 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2823 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2824 # ======================================================================
2825 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2826 fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2827 docu="U4.52.13-c",reentrant='n',
2828 UIinfo={"groupes":("Résolution",)},
2829 ENER_SOL =FACT(statut='o',min=1,max=1,
2830 regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2831 PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2832 # Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2833 PRESENT_PRESENT('KRX','KRY'),
2834 PRESENT_PRESENT('KRX','KRZ'),
2835 PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2836 PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2837 PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2838 METHODE =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2839 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2840 GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2841 GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2842 FONC_GROUP =SIMP(statut='f',typ=fonction ),
2843 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
2844 KX =SIMP(statut='o',typ='R' ),
2845 KY =SIMP(statut='o',typ='R' ),
2846 KZ =SIMP(statut='o',typ='R' ),
2847 KRX =SIMP(statut='f',typ='R' ),
2848 KRY =SIMP(statut='f',typ='R' ),
2849 KRZ =SIMP(statut='f',typ='R' ),
2850 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2851 NOEUD_CENTRE =SIMP(statut='f',typ=no),
2852 COOR_CENTRE =SIMP(statut='f',typ='R',max=3),
2854 AMOR_INTERNE =FACT(statut='o',min=1,max=1,
2855 ENER_POT =SIMP(statut='o',typ=tabl_ener_pot ),
2856 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
2857 AMOR_REDUIT =SIMP(statut='o',typ='R',max='**'),
2859 AMOR_SOL =FACT(statut='o',min=1,max=1,
2860 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2861 FONC_AMOR_GEO =SIMP(statut='o',typ=fonction,max='**' ),
2862 HOMOGENE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2863 SEUIL =SIMP(statut='f',typ='R',defaut= 0.3 ),
2866 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2867 # CONFIGURATION MANAGEMENT OF EDF VERSION
2868 # ======================================================================
2869 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2870 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2871 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2872 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2873 # (AT YOUR OPTION) ANY LATER VERSION.
2875 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2876 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2877 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2878 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2880 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2881 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2882 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2883 # ======================================================================
2884 # RESPONSABLE JMBHH01 J.M.PROIX
2885 def calc_cham_elem_prod(OPTION,**args):
2887 # options mecaniques
2888 if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2889 if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2890 if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2891 if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2892 if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2893 if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2894 if OPTION == "ENEL_ELGA" : return cham_elem_ener_r
2895 if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2896 if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2897 if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2898 if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2899 if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2900 if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2901 if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2902 if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2903 if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2904 if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2905 if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2906 if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2907 if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2909 # options thermiques
2911 if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2912 if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2913 if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2915 # options acoustiques
2917 if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2918 if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2919 if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2923 if OPTION == "COOR_ELGA" : return cham_elem_geom_r
2925 raise AsException("type de concept resultat non prevu")
2927 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2928 fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2929 docu="U4.81.03-g1",reentrant='n',
2930 UIinfo={"groupes":("Post traitements",)},
2931 MODELE =SIMP(statut='o',typ=modele),
2932 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2933 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2935 regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2936 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2937 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2938 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2942 # introduire un mot cle de type modelisation : mécanique,thermique,...
2945 OPTION =SIMP(statut='o',typ='TXM',
2946 into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2947 "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2948 "ENEL_ELGA", "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2949 "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2950 "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2951 "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2952 "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2953 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2954 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2957 b_dege_elno_depl =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2958 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2959 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2962 b_ecin_elem_depl =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2963 regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2964 FREQ =SIMP(statut='f',typ='R'),
2965 VITE =SIMP(statut='f',typ=cham_no_depl_r),
2966 DEPL =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2969 b_efge_elno_cart =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2970 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2971 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2974 b_efge_elno_depl =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2975 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2976 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2979 b_endo_elno_sigm =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2980 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2983 b_epot_elem_depl =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2984 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2987 b_enel_elga =BLOC(condition="OPTION=='ENEL_ELGA'",
2988 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2991 b_enel_elno_elga =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2992 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2995 b_epsi_elno_depl =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2996 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2999 b_equi_elga_epsi =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
3000 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3003 b_equi_elga_sigm =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
3004 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3007 b_equi_elno_epsi =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
3008 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3011 b_equi_elno_sigm =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
3012 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3015 b_pres_dbel_depl =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
3016 DEPL =SIMP(statut='o',typ=(cham_no_depl_c,)),
3019 b_sief_elga_depl =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
3020 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3023 b_sief_elga_lagr =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
3024 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3025 THETA =SIMP(statut='o',typ=(theta_geom,)),
3026 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
3029 b_sigm_elno_cart =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
3030 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3033 b_sigm_elno_depl =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
3034 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,) ),
3037 b_sigm_elno_lagr =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
3038 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3039 THETA =SIMP(statut='o',typ=(theta_geom,)),
3040 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
3043 b_sipo_elno_depl =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
3044 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3047 b_thermique =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
3048 TEMP =SIMP(statut='o',typ=(cham_no_temp_r,)),
3051 b_acoustique =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
3052 PRES =SIMP(statut='o',typ=(cham_no_pres_c,)),
3057 EXCIT =FACT(statut='f',min=1,max='**',
3058 regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
3059 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
3060 FONC_MULT =SIMP(statut='f',typ=fonction),
3061 COEF_MULT =SIMP(statut='f',typ='R'), ),
3063 INST =SIMP(statut='f',typ='R',defaut= 0.E+0),
3064 ACCE =SIMP(statut='f',typ=cham_no_depl_r),
3065 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1),
3066 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3067 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3068 ANGLE =SIMP(statut='f',typ='I',defaut= 0),
3070 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3071 # CONFIGURATION MANAGEMENT OF EDF VERSION
3072 # ======================================================================
3073 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3074 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3075 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3076 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3077 # (AT YOUR OPTION) ANY LATER VERSION.
3079 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3080 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3081 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3082 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3084 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3085 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3086 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3087 # ======================================================================
3088 # RESPONSABLE VABHHTS J.PELLET
3089 def calc_char_cine_prod(CHAR_CINE,**args):
3090 if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
3091 if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
3092 if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
3093 raise AsException("type de concept resultat non prevu")
3095 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
3096 fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
3097 docu="U4.61.03-e",reentrant='n',
3098 UIinfo={"groupes":("Matrices/vecteurs",)},
3099 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
3100 CHAR_CINE =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3101 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3102 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3104 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3105 # CONFIGURATION MANAGEMENT OF EDF VERSION
3106 # ======================================================================
3107 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3108 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3109 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3110 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3111 # (AT YOUR OPTION) ANY LATER VERSION.
3113 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3114 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3115 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3116 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3118 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3119 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3120 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3121 # ======================================================================
3122 def calc_char_seisme_prod(MATR_MASS,**args ):
3123 if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3124 raise AsException("type de concept resultat non prevu")
3126 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_prod,
3127 docu="U4.63.01-e",reentrant='n',
3128 UIinfo={"groupes":("Matrices/vecteurs",)},
3129 regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3130 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3131 DIRECTION =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
3132 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3133 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3134 b_mode_stat =BLOC ( condition = "MODE_STAT != None",
3135 regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3136 NOEUD =SIMP(statut='f',typ=no,max='**'),
3137 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3139 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3141 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3142 # CONFIGURATION MANAGEMENT OF EDF VERSION
3143 # ======================================================================
3144 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3145 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3146 # REDISTRIBUTION OF THIS FILE.
3147 # ======================================================================
3148 # RESPONSABLE JMBHH01 J.M.PROIX
3149 def calc_elem_prod(RESULTAT,**args):
3150 if AsType(RESULTAT) != None : return AsType(RESULTAT)
3151 raise AsException("type de concept resultat non prevu")
3153 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3154 UIinfo={"groupes":("Post traitements",)},
3155 fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3156 MODELE =SIMP(statut='o',typ=modele),
3157 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3158 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3160 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3161 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3162 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3164 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3165 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3166 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3167 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3168 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3169 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3170 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3172 INST =SIMP(statut='f',typ='R',max='**'),
3173 FREQ =SIMP(statut='f',typ='R',max='**'),
3174 LIST_INST =SIMP(statut='f',typ=listr8),
3175 LIST_FREQ =SIMP(statut='f',typ=listr8),
3176 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3177 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3179 LIST_ORDRE =SIMP(statut='f',typ=listis),
3181 OPTION =SIMP(statut='o',typ='TXM',max='**',
3182 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3183 "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3184 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3185 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3186 "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3187 "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3188 "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3189 "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3190 "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3191 "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3192 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3193 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3194 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3195 "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3196 "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3197 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3198 "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3199 "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3200 "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM",
3201 "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","VALE_NCOU_MAXI"
3203 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3204 mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3205 evol_noli,mult_elas,fourier_elas,
3206 evol_ther,base_modale,
3207 acou_harmo,mode_acou,mode_flamb) ),
3208 EXCIT =FACT(statut='f',min=1,max='**',
3209 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3210 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3211 FONC_MULT =SIMP(statut='f',typ=fonction),
3212 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3213 COEF_MULT =SIMP(statut='f',typ='R'),
3214 COEF_MULT_C =SIMP(statut='f',typ='C'),
3215 PHAS_DEG =SIMP(statut='f',typ='R'),
3216 PUIS_PULS =SIMP(statut='f',typ='I'),
3217 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3219 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3220 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3221 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ),
3222 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3224 ANGLE =SIMP(statut='f',typ='I',defaut= 0 ),
3225 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3226 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3227 fr="Liste des paramètres de sensibilité.",
3228 ang="List of sensitivity parameters"),
3229 b_maxi =BLOC( condition = "OPTION=='VALE_NCOU_MAXI'",
3230 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1 ),
3231 NOM_CMP =SIMP(statut='o',typ='TXM',max=1 ),),
3232 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3233 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3235 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3236 # CONFIGURATION MANAGEMENT OF EDF VERSION
3237 # ======================================================================
3238 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3239 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3240 # REDISTRIBUTION OF THIS FILE.
3241 # ======================================================================
3242 def calc_fatigue_prod(TYPE_CALCUL,**args):
3243 if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3244 if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3245 raise AsException("type de calcul non prevu")
3247 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3248 fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3250 UIinfo={"groupes":("Post traitements",)},
3252 TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3253 into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3255 b_cumul_domma =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3256 fr="Calcul d un champ de dommage subi par une structure.",
3257 regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3258 OPTION =SIMP(statut='o',typ='TXM',
3259 into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3260 "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3261 "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3262 HISTOIRE =FACT(statut='o',min=1,max=1,
3263 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3265 EQUI_GD =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3266 into=("VMIS_SG","INVA_2_SG") ),
3268 DOMMAGE =SIMP(statut='o',typ='TXM',
3269 into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3271 MATER =SIMP(statut='o',typ=(mater) ),
3272 TAHERI_NAPPE =SIMP(statut='f',typ=(fonction) ),
3273 TAHERI_FONC =SIMP(statut='f',typ=(fonction) ),
3276 b_fatigue_multi =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3277 fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3278 RESULTAT =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3279 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
3280 CRITERE =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3281 METHODE =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3284 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3286 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3287 # CONFIGURATION MANAGEMENT OF EDF VERSION
3288 # ======================================================================
3289 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3290 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3291 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3292 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3293 # (AT YOUR OPTION) ANY LATER VERSION.
3295 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3296 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3297 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3298 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3300 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3301 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3302 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3303 # ======================================================================
3304 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3305 docu="U4.66.02-d",reentrant='n',
3306 UIinfo={"groupes":("Matrices/vecteurs",)},
3307 VITE_FLUI =FACT(statut='o',min=1,max=1,
3308 fr="Définir la plage de vitesse fluide étudiée",
3309 VITE_MIN =SIMP(statut='o',typ='R' ),
3310 VITE_MAX =SIMP(statut='o',typ='R' ),
3311 NB_POIN =SIMP(statut='o',typ='I' ),
3313 BASE_MODALE =FACT(statut='o',min=1,max=1,
3315 regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3316 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
3317 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3318 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3319 AMOR_UNIF =SIMP(statut='f',typ='R' ),
3321 TYPE_FLUI_STRU =SIMP(statut='o',typ=type_flui_stru ),
3322 IMPRESSION =FACT(statut='f',min=1,max=1,
3323 fr="Choix des informations à imprimer dans le fichier RESULTAT",
3324 PARA_COUPLAGE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3325 DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3328 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3329 # CONFIGURATION MANAGEMENT OF EDF VERSION
3330 # ======================================================================
3331 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3332 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3333 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3334 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3335 # (AT YOUR OPTION) ANY LATER VERSION.
3337 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3338 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3339 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3340 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3342 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3343 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3344 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3345 # ======================================================================
3346 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3347 docu="U4.32.01-e1",reentrant='f',
3348 UIinfo={"groupes":("Fonction",)},
3349 regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3350 FONCTION =SIMP(statut='o',typ=fonction ),
3351 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3352 VALE_R =SIMP(statut='f',typ='R',max='**'),
3353 LIST_PARA =SIMP(statut='f',typ=listr8 ),
3354 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3355 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3356 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3357 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3358 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3360 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3361 # CONFIGURATION MANAGEMENT OF EDF VERSION
3362 # ======================================================================
3363 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3364 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3365 # REDISTRIBUTION OF THIS FILE.
3366 # ======================================================================
3367 # RESPONSABLE MCOURTOI M.COURTOIS
3368 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3369 SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,LISS_ENVELOP,NORME, **args):
3370 if (RMS != None) : return tabl_fonc_rms
3371 if (MAX != None) : return tabl_fonc_max
3372 if (NOCI_SEISME != None): return tabl_fonc_noci
3373 if (INTEGRE != None) : return fonction
3374 if (DERIVE != None) : return fonction
3375 if (COMB != None) : return fonction
3376 if (ENVELOPPE != None) : return fonction
3377 if (EXTRACTION != None) : return fonction
3378 if (SPEC_OSCI != None) : return fonction
3379 if (COMB_C != None) : return fonction_c
3380 if (COMPOSE != None) : return fonction
3381 if (ASSE != None) : return fonction
3383 vale=FFT.get_child('FONCTION').get_valeur()
3384 if (AsType(vale) == fonction ) : return fonction_c
3385 if (AsType(vale) == fonction_c) : return fonction
3386 if (CORR_ACCE != None) : return fonction
3387 if (LISS_ENVELOP != None) : return fonction
3388 if (PUISSANCE != None) : return fonction
3389 if (NORME != None) : return table
3390 raise AsException("type de concept resultat non prevu")
3392 CALC_FONCTION=OPER(nom="CALC_FONCTION",op= 91,sd_prod=calc_fonction_prod
3393 ,fr="Opérations mathématiques sur des concepts de type fonction",
3394 docu="U4.32.04-f2",reentrant='n',
3395 UIinfo={"groupes":("Fonction",)},
3396 regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3397 'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
3398 'NORME','LISS_ENVELOP'),),
3399 FFT =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3400 FONCTION =SIMP(statut='o',typ=(fonction,fonction_c) )
3402 DERIVE =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3403 METHODE =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3404 FONCTION =SIMP(statut='o',typ=fonction ),
3406 INTEGRE =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3407 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3408 FONCTION =SIMP(statut='o',typ=fonction),
3409 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3411 RMS =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3412 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3413 FONCTION =SIMP(statut='o',typ=fonction ),
3414 INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3415 INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3416 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3417 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3419 NOCI_SEISME =FACT(statut='f',min=1,max=1,
3420 FONCTION =SIMP(statut='f',typ=fonction ),
3421 SPEC_OSCI =SIMP(statut='f',typ=fonction ),
3422 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3423 into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3424 "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3425 INST_INIT =SIMP(statut='f',typ='R'),
3426 INST_FIN =SIMP(statut='f',typ='R'),
3427 NATURE =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3428 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3429 PESANTEUR =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3430 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3431 FREQ_FIN =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3432 AMOR_REDUIT =SIMP(statut='f',typ='R'),
3433 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3434 FREQ =SIMP(statut='f',typ='R',max='**'),
3435 NORME =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3436 BORNE_INF =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3437 BORNE_SUP =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3438 b_acce_reel =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3439 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3440 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3443 LISS_ENVELOP = FACT(statut='f',min=1,max=1,fr="Lissage d une enveloppe",
3444 FONCTION =SIMP(statut='o',typ=fonction ),
3445 AMOR =SIMP(statut='f',typ='R',max='**'),
3446 FREQ_MIN =SIMP(statut='f',typ='R',defaut=0.2),
3447 FREQ_MAX =SIMP(statut='f',typ='R',defaut=33.0),
3448 FREQ_CREUX =SIMP(statut='f',typ='R',max='**'),
3449 ELARG =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL") ),
3450 b_elarg_glob = BLOC ( condition = " (ELARG=='GLOBAL') ",
3451 GAUCHE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3452 DROITE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3454 b_elarg_loc = BLOC ( condition = " (ELARG=='LOCAL') ",
3455 FREQ_1 =SIMP(statut='o',typ='R'),
3456 FREQ_2 =SIMP(statut='o',typ='R' ),
3457 GAUCHE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3458 DROITE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3460 LARG_PLAT =SIMP(statut='f',typ='R',defaut=90.0E0),
3461 TOLE_LISS =SIMP(statut='f',typ='R',defaut=25.0E0),
3462 ECH_FREQ_REF = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3463 b_oui =BLOC ( condition = "(ECH_FREQ_REF=='OUI') ",
3464 regles=(UN_PARMI("LIST_FREQ", "AMOR_ECH"),),
3465 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3466 AMOR_ECH =SIMP(statut='f',typ='R',max='**'),
3469 SPEC_OSCI =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3470 METHODE =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3471 FONCTION =SIMP(statut='o',typ=fonction ),
3472 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3473 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3474 FREQ =SIMP(statut='f',typ='R',max='**'),
3475 NORME =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3476 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3477 NATURE_FONC =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3479 MAX =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3480 FONCTION =SIMP(statut='o',typ=fonction ),
3482 COMB =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3483 FONCTION =SIMP(statut='o',typ=fonction ),
3484 COEF =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3486 COMB_C =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3487 regles=(UN_PARMI('COEF_R','COEF_C'),),
3488 FONCTION =SIMP(statut='o',typ=(fonction, fonction_c) ),
3489 COEF_R =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3490 COEF_C =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3492 b_comb =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3493 LIST_PARA =SIMP(statut='f',typ=listr8 ),
3495 COMPOSE =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3496 FONC_RESU =SIMP(statut='o',typ=fonction),
3497 FONC_PARA =SIMP(statut='o',typ=fonction),
3499 EXTRACTION =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3500 FONCTION =SIMP(statut='o',typ=fonction_c),
3501 PARTIE =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3503 ENVELOPPE =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3504 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3505 CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3507 ASSE =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3508 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3509 SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3511 CORR_ACCE =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3512 CORR_DEPL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3513 FONCTION =SIMP(statut='o',typ=fonction ),
3515 PUISSANCE =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3516 FONCTION =SIMP(statut='o', typ=fonction),
3517 EXPOSANT =SIMP(statut='f', typ='I', defaut=1 ),
3519 NORME =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3520 FONCTION =SIMP(statut='o', typ=fonction),
3522 NOM_PARA =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3523 "INST","X","Y","Z","EPSI","FREQ","PULS",
3525 NOM_RESU =SIMP(statut='f',typ='TXM' ),
3526 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3527 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3528 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3529 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3530 "INST","X","Y","Z","EPSI","FREQ","PULS",
3532 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3533 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3534 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3535 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3536 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3538 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3539 # CONFIGURATION MANAGEMENT OF EDF VERSION
3540 # ======================================================================
3541 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3542 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3543 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3544 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3545 # (AT YOUR OPTION) ANY LATER VERSION.
3547 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3548 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3549 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3550 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3552 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3553 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3554 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3555 # ======================================================================
3556 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3557 fr="calcul de la force ajoutee ",
3558 docu="U4.66.03-a1",reentrant ='n',
3559 UIinfo={"groupes":("Matrices/vecteurs",)},
3561 regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3562 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3563 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3564 UN_PARMI('MONO_APPUI','MODE_STAT')),
3566 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
3567 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3568 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3569 CHARGE =SIMP(statut='o',typ=char_ther ),
3570 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
3571 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
3572 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
3573 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3574 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3575 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
3576 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
3577 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3579 DIRECTION =SIMP(statut='o',typ='R',max=3),
3580 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
3581 NOEUD =SIMP(statut='f',typ=no,max='**'),
3582 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3583 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3585 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3587 SOLVEUR =FACT(statut='d',min=1,max=1,
3588 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3589 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3590 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3592 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3593 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3595 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3596 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3597 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
3598 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3600 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3601 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3602 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3603 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3604 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3605 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
3608 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0), ),
3611 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3612 # CONFIGURATION MANAGEMENT OF EDF VERSION
3613 # ======================================================================
3614 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3615 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3616 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3617 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3618 # (AT YOUR OPTION) ANY LATER VERSION.
3620 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3621 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3622 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3623 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3625 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3626 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3627 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3628 # ======================================================================
3629 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3630 fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
3631 UIinfo={"groupes":("Post traitements",)},
3632 MODELE =SIMP(statut='o',typ=modele),
3633 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3634 regles=(UN_PARMI('FOND','FOND_FISS' ),
3635 UN_PARMI('RESULTAT','DEPL'),
3636 UN_PARMI('R_INF','R_INF_FO'),
3637 PRESENT_PRESENT('R_INF','R_SUP'),
3638 PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3639 FOND =SIMP(statut='f',typ=fond_fiss),
3640 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
3641 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3642 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3643 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3644 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3645 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3646 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3647 LIST_ORDRE =SIMP(statut='f',typ=listis),
3648 INST =SIMP(statut='f',typ='R',max='**'),
3649 LIST_INST =SIMP(statut='f',typ=listr8),
3651 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
3652 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
3653 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3657 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3658 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3660 COMP_ELAS =FACT(statut='f',min=1,max=1,
3661 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3662 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3663 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3664 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3665 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3666 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3667 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3668 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3669 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3670 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3673 COMP_INCR =FACT(statut='f',min=1,max=1,
3674 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3675 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3676 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3677 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3678 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3679 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3680 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3681 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3682 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3683 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3684 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3687 ETAT_INIT =FACT(statut='f',min=1,max=1,
3688 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
3689 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3692 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3693 into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3694 b_g =BLOC(condition="OPTION=='CALC_G'",
3695 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3696 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3698 b_g_lglo =BLOC(condition="OPTION=='CALC_G_LGLO'",
3699 PROPAGATION =SIMP(statut='o',typ='R'),
3700 THETA =SIMP(statut='o',typ=theta_geom),
3701 DIRE_THETA =SIMP(statut='f',typ=cham_no_depl_r),
3702 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3703 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3705 b_g_bilin =BLOC(condition="OPTION=='G_BILINEAIRE'",
3706 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3707 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3709 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
3710 BORNES =FACT(statut='o',min=1,max='**',
3711 NUME_ORDRE =SIMP(statut='o',typ='I'),
3712 VALE_MIN =SIMP(statut='o',typ='R'),
3713 VALE_MAX =SIMP(statut='o',typ='R'),
3715 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3716 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3719 DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3721 R_INF =SIMP(statut='f',typ='R'),
3722 R_SUP =SIMP(statut='f',typ='R'),
3723 R_INF_FO =SIMP(statut='f',typ=fonction),
3724 R_SUP_FO =SIMP(statut='f',typ=fonction),
3726 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3727 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3729 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3730 # CONFIGURATION MANAGEMENT OF EDF VERSION
3731 # ======================================================================
3732 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3733 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3734 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3735 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3736 # (AT YOUR OPTION) ANY LATER VERSION.
3738 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3739 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3740 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3741 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3743 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3744 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3745 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3746 # ======================================================================
3747 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3748 fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3749 docu="U4.82.03-f2",reentrant='n',
3750 UIinfo={"groupes":("Post traitements",)},
3751 regles=(UN_PARMI('RESULTAT','DEPL'),
3752 EXCLUS('COMP_ELAS','COMP_INCR'),),
3753 MODELE =SIMP(statut='o',typ=modele),
3754 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3755 THETA =SIMP(statut='o',typ=theta_geom),
3756 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3757 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3759 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3760 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3761 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3762 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3763 LIST_ORDRE =SIMP(statut='f',typ=listis),
3764 INST =SIMP(statut='f',typ='R',max='**'),
3765 LIST_INST =SIMP(statut='f',typ=listr8),
3767 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
3768 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
3769 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3773 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3774 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3776 COMP_ELAS =FACT(statut='f',min=1,max=1,
3777 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3778 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3779 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3780 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3781 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3782 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3783 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3784 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3785 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3786 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3788 COMP_INCR =FACT(statut='f',min=1,max=1,
3789 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3790 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3791 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3792 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3793 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3794 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3795 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3796 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3797 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3798 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3799 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3801 ETAT_INIT =FACT(statut='f',min=1,max=1,
3802 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
3803 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3805 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3806 into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3807 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
3808 BORNES =FACT(statut='o',min=1,max='**',
3809 NUME_ORDRE =SIMP(statut='o',typ='I'),
3810 VALE_MIN =SIMP(statut='o',typ='R'),
3811 VALE_MAX =SIMP(statut='o',typ='R'),
3814 b_calc_k_g =BLOC(condition="OPTION=='CALC_K_G'",
3815 regles=(UN_PARMI('FOND','FOND_FISS' ),),
3816 FOND =SIMP(statut='f',typ=fond_fiss),
3817 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
3819 b_calc_g_lagr =BLOC(condition="OPTION=='CALC_G_LAGR'",
3820 PROPAGATION =SIMP(statut='o',typ='R'),
3822 b_calc_dg =BLOC(condition="OPTION=='CALC_DG'",
3823 SENSIBILITE =FACT(statut='f',min=1,max=1,
3824 THETA =SIMP(statut='o',typ=theta_geom ),
3828 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3829 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3831 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3832 # CONFIGURATION MANAGEMENT OF EDF VERSION
3833 # ======================================================================
3834 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3835 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3836 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3837 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3838 # (AT YOUR OPTION) ANY LATER VERSION.
3840 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3841 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3842 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3843 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3845 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3846 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3847 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3848 # ======================================================================
3849 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3850 fr="Calcul d une matrice interspectrale d une fonction du temps",
3851 docu="U4.36.03-e",reentrant='n',
3852 UIinfo={"groupes":("Fonction",)},
3853 INST_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3854 INST_FIN =SIMP(statut='o',typ='R' ),
3855 DUREE_ANALYSE =SIMP(statut='f',typ='R' ),
3856 DUREE_DECALAGE =SIMP(statut='f',typ='R' ),
3857 NB_POIN =SIMP(statut='o',typ='I' ),
3858 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3859 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3860 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3862 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3863 # CONFIGURATION MANAGEMENT OF EDF VERSION
3864 # ======================================================================
3865 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3866 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3867 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3868 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3869 # (AT YOUR OPTION) ANY LATER VERSION.
3871 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3872 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3873 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3874 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3876 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3877 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3878 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3879 # ======================================================================
3880 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3881 fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3882 docu="U4.66.01-c",reentrant='n',
3883 UIinfo={"groupes":("Matrices/vecteurs",)},
3884 regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3885 PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3886 PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3887 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
3888 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3889 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3890 CHARGE =SIMP(statut='o',typ=char_ther ),
3891 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
3892 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
3893 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
3894 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
3895 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3896 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3897 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
3898 OPTION =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3899 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
3900 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3901 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3903 SOLVEUR =FACT(statut='d',min=1,max=1,
3904 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3905 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3906 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3908 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3909 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3911 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3912 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3913 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
3914 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3916 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3917 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3918 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3919 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3920 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3921 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
3924 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3927 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3928 # CONFIGURATION MANAGEMENT OF EDF VERSION
3929 # ======================================================================
3930 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3931 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3932 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3933 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3934 # (AT YOUR OPTION) ANY LATER VERSION.
3936 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3937 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3938 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3939 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3941 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3942 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3943 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3944 # ======================================================================
3945 # RESPONSABLE VABHHTS J.PELLET
3946 def calc_matr_elem_prod(OPTION,**args):
3947 if OPTION == "RIGI_MECA" : return matr_elem_depl_r
3948 if OPTION == "RIGI_FLUI_STRU" : return matr_elem_depl_r
3949 if OPTION == "RIGI_MECA_LAGR" : return matr_elem_depl_r
3950 if OPTION == "MASS_ID_MDEP_R" : return matr_elem_depl_r
3951 if OPTION == "MASS_ID_MDNS_R" : return matr_elem_depl_r
3952 if OPTION == "MASS_ID_MTEM_R" : return matr_elem_temp_r
3953 if OPTION == "MASS_ID_MTNS_R" : return matr_elem_temp_r
3954 if OPTION == "MASS_MECA" : return matr_elem_depl_r
3955 if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
3956 if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
3957 if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
3958 if OPTION == "AMOR_MECA" : return matr_elem_depl_r
3959 if OPTION == "IMPE_MECA" : return matr_elem_depl_r
3960 if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
3961 if OPTION == "RIGI_MECA_HYST" : return matr_elem_depl_c
3962 if OPTION == "RIGI_THER" : return matr_elem_temp_r
3963 if OPTION == "MASS_THER" : return matr_elem_temp_r
3964 if OPTION == "MASS_MECA_DIAG" : return matr_elem_depl_r
3965 if OPTION == "RIGI_ACOU" : return matr_elem_pres_c
3966 if OPTION == "MASS_ACOU" : return matr_elem_pres_c
3967 if OPTION == "AMOR_ACOU" : return matr_elem_pres_c
3968 raise AsException("type de concept resultat non prevu")
3970 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op= 9,sd_prod=calc_matr_elem_prod
3971 ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
3972 UIinfo={"groupes":("Matrices/vecteurs",)},
3973 OPTION =SIMP(statut='o',typ='TXM',
3974 into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3975 "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3976 "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3977 "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3978 "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3979 "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3980 "RIGI_MECA_LAGR") ),
3982 b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3983 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3984 MODELE =SIMP(statut='f',typ=modele ),
3985 b_modele =BLOC(condition = "MODELE != None",
3986 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3987 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3988 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3990 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
3991 b_charge =BLOC (condition = "CHARGE != None",
3992 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3996 b_rigi_meca_lagr =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3997 MODELE =SIMP(statut='o',typ=modele ),
3998 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3999 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4000 b_charge =BLOC(condition = "CHARGE != None",
4001 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4003 THETA =SIMP(statut='o',typ=theta_geom ),
4004 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4007 b_mass_meca =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
4008 regles=(AU_MOINS_UN('MODELE','CHARGE'),),
4009 MODELE =SIMP(statut='f',typ=modele ),
4010 b_modele =BLOC(condition = "MODELE != None",
4011 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4012 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4014 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4015 b_charge =BLOC(condition = "CHARGE != None",
4016 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4020 b_mass_identite =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
4021 MODELE =SIMP(statut='o',typ=modele ),
4022 # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
4023 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4024 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4027 b_rigi_geom =BLOC(condition = "OPTION=='RIGI_GEOM'",
4028 MODELE =SIMP(statut='o',typ=modele ),
4029 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4030 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r ),
4031 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4034 b_rigi_rota =BLOC(condition = "OPTION=='RIGI_ROTA'",
4035 MODELE =SIMP(statut='o',typ=modele ),
4036 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4037 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
4038 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4041 b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
4042 regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
4043 ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
4044 MODELE =SIMP(statut='o',typ=modele ),
4045 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4046 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4047 RIGI_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
4048 MASS_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
4049 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4052 b_rigi_meca_hyst =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
4053 MODELE =SIMP(statut='o',typ=modele ),
4054 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
4055 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4056 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4057 RIGI_MECA =SIMP(statut='o',typ=matr_elem_depl_r ),
4060 b_rigi_ther =BLOC(condition = "OPTION=='RIGI_THER'",
4061 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4062 MODELE =SIMP(statut='f',typ=modele ),
4063 b_modele =BLOC(condition = "MODELE != None",
4064 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4065 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4066 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4068 CHARGE =SIMP(statut='f',typ=char_ther,max='**' ),
4071 b_mass_ther =BLOC(condition = "OPTION=='MASS_THER'",
4072 MODELE =SIMP(statut='o',typ=modele ),
4073 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4074 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4077 b_rigi_acou =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
4078 MODELE =SIMP(statut='o',typ=modele ),
4079 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4080 CHARGE =SIMP(statut='f',typ=char_acou ,max='**' ),
4083 b_rigi_flui =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
4084 MODELE =SIMP(statut='o',typ=modele ),
4085 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
4086 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4087 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
4088 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4091 b_impe_meca =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
4092 MODELE =SIMP(statut='o',typ=modele ),
4093 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
4094 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4097 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4098 # CONFIGURATION MANAGEMENT OF EDF VERSION
4099 # ======================================================================
4100 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4101 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4102 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4103 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4104 # (AT YOUR OPTION) ANY LATER VERSION.
4106 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4107 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4108 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4109 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4111 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4112 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4113 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4114 # ======================================================================
4115 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
4116 UIinfo={"groupes":("Post traitements",)},
4117 fr="Calcule la métallurgie a partir du résultat du calcul thermique",
4118 MODELE =SIMP(statut='o',typ=modele ),
4119 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4120 RESULTAT =SIMP(statut='o',typ=evol_ther ),
4121 ETAT_INIT =FACT(statut='o',min=1,max=1,
4122 regles=(UN_PARMI('NUME_INIT', 'INST_INIT', 'META_INIT',),),
4123 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
4124 NUME_INIT =SIMP(statut='f',typ='I' ),
4125 INST_INIT =SIMP(statut='f',typ='R'),
4126 b_inst =BLOC(condition="(INST_INIT != None)",
4127 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
4128 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4130 META_INIT =SIMP(statut='f',typ=carte_var2_r ),
4132 COMP_INCR =FACT(statut='o',min=1,max='**',
4133 RELATION =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
4134 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
4135 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
4136 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4137 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4138 GROUP_MA =SIMP(statut='f',typ=grma),
4139 MAILLE =SIMP(statut='f',typ=ma),
4141 OPTION =SIMP(statut='f',typ='TXM'
4142 ,into=("META_ELNO_TEMP",) ),
4144 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4145 # CONFIGURATION MANAGEMENT OF EDF VERSION
4146 # ======================================================================
4147 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4148 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4149 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4150 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4151 # (AT YOUR OPTION) ANY LATER VERSION.
4153 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4154 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4155 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4156 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4158 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4159 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4160 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4161 # ======================================================================
4162 # RESPONSABLE G8BHHXD X.DESROCHES
4163 def calc_no_prod(RESULTAT,**args):
4164 if AsType(RESULTAT) != None : return AsType(RESULTAT)
4165 raise AsException("type de concept resultat non prevu")
4167 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4168 UIinfo={"groupes":("Post traitements",)},
4169 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4170 mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4171 mode_stat_forc,evol_ther,evol_noli,base_modale,
4172 mult_elas,fourier_elas,mode_flamb ) ),
4173 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4174 fr="Liste des paramètres de sensibilité.",
4175 ang="List of sensitivity parameters"),
4177 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4178 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4179 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4180 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4181 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
4182 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
4183 NOM_CAS =SIMP(statut='f',typ='TXM' ),
4184 INST =SIMP(statut='f',typ='R',max='**'),
4185 FREQ =SIMP(statut='f',typ='R',max='**'),
4186 LIST_INST =SIMP(statut='f',typ=listr8),
4187 LIST_FREQ =SIMP(statut='f',typ=listr8),
4188 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4189 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4190 LIST_ORDRE =SIMP(statut='f',typ=listis),
4192 OPTION =SIMP(statut='o',typ='TXM',max='**',
4193 into=("FORC_NODA","REAC_NODA",
4200 "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4205 "EPSG_NOEU" ,"EPSG_NOEU_DEPL",
4206 "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4207 "EPSP_NOEU" ,"EPSP_NOEU_ZAC",
4208 "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4213 "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4216 "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4218 "SIEF_NOEU" ,"SIEF_NOEU_ELGA",
4219 "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4220 "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4221 "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4223 "VARI_NOEU" ,"VARI_NOEU_ELGA",) ),
4225 b_forc_reac =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4226 (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4227 MODELE =SIMP(statut='o',typ=modele),
4230 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
4231 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4232 EXCIT =FACT(statut='f',min=1,max='**',
4233 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4234 FONC_MULT =SIMP(statut='f',typ=fonction),
4235 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4236 into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4238 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4239 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4240 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4242 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4243 # CONFIGURATION MANAGEMENT OF EDF VERSION
4244 # ======================================================================
4245 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4246 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4247 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4248 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4249 # (AT YOUR OPTION) ANY LATER VERSION.
4251 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4252 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4253 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4254 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4256 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4257 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4258 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4259 # ======================================================================
4260 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
4261 UIinfo={"groupes":("Post traitements",)},
4262 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4263 regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4264 PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4265 EXCLUS('DIRECTION','DIRE_THETA'),),
4266 OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4267 MODELE =SIMP(statut='o',typ=(modele) ),
4268 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
4269 FOND_3D =SIMP(statut='f',typ=(fond_fiss) ),
4270 THETA_3D =FACT(statut='f',min=1,max='**',
4271 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4272 UN_PARMI('MODULE','MODULE_FO'),
4273 ENSEMBLE('MODULE','R_INF','R_SUP'),
4274 ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4275 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4276 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4277 NOEUD =SIMP(statut='f',typ=no,max='**'),
4278 MODULE =SIMP(statut='f',typ='R'),
4279 R_INF =SIMP(statut='f',typ='R'),
4280 R_SUP =SIMP(statut='f',typ='R'),
4281 MODULE_FO =SIMP(statut='f',typ=fonction),
4282 R_INF_FO =SIMP(statut='f',typ=fonction),
4283 R_SUP_FO =SIMP(statut='f',typ=fonction),
4285 DIRE_THETA =SIMP(statut='f',typ=(cham_no_depl_r) ),
4286 DIRECTION =SIMP(statut='f',typ='R',max='**'),
4287 THETA_2D =FACT(statut='f',min=1,max='**',
4288 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4289 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4290 NOEUD =SIMP(statut='f',typ=no,max='**'),
4291 MODULE =SIMP(statut='o',typ='R'),
4292 R_INF =SIMP(statut='o',typ='R'),
4293 R_SUP =SIMP(statut='o',typ='R'),
4295 THETA_BANDE =FACT(statut='f',min=1,max='**',
4296 MODULE =SIMP(statut='o',typ='R'),
4297 R_INF =SIMP(statut='o',typ='R'),
4298 R_SUP =SIMP(statut='o',typ='R'),
4300 GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4301 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4302 IMPRESSION =FACT(statut='f',min=1,max=1,
4303 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4304 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4307 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4308 # CONFIGURATION MANAGEMENT OF EDF VERSION
4309 # ======================================================================
4310 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4311 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4312 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4313 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4314 # (AT YOUR OPTION) ANY LATER VERSION.
4316 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4317 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4318 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4319 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4321 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4322 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4323 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4324 # ======================================================================
4325 # RESPONSABLE VABHHTS J.PELLET
4326 def calc_vect_elem_prod(OPTION,**args):
4327 if OPTION == "CHAR_MECA" : return vect_elem_depl_r
4328 if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4329 if OPTION == "CHAR_THER" : return vect_elem_temp_r
4330 if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
4331 if OPTION == "FORC_NODA" : return vect_elem_depl_r
4332 raise AsException("type de concept resultat non prevu")
4334 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
4335 UIinfo={"groupes":("Matrices/vecteurs",)},
4336 fr="Calcul des seconds membres élémentaires",
4337 OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4338 "FORC_NODA","CHAR_MECA_LAGR") ),
4339 b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
4340 regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4341 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4342 MODELE =SIMP(statut='f',typ=modele),
4343 b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4344 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
4345 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4346 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4347 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4349 b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4350 SOUS_STRUC =FACT(statut='o',min=01,
4351 regles=(UN_PARMI('TOUT','MAILLE'),),
4352 CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
4353 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4354 MAILLE =SIMP(statut='f',typ=ma,max='**',),
4358 b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
4359 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4360 CHARGE =SIMP(statut='o',typ=char_ther,max='**'),
4361 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4364 b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
4365 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4366 CHARGE =SIMP(statut='o',typ=char_acou,max='**'),
4369 b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
4370 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r),
4371 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4372 MODELE =SIMP(statut='f',typ=modele),
4375 b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4376 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4377 THETA =SIMP(statut='o',typ=theta_geom),
4378 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4379 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4380 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4383 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4384 # CONFIGURATION MANAGEMENT OF EDF VERSION
4385 # ======================================================================
4386 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4387 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4388 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4389 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4390 # (AT YOUR OPTION) ANY LATER VERSION.
4392 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4393 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4394 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4395 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4397 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4398 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4399 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4400 # ======================================================================
4401 # RESPONSABLE G8BHHXD X.DESROCHES
4402 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4405 vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4406 elif COMB_C != None:
4407 vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4408 elif COMB_FOURIER != None:
4409 vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4411 raise AsException("type de concept resultat non prevu")
4413 if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4414 if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4415 if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4416 if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4417 if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4418 if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4419 if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4420 if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4421 raise AsException("type de concept resultat non prevu")
4423 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4424 fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
4425 UIinfo={"groupes":("Résultats et champs",)},
4426 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4427 PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4428 COMB_R =FACT(statut='f',min=1,max='**',
4429 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4430 COEF_R =SIMP(statut='o',typ='R'),
4431 CHAM_ELEM =SIMP(statut='o',
4432 typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4433 cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4434 cham_elem_pres_r,cham_elem_sief_c ) ),
4436 COMB_C =FACT(statut='f',min=1,max='**',
4437 regles=(UN_PARMI('COEF_R','COEF_C', ),),
4438 COEF_R =SIMP(statut='f',typ='R'),
4439 COEF_C =SIMP(statut='f',typ='C'),
4440 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4442 COMB_FOURIER =FACT(statut='f',min=1,max='**',
4443 COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
4444 NUME_MODE =SIMP(statut='o',typ='I'),
4445 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4446 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4448 ANGL =SIMP(statut='f',typ='R' ),
4451 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4452 # CONFIGURATION MANAGEMENT OF EDF VERSION
4453 # ======================================================================
4454 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4458 # (AT YOUR OPTION) ANY LATER VERSION.
4460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4467 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4468 # ======================================================================
4469 # RESPONSABLE G8BHHXD X.DESROCHES
4470 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4472 type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4473 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4474 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4475 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4476 elif COMB_R != None:
4477 type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4478 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4479 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4480 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4481 if type_mat == matr_asse_gene_r : return matr_asse_gene_r
4482 elif COMB_FOURIER != None:
4483 type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4484 if type_mat == cham_no_temp_r : return cham_no_temp_r
4485 if type_mat == cham_no_depl_r : return cham_no_depl_r
4486 raise AsException("type de concept resultat non prevu")
4489 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
4490 ,fr="Combinaison linéaire de champs aux noeuds",
4491 docu="U4.72.02-f",reentrant='f',
4492 UIinfo={"groupes":("Résultats et champs",)},
4493 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4494 COMB_R =FACT(statut='f',min=1,max='**',
4495 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4496 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4497 ,cham_no_pres_r,cham_no_pres_c ) ),
4498 COEF_R =SIMP(statut='o',typ='R' ),
4500 COMB_C =FACT(statut='f',min=1,max='**',
4501 regles=(UN_PARMI('COEF_R','COEF_C' ),),
4502 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4503 ,cham_no_depl_c,cham_no_pres_c ) ),
4504 COEF_R =SIMP(statut='f',typ='R' ),
4505 COEF_C =SIMP(statut='f',typ='C' ),
4507 COMB_FOURIER =FACT(statut='f',min=1,max='**',
4508 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4509 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
4510 NUME_MODE =SIMP(statut='o',typ='I' ),
4511 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4513 b_angl = BLOC ( condition = "COMB_FOURIER != None",
4514 ANGL =SIMP(statut='o',typ='R' ),
4517 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4518 # CONFIGURATION MANAGEMENT OF EDF VERSION
4519 # ======================================================================
4520 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4521 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4522 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4523 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4524 # (AT YOUR OPTION) ANY LATER VERSION.
4526 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4527 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4528 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4529 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4531 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4532 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4533 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4534 # ======================================================================
4535 # RESPONSABLE G8BHHXD X.DESROCHES
4536 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4537 docu="U4.83.31-c",reentrant='n',
4538 UIinfo={"groupes":("Post traitements",)},
4539 RESULTAT =SIMP(statut='o',typ=fourier_elas ),
4540 ANGL =SIMP(statut='o',typ='R',max='**'),
4541 NOM_CHAM =SIMP(statut='o',typ='TXM',max=5,
4542 into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4544 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4545 # CONFIGURATION MANAGEMENT OF EDF VERSION
4546 # ======================================================================
4547 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4548 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4549 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4550 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4551 # (AT YOUR OPTION) ANY LATER VERSION.
4553 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4554 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4555 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4556 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4558 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4559 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4560 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4561 # ======================================================================
4562 # RESPONSABLE VABHHTS J.PELLET
4563 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
4565 type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4566 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4567 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4568 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4569 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4570 elif COMB_R != None:
4571 type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4572 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4573 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4574 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4575 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4576 elif CALC_AMOR_GENE != None: return matr_asse_gene_r
4577 raise AsException("type de concept resultat non prevu")
4579 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
4580 fr="Combinaison linéaire de matrices assemblées",
4581 docu="U4.72.01-g1",reentrant='f',
4582 UIinfo={"groupes":("Résultats et champs",)},
4583 regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
4584 COMB_R =FACT(statut='f',min=1,max='**',
4585 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4586 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4587 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4588 COEF_R =SIMP(statut='o',typ='R' ),
4590 COMB_C =FACT(statut='f',min=1,max='**',
4591 regles=(UN_PARMI('COEF_R','COEF_C' ),),
4592 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4593 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4594 COEF_R =SIMP(statut='f',typ='R' ),
4595 COEF_C =SIMP(statut='f',typ='C' ),
4597 CALC_AMOR_GENE =FACT(statut='f',min=1,max=1,
4598 regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
4599 MASS_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
4600 RIGI_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
4601 AMOR_REDUIT = SIMP(statut='f',typ='R',max='**'),
4602 LIST_AMOR = SIMP(statut='f',typ=listr8 ),
4604 SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4606 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4607 # CONFIGURATION MANAGEMENT OF EDF VERSION
4608 # ======================================================================
4609 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4610 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4611 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4612 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4613 # (AT YOUR OPTION) ANY LATER VERSION.
4615 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4616 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4617 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4618 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4620 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4621 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4622 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4623 # ======================================================================
4624 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4625 fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4626 docu="U4.84.01-e1",reentrant='n',
4627 UIinfo={"groupes":("Post traitements",)},
4628 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4629 UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4630 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
4631 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4632 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4633 LIST_ORDRE =SIMP(statut='f',typ=listis ),
4634 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
4635 FREQ =SIMP(statut='f',typ='R',max='**'),
4636 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
4637 b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4638 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4639 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4641 MODE_CORR =SIMP(statut='f',typ=mode_stat_acce ),
4643 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
4644 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
4645 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
4647 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
4648 CORR_FREQ =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4650 EXCIT =FACT(statut='o',min=1,max='**',
4651 regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4652 UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4654 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4655 NOEUD =SIMP(statut='f',typ=no,max='**'),
4656 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4657 AXE =SIMP(statut='f',fr="Excitation suivant un seul axe",
4659 TRI_AXE =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4661 TRI_SPEC =SIMP(statut='f',fr="Excitation suivant les trois axes avec trois spectres",
4662 typ='TXM',into=("OUI",) ),
4663 b_axe =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4664 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=1 ),
4665 ECHELLE =SIMP(statut='f',typ='R',max=1),
4667 b_tri_axe =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4668 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=1 ),
4669 ECHELLE =SIMP(statut='f',typ='R',max=1),
4671 b_tri_spec =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes avec trois spectres",
4672 SPEC_OSCI =SIMP(statut='o',typ=fonction,min=3,max=3 ),
4673 ECHELLE =SIMP(statut='f',typ='R',min=3,max=3),
4675 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4677 COMB_MODE =FACT(statut='o',min=1,max=1,
4678 TYPE =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4679 DUREE =SIMP(statut='f',typ='R' ),
4681 COMB_DIRECTION =FACT(statut='f',min=1,max=1,
4682 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4684 COMB_MULT_APPUI =FACT(statut='f',min=1,max='**',
4685 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
4686 UN_PARMI('TYPE_COMBI','TYPE' ),),
4687 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4688 NOEUD =SIMP(statut='f',typ=no,max='**'),
4689 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4690 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4691 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4693 COMB_DEPL_APPUI=FACT(statut='f',min=1,max='**',
4694 regles=(UN_PARMI('TOUT','LIST_CAS'),
4695 UN_PARMI('TYPE_COMBI','TYPE' ),),
4696 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
4697 LIST_CAS =SIMP(statut='f',typ='I',max='**'),
4698 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4699 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4701 DEPL_MULT_APPUI =FACT(statut='f',min=1,max='**',
4702 regles=(UN_PARMI('NOEUD','GROUP_NO'),
4703 AU_MOINS_UN('DX','DY','DZ' ),),
4704 NOM_CAS =SIMP(statut='o',typ='TXM',max='**'),
4705 NUME_CAS =SIMP(statut='o',typ='I',max='**'),
4706 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,), ),
4707 NOEUD_REFE =SIMP(statut='f',typ=no),
4708 NOEUD =SIMP(statut='f',typ=no,max='**'),
4709 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4710 DX =SIMP(statut='f',typ='R' ),
4711 DY =SIMP(statut='f',typ='R' ),
4712 DZ =SIMP(statut='f',typ='R' ),
4714 OPTION =SIMP(statut='o',typ='TXM',max=9,
4715 into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4716 "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4717 "SIPO_ELNO_DEPL") ),
4718 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4719 IMPRESSION =FACT(statut='f',min=1,max='**',
4720 regles=(EXCLUS('TOUT','NIVEAU'),),
4721 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4722 NIVEAU =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=3 ),
4724 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4726 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4727 # RESPONSABLE VABHHTS J.PELLET
4728 # CONFIGURATION MANAGEMENT OF EDF VERSION
4729 # ======================================================================
4730 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4731 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4732 # REDISTRIBUTION OF THIS FILE.
4733 # ======================================================================
4734 def crea_champ_prod(TYPE_CHAM,**args):
4735 if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4736 if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4737 if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4738 if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4739 if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4740 if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4741 if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4742 if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4743 if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4744 if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4745 if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4746 if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4747 if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4748 if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4749 if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4750 if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4751 if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4752 if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4753 if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4754 if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4755 if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4756 if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4757 if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4758 if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4759 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4760 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4761 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4762 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4763 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4764 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4765 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4766 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4767 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4768 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4769 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4770 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4771 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4772 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4773 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4774 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4775 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4776 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4777 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4778 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4779 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4780 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4781 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4782 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4783 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4784 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4785 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4786 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4787 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4788 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4789 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4790 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4791 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4792 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4793 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4794 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4795 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4796 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4797 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4798 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4799 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4800 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4801 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4802 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4803 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4804 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4805 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4806 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4807 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4808 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4809 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4810 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4811 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4812 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4813 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4814 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4815 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4816 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4817 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4818 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4819 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4820 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4821 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4822 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4823 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4824 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4825 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4826 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4827 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4828 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4829 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4830 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4831 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4832 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4833 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4834 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4835 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4836 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4837 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4838 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4839 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4840 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4841 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4842 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4843 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4844 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4845 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4846 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4847 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4848 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4849 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4850 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4851 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4852 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4853 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4854 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4855 if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4856 if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4857 if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4858 if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4859 if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4860 raise AsException("type de concept resultat non prevu")
4862 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4863 fr=" ",docu="U4.72.04-b1",reentrant='n',
4864 UIinfo={"groupes":("Résultats et champs",)},
4865 TYPE_CHAM =SIMP(statut='o',typ='TXM',
4866 into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4867 "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4868 "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4869 "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4870 "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4871 "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4872 "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4873 "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4874 "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4875 "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4876 "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4877 "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4878 "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4879 "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4880 "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4881 "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4882 "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4883 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4884 "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4885 "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4886 "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4887 "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4888 "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4889 "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4890 "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4891 "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4892 "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4893 "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4894 "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4895 "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4896 "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4897 "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4898 "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4899 "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4900 "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4901 "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4902 "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4903 "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4904 "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4905 "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4906 "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4907 "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4909 # SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4910 # ------------------------------------------------------------------
4911 regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4912 NUME_DDL =SIMP(statut='f',typ=(nume_ddl) ),
4913 CHAM_NO =SIMP(statut='f',typ=(cham_no) ),
4915 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4917 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
4918 regles=(UN_PARMI('MAILLAGE','MODELE'),),
4919 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4920 MODELE =SIMP(statut='f',typ=(modele) ),
4921 b_affe_modele =BLOC(condition = "MODELE != None",
4922 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4923 AFFE =FACT(statut='o',min=1,max='**',
4924 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4925 UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4926 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4927 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4928 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4929 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4930 NOEUD =SIMP(statut='f',typ=no,max='**'),
4931 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
4932 VALE =SIMP(statut='f',typ='R',max='**' ),
4933 VALE_I =SIMP(statut='f',typ='I',max='**' ),
4934 VALE_C =SIMP(statut='f',typ='C',max='**' ),
4935 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
4938 b_asse =BLOC(condition = "OPERATION == 'ASSE'",
4939 regles=(UN_PARMI('MAILLAGE','MODELE'),),
4940 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4941 MODELE =SIMP(statut='f',typ=(modele) ),
4942 b_asse_modele =BLOC(condition = "MODELE != None",
4943 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4944 ASSE =FACT(statut='o',min=1,max='**',
4945 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4946 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4947 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4948 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4949 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4950 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4951 NOEUD =SIMP(statut='f',typ=no,max='**'),
4952 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
4953 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
4954 NOM_CMP_RESU =SIMP(statut='f',typ='TXM',max='**' ),
4955 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4956 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
4959 b_eval =BLOC(condition = "OPERATION == 'EVAL'",
4960 CHAM_F =SIMP(statut='o',typ=(cham_gd)),
4961 CHAM_PARA =SIMP(statut='o',typ=(cham_gd),max='**'),
4963 b_disc =BLOC(condition = "OPERATION == 'DISC'",
4964 MODELE =SIMP(statut='f',typ=(modele) ),
4965 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4966 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
4968 b_extr =BLOC(condition = "OPERATION == 'EXTR'",
4969 regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4970 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4971 RESULTAT =SIMP(statut='f',typ=(resultat) ),
4972 b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4973 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4975 b_extr_resultat =BLOC(condition = "RESULTAT != None",
4976 regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4977 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4978 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4979 fr="Liste des paramètres de sensibilité.",
4980 ang="List of sensitivity parameters"),
4981 NOM_CHAM =SIMP(statut='o',typ='TXM',
4982 into=("DEPL","VITE","ACCE",
4983 "DEPL_ABSOLU","VITE_ABSOLU",
4984 "TEMP","IRRA","ACCE_ABSOLU",
4985 "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4986 "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4987 "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4988 "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4989 "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4990 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4991 "META_ELGA_TEMP","META_ELNO_TEMP",
4992 "META_NOEU_TEMP","DURT_ELGA_META",
4993 "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4994 "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4995 "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4996 "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4997 "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4998 "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4999 "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
5000 "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
5001 "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
5002 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
5003 "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
5004 "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
5005 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
5006 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
5007 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
5008 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
5009 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
5010 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
5011 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
5012 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
5013 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
5014 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
5015 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
5016 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
5017 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
5018 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
5019 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
5020 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
5021 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
5022 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
5023 "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
5024 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
5026 TYPE_MAXI =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
5027 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
5028 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5029 LIST_INST =SIMP(statut='f',typ=(listr8) ),
5030 NUME_ORDRE =SIMP(statut='f',typ='I'),
5031 INST =SIMP(statut='f',typ='R'),
5032 FREQ =SIMP(statut='f',typ='R'),
5033 NUME_MODE =SIMP(statut='f',typ='I'),
5034 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
5035 NOM_CAS =SIMP(statut='f',typ='TXM'),
5036 ANGL =SIMP(statut='f',typ='R'),
5037 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5038 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5039 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
5043 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
5044 #-----------------------------------------------------
5045 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
5046 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
5048 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5049 # CONFIGURATION MANAGEMENT OF EDF VERSION
5050 # ======================================================================
5051 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5052 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5053 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5054 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5055 # (AT YOUR OPTION) ANY LATER VERSION.
5057 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5058 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5059 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5060 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5062 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5063 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5064 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5065 # ======================================================================
5066 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
5067 docu="U4.23.02-d1",reentrant='n',
5068 UIinfo={"groupes":("Maillage",)},
5069 regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
5070 EXCLUS('ECLA_PG','CREA_GROUP_MA'),
5071 EXCLUS('ECLA_PG','DETR_GROUP_MA'),
5072 EXCLUS('ECLA_PG','MODI_MAILLE'),),
5073 MAILLAGE =SIMP(statut='o',typ=maillage ),
5074 CREA_POI1 =FACT(statut='f',min=1,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
5075 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
5076 NOM_GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5077 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5078 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5079 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5080 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5081 NOEUD =SIMP(statut='f',typ=no,max='**'),
5083 CREA_MAILLE =FACT(statut='f',min=1,max='**',fr="Duplication de mailles",
5084 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
5085 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5086 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5087 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5088 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
5089 PREF_NUME =SIMP(statut='f',typ='I' ),
5091 CREA_GROUP_MA =FACT(statut='f',min=1,max='**',fr="Duplication de mailles et création de groupes de mailles",
5092 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5093 NOM =SIMP(statut='o',typ='TXM'),
5094 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5095 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5096 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5097 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
5098 PREF_NUME =SIMP(statut='f',typ='I' ),
5100 DETR_GROUP_MA =FACT(statut='f',min=1,max=1,fr="Destruction de groupes de mailles",
5101 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5102 NB_MAILLE =SIMP(statut='f',typ='I',defaut= 0,
5103 fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit", ),
5105 MODI_MAILLE =FACT(statut='f',min=1,max='**',fr="Modification du type de mailles",
5106 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5107 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5108 MAILLE =SIMP(statut='f',typ=grma,max='**'),
5109 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
5110 OPTION =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
5111 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
5112 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
5114 REPERE =FACT(statut='f',min=1,max='**',
5115 fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
5116 TABLE =SIMP(statut='o',typ=tabl_cara_geom,
5117 fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
5118 NOM_ORIG =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
5119 NOM_ROTA =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére" ),
5120 b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
5121 GROUP_MA =SIMP(statut='f',typ=grma,
5122 fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
5125 ECLA_PG =FACT(statut='f',min=1,max=1,
5126 fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
5127 MODELE =SIMP(statut='o',typ=modele ),
5128 SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
5130 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5132 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5133 # CONFIGURATION MANAGEMENT OF EDF VERSION
5134 # ======================================================================
5135 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5136 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5137 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5138 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5139 # (AT YOUR OPTION) ANY LATER VERSION.
5141 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5142 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5143 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5144 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5146 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5147 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5148 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5149 # ======================================================================
5150 def crea_resu_prod(TYPE_RESU,**args):
5151 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
5152 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
5153 if TYPE_RESU == "EVOL_THER" : return evol_ther
5154 if TYPE_RESU == "MULT_ELAS" : return mult_elas
5155 if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
5156 if TYPE_RESU == "EVOL_VARC" : return evol_varc
5157 raise AsException("type de concept resultat non prevu")
5159 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
5160 UIinfo={"groupes":("Modélisation",)},
5161 fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
5163 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
5164 fr="choix de la fonction a activer",),
5166 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
5168 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
5169 "EVOL_THER","EVOL_VARC",) ),
5170 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
5171 AFFE =FACT(statut='f',min=1,max='**',
5172 regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
5173 CHAM_GD =SIMP(statut='f',typ=(cham_gd)),
5174 NOM_CAS =SIMP(statut='f',typ='TXM' ),
5175 NUME_MODE =SIMP(statut='f',typ='I'),
5176 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5177 INST =SIMP(statut='f',typ='R',max='**'),
5178 LIST_INST =SIMP(statut='f',typ=listr8),
5179 NUME_INIT =SIMP(statut='f',typ='I'),
5180 NUME_FIN =SIMP(statut='f',typ='I'),
5181 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5182 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5186 b_ecla_pg =BLOC(condition = "OPERATION == 'ECLA_PG'",
5188 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5190 ECLA_PG =FACT(statut='f',min=1,max=1,
5191 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5192 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
5193 into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5194 MODELE_INIT =SIMP(statut='o',typ=modele),
5195 RESU_INIT =SIMP(statut='o',typ=resultat),
5196 MAILLAGE =SIMP(statut='o',typ=maillage),
5197 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5198 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
5199 LIST_ORDRE =SIMP(statut='f',typ=listis),
5200 INST =SIMP(statut='f',typ='R',max='**'),
5201 LIST_INST =SIMP(statut='f',typ=listr8),
5202 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5203 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5207 b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5209 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5210 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5211 RESU_INIT =SIMP(statut='o',typ=evol_noli),
5212 INST_INIT =SIMP(statut='f',typ='R'),
5213 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
5214 CRITERE =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5215 MAILLAGE_INIT =SIMP(statut='o',typ=maillage,),
5216 RESU_FINAL =SIMP(statut='o',typ=evol_noli,),
5217 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
5218 PERM_CHAM =FACT(statut='o',min=1,max=1,
5219 GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5220 GROUP_MA_INIT =SIMP(statut='o',typ=grma),
5221 TRAN =SIMP(statut='o',typ='R',max='**'),
5222 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
5226 b_prol_rtz =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5228 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5230 PROL_RTZ =FACT(statut='f',min=1,max=1,
5231 regles=(EXCLUS('INST','LIST_INST'),),
5232 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
5233 TABLE =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5234 INST =SIMP(statut='f',typ='R',max='**'),
5235 LIST_INST =SIMP(statut='f',typ=listr8),
5236 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
5237 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
5238 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5240 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5241 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5242 REPERE =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5243 ORIGINE =SIMP(statut='o',typ='R',min=3,max=3),
5244 AXE_Z =SIMP(statut='o',typ='R',min=3,max=3),
5249 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5250 # CONFIGURATION MANAGEMENT OF EDF VERSION
5251 # ======================================================================
5252 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5253 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5254 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5255 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5256 # (AT YOUR OPTION) ANY LATER VERSION.
5258 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5259 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5260 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5261 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5263 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5264 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5265 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5266 # ======================================================================
5267 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g2",repetable='n',
5268 UIinfo={"groupes":("Gestion du travail",)},
5269 fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5272 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5273 into=("OUI","NON"),defaut="OUI"),
5274 BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5275 statut='f',min=1,max=3,
5276 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
5277 into=('GLOBALE','VOLATILE','LOCALE'),),
5278 TITRE =SIMP(statut='f',typ='TXM'),
5279 CAS =SIMP(statut='f',typ='TXM'),
5280 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5281 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5282 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5284 IMPRESSION =FACT(statut='f',min=1,max=3,
5285 FICHIER =SIMP(statut='o',typ='TXM'),
5286 UNITE =SIMP(statut='o',typ='I'),
5288 CATALOGUE =FACT(statut='f',min=1,max=10,
5289 FICHIER =SIMP(statut='o',typ='TXM'),
5290 TITRE =SIMP(statut='f',typ='TXM'),
5291 UNITE =SIMP(statut='f',typ='I'),
5293 CODE =FACT(fr="définition d un nom pour l'esemble d'une étude",
5294 statut='f',min=1,max=1,
5295 NOM =SIMP(statut='o',typ='TXM'),
5296 NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5297 UNITE =SIMP(statut='f',typ='I',defaut=15),
5299 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
5300 statut='f',min=1,max=1,
5301 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5302 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5303 JEVEUX =SIMP(fr="force les déchargement sur disque",
5304 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5305 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5306 statut='f',typ='TXM',into=('TEST',)),
5308 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
5309 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5310 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5311 TAILLE =SIMP(statut='f',typ='I'),
5312 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
5313 PARTITION =SIMP(statut='f',typ='R'),
5316 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5317 # CONFIGURATION MANAGEMENT OF EDF VERSION
5318 # ======================================================================
5319 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5320 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5321 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5322 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5323 # (AT YOUR OPTION) ANY LATER VERSION.
5325 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5326 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5327 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5328 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5330 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5331 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5332 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5333 # ======================================================================
5334 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale,
5335 docu="U4.64.02-f1",reentrant='f',
5336 UIinfo={"groupes":("Matrices/vecteurs",)},
5337 regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5338 CLASSIQUE =FACT(statut='f',min=1,max=1,
5339 INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
5340 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
5341 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
5343 RITZ =FACT(statut='f',min=1,max='**',
5344 regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5345 MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
5346 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
5347 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5348 MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
5349 BASE_MODALE =SIMP(statut='f',typ=base_modale ),
5351 DIAG_MASS =FACT(statut='f',min=1,max='**',
5352 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
5353 MODE_STAT =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5355 # le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5356 # PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5357 b_ritz =BLOC(condition = "RITZ != None",
5358 INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
5359 NUME_REF =SIMP(statut='o',typ=nume_ddl ),
5361 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5362 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5364 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5365 # CONFIGURATION MANAGEMENT OF EDF VERSION
5366 # ======================================================================
5367 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5368 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5369 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5370 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5371 # (AT YOUR OPTION) ANY LATER VERSION.
5373 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5374 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5375 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5376 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5378 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5379 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5380 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5381 # ======================================================================
5382 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5384 docu="U4.42.04-a",reentrant='n',
5385 UIinfo={"groupes":("Modélisation",)},
5386 MODELE =SIMP(statut='o',typ=modele ),
5387 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
5388 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5389 GROUP_MA_BETON =SIMP(statut='o',typ=grma),
5390 DEFI_CABLE =FACT(statut='o',min=1,max='**',
5391 regles=(UN_PARMI('MAILLE','GROUP_MA'),
5392 UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5393 MAILLE =SIMP(statut='f',typ=ma,min=2,max='**'),
5394 GROUP_MA =SIMP(statut='f',typ=grma),
5395 NOEUD_ANCRAGE =SIMP(statut='f',typ=no,max=2),
5396 GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5397 TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',min=2,max=2,
5398 into=("ACTIF","PASSIF") ),
5400 TENSION_INIT =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5401 RECUL_ANCRAGE =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5402 RELAXATION =FACT(statut='f',min=0,max=1,
5403 R_J =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5405 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
5407 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5408 # CONFIGURATION MANAGEMENT OF EDF VERSION
5409 # ======================================================================
5410 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5411 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5412 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5413 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5414 # (AT YOUR OPTION) ANY LATER VERSION.
5416 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5417 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5418 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5419 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5421 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5422 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5423 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5424 # ======================================================================
5425 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction,
5426 fr="Définition d une fonction constante",
5427 docu="U4.31.01-f",reentrant='n',
5428 UIinfo={"groupes":("Fonction",)},
5429 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5430 VALE =SIMP(statut='o',typ='R',max=1 ),
5431 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5433 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5434 # CONFIGURATION MANAGEMENT OF EDF VERSION
5435 # ======================================================================
5436 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5437 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5438 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5439 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5440 # (AT YOUR OPTION) ANY LATER VERSION.
5442 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5443 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5444 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5445 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5447 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5448 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5449 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5450 # ======================================================================
5451 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
5452 UIinfo={"groupes":("Modélisation",)},
5453 fr="Définition d une coque composite couche par couche",
5454 COUCHE =FACT(statut='o',min=1,max='**',
5455 EPAIS =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5456 MATER =SIMP(statut='o',typ=(mater) ),
5457 ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.E+0,
5458 val_min=-90.E+0,val_max=90.E+0 ),
5460 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5461 IMPRESSION =FACT(statut='f',min=1,max=1,
5462 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5463 into=("RESULTAT",) ),
5466 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5467 # CONFIGURATION MANAGEMENT OF EDF VERSION
5468 # ======================================================================
5469 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5470 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5471 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5472 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5473 # (AT YOUR OPTION) ANY LATER VERSION.
5475 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5476 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5477 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5478 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5480 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5481 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5482 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5483 # ======================================================================
5484 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5485 docu="U4.25.01-d",reentrant='n',
5486 UIinfo={"groupes":("Maillage",)},
5487 regles=( UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5488 FAISCEAU_TRANS =FACT(statut='f',min=1,max='**',
5489 COUPLAGE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5490 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5491 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5492 PROF_RHO_F_INT =SIMP(statut='f',typ=fonction ),
5493 PROF_RHO_F_EXT =SIMP(statut='f',typ=fonction ),
5494 NOM_CMP =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5495 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
5496 TYPE_PAS =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5497 TYPE_RESEAU =SIMP(statut='f',typ='I' ),
5498 UNITE_CD =SIMP(statut='f',typ='I',defaut=70),
5499 UNITE_CK =SIMP(statut='f',typ='I',defaut=71),
5500 PAS =SIMP(statut='f',typ='R' ),
5502 GRAPPE =FACT(statut='f',max=1,
5503 regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5504 PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5505 # peut on créer un bloc a partir de la valeur de couplage
5506 COUPLAGE =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5507 GRAPPE_2 =SIMP(statut='f',typ='TXM',
5508 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5509 NOEUD =SIMP(statut='f',typ=no),
5510 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5511 MODELE =SIMP(statut='f',typ=modele ),
5512 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
5513 RHO_FLUI =SIMP(statut='f',typ='R' ),
5514 UNITE_CA =SIMP(statut='f',typ='I',defaut=70),
5515 UNITE_KA =SIMP(statut='f',typ='I',defaut=71),
5517 FAISCEAU_AXIAL =FACT(statut='f',min=1,max='**',
5518 regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5519 UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5520 ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5521 PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5522 ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5523 ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5524 'COOR_GRILLE','TYPE_GRILLE', ),),
5525 # on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5526 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5527 TRI_GROUP_MA =SIMP(statut='f',typ='TXM' ),
5528 VECT_X =SIMP(statut='f',typ='R',max=3),
5529 PROF_RHO_FLUI =SIMP(statut='f',typ=fonction ),
5530 PROF_VISC_CINE =SIMP(statut='f',typ=fonction ),
5531 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5532 RAYON_TUBE =SIMP(statut='f',typ='R' ),
5533 COOR_TUBE =SIMP(statut='f',typ='R',max='**'),
5534 PESANTEUR =SIMP(statut='f',typ='R',min=4,max=4),
5535 RUGO_TUBE =SIMP(statut='f',typ='R' ),
5536 CARA_PAROI =SIMP(statut='f',typ='TXM',max=5,
5537 into=("YC","ZC","R","HY","HZ") ),
5538 VALE_PAROI =SIMP(statut='f',typ='R',max=5),
5539 ANGL_VRIL =SIMP(statut='f',typ='R' ),
5540 LONG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5541 LARG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5542 EPAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5543 RUGO_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5544 COEF_TRAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5545 COEF_DPOR_TYPG =SIMP(statut='f',typ='R',max='**'),
5546 COOR_GRILLE =SIMP(statut='f',typ='R',max='**'),
5547 TYPE_GRILLE =SIMP(statut='f',typ='I',max='**'),
5549 COQUE_COAX =FACT(statut='f',max=1,
5550 MASS_AJOU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5551 GROUP_MA_INT =SIMP(statut='o',typ=grma),
5552 GROUP_MA_EXT =SIMP(statut='o',typ=grma),
5553 VECT_X =SIMP(statut='o',typ='R',max='**'),
5554 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5555 MATER_INT =SIMP(statut='o',typ=mater ),
5556 MATER_EXT =SIMP(statut='o',typ=mater ),
5557 RHO_FLUI =SIMP(statut='o',typ='R' ),
5558 VISC_CINE =SIMP(statut='o',typ='R' ),
5559 RUGOSITE =SIMP(statut='o',typ='R' ),
5560 PDC_MOY_1 =SIMP(statut='o',typ='R' ),
5561 PDC_DYN_1 =SIMP(statut='o',typ='R' ),
5562 PDC_MOY_2 =SIMP(statut='o',typ='R' ),
5563 PDC_DYN_2 =SIMP(statut='o',typ='R' ),
5565 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5567 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5568 # CONFIGURATION MANAGEMENT OF EDF VERSION
5569 # ======================================================================
5570 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5574 # (AT YOUR OPTION) ANY LATER VERSION.
5576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5583 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5584 # ======================================================================
5585 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
5586 UIinfo={"groupes":("Outils métier",)},
5587 fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5588 regles=(UN_PARMI('COUR_PRIN','COUR'),
5589 EXCLUS('COUR','COUR_SECO'), ),
5590 FREQ =SIMP(statut='f',typ='R',defaut= 50.),
5591 SIGNAL =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5592 COUR =FACT(statut='f',min=1,max='**',
5593 fr="Définition du courant de court-circuit",
5594 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5595 UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5596 INTE_CC_1 =SIMP(statut='o',typ='R'),
5597 TAU_CC_1 =SIMP(statut='o',typ='R'),
5598 PHI_CC_1 =SIMP(statut='f',typ='R'),
5599 INTC_CC_1 =SIMP(statut='f',typ='R'),
5600 INTE_CC_2 =SIMP(statut='o',typ='R'),
5601 TAU_CC_2 =SIMP(statut='o',typ='R'),
5602 PHI_CC_2 =SIMP(statut='f',typ='R'),
5603 INTC_CC_2 =SIMP(statut='f',typ='R'),
5604 INST_CC_INIT =SIMP(statut='o',typ='R'),
5605 INST_CC_FIN =SIMP(statut='o',typ='R'),
5607 COUR_PRIN =FACT(statut='f',min=1,max=1,
5608 fr="Définition du courant de court-circuit avec réenclenchement",
5609 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5610 INTE_CC_1 =SIMP(statut='o',typ='R'),
5611 TAU_CC_1 =SIMP(statut='o',typ='R'),
5612 PHI_CC_1 =SIMP(statut='f',typ='R'),
5613 INTC_CC_1 =SIMP(statut='f',typ='R'),
5614 INTE_RENC_1 =SIMP(statut='f',typ='R'),
5615 TAU_RENC_1 =SIMP(statut='f',typ='R'),
5616 PHI_RENC_1 =SIMP(statut='f',typ='R'),
5617 INST_CC_INIT =SIMP(statut='o',typ='R'),
5618 INST_CC_FIN =SIMP(statut='o',typ='R'),
5619 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5620 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5622 COUR_SECO =FACT(statut='f',min=1,max='**',
5623 fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5624 regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5625 INTE_CC_2 =SIMP(statut='o',typ='R'),
5626 TAU_CC_2 =SIMP(statut='o',typ='R'),
5627 PHI_CC_2 =SIMP(statut='f',typ='R'),
5628 INTC_CC_2 =SIMP(statut='f',typ='R'),
5629 INTE_RENC_2 =SIMP(statut='f',typ='R'),
5630 TAU_RENC_2 =SIMP(statut='f',typ='R'),
5631 PHI_RENC_2 =SIMP(statut='f',typ='R'),
5632 DIST =SIMP(statut='f',typ='R',defaut=1.0E+0),
5634 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5636 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5637 # CONFIGURATION MANAGEMENT OF EDF VERSION
5638 # ======================================================================
5639 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5640 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5641 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5642 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5643 # (AT YOUR OPTION) ANY LATER VERSION.
5645 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5646 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5647 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5648 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5650 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5651 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5652 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5653 # ======================================================================
5654 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5655 docu="U4.35.01-c",reentrant='n',
5656 UIinfo={"groupes":("Fonction",)},
5657 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
5658 NOEUD_INIT =SIMP(statut='o',typ=no),
5659 NOEUD_FIN =SIMP(statut='o',typ=no),
5660 VITE =FACT(statut='o',min=1,max=1,
5661 VALE =SIMP(statut='f',typ='R',defaut= 1. ),
5662 PROFIL =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5663 NB_BAV =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5665 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5666 into=("NON","LIN","LOG") ),
5667 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5668 into=("CONSTANT","LINEAIRE","EXCLU") ),
5669 PROL_GAUCHE =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5670 into=("CONSTANT","LINEAIRE","EXCLU") ),
5671 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5672 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5674 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5675 # CONFIGURATION MANAGEMENT OF EDF VERSION
5676 # ======================================================================
5677 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5678 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5679 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5680 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5681 # (AT YOUR OPTION) ANY LATER VERSION.
5683 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5684 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5685 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5686 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5688 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5689 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5690 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5691 # ======================================================================
5692 # RESPONSABLE MCOURTOI M.COURTOIS
5693 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5694 if VALE != None : return fonction
5695 if VALE_C != None : return fonction_c
5696 if VALE_PARA != None : return fonction
5697 if NOEUD_PARA != None : return fonction
5698 raise AsException("type de concept resultat non prevu")
5700 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5701 ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5702 docu="U4.31.02-g3",reentrant='n',
5703 UIinfo={"groupes":("Fonction",)},
5704 regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5705 NOM_PARA =SIMP(statut='o',typ='TXM',
5706 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5707 "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5708 "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5709 "PGAZ","PCAP","VITE") ),
5710 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5711 VALE =SIMP(statut='f',typ='R',min=2,max='**',
5712 fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5713 VALE_C =SIMP(statut='f',typ='R',min=2,max='**',
5714 fr ="Fonction complexe définie par une liste de couples"),
5715 VALE_PARA =SIMP(statut='f',typ=listr8,
5716 fr ="Fonction réelle définie par deux concepts de type listr8" ),
5717 b_vale_para =BLOC(condition = "VALE_PARA != None",
5718 VALE_FONC =SIMP(statut='o',typ=listr8 ),
5720 NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
5721 fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5722 b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
5723 MAILLAGE =SIMP(statut='o',typ=maillage ),
5724 VALE_Y =SIMP(statut='o',typ='R',max='**'),
5727 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5728 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5729 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5730 VERIF =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5731 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5732 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5734 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5735 # CONFIGURATION MANAGEMENT OF EDF VERSION
5736 # ======================================================================
5737 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5738 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5739 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5740 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5741 # (AT YOUR OPTION) ANY LATER VERSION.
5743 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5744 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5745 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5746 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5748 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5749 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5750 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5751 # ======================================================================
5752 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
5753 UIinfo={"groupes":("Post traitements",)},
5754 fr="Définition de lèvres et d un fond de fissure en 3D",
5755 regles=(UN_PARMI('FOND','FOND_FERME'),
5756 EXCLUS('FOND_FERME','DTAN_ORIG'),
5757 EXCLUS('FOND_FERME','DTAN_EXTR'),
5758 EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5759 EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5760 UN_PARMI('LEVRE_SUP','NORMALE'),
5761 EXCLUS('LEVRE_INF','NORMALE'),
5762 ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5763 ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5764 EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5765 EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5766 MAILLAGE =SIMP(statut='o',typ=maillage ),
5767 FOND =FACT(statut='f',min=1,max=1,
5768 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5769 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5770 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5771 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5772 NOEUD =SIMP(statut='f',typ=no,max='**'),
5773 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5774 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5775 # à mettre à jour le max vaut-il 1
5776 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
5777 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
5778 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
5779 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
5781 FOND_FERME =FACT(statut='f',min=1,max=1,
5782 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5783 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5784 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5785 NOEUD =SIMP(statut='f',typ=no,max='**'),
5786 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5787 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5788 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
5789 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
5790 MAILLE_ORIG =SIMP(statut='f',typ=ma,max=1),
5791 GROUP_MA_ORIG =SIMP(statut='f',typ=ma,max=1),
5793 LEVRE_SUP =FACT(statut='f',min=1,max=1,
5794 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5795 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5796 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5798 LEVRE_INF =FACT(statut='f',min=1,max=1,
5799 regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5800 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5801 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5803 NORMALE =SIMP(statut='f',typ='R',max='**'),
5804 DTAN_ORIG =SIMP(statut='f',typ='R',max='**'),
5805 DTAN_EXTR =SIMP(statut='f',typ='R',max='**'),
5806 VECT_GRNO_ORIG =SIMP(statut='f',typ=grno,max=2),
5807 VECT_GRNO_EXTR =SIMP(statut='f',typ=grno,max=2),
5808 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5810 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5811 # CONFIGURATION MANAGEMENT OF EDF VERSION
5812 # ======================================================================
5813 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5814 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5815 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5816 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5817 # (AT YOUR OPTION) ANY LATER VERSION.
5819 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5820 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5821 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5822 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5824 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5825 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5826 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5827 # ======================================================================
5828 # RESPONSABLE VABHHTS J.PELLET
5829 def defi_group_prod(MAILLAGE,**args):
5830 if AsType(MAILLAGE) == maillage : return maillage
5831 if AsType(MAILLAGE) == squelette : return squelette
5832 raise AsException("type de concept resultat non prevu")
5834 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5835 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5836 docu="U4.22.01-f1",reentrant='o',
5837 UIinfo={"groupes":("Maillage",)},
5838 regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5839 MAILLAGE =SIMP(statut='o',typ=(maillage,squelette) ),
5841 CREA_GROUP_MA =FACT(statut='f',min=1,max='**',
5842 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5843 # quel est le concept attendu deriere NOM
5844 NOM =SIMP(statut='o',typ=grma),
5845 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5846 GROUP_MA =SIMP(statut='f',typ=grma),
5847 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5848 INTERSEC =SIMP(statut='f',typ=grma,max='**'),
5849 UNION =SIMP(statut='f',typ=grma,max='**'),
5850 DIFFE =SIMP(statut='f',typ=grma,max='**'),
5851 OPTION =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5852 b_group_ma =BLOC(condition = "GROUP_MA != None",
5853 regles=(EXCLUS('POSITION','NUME_INIT'),),
5854 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
5855 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5856 b_nume_init =BLOC(condition = "NUME_INIT != None",
5857 NUME_FIN =SIMP(statut='f',typ='I' ),
5860 b_face_normale =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5861 regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5862 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
5863 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
5864 ANGL_PREC =SIMP(statut='f',typ='R',defaut= 0.5 ),
5865 VERI_SIGNE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5867 b_sphere =BLOC(condition = "OPTION == 'SPHERE'",
5868 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5869 POINT =SIMP(statut='f',typ='R',max=3),
5870 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5871 RAYON =SIMP(statut='o',typ='R' ),
5873 b_cylindre =BLOC(condition = "OPTION == 'CYLINDRE'",
5874 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5875 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5876 POINT =SIMP(statut='f',typ='R',max=3),
5877 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5878 RAYON =SIMP(statut='o',typ='R' ),
5879 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
5880 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
5882 b_bande =BLOC(condition = "OPTION == 'BANDE'",
5883 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5884 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5885 POINT =SIMP(statut='f',typ='R',max=3),
5886 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5887 DIST =SIMP(statut='o',typ='R' ),
5888 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
5889 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
5892 CREA_GROUP_NO =FACT(statut='f',min=1,max='**',
5894 AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5895 'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5896 EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5897 TOUT_GROUP_MA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5898 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5900 NOEUD =SIMP(statut='f',typ=no,max='**'),
5901 INTERSEC =SIMP(statut='f',typ=grno,max='**'),
5902 UNION =SIMP(statut='f',typ=grno,max='**'),
5903 DIFFE =SIMP(statut='f',typ=grno,max='**'),
5904 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5905 OPTION =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5906 "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5907 b_nom_group_ma =BLOC(condition = "GROUP_MA != None",
5908 NOM =SIMP(statut='f',typ=grma,max='**'),
5910 b_crit_noeud = BLOC(condition = "GROUP_MA != None",
5911 CRIT_NOEUD = SIMP(statut='f',typ='TXM',defaut="TOUS",
5912 into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5913 b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5914 NOM =SIMP(statut='o',typ=geom),
5916 b_group_no =BLOC(condition = "GROUP_NO != None",
5917 regles=(EXCLUS('POSITION','NUME_INIT'),),
5918 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
5919 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5920 b_nume_init =BLOC(condition = "NUME_INIT != None",
5921 NUME_FIN =SIMP(statut='f',typ='I' ),
5924 b_env_sphere =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5925 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5926 POINT =SIMP(statut='f',typ='R',max=3),
5927 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
5928 RAYON =SIMP(statut='o',typ='R' ),
5929 PRECISION =SIMP(statut='f',typ='R' ),
5930 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5932 b_env_cylindre =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5933 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5934 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5935 POINT =SIMP(statut='f',typ='R',max=3),
5936 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
5937 RAYON =SIMP(statut='o',typ='R' ),
5938 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
5939 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
5940 PRECISION =SIMP(statut='f',typ='R' ),
5941 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5943 b_env_plan =BLOC(condition = "OPTION == 'PLAN'",
5944 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5945 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5946 POINT =SIMP(statut='f',typ='R',max=3),
5947 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
5948 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
5949 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
5950 PRECISION =SIMP(statut='f',typ='R' ),
5951 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5953 b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5954 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5955 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5956 NOEUD_ORIG =SIMP(statut='f',typ=no),
5957 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
5958 NOEUD_EXTR =SIMP(statut='f',typ=no),
5959 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
5960 PRECISION =SIMP(statut='f',typ='R' ),
5961 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5963 b_noeud_ordo =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5964 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5965 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5966 NOEUD_ORIG =SIMP(statut='f',typ=no),
5967 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
5968 NOEUD_EXTR =SIMP(statut='f',typ=no),
5969 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
5970 PRECISION =SIMP(statut='f',typ='R' ),
5971 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5974 INFO =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5976 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5977 # CONFIGURATION MANAGEMENT OF EDF VERSION
5978 # ======================================================================
5979 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5980 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5981 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5982 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5983 # (AT YOUR OPTION) ANY LATER VERSION.
5985 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5986 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5987 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5988 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5990 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5991 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5992 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5993 # ======================================================================
5994 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5995 docu="U4.36.02-f2",reentrant='n',
5996 UIinfo={"groupes":("Fonction",)},
5998 DIMENSION =SIMP(statut='f',typ='I',defaut= 1 ),
6000 PAR_FONCTION =FACT(statut='f',min=1,max='**',
6001 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6002 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6003 FONCTION =SIMP(statut='o',typ=fonction_c ),
6005 KANAI_TAJIMI =FACT(statut='f',min=1,max='**',
6006 regles=(EXCLUS('VALE_R','VALE_C'),),
6007 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6008 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6009 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6010 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
6011 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
6012 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.6 ),
6013 FREQ_MOY =SIMP(statut='f',typ='R',defaut= 5. ),
6014 VALE_R =SIMP(statut='f',typ='R' ),
6015 VALE_C =SIMP(statut='f',typ='C' ),
6016 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6017 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6018 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6020 CONSTANT =FACT(statut='f',min=1,max='**',
6021 regles=(EXCLUS('VALE_R','VALE_C'),),
6022 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6023 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6024 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6025 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
6026 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
6027 VALE_R =SIMP(statut='f',typ='R' ),
6028 VALE_C =SIMP(statut='f',typ='C' ),
6029 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6030 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6031 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6033 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6034 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6036 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6037 # CONFIGURATION MANAGEMENT OF EDF VERSION
6038 # ======================================================================
6039 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6043 # (AT YOUR OPTION) ANY LATER VERSION.
6045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6052 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6053 # ======================================================================
6054 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op= 98,sd_prod=interf_dyna_clas,
6055 docu="U4.64.01-e",reentrant='n',
6056 UIinfo={"groupes":("Matrices/vecteurs",)},
6057 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
6058 INTERFACE =FACT(statut='o',min=1,max='**',
6059 regles=(ENSEMBLE('NOM','TYPE'),
6060 # erreur doc U sur la condition qui suit
6061 UN_PARMI('NOEUD','GROUP_NO'),),
6062 NOM =SIMP(statut='f',typ='TXM' ),
6063 TYPE =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
6064 NOEUD =SIMP(statut='f',typ=no,max='**'),
6065 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6066 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
6067 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
6069 FREQ =SIMP(statut='f',typ='R',defaut= 1.),
6070 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6072 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6073 # CONFIGURATION MANAGEMENT OF EDF VERSION
6074 # ======================================================================
6075 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6079 # (AT YOUR OPTION) ANY LATER VERSION.
6081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6088 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6089 # ======================================================================
6090 # RESPONSABLE VABHHTS J.PELLET
6091 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
6092 fr="Définition d une suite croissante d entiers",
6093 docu="U4.34.02-f",reentrant='n',
6094 UIinfo={"groupes":("Fonction",)},
6095 regles=(UN_PARMI('VALE','DEBUT'),
6096 EXCLUS('VALE','INTERVALLE'),),
6097 VALE =SIMP(statut='f',typ='I',max='**'),
6098 DEBUT =SIMP(statut='f',typ='I'),
6099 INTERVALLE =FACT(statut='f',min=1,max='**',
6100 regles=(UN_PARMI('NOMBRE','PAS'),),
6101 JUSQU_A =SIMP(statut='o',typ='I'),
6102 NOMBRE =SIMP(statut='f',typ='I',val_min=1,),
6103 PAS =SIMP(statut='f',typ='I',val_min=1,),
6105 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6106 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6108 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6109 # CONFIGURATION MANAGEMENT OF EDF VERSION
6110 # ======================================================================
6111 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6112 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6113 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6114 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6115 # (AT YOUR OPTION) ANY LATER VERSION.
6117 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6118 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6119 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6120 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6122 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6123 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6124 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6125 # ======================================================================
6126 # RESPONSABLE VABHHTS J.PELLET
6127 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
6128 fr="Définition d une suite croissante de réels",
6129 docu="U4.34.01-g1",reentrant='n',
6130 UIinfo={"groupes":("Fonction",)},
6131 regles=(UN_PARMI('VALE','DEBUT',),
6132 EXCLUS('VALE','INTERVALLE'),
6133 ENSEMBLE('DEBUT','INTERVALLE')),
6134 VALE =SIMP(statut='f',typ='R',max='**'),
6135 DEBUT =SIMP(statut='f',typ='R'),
6136 INTERVALLE =FACT(statut='f',min=1,max='**',
6137 regles=(UN_PARMI('NOMBRE','PAS'),),
6138 JUSQU_A =SIMP(statut='o',typ='R'),
6139 NOMBRE =SIMP(statut='f',typ='I'),
6140 PAS =SIMP(statut='f',typ='R'),
6142 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6143 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6145 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6146 # CONFIGURATION MANAGEMENT OF EDF VERSION
6147 # ======================================================================
6148 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6149 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6150 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6151 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6152 # (AT YOUR OPTION) ANY LATER VERSION.
6154 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6155 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6156 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6157 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6159 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6160 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6161 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6162 # ======================================================================
6163 # RESPONSABLE VABHHTS J.PELLET
6164 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op= 88,sd_prod=maillage,
6165 fr="Définition d un nouveau maillage à partir de macro éléments",
6166 docu="U4.23.01-e",reentrant='n',
6167 UIinfo={"groupes":("Maillage",)},
6168 DEFI_MAILLE =FACT(statut='o',min=1,max='**',
6169 MACR_ELEM_STAT =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
6170 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6171 TRAN =SIMP(statut='f',typ='R',max=3),
6172 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
6173 b_angl_naut =BLOC(condition = "ANGL_NAUT != None",
6174 CENTRE =SIMP(statut='f',typ='R',max=3),
6177 RECO_GLOBAL =FACT(statut='f',min=1,max='**',
6178 regles=(UN_PARMI('TOUT','MAILLE'),),
6179 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6180 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6181 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6182 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6184 RECO_MAILLE =FACT(statut='f',min=1,max='**',
6185 MAILLE =SIMP(statut='o',typ=ma,max='**'),
6186 GROUP_NO =SIMP(statut='o',typ=grno,max='**'),
6187 OPTION =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
6188 geometrique =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
6189 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6190 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6193 DEFI_NOEUD =FACT(statut='f',min=1,max='**',
6194 regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6195 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
6196 fr="Renommage de tous les noeuds" ),
6197 NOEUD_INIT =SIMP(statut='f',typ=no,
6198 fr="Renommage d un seul noeud"),
6199 b_tout =BLOC(condition = "TOUT != None",
6200 PREFIXE =SIMP(statut='f',typ='TXM' ),
6201 INDEX =SIMP(statut='o',typ='I',max='**'),
6203 b_noeud_init =BLOC(condition = "NOEUD_INIT != None",
6204 MAILLE =SIMP(statut='o',typ=ma),
6205 NOEUD_FIN =SIMP(statut='o',typ=no),
6208 DEFI_GROUP_NO =FACT(statut='f',min=1,max='**',
6209 regles=(UN_PARMI('TOUT','MAILLE'),
6210 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6211 ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6212 # la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6213 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
6214 fr="Création de plusieurs groupes de noeuds" ),
6215 MAILLE =SIMP(statut='f',typ=ma,
6216 fr="Création de plusieurs groupes de noeuds"),
6217 GROUP_NO_INIT =SIMP(statut='f',typ=grno,
6218 fr="Création d un seul groupe de noeuds"),
6219 PREFIXE =SIMP(statut='f',typ='TXM' ),
6220 INDEX =SIMP(statut='f',typ='I',max='**'),
6221 GROUP_NO_FIN =SIMP(statut='f',typ=grno),
6224 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6225 # CONFIGURATION MANAGEMENT OF EDF VERSION
6226 # ======================================================================
6227 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6228 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6229 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6230 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6231 # (AT YOUR OPTION) ANY LATER VERSION.
6233 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6234 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6235 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6236 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6238 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6239 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6240 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6241 # ======================================================================
6242 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6243 fr="Définition des paramètres décrivant le comportement d un matériau",
6244 docu="U4.43.01-g4",reentrant='n',
6245 UIinfo={"groupes":("Modélisation",)},
6246 regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6247 'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
6248 'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
6249 EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6250 EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6251 EXCLUS('TAHERI','TAHERI_FO'),
6252 EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6253 PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6254 PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6255 EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6256 EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6257 EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6258 EXCLUS('POLY_CFC','POLY_CFC_FO'),
6259 EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6260 EXCLUS('OHNO','OHNO_FO'),
6261 EXCLUS('LMARC','LMARC_FO'),
6262 EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6263 EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6264 PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6265 EXCLUS('RCCM','RCCM_FO'),
6266 EXCLUS('WEIBULL','WEIBULL_FO'),
6267 PRESENT_PRESENT('CAM_CLAY','ELAS'),
6268 PRESENT_PRESENT('LAIGLE','ELAS'),
6269 EXCLUS('MAZARS','MAZARS_FO'),
6270 PRESENT_PRESENT('GRANGER_FD','ELAS_FO'),
6274 # comportement élastique
6276 ELAS =FACT(statut='f',min=0,max=1,
6277 E =SIMP(statut='o',typ='R',val_min=0.E+0),
6278 NU =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6279 RHO =SIMP(statut='f',typ='R'),
6280 ALPHA =SIMP(statut='f',typ='R'),
6281 AMOR_ALPHA =SIMP(statut='f',typ='R'),
6282 AMOR_BETA =SIMP(statut='f',typ='R'),
6283 AMOR_HYST =SIMP(statut='f',typ='R'),
6285 ELAS_FO =FACT(statut='f',min=0,max=1,
6286 regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6287 E =SIMP(statut='o',typ=fonction),
6288 NU =SIMP(statut='o',typ=fonction),
6289 RHO =SIMP(statut='f',typ='R'),
6290 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6291 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
6292 ALPHA =SIMP(statut='f',typ=fonction),
6293 AMOR_ALPHA =SIMP(statut='f',typ=fonction),
6294 AMOR_BETA =SIMP(statut='f',typ=fonction),
6295 AMOR_HYST =SIMP(statut='f',typ=fonction),
6296 K_DESSIC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6297 B_ENDOGE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6298 FONC_DESORP =SIMP(statut='f',typ=fonction),
6299 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6300 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6301 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6302 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6304 ELAS_FLUI =FACT(statut='f',min=0,max=1,
6305 E =SIMP(statut='o',typ='R'),
6306 NU =SIMP(statut='o',typ='R'),
6307 RHO =SIMP(statut='o',typ='R'),
6308 PROF_RHO_F_INT =SIMP(statut='o',typ=fonction),
6309 PROF_RHO_F_EXT =SIMP(statut='o',typ=fonction),
6310 COEF_MASS_AJOU =SIMP(statut='o',typ=fonction),
6311 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6313 ELAS_ISTR =FACT(statut='f',min=0,max=1,
6314 E_L =SIMP(statut='o',typ='R'),
6315 E_N =SIMP(statut='o',typ='R'),
6316 NU_LT =SIMP(statut='o',typ='R'),
6317 NU_LN =SIMP(statut='o',typ='R'),
6318 G_LN =SIMP(statut='o',typ='R'),
6319 RHO =SIMP(statut='f',typ='R'),
6320 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6321 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6323 ELAS_ISTR_FO =FACT(statut='f',min=0,max=1,
6325 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6326 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6328 E_L =SIMP(statut='o',typ=fonction),
6329 E_N =SIMP(statut='o',typ=fonction),
6330 NU_LT =SIMP(statut='o',typ=fonction),
6331 NU_LN =SIMP(statut='o',typ=fonction),
6332 G_LN =SIMP(statut='o',typ=fonction),
6333 RHO =SIMP(statut='f',typ='R'),
6334 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6335 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
6336 ALPHA_L =SIMP(statut='f',typ=fonction),
6337 ALPHA_N =SIMP(statut='f',typ=fonction),
6338 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6340 ELAS_ORTH =FACT(statut='f',min=0,max=1,
6341 E_L =SIMP(statut='o',typ='R'),
6342 E_T =SIMP(statut='o',typ='R'),
6343 E_N =SIMP(statut='f',typ='R'),
6344 NU_LT =SIMP(statut='o',typ='R'),
6345 NU_LN =SIMP(statut='f',typ='R'),
6346 NU_TN =SIMP(statut='f',typ='R'),
6347 G_LT =SIMP(statut='o',typ='R'),
6348 G_LN =SIMP(statut='f',typ='R'),
6349 G_TN =SIMP(statut='f',typ='R'),
6350 RHO =SIMP(statut='f',typ='R'),
6351 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6352 ALPHA_T =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6353 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6354 XT =SIMP(statut='f',typ='R',defaut= 1. ),
6355 XC =SIMP(statut='f',typ='R',defaut= 1. ),
6356 YT =SIMP(statut='f',typ='R',defaut= 1. ),
6357 YC =SIMP(statut='f',typ='R',defaut= 1. ),
6358 S_LT =SIMP(statut='f',typ='R',defaut= 1. ),
6360 ELAS_ORTH_FO =FACT(statut='f',min=0,max=1,
6362 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6363 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6364 PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6366 E_L =SIMP(statut='o',typ=fonction),
6367 E_T =SIMP(statut='o',typ=fonction),
6368 E_N =SIMP(statut='o',typ=fonction),
6369 NU_LT =SIMP(statut='o',typ=fonction),
6370 NU_LN =SIMP(statut='o',typ=fonction),
6371 NU_TN =SIMP(statut='o',typ=fonction),
6372 G_LT =SIMP(statut='o',typ=fonction),
6373 G_LN =SIMP(statut='o',typ=fonction),
6374 G_TN =SIMP(statut='o',typ=fonction),
6375 RHO =SIMP(statut='f',typ='R'),
6376 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6377 PRECISION =SIMP(statut='f',typ='R',defaut= 1. ),
6378 ALPHA_L =SIMP(statut='f',typ=fonction),
6379 ALPHA_T =SIMP(statut='f',typ=fonction),
6380 ALPHA_N =SIMP(statut='f',typ=fonction),
6381 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6383 ELAS_THM =FACT(statut='f',min=0,max=1,
6384 RHO_S =SIMP(statut='o',typ='R'),
6385 UN_SUR_KS =SIMP(statut='o',typ='R'),
6386 E =SIMP(statut='f',typ='R'),
6387 KB =SIMP(statut='f',typ='R'),
6388 D_KB_T =SIMP(statut='f',typ='R'),
6389 ALPHA_S =SIMP(statut='f',typ='R'),
6390 ALPHA_D =SIMP(statut='f',typ='R'),
6392 SURF_ETAT_SATU =FACT(statut='f',min=0,max=1,
6393 E_CHAR =SIMP(statut='o',typ='R'),
6394 E_DECHAR =SIMP(statut='o',typ='R'),
6395 XN =SIMP(statut='f',typ='R'),
6396 RF =SIMP(statut='f',typ='R'),
6397 EV_KB =SIMP(statut='f',typ='R'),
6398 EV_XM =SIMP(statut='f',typ='R'),
6399 D_E_T =SIMP(statut='f',typ='R'),
6400 ALPHA0 =SIMP(statut='f',typ='R'),
6401 ALPHA1 =SIMP(statut='f',typ='R'),
6402 ALPHA2 =SIMP(statut='f',typ='R'),
6403 ALPHA3 =SIMP(statut='f',typ='R'),
6404 ALPHA_S =SIMP(statut='f',typ='R'),
6405 ANG_FRT =SIMP(statut='o',typ='R'),
6406 COHE =SIMP(statut='o',typ='R'),
6407 RESI_TRAC =SIMP(statut='o',typ='R'),
6409 CAM_CLAY_THM =FACT(statut='f',min=0,max=1,
6410 NU =SIMP(statut='f',typ='R'),
6411 LAMBDA =SIMP(statut='o',typ='R'),
6412 KAPA =SIMP(statut='o',typ='R'),
6413 M =SIMP(statut='f',typ='R'),
6414 PRES_CRIT =SIMP(statut='f',typ='R'),
6415 GAMA =SIMP(statut='o',typ='R'),
6416 A0_PC =SIMP(statut='o',typ='R'),
6417 A1_PC =SIMP(statut='f',typ='R'),
6418 A2_PC =SIMP(statut='f',typ='R'),
6419 ALPHA0_PC =SIMP(statut='f',typ='R'),
6420 ALPHA1_PC =SIMP(statut='f',typ='R'),
6421 ALPHA2_PC =SIMP(statut='f',typ='R'),
6422 ALPHA3_PC =SIMP(statut='f',typ='R'),
6423 ALPHA_S =SIMP(statut='f',typ='R'),
6425 SURF_ETAT_NSAT =FACT(statut='f',min=0,max=1,
6426 E_CHAR =SIMP(statut='o',typ='R'),
6427 E_DECHAR =SIMP(statut='o',typ='R'),
6428 XN =SIMP(statut='f',typ='R'),
6429 RF =SIMP(statut='f',typ='R'),
6430 EV_KB =SIMP(statut='f',typ='R'),
6431 EV_XM =SIMP(statut='f',typ='R'),
6432 EV_A =SIMP(statut='f',typ='R'),
6433 EV_B =SIMP(statut='f',typ='R'),
6434 EV_CT =SIMP(statut='f',typ='R'),
6435 EV_SIGB =SIMP(statut='f',typ='R'),
6436 D_E_T =SIMP(statut='f',typ='R'),
6437 D_E_SUCC =SIMP(statut='f',typ='R'),
6438 ANG_FRT =SIMP(statut='o',typ='R'),
6439 COHE =SIMP(statut='o',typ='R'),
6440 D_COEH_SUCC =SIMP(statut='f',typ='R'),
6441 ANG_FRT_ULT =SIMP(statut='f',typ='R'),
6442 SUCC_ULTM =SIMP(statut='f',typ='R'),
6443 RESI_TRAC =SIMP(statut='f',typ='R'),
6444 A_SURF_SATU =SIMP(statut='f',typ='R'),
6445 B_SURF_SATU =SIMP(statut='f',typ='R'),
6446 C_SURF_SATU =SIMP(statut='f',typ='R'),
6447 D_SURF_SATU =SIMP(statut='f',typ='R'),
6449 ELAS_COQUE =FACT(statut='f',min=0,max=1,
6450 regles=(EXCLUS('MEMB_L','M_LLLL',),
6451 PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6452 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6453 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6454 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6455 'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6456 'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6457 'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6458 'C_LZTZ','C_TZTZ'),),
6459 MEMB_L =SIMP(statut='f',typ='R'),
6460 MEMB_LT =SIMP(statut='f',typ='R'),
6461 MEMB_T =SIMP(statut='f',typ='R'),
6462 MEMB_G_LT =SIMP(statut='f',typ='R'),
6463 FLEX_L =SIMP(statut='f',typ='R'),
6464 FLEX_LT =SIMP(statut='f',typ='R'),
6465 FLEX_T =SIMP(statut='f',typ='R'),
6466 FLEX_G_LT =SIMP(statut='f',typ='R'),
6467 CISA_L =SIMP(statut='f',typ='R'),
6468 CISA_T =SIMP(statut='f',typ='R'),
6469 M_LLLL =SIMP(statut='f',typ='R'),
6470 M_LLTT =SIMP(statut='f',typ='R'),
6471 M_LLLT =SIMP(statut='f',typ='R'),
6472 M_TTTT =SIMP(statut='f',typ='R'),
6473 M_TTLT =SIMP(statut='f',typ='R'),
6474 M_LTLT =SIMP(statut='f',typ='R'),
6475 F_LLLL =SIMP(statut='f',typ='R'),
6476 F_LLTT =SIMP(statut='f',typ='R'),
6477 F_LLLT =SIMP(statut='f',typ='R'),
6478 F_TTTT =SIMP(statut='f',typ='R'),
6479 F_TTLT =SIMP(statut='f',typ='R'),
6480 F_LTLT =SIMP(statut='f',typ='R'),
6481 MF_LLLL =SIMP(statut='f',typ='R'),
6482 MF_LLTT =SIMP(statut='f',typ='R'),
6483 MF_LLLT =SIMP(statut='f',typ='R'),
6484 MF_TTTT =SIMP(statut='f',typ='R'),
6485 MF_TTLT =SIMP(statut='f',typ='R'),
6486 MF_LTLT =SIMP(statut='f',typ='R'),
6487 MC_LLLZ =SIMP(statut='f',typ='R'),
6488 MC_LLTZ =SIMP(statut='f',typ='R'),
6489 MC_TTLZ =SIMP(statut='f',typ='R'),
6490 MC_TTTZ =SIMP(statut='f',typ='R'),
6491 MC_LTLZ =SIMP(statut='f',typ='R'),
6492 MC_LTTZ =SIMP(statut='f',typ='R'),
6493 FC_LLLZ =SIMP(statut='f',typ='R'),
6494 FC_LLTZ =SIMP(statut='f',typ='R'),
6495 FC_TTLZ =SIMP(statut='f',typ='R'),
6496 FC_TTTZ =SIMP(statut='f',typ='R'),
6497 FC_LTLZ =SIMP(statut='f',typ='R'),
6498 FC_LTTZ =SIMP(statut='f',typ='R'),
6499 C_LZLZ =SIMP(statut='f',typ='R'),
6500 C_LZTZ =SIMP(statut='f',typ='R'),
6501 C_TZTZ =SIMP(statut='f',typ='R'),
6502 RHO =SIMP(statut='f',typ='R'),
6503 ALPHA =SIMP(statut='f',typ='R'),
6505 ELAS_COQUE_FO =FACT(statut='f',min=0,max=1,
6506 regles=(EXCLUS('MEMB_L','M_LLLL',),
6507 PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6508 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6509 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6510 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6511 'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6512 'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6513 'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6514 MEMB_L =SIMP(statut='f',typ=fonction),
6515 MEMB_LT =SIMP(statut='f',typ=fonction),
6516 MEMB_T =SIMP(statut='f',typ=fonction),
6517 MEMB_G_LT =SIMP(statut='f',typ=fonction),
6518 FLEX_L =SIMP(statut='f',typ=fonction),
6519 FLEX_LT =SIMP(statut='f',typ=fonction),
6520 FLEX_T =SIMP(statut='f',typ=fonction),
6521 FLEX_G_LT =SIMP(statut='f',typ=fonction),
6522 CISA_L =SIMP(statut='f',typ=fonction),
6523 CISA_T =SIMP(statut='f',typ=fonction),
6524 M_LLLL =SIMP(statut='f',typ=fonction),
6525 M_LLTT =SIMP(statut='f',typ=fonction),
6526 M_LLLT =SIMP(statut='f',typ=fonction),
6527 M_TTTT =SIMP(statut='f',typ=fonction),
6528 M_TTLT =SIMP(statut='f',typ=fonction),
6529 M_LTLT =SIMP(statut='f',typ=fonction),
6530 F_LLLL =SIMP(statut='f',typ=fonction),
6531 F_LLTT =SIMP(statut='f',typ=fonction),
6532 F_LLLT =SIMP(statut='f',typ=fonction),
6533 F_TTTT =SIMP(statut='f',typ=fonction),
6534 F_TTLT =SIMP(statut='f',typ=fonction),
6535 F_LTLT =SIMP(statut='f',typ=fonction),
6536 MF_LLLL =SIMP(statut='f',typ=fonction),
6537 MF_LLTT =SIMP(statut='f',typ=fonction),
6538 MF_LLLT =SIMP(statut='f',typ=fonction),
6539 MF_TTTT =SIMP(statut='f',typ=fonction),
6540 MF_TTLT =SIMP(statut='f',typ=fonction),
6541 MF_LTLT =SIMP(statut='f',typ=fonction),
6542 MC_LLLZ =SIMP(statut='f',typ=fonction),
6543 MC_LLTZ =SIMP(statut='f',typ=fonction),
6544 MC_TTLZ =SIMP(statut='f',typ=fonction),
6545 MC_TTTZ =SIMP(statut='f',typ=fonction),
6546 MC_LTLZ =SIMP(statut='f',typ=fonction),
6547 MC_LTTZ =SIMP(statut='f',typ=fonction),
6548 FC_LLLZ =SIMP(statut='f',typ=fonction),
6549 FC_LLTZ =SIMP(statut='f',typ=fonction),
6550 FC_TTLZ =SIMP(statut='f',typ=fonction),
6551 FC_TTTZ =SIMP(statut='f',typ=fonction),
6552 FC_LTLZ =SIMP(statut='f',typ=fonction),
6553 FC_LTTZ =SIMP(statut='f',typ=fonction),
6554 C_LZLZ =SIMP(statut='f',typ=fonction),
6555 C_LZTZ =SIMP(statut='f',typ=fonction),
6556 C_TZTZ =SIMP(statut='f',typ=fonction),
6557 RHO =SIMP(statut='f',typ='R'),
6558 ALPHA =SIMP(statut='f',typ=fonction),
6559 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6561 APPUI_ELAS =FACT(statut='f',min=0,max=1,
6562 E_N =SIMP(statut='o',typ='R'),
6563 E_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0),
6565 CABLE =FACT(statut='f',min=0,max=1,
6566 E =SIMP(statut='o',typ='R'),
6567 EC_SUR_E =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6568 RHO =SIMP(statut='f',typ='R'),
6569 ALPHA =SIMP(statut='f',typ='R'),
6570 AMOR_ALPHA =SIMP(statut='f',typ='R'),
6571 AMOR_BETA =SIMP(statut='f',typ='R'),
6574 # comportement mécanique non linéaire
6576 TRACTION =FACT(statut='f',min=0,max=1,
6577 SIGM =SIMP(statut='o',typ=fonction),
6578 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6579 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6580 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6581 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6583 ECRO_LINE =FACT(statut='f',min=0,max=1,
6584 D_SIGM_EPSI =SIMP(statut='o',typ='R'),
6585 SY =SIMP(statut='o',typ='R'),
6587 ECRO_LINE_FO =FACT(statut='f',min=0,max=1,
6588 D_SIGM_EPSI =SIMP(statut='o',typ=fonction),
6589 SY =SIMP(statut='o',typ=fonction),
6590 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6592 PRAGER =FACT(statut='f',min=0,max=1,
6593 C =SIMP(statut='o',typ='R'),
6595 PRAGER_FO =FACT(statut='f',min=0,max=1,
6596 C =SIMP(statut='o',typ=fonction),
6597 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6599 ECRO_FLEJOU =FACT(statut='f',min=0,max=1,
6600 EP =SIMP(statut='o',typ='R'),
6601 SY =SIMP(statut='o',typ='R'),
6602 SU =SIMP(statut='o',typ='R'),
6603 PUISS =SIMP(statut='o',typ='R'),
6605 TAHERI =FACT(statut='f',min=0,max=1,
6606 R_0 =SIMP(statut='o',typ='R'),
6607 ALPHA =SIMP(statut='o',typ='R'),
6608 M =SIMP(statut='o',typ='R'),
6609 A =SIMP(statut='o',typ='R'),
6610 B =SIMP(statut='o',typ='R'),
6611 C1 =SIMP(statut='o',typ='R'),
6612 C_INF =SIMP(statut='o',typ='R'),
6613 S =SIMP(statut='o',typ='R'),
6615 TAHERI_FO =FACT(statut='f',min=0,max=1,
6616 R_0 =SIMP(statut='o',typ=fonction),
6617 ALPHA =SIMP(statut='o',typ=fonction),
6618 M =SIMP(statut='o',typ=fonction),
6619 A =SIMP(statut='o',typ=fonction),
6620 B =SIMP(statut='o',typ=fonction),
6621 C1 =SIMP(statut='o',typ=fonction),
6622 C_INF =SIMP(statut='o',typ=fonction),
6623 S =SIMP(statut='o',typ=fonction),
6624 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6626 ROUSSELIER =FACT(statut='f',min=0,max=1,
6627 D =SIMP(statut='o',typ='R'),
6628 SIGM_1 =SIMP(statut='o',typ='R'),
6629 PORO_INIT =SIMP(statut='o',typ='R'),
6630 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
6631 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
6632 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
6633 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6634 AN =SIMP(statut='f',typ='R',defaut= 0. ),
6636 ROUSSELIER_FO =FACT(statut='f',min=0,max=1,
6637 D =SIMP(statut='o',typ=fonction),
6638 SIGM_1 =SIMP(statut='o',typ=fonction),
6639 PORO_INIT =SIMP(statut='o',typ=fonction),
6640 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
6641 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
6642 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
6643 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6644 AN =SIMP(statut='f',typ='R',defaut= 0. ),
6645 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6647 ROUSS_VISC =FACT(statut='f',min=0,max=1,
6648 SIGM_0 =SIMP(statut='o',typ='R'),
6649 EPSI_0 =SIMP(statut='o',typ='R'),
6650 M =SIMP(statut='o',typ='R'),
6652 CHABOCHE =FACT(statut='f',min=0,max=1,
6653 R_I =SIMP(statut='o',typ='R'),
6654 R_0 =SIMP(statut='o',typ='R'),
6655 B =SIMP(statut='o',typ='R'),
6656 K =SIMP(statut='o',typ='R'),
6657 W =SIMP(statut='o',typ='R'),
6658 A1 =SIMP(statut='o',typ='R'),
6659 A2 =SIMP(statut='o',typ='R'),
6660 C1 =SIMP(statut='o',typ='R'),
6661 C2 =SIMP(statut='o',typ='R'),
6663 CIN1_CHAB =FACT(statut='f',min=0,max=1,
6664 R_0 =SIMP(statut='o',typ='R'),
6665 R_I =SIMP(statut='f',typ='R'),
6666 B =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6667 C_I =SIMP(statut='o',typ='R'),
6668 K =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6669 W =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6670 G_0 =SIMP(statut='o',typ='R'),
6671 A_I =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6673 CIN1_CHAB_FO =FACT(statut='f',min=0,max=1,
6674 R_0 =SIMP(statut='o',typ=fonction),
6675 R_I =SIMP(statut='o',typ=fonction),
6676 B =SIMP(statut='o',typ=fonction),
6677 C_I =SIMP(statut='o',typ=fonction),
6678 K =SIMP(statut='o',typ=fonction),
6679 W =SIMP(statut='o',typ=fonction),
6680 G_0 =SIMP(statut='o',typ=fonction),
6681 A_I =SIMP(statut='o',typ=fonction),
6682 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6684 CIN2_CHAB =FACT(statut='f',min=0,max=1,
6685 R_0 =SIMP(statut='o',typ='R'),
6686 R_I =SIMP(statut='f',typ='R'),
6687 B =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6688 C1_I =SIMP(statut='o',typ='R'),
6689 C2_I =SIMP(statut='o',typ='R'),
6690 K =SIMP(statut='f',typ='R',defaut= 1.),
6691 W =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6692 G1_0 =SIMP(statut='o',typ='R'),
6693 G2_0 =SIMP(statut='o',typ='R'),
6694 A_I =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6696 CIN2_CHAB_FO =FACT(statut='f',min=0,max=1,
6697 R_0 =SIMP(statut='o',typ=fonction),
6698 R_I =SIMP(statut='o',typ=fonction),
6699 B =SIMP(statut='o',typ=fonction),
6700 C1_I =SIMP(statut='o',typ=fonction),
6701 C2_I =SIMP(statut='o',typ=fonction),
6702 K =SIMP(statut='o',typ=fonction),
6703 W =SIMP(statut='o',typ=fonction),
6704 G1_0 =SIMP(statut='o',typ=fonction),
6705 G2_0 =SIMP(statut='o',typ=fonction),
6706 A_I =SIMP(statut='o',typ=fonction),
6707 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6709 VISCOCHAB =FACT(statut='f',min=0,max=1,
6710 K_0 =SIMP(statut='o',typ='R'),
6711 A_K =SIMP(statut='o',typ='R'),
6712 A_R =SIMP(statut='o',typ='R'),
6713 K =SIMP(statut='o',typ='R'),
6714 N =SIMP(statut='o',typ='R'),
6715 ALP =SIMP(statut='o',typ='R'),
6716 B =SIMP(statut='o',typ='R'),
6717 M_R =SIMP(statut='o',typ='R'),
6718 G_R =SIMP(statut='o',typ='R'),
6719 MU =SIMP(statut='o',typ='R'),
6720 Q_M =SIMP(statut='o',typ='R'),
6721 Q_0 =SIMP(statut='o',typ='R'),
6722 QR_0 =SIMP(statut='o',typ='R'),
6723 ETA =SIMP(statut='o',typ='R'),
6724 C1 =SIMP(statut='o',typ='R'),
6725 M_1 =SIMP(statut='o',typ='R'),
6726 D1 =SIMP(statut='o',typ='R'),
6727 G_X1 =SIMP(statut='o',typ='R'),
6728 G1_0 =SIMP(statut='o',typ='R'),
6729 C2 =SIMP(statut='o',typ='R'),
6730 M_2 =SIMP(statut='o',typ='R'),
6731 D2 =SIMP(statut='o',typ='R'),
6732 G_X2 =SIMP(statut='o',typ='R'),
6733 G2_0 =SIMP(statut='o',typ='R'),
6734 A_I =SIMP(statut='o',typ='R'),
6736 VISCOCHAB_FO =FACT(statut='f',min=0,max=1,
6737 K_0 =SIMP(statut='o',typ=fonction),
6738 A_K =SIMP(statut='o',typ=fonction),
6739 A_R =SIMP(statut='o',typ=fonction),
6740 K =SIMP(statut='o',typ=fonction),
6741 N =SIMP(statut='o',typ=fonction),
6742 ALP =SIMP(statut='o',typ=fonction),
6743 B =SIMP(statut='o',typ=fonction),
6744 M_R =SIMP(statut='o',typ=fonction),
6745 G_R =SIMP(statut='o',typ=fonction),
6746 MU =SIMP(statut='o',typ=fonction),
6747 Q_M =SIMP(statut='o',typ=fonction),
6748 Q_0 =SIMP(statut='o',typ=fonction),
6749 QR_0 =SIMP(statut='o',typ=fonction),
6750 ETA =SIMP(statut='o',typ=fonction),
6751 C1 =SIMP(statut='o',typ=fonction),
6752 M_1 =SIMP(statut='o',typ=fonction),
6753 D1 =SIMP(statut='o',typ=fonction),
6754 G_X1 =SIMP(statut='o',typ=fonction),
6755 G1_0 =SIMP(statut='o',typ=fonction),
6756 C2 =SIMP(statut='o',typ=fonction),
6757 M_2 =SIMP(statut='o',typ=fonction),
6758 D2 =SIMP(statut='o',typ=fonction),
6759 G_X2 =SIMP(statut='o',typ=fonction),
6760 G2_0 =SIMP(statut='o',typ=fonction),
6761 A_I =SIMP(statut='o',typ=fonction),
6762 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6764 POLY_CFC =FACT(statut='f',min=0,max=1,
6765 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
6766 DL =SIMP(statut='f',typ='R'),
6767 DA =SIMP(statut='f',typ='R'),
6768 N =SIMP(statut='o',typ='R'),
6769 K =SIMP(statut='o',typ='R'),
6770 TAU_0 =SIMP(statut='o',typ='R'),
6771 Q1 =SIMP(statut='o',typ='R'),
6772 B1 =SIMP(statut='o',typ='R'),
6773 HL =SIMP(statut='o',typ='R'),
6774 Q2 =SIMP(statut='o',typ='R'),
6775 B2 =SIMP(statut='o',typ='R'),
6776 C1 =SIMP(statut='o',typ='R'),
6777 D1 =SIMP(statut='o',typ='R'),
6778 C2 =SIMP(statut='o',typ='R'),
6780 POLY_CFC_FO =FACT(statut='f',min=0,max=1,
6781 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
6782 DL =SIMP(statut='o',typ=fonction),
6783 DA =SIMP(statut='o',typ=fonction),
6784 N =SIMP(statut='o',typ=fonction),
6785 K =SIMP(statut='o',typ=fonction),
6786 TAU_0 =SIMP(statut='o',typ=fonction),
6787 Q1 =SIMP(statut='o',typ=fonction),
6788 B1 =SIMP(statut='o',typ=fonction),
6789 HL =SIMP(statut='o',typ=fonction),
6790 Q2 =SIMP(statut='o',typ=fonction),
6791 B2 =SIMP(statut='o',typ=fonction),
6792 C1 =SIMP(statut='o',typ=fonction),
6793 D1 =SIMP(statut='o',typ=fonction),
6794 C2 =SIMP(statut='o',typ=fonction),
6795 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6797 LEMAITRE =FACT(statut='f',min=0,max=1,
6798 N =SIMP(statut='o',typ='R'),
6799 UN_SUR_K =SIMP(statut='o',typ='R'),
6800 UN_SUR_M =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6802 ZIRC_CYRA2 =FACT(statut='f',min=0,max=1,
6803 EPSI_FAB =SIMP(statut='o',typ=fonction),
6804 TEMP_RECUIT =SIMP(statut='o',typ=fonction),
6805 FLUX_PHI =SIMP(statut='o',typ=fonction),
6806 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6808 ZIRC_EPRI =FACT(statut='f',min=0,max=1,
6809 FLUX_PHI =SIMP(statut='o',typ='R'),
6810 R_P =SIMP(statut='o',typ='R'),
6811 THETA_MAX =SIMP(statut='o',typ='R'),
6813 LEMAITRE_FO =FACT(statut='f',min=0,max=1,
6814 N =SIMP(statut='o',typ=fonction),
6815 UN_SUR_K =SIMP(statut='o',typ=fonction),
6816 UN_SUR_M =SIMP(statut='f',typ=fonction),
6817 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6819 GRAN_IRRA =FACT(statut='f',min=0,max=1,
6820 A =SIMP(statut='f',typ='R',defaut= 0.E+0),
6821 B =SIMP(statut='f',typ='R',defaut= 0.E+0),
6822 S =SIMP(statut='f',typ='R',defaut= 0.E+0),
6824 FLU_IRRA =FACT(statut='f',min=0,max=1,
6825 QSR_K =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6826 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6827 PHI_ZERO =SIMP(statut='f',typ='R',defaut= 1.E+20),
6828 L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6830 OHNO =FACT(statut='f',min=0,max=1,
6831 R_I =SIMP(statut='o',typ='R'),
6832 R_0 =SIMP(statut='o',typ='R'),
6833 B =SIMP(statut='o',typ='R'),
6834 PHI =SIMP(statut='o',typ='R'),
6835 A1 =SIMP(statut='o',typ='R'),
6836 A2 =SIMP(statut='o',typ='R'),
6837 A3 =SIMP(statut='o',typ='R'),
6838 A4 =SIMP(statut='o',typ='R'),
6839 A5 =SIMP(statut='o',typ='R'),
6840 GAMMA1 =SIMP(statut='o',typ='R'),
6841 GAMMA2 =SIMP(statut='o',typ='R'),
6842 GAMMA3 =SIMP(statut='o',typ='R'),
6843 GAMMA4 =SIMP(statut='o',typ='R'),
6844 GAMMA5 =SIMP(statut='o',typ='R'),
6845 M1 =SIMP(statut='o',typ='R'),
6846 M2 =SIMP(statut='o',typ='R'),
6847 M3 =SIMP(statut='o',typ='R'),
6848 M4 =SIMP(statut='o',typ='R'),
6849 M5 =SIMP(statut='o',typ='R'),
6851 OHNO_FO =FACT(statut='f',min=0,max=1,
6852 R_I =SIMP(statut='o',typ=fonction),
6853 R_0 =SIMP(statut='o',typ=fonction),
6854 B =SIMP(statut='o',typ=fonction),
6855 PHI =SIMP(statut='o',typ=fonction),
6856 A1 =SIMP(statut='o',typ=fonction),
6857 A2 =SIMP(statut='o',typ=fonction),
6858 A3 =SIMP(statut='o',typ=fonction),
6859 A4 =SIMP(statut='o',typ=fonction),
6860 A5 =SIMP(statut='o',typ=fonction),
6861 GAMMA1 =SIMP(statut='o',typ=fonction),
6862 GAMMA2 =SIMP(statut='o',typ=fonction),
6863 GAMMA3 =SIMP(statut='o',typ=fonction),
6864 GAMMA4 =SIMP(statut='o',typ=fonction),
6865 GAMMA5 =SIMP(statut='o',typ=fonction),
6866 M1 =SIMP(statut='o',typ=fonction),
6867 M2 =SIMP(statut='o',typ=fonction),
6868 M3 =SIMP(statut='o',typ=fonction),
6869 M4 =SIMP(statut='o',typ=fonction),
6870 M5 =SIMP(statut='o',typ=fonction),
6871 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6873 LMARC =FACT(statut='f',min=0,max=1,
6874 DE_0 =SIMP(statut='o',typ='R'),
6875 R_0 =SIMP(statut='o',typ='R'),
6876 N =SIMP(statut='o',typ='R'),
6877 K =SIMP(statut='o',typ='R'),
6878 Y_I =SIMP(statut='o',typ='R'),
6879 Y_0 =SIMP(statut='o',typ='R'),
6880 B =SIMP(statut='o',typ='R'),
6881 A_0 =SIMP(statut='o',typ='R'),
6882 RM =SIMP(statut='o',typ='R'),
6883 M =SIMP(statut='o',typ='R'),
6884 P =SIMP(statut='o',typ='R'),
6885 P1 =SIMP(statut='o',typ='R'),
6886 P2 =SIMP(statut='o',typ='R'),
6887 M11 =SIMP(statut='o',typ='R'),
6888 M22 =SIMP(statut='o',typ='R'),
6889 M33 =SIMP(statut='o',typ='R'),
6890 M66 =SIMP(statut='o',typ='R'),
6891 N11 =SIMP(statut='o',typ='R'),
6892 N22 =SIMP(statut='o',typ='R'),
6893 N33 =SIMP(statut='o',typ='R'),
6894 N66 =SIMP(statut='o',typ='R'),
6895 Q11 =SIMP(statut='o',typ='R'),
6896 Q22 =SIMP(statut='o',typ='R'),
6897 Q33 =SIMP(statut='o',typ='R'),
6898 Q66 =SIMP(statut='o',typ='R'),
6899 R11 =SIMP(statut='o',typ='R'),
6900 R22 =SIMP(statut='o',typ='R'),
6901 R33 =SIMP(statut='o',typ='R'),
6902 R66 =SIMP(statut='o',typ='R'),
6904 LMARC_FO =FACT(statut='f',min=0,max=1,
6905 DE_0 =SIMP(statut='o',typ=fonction),
6906 R_0 =SIMP(statut='o',typ=fonction),
6907 N =SIMP(statut='o',typ=fonction),
6908 K =SIMP(statut='o',typ=fonction),
6909 Y_I =SIMP(statut='o',typ=fonction),
6910 Y_0 =SIMP(statut='o',typ=fonction),
6911 B =SIMP(statut='o',typ=fonction),
6912 A_0 =SIMP(statut='o',typ=fonction),
6913 RM =SIMP(statut='o',typ=fonction),
6914 M =SIMP(statut='o',typ=fonction),
6915 P =SIMP(statut='o',typ=fonction),
6916 P1 =SIMP(statut='o',typ=fonction),
6917 P2 =SIMP(statut='o',typ=fonction),
6918 M11 =SIMP(statut='o',typ=fonction),
6919 M22 =SIMP(statut='o',typ=fonction),
6920 M33 =SIMP(statut='o',typ=fonction),
6921 M66 =SIMP(statut='o',typ=fonction),
6922 N11 =SIMP(statut='o',typ=fonction),
6923 N22 =SIMP(statut='o',typ=fonction),
6924 N33 =SIMP(statut='o',typ=fonction),
6925 N66 =SIMP(statut='o',typ=fonction),
6926 Q11 =SIMP(statut='o',typ=fonction),
6927 Q22 =SIMP(statut='o',typ=fonction),
6928 Q33 =SIMP(statut='o',typ=fonction),
6929 Q66 =SIMP(statut='o',typ=fonction),
6930 R11 =SIMP(statut='o',typ=fonction),
6931 R22 =SIMP(statut='o',typ=fonction),
6932 R33 =SIMP(statut='o',typ=fonction),
6933 R66 =SIMP(statut='o',typ=fonction),
6934 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6936 VMIS_POUTRE =FACT(statut='f',min=0,max=1,
6937 NP =SIMP(statut='o',typ='R'),
6938 MEY =SIMP(statut='o',typ='R'),
6939 MPY =SIMP(statut='o',typ='R'),
6940 CAY =SIMP(statut='o',typ='R'),
6941 CBY =SIMP(statut='o',typ='R'),
6942 MEZ =SIMP(statut='o',typ='R'),
6943 MPZ =SIMP(statut='o',typ='R'),
6944 CAZ =SIMP(statut='o',typ='R'),
6945 CBZ =SIMP(statut='o',typ='R'),
6946 MPX =SIMP(statut='o',typ='R'),
6948 VMIS_POUTRE_FO =FACT(statut='f',min=0,max=1,
6949 NP =SIMP(statut='o',typ=fonction),
6950 MEY =SIMP(statut='o',typ=fonction),
6951 MPY =SIMP(statut='o',typ=fonction),
6952 CAY =SIMP(statut='o',typ=fonction),
6953 CBY =SIMP(statut='o',typ=fonction),
6954 MEZ =SIMP(statut='o',typ=fonction),
6955 MPZ =SIMP(statut='o',typ=fonction),
6956 CAZ =SIMP(statut='o',typ=fonction),
6957 CBZ =SIMP(statut='o',typ=fonction),
6958 MPX =SIMP(statut='o',typ=fonction),
6959 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6961 ARME =FACT(statut='f',min=0,max=1,
6962 KYE =SIMP(statut='o',typ='R'),
6963 DLE =SIMP(statut='o',typ='R'),
6964 KYP =SIMP(statut='o',typ='R'),
6965 DLP =SIMP(statut='o',typ='R'),
6966 KYG =SIMP(statut='o',typ='R'),
6968 ASSE_CORN =FACT(statut='f',min=0,max=1,
6969 NU_1 =SIMP(statut='o',typ='R'),
6970 MU_1 =SIMP(statut='o',typ='R'),
6971 DXU_1 =SIMP(statut='o',typ='R'),
6972 DRYU_1 =SIMP(statut='o',typ='R'),
6973 C_1 =SIMP(statut='o',typ='R'),
6974 NU_2 =SIMP(statut='o',typ='R'),
6975 MU_2 =SIMP(statut='o',typ='R'),
6976 DXU_2 =SIMP(statut='o',typ='R'),
6977 DRYU_2 =SIMP(statut='o',typ='R'),
6978 C_2 =SIMP(statut='o',typ='R'),
6979 KY =SIMP(statut='o',typ='R'),
6980 KZ =SIMP(statut='o',typ='R'),
6981 KRX =SIMP(statut='o',typ='R'),
6982 KRZ =SIMP(statut='o',typ='R'),
6984 DIS_CONTACT =FACT(statut='f',min=0,max=1,
6985 RIGI_NOR =SIMP(statut='f',typ='R' ),
6986 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6987 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6988 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6989 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6990 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6991 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6992 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6993 KT_ULTM =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6994 EFFO_N_INIT =SIMP(statut='f',typ=fonction),
6995 regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6996 RIGI_N_IRRA =SIMP(statut='f',typ=fonction),
6997 RIGI_N_FO =SIMP(statut='f',typ=fonction),
6998 RELA_MZ =SIMP(statut='f',typ=fonction),
6999 C_PRAGER_MZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7000 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
7001 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7002 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7004 NADAI_B =FACT(statut='f',min=0,max=1,
7005 F_C =SIMP(statut='o',typ='R'),
7006 F_T =SIMP(statut='o',typ='R'),
7007 CRIT_E_C =SIMP(statut='o',typ='R'),
7008 EPSP_P_C =SIMP(statut='o',typ='R'),
7009 EPSP_R_C =SIMP(statut='o',typ='R'),
7010 EPSI_R_T =SIMP(statut='o',typ='R'),
7011 FAC_T_C =SIMP(statut='o',typ='R'),
7013 BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
7014 F_C =SIMP(statut='o',typ=fonction),
7015 F_T =SIMP(statut='o',typ=fonction),
7016 COEF_BIAX =SIMP(statut='o',typ=fonction),
7017 ENER_COMP_RUPT =SIMP(statut='o',typ=fonction),
7018 ENER_TRAC_RUPT =SIMP(statut='o',typ=fonction),
7019 COEF_ELAS_COMP =SIMP(statut='o',typ='R'),
7020 LONG_CARA =SIMP(statut='f',typ='R'),
7021 ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
7022 ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
7023 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7024 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7025 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7026 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7028 LABORD_1D=FACT(statut='f',min=0 ,max=1,
7029 Y01 =SIMP(statut='o',typ='R'),
7030 Y02 =SIMP(statut='o',typ='R'),
7031 A1 =SIMP(statut='o',typ='R'),
7032 A2 =SIMP(statut='o',typ='R'),
7033 B1 =SIMP(statut='o',typ='R'),
7034 B2 =SIMP(statut='o',typ='R'),
7035 BETA1 =SIMP(statut='o',typ='R'),
7036 BETA2 =SIMP(statut='o',typ='R'),
7037 SIGF =SIMP(statut='o',typ='R'),
7039 MAZARS=FACT(statut='f',min=0 ,max=1,
7040 EPSD0 =SIMP(statut='o',typ='R'),
7041 BETA =SIMP(statut='o',typ='R'),
7042 AC =SIMP(statut='o',typ='R'),
7043 BC =SIMP(statut='o',typ='R'),
7044 AT =SIMP(statut='o',typ='R'),
7045 BT =SIMP(statut='o',typ='R'),
7047 MAZARS_FO=FACT(statut='f',min=0 ,max=1,
7048 EPSD0 =SIMP(statut='o',typ=fonction),
7049 BETA =SIMP(statut='o',typ='R'),
7050 AC =SIMP(statut='o',typ=fonction),
7051 BC =SIMP(statut='o',typ=fonction),
7052 AT =SIMP(statut='o',typ=fonction),
7053 BT =SIMP(statut='o',typ=fonction),
7054 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7056 VENDOCHAB =FACT(statut='f',min=0,max=1,
7057 S_VP =SIMP(statut='o',typ='R'),
7058 SEDVP1 =SIMP(statut='o',typ='R'),
7059 SEDVP2 =SIMP(statut='o',typ='R'),
7060 N_VP =SIMP(statut='o',typ='R'),
7061 M_VP =SIMP(statut='o',typ='R'),
7062 K_VP =SIMP(statut='o',typ='R'),
7063 R_D =SIMP(statut='o',typ='R'),
7064 A_D =SIMP(statut='o',typ='R'),
7065 K_D =SIMP(statut='o',typ='R'),
7067 VENDOCHAB_FO =FACT(statut='f',min=0,max=1,
7068 S_VP =SIMP(statut='o',typ=fonction),
7069 SEDVP1 =SIMP(statut='o',typ=fonction),
7070 SEDVP2 =SIMP(statut='o',typ=fonction),
7071 N_VP =SIMP(statut='o',typ=fonction),
7072 M_VP =SIMP(statut='o',typ=fonction),
7073 K_VP =SIMP(statut='o',typ=fonction),
7074 R_D =SIMP(statut='o',typ=fonction),
7075 A_D =SIMP(statut='o',typ=fonction),
7076 K_D =SIMP(statut='o',typ=fonction),
7077 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7078 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
7080 PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
7081 SY =SIMP(statut='o',typ='R'),
7082 EPSI_ULTM =SIMP(statut='o',typ='R'),
7083 SIGM_ULTM =SIMP(statut='o',typ='R'),
7084 ELAN =SIMP(statut='f',typ='R',defaut= 4. ),
7085 EPSP_HARD =SIMP(statut='o',typ='R'),
7086 R_PM =SIMP(statut='f',typ='R',defaut= 20. ),
7087 EP_SUR_E =SIMP(statut='f',typ='R'),
7088 A1_PM =SIMP(statut='f',typ='R',defaut= 18.5 ),
7089 A2_PM =SIMP(statut='f',typ='R',defaut= 0.15 ),
7090 A6_PM =SIMP(statut='f',typ='R',defaut= 620. ),
7091 C_PM =SIMP(statut='f',typ='R',defaut= 0.5 ),
7092 A_PM =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
7094 BPEL_BETON =FACT(statut='f',min=0,max=1,
7095 PERT_FLUA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7096 PERT_RETR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7098 BPEL_ACIER =FACT(statut='f',min=0,max=1,
7099 RELAX_1000 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7100 MU0_RELAX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7101 SY =SIMP(statut='o',typ='R'),
7102 FROT_COURB =SIMP(statut='o',typ='R'),
7103 FROT_LINE =SIMP(statut='o',typ='R'),
7105 CAM_CLAY =FACT(statut='f',min=0,max=1,
7106 PORO =SIMP(statut='o',typ='R'),
7107 LAMBDA =SIMP(statut='o',typ='R'),
7108 KAPA =SIMP(statut='o',typ='R'),
7109 M =SIMP(statut='o',typ='R'),
7110 PRES_CRIT =SIMP(statut='o',typ='R'),
7111 PA =SIMP(statut='o',typ='R'),
7113 CJS =FACT(statut='f',min=0,max=1,
7114 BETA_CJS =SIMP(statut='o',typ='R'),
7115 RM =SIMP(statut='o',typ='R'),
7116 N_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7117 KP =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7118 RC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7119 A_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7120 B_CJS =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
7121 C_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7122 GAMMA_CJS =SIMP(statut='o',typ='R'),
7123 MU_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7124 PCO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7125 PA =SIMP(statut='o',typ='R'),
7126 Q_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7127 R_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7129 ECRO_ASYM_LINE =FACT(statut='f',min=0,max=1,
7130 DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
7131 SY_C =SIMP(statut='o',typ='R'),
7132 DT_SIGM_EPSI =SIMP(statut='o',typ='R'),
7133 SY_T =SIMP(statut='o',typ='R'),
7135 GRANGER_FP =FACT(statut='f',min=0,max=1,
7136 J1 =SIMP(statut='f',typ='R'),
7137 J2 =SIMP(statut='f',typ='R'),
7138 J3 =SIMP(statut='f',typ='R'),
7139 J4 =SIMP(statut='f',typ='R'),
7140 J5 =SIMP(statut='f',typ='R'),
7141 J6 =SIMP(statut='f',typ='R'),
7142 J7 =SIMP(statut='f',typ='R'),
7143 J8 =SIMP(statut='f',typ='R'),
7144 TAUX_1 =SIMP(statut='f',typ='R'),
7145 TAUX_2 =SIMP(statut='f',typ='R'),
7146 TAUX_3 =SIMP(statut='f',typ='R'),
7147 TAUX_4 =SIMP(statut='f',typ='R'),
7148 TAUX_5 =SIMP(statut='f',typ='R'),
7149 TAUX_6 =SIMP(statut='f',typ='R'),
7150 TAUX_7 =SIMP(statut='f',typ='R'),
7151 TAUX_8 =SIMP(statut='f',typ='R'),
7152 QSR_K =SIMP(statut='f',typ='R'),
7154 V_GRANGER_FP =FACT(statut='f',min=0,max=1,
7155 QSR_VEIL =SIMP(statut='f',typ='R'),
7156 FONC_V =SIMP(statut='f',typ=fonction),
7157 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7159 GRANGER_FD =FACT(statut='f',min=0,max=1,
7160 LAM_VISC =SIMP(statut='o',typ='R'),
7164 # comportement thermique
7166 THER_NL =FACT(statut='f',min=0,max=1,
7167 regles=(UN_PARMI('BETA','RHO_CP', ),),
7168 LAMBDA =SIMP(statut='o',typ=fonction),
7169 BETA =SIMP(statut='f',typ=fonction),
7170 RHO_CP =SIMP(statut='f',typ=fonction),
7171 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7173 THER_HYDR =FACT(statut='f',min=0,max=1,
7174 LAMBDA =SIMP(statut='o',typ=fonction),
7175 BETA =SIMP(statut='f',typ=fonction),
7176 AFFINITE =SIMP(statut='o',typ=fonction),
7177 CHALHYDR =SIMP(statut='o',typ='R'),
7178 QSR_K =SIMP(statut='o',typ='R'),
7179 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
7180 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7182 THER =FACT(statut='f',min=0,max=1,
7183 LAMBDA =SIMP(statut='o',typ='R'),
7184 RHO_CP =SIMP(statut='f',typ='R'),
7186 THER_FO =FACT(statut='f',min=0,max=1,
7187 LAMBDA =SIMP(statut='o',typ=fonction),
7188 RHO_CP =SIMP(statut='f',typ=fonction),
7189 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7191 THER_ORTH =FACT(statut='f',min=0,max=1,
7192 LAMBDA_L =SIMP(statut='o',typ='R'),
7193 LAMBDA_T =SIMP(statut='o',typ='R'),
7194 LAMBDA_N =SIMP(statut='f',typ='R'),
7195 RHO_CP =SIMP(statut='f',typ='R'),
7197 THER_COQUE =FACT(statut='f',min=0,max=1,
7198 COND_LMM =SIMP(statut='o',typ='R'),
7199 COND_TMM =SIMP(statut='o',typ='R'),
7200 COND_LMP =SIMP(statut='o',typ='R'),
7201 COND_TMP =SIMP(statut='o',typ='R'),
7202 COND_LPP =SIMP(statut='o',typ='R'),
7203 COND_TPP =SIMP(statut='o',typ='R'),
7204 COND_LSI =SIMP(statut='o',typ='R'),
7205 COND_TSI =SIMP(statut='o',typ='R'),
7206 COND_NMM =SIMP(statut='o',typ='R'),
7207 COND_NMP =SIMP(statut='o',typ='R'),
7208 COND_NPP =SIMP(statut='o',typ='R'),
7209 COND_NSI =SIMP(statut='o',typ='R'),
7210 CMAS_MM =SIMP(statut='f',typ='R'),
7211 CMAS_MP =SIMP(statut='f',typ='R'),
7212 CMAS_PP =SIMP(statut='f',typ='R'),
7213 CMAS_SI =SIMP(statut='f',typ='R'),
7215 THER_COQUE_FO =FACT(statut='f',min=0,max=1,
7216 COND_LMM =SIMP(statut='o',typ=fonction),
7217 COND_TMM =SIMP(statut='o',typ=fonction),
7218 COND_LMP =SIMP(statut='o',typ=fonction),
7219 COND_TMP =SIMP(statut='o',typ=fonction),
7220 COND_LPP =SIMP(statut='o',typ=fonction),
7221 COND_TPP =SIMP(statut='o',typ=fonction),
7222 COND_LSI =SIMP(statut='o',typ=fonction),
7223 COND_TSI =SIMP(statut='o',typ=fonction),
7224 COND_NMM =SIMP(statut='o',typ=fonction),
7225 COND_NMP =SIMP(statut='o',typ=fonction),
7226 COND_NPP =SIMP(statut='o',typ=fonction),
7227 COND_NSI =SIMP(statut='o',typ=fonction),
7228 CMAS_MM =SIMP(statut='f',typ=fonction),
7229 CMAS_MP =SIMP(statut='f',typ=fonction),
7230 CMAS_PP =SIMP(statut='f',typ=fonction),
7231 CMAS_SI =SIMP(statut='f',typ=fonction),
7233 SECH_GRANGER =FACT(statut='f',min=0,max=1,
7234 A =SIMP(statut='o',typ='R'),
7235 B =SIMP(statut='o',typ='R'),
7236 QSR_K =SIMP(statut='o',typ='R'),
7237 TEMP_0_C =SIMP(statut='o',typ='R'),
7239 SECH_MENSI =FACT(statut='f',min=0,max=1,
7240 A =SIMP(statut='o',typ='R'),
7241 B =SIMP(statut='o',typ='R'),
7243 SECH_BAZANT =FACT(statut='f',min=0,max=1,
7244 D1 =SIMP(statut='o',typ='R'),
7245 ALPHA_BAZANT =SIMP(statut='o',typ='R'),
7246 N =SIMP(statut='o',typ='R'),
7248 SECH_NAPPE =FACT(statut='f',min=0,max=1,
7249 FONCTION =SIMP(statut='o',typ=fonction),
7250 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7251 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7254 # comportement métallurgique
7256 META_ACIER =FACT(statut='f',min=0,max=1,
7257 TRC =SIMP(statut='o',typ=(tabl_trc) ),
7258 AR3 =SIMP(statut='o',typ='R'),
7259 ALPHA =SIMP(statut='o',typ='R'),
7260 MS0 =SIMP(statut='o',typ='R'),
7261 AC1 =SIMP(statut='o',typ='R'),
7262 AC3 =SIMP(statut='o',typ='R'),
7263 TAUX_1 =SIMP(statut='o',typ='R'),
7264 TAUX_3 =SIMP(statut='o',typ='R'),
7265 LAMBDA0 =SIMP(statut='f',typ='R'),
7266 QSR_K =SIMP(statut='f',typ='R'),
7267 D10 =SIMP(statut='f',typ='R'),
7268 WSR_K =SIMP(statut='f',typ='R'),
7270 META_ZIRC =FACT(statut='f',min=0,max=1,
7271 TDEQ =SIMP(statut='o',typ='R'),
7272 N =SIMP(statut='o',typ='R'),
7273 K =SIMP(statut='o',typ='R'),
7274 TDC =SIMP(statut='o',typ='R'),
7275 AC =SIMP(statut='o',typ='R'),
7276 M =SIMP(statut='o',typ='R'),
7277 QSR_K =SIMP(statut='f',typ='R'),
7278 TDR =SIMP(statut='o',typ='R'),
7279 AR =SIMP(statut='o',typ='R'),
7280 BR =SIMP(statut='o',typ='R'),
7282 DURT_META =FACT(statut='f',min=0,max=1,
7283 F1_DURT =SIMP(statut='o',typ='R'),
7284 F2_DURT =SIMP(statut='o',typ='R'),
7285 F3_DURT =SIMP(statut='o',typ='R'),
7286 F4_DURT =SIMP(statut='o',typ='R'),
7287 C_DURT =SIMP(statut='o',typ='R'),
7289 ELAS_META =FACT(statut='f',min=0,max=1,
7290 E =SIMP(statut='o',typ='R'),
7291 NU =SIMP(statut='o',typ='R'),
7292 F_ALPHA =SIMP(statut='o',typ='R'),
7293 C_ALPHA =SIMP(statut='o',typ='R'),
7294 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7295 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
7296 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7297 F1_SY =SIMP(statut='f',typ='R'),
7298 F2_SY =SIMP(statut='f',typ='R'),
7299 F3_SY =SIMP(statut='f',typ='R'),
7300 F4_SY =SIMP(statut='f',typ='R'),
7301 C_SY =SIMP(statut='f',typ='R'),
7302 SY_MELANGE =SIMP(statut='f',typ=fonction),
7303 F1_S_VP =SIMP(statut='f',typ='R'),
7304 F2_S_VP =SIMP(statut='f',typ='R'),
7305 F3_S_VP =SIMP(statut='f',typ='R'),
7306 F4_S_VP =SIMP(statut='f',typ='R'),
7307 C_S_VP =SIMP(statut='f',typ='R' ),
7308 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
7309 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7311 ELAS_META_FO =FACT(statut='f',min=0,max=1,
7313 PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7314 PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7316 E =SIMP(statut='o',typ=fonction),
7317 NU =SIMP(statut='o',typ=fonction),
7318 F_ALPHA =SIMP(statut='o',typ=fonction),
7319 C_ALPHA =SIMP(statut='o',typ=fonction),
7320 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7321 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
7322 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
7323 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7324 F1_SY =SIMP(statut='f',typ=fonction),
7325 F2_SY =SIMP(statut='f',typ=fonction),
7326 F3_SY =SIMP(statut='f',typ=fonction),
7327 F4_SY =SIMP(statut='f',typ=fonction),
7328 C_SY =SIMP(statut='f',typ=fonction),
7329 SY_MELANGE =SIMP(statut='f',typ=fonction),
7330 F1_S_VP =SIMP(statut='f',typ=fonction),
7331 F2_S_VP =SIMP(statut='f',typ=fonction),
7332 F3_S_VP =SIMP(statut='f',typ=fonction),
7333 F4_S_VP =SIMP(statut='f',typ=fonction),
7334 C_S_VP =SIMP(statut='f',typ=fonction),
7335 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
7336 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7337 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7339 META_ECRO_LINE =FACT(statut='f',min=0,max=1,
7340 F1_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7341 F2_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7342 F3_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7343 F4_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7344 C_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7345 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7347 META_TRACTION =FACT(statut='f',min=0,max=1,
7348 SIGM_F1 =SIMP(statut='f',typ=fonction),
7349 SIGM_F2 =SIMP(statut='f',typ=fonction),
7350 SIGM_F3 =SIMP(statut='f',typ=fonction),
7351 SIGM_F4 =SIMP(statut='f',typ=fonction),
7352 SIGM_C =SIMP(statut='f',typ=fonction),
7353 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7354 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7356 META_VISC_FO =FACT(statut='f',min=0,max=1,
7357 F1_ETA =SIMP(statut='f',typ=fonction),
7358 F1_N =SIMP(statut='f',typ=fonction),
7359 F1_C =SIMP(statut='f',typ=fonction),
7360 F1_M =SIMP(statut='f',typ=fonction),
7361 F2_ETA =SIMP(statut='f',typ=fonction),
7362 F2_N =SIMP(statut='f',typ=fonction),
7363 F2_C =SIMP(statut='f',typ=fonction),
7364 F2_M =SIMP(statut='f',typ=fonction),
7365 F3_ETA =SIMP(statut='f',typ=fonction),
7366 F3_N =SIMP(statut='f',typ=fonction),
7367 F3_C =SIMP(statut='f',typ=fonction),
7368 F3_M =SIMP(statut='f',typ=fonction),
7369 F4_ETA =SIMP(statut='f',typ=fonction),
7370 F4_N =SIMP(statut='f',typ=fonction),
7371 F4_C =SIMP(statut='f',typ=fonction),
7372 F4_M =SIMP(statut='f',typ=fonction),
7373 C_ETA =SIMP(statut='f',typ=fonction),
7374 C_N =SIMP(statut='f',typ=fonction),
7375 C_C =SIMP(statut='f',typ=fonction),
7376 C_M =SIMP(statut='f',typ=fonction),
7377 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7379 META_PT =FACT(statut='f',min=0,max=1,
7380 F1_K =SIMP(statut='f',typ='R'),
7381 F2_K =SIMP(statut='f',typ='R'),
7382 F3_K =SIMP(statut='f',typ='R'),
7383 F4_K =SIMP(statut='f',typ='R'),
7384 F1_D_F_META =SIMP(statut='f',typ=fonction),
7385 F2_D_F_META =SIMP(statut='f',typ=fonction),
7386 F3_D_F_META =SIMP(statut='f',typ=fonction),
7387 F4_D_F_META =SIMP(statut='f',typ=fonction),
7388 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7389 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7391 META_RE =FACT(statut='f',min=0,max=1,
7392 C_F1_THETA =SIMP(statut='f',typ='R'),
7393 C_F2_THETA =SIMP(statut='f',typ='R'),
7394 C_F3_THETA =SIMP(statut='f',typ='R'),
7395 C_F4_THETA =SIMP(statut='f',typ='R'),
7396 F1_C_THETA =SIMP(statut='f',typ='R'),
7397 F2_C_THETA =SIMP(statut='f',typ='R'),
7398 F3_C_THETA =SIMP(statut='f',typ='R'),
7399 F4_C_THETA =SIMP(statut='f',typ='R'),
7402 # comportement fluide
7404 FLUIDE =FACT(statut='f',min=0,max=1,
7405 regles=(EXCLUS('CELE_C','CELE_R'),),
7406 RHO =SIMP(statut='o',typ='R'),
7407 CELE_C =SIMP(statut='f',typ='C'),
7408 CELE_R =SIMP(statut='f',typ='R'),
7410 PORO_JOINT =FACT(statut='f',min=0,max=1,
7411 RHO_FLUI =SIMP(statut='o',typ='R'),
7412 ENTRO_FLUI =SIMP(statut='o',typ='R'),
7413 BIOT_M =SIMP(statut='o',typ='R'),
7414 C_0 =SIMP(statut='o',typ='R'),
7415 T_R =SIMP(statut='o',typ='R'),
7416 ALPHA_M =SIMP(statut='o',typ='R'),
7417 LAMBDA_T =SIMP(statut='o',typ='R'),
7418 LAMBDA_H =SIMP(statut='o',typ='R'),
7419 SOURCE_INIT =SIMP(statut='o',typ='R'),
7420 OMEGA_0 =SIMP(statut='o',typ='R'),
7422 THM_LIQU =FACT(statut='f',min=0,max=1,
7423 RHO =SIMP(statut='o',typ='R'),
7424 UN_SUR_K =SIMP(statut='f',typ='R'),
7425 ALPHA =SIMP(statut='f',typ='R'),
7426 CP =SIMP(statut='f',typ='R'),
7427 VISC =SIMP(statut='f',typ=fonction),
7428 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7429 LAMBDA =SIMP(statut='f',typ=fonction),
7430 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7431 COEF_HENRY =SIMP(statut='f',typ='R'),
7432 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7434 THM_GAZ =FACT(statut='f',min=0,max=1,
7435 MASS_MOL =SIMP(statut='f',typ='R'),
7436 CP =SIMP(statut='f',typ='R'),
7437 VISC =SIMP(statut='f',typ=fonction),
7438 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7439 LAMBDA =SIMP(statut='f',typ=fonction),
7440 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7441 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7443 THM_VAPE_GAZ =FACT(statut='f',min=0,max=1,
7444 MASS_MOL =SIMP(statut='f',typ='R'),
7445 CP =SIMP(statut='f',typ='R'),
7446 VISC =SIMP(statut='f',typ=fonction),
7447 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7448 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7450 THM_INIT =FACT(statut='f',min=0,max=1,
7451 TEMP =SIMP(statut='o',typ='R'),
7452 PRE1 =SIMP(statut='o',typ='R'),
7453 PRE2 =SIMP(statut='o',typ='R'),
7454 PORO =SIMP(statut='o',typ='R'),
7455 PRES_VAPE =SIMP(statut='o',typ='R'),
7456 DEGR_SATU =SIMP(statut='f',typ='R'),
7457 PRES_ATMO =SIMP(statut='f',typ='R'),
7459 THM_DIFFU =FACT(statut='f',min=0,max=1,
7460 R_GAZ =SIMP(statut='o',typ='R'),
7461 RHO =SIMP(statut='f',typ='R'),
7462 CP =SIMP(statut='f',typ='R'),
7463 BIOT_COEF =SIMP(statut='f',typ='R'),
7464 SATU_PRES =SIMP(statut='f',typ=fonction),
7465 D_SATU_PRES =SIMP(statut='f',typ=fonction),
7466 PESA_X =SIMP(statut='f',typ='R'),
7467 PESA_Y =SIMP(statut='f',typ='R'),
7468 PESA_Z =SIMP(statut='f',typ='R'),
7469 PERM_IN =SIMP(statut='f',typ=fonction),
7470 PERM_LIQU =SIMP(statut='f',typ=fonction),
7471 D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7472 PERM_GAZ =SIMP(statut='f',typ=fonction),
7473 D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7474 D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7475 FICK =SIMP(statut='f',typ=fonction),
7476 D_FICK_TEMP =SIMP(statut='f',typ=fonction),
7477 D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7478 LAMBDA =SIMP(statut='f',typ=fonction),
7479 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7480 SIGMA_T =SIMP(statut='f',typ=fonction),
7481 D_SIGMA_T =SIMP(statut='f',typ=fonction),
7482 PERM_G_INTR =SIMP(statut='f',typ=fonction),
7483 CHAL_VAPO =SIMP(statut='f',typ=fonction),
7484 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7485 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7486 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7487 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7488 VERI_P5 =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7491 # courbes et coefficients associés à la fatigue et au dommage
7493 FATIGUE =FACT(statut='f',min=0,max=1,
7494 regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7495 PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7496 PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7497 ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7498 ENSEMBLE('A0','A1','A2','A3','SL'),
7499 PRESENT_PRESENT('A0','E_REFE'),
7500 ENSEMBLE('D0','TAU0'),),
7501 WOHLER =SIMP(statut='f',typ=fonction),
7502 A_BASQUIN =SIMP(statut='f',typ='R'),
7503 BETA_BASQUIN =SIMP(statut='f',typ='R'),
7504 A0 =SIMP(statut='f',typ='R'),
7505 A1 =SIMP(statut='f',typ='R'),
7506 A2 =SIMP(statut='f',typ='R'),
7507 A3 =SIMP(statut='f',typ='R'),
7508 SL =SIMP(statut='f',typ='R'),
7509 MANSON_COFFIN =SIMP(statut='f',typ=fonction),
7510 E_REFE =SIMP(statut='f',typ='R'),
7511 D0 =SIMP(statut='f',typ='R'),
7512 TAU0 =SIMP(statut='f',typ='R'),
7513 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7514 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7516 DOMMA_LEMAITRE =FACT(statut='f',min=0,max=1,
7517 S =SIMP(statut='o',typ=fonction),
7518 EPSP_SEUIL =SIMP(statut='o',typ='R'),
7519 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7521 CISA_PLAN_CRIT =FACT(statut='f',min=0,max=1,
7522 MATAKE_A =SIMP(statut='o',typ='R'),
7523 MATAKE_B =SIMP(statut='o',typ='R'),
7524 ENDU_FT =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7527 # autres comportements ...
7529 WEIBULL =FACT(statut='f',min=0,max=1,
7530 M =SIMP(statut='o',typ='R'),
7531 VOLU_REFE =SIMP(statut='o',typ='R'),
7532 SIGM_REFE =SIMP(statut='o',typ='R'),
7533 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7535 WEIBULL_FO =FACT(statut='f',min=0,max=1,
7536 M =SIMP(statut='o',typ='R'),
7537 VOLU_REFE =SIMP(statut='o',typ='R'),
7538 SIGM_CNV =SIMP(statut='o',typ='R'),
7539 SIGM_REFE =SIMP(statut='o',typ=fonction),
7540 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7541 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7543 CONTACT =FACT(statut='f',min=0,max=1,
7544 E_N =SIMP(statut='o',typ='R'),
7545 E_T =SIMP(statut='f',typ='R',defaut= 0.E+0),
7546 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0),
7548 NON_LOCAL =FACT(statut='f',min=0,max=1,
7549 LONG_CARA =SIMP(statut='o',typ='R'),
7550 COEF_RIGI_MINI =SIMP(statut='f',typ='R'),
7552 RUPT_FRAG =FACT(statut='f',min=0,max=1,
7553 GC =SIMP(statut='o',typ='R'),
7554 SIGM_C =SIMP(statut='f',typ='R'),
7555 SAUT_C =SIMP(statut='f',typ='R'),
7557 RCCM =FACT(statut='f',min=0,max=1,
7558 SY_02 =SIMP(statut='f',typ='R'),
7559 SM =SIMP(statut='f',typ='R'),
7560 SU =SIMP(statut='f',typ='R'),
7561 SC =SIMP(statut='f',typ='R'),
7562 SH =SIMP(statut='f',typ='R'),
7563 N_KE =SIMP(statut='f',typ='R'),
7564 M_KE =SIMP(statut='f',typ='R'),
7566 RCCM_FO =FACT(statut='f',min=0,max=1,
7567 SY_02 =SIMP(statut='f',typ=fonction),
7568 SM =SIMP(statut='f',typ=fonction),
7569 SU =SIMP(statut='f',typ=fonction),
7570 S =SIMP(statut='f',typ=fonction),
7571 N_KE =SIMP(statut='f',typ=fonction),
7572 M_KE =SIMP(statut='f',typ=fonction),
7573 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7575 LAIGLE =FACT(statut='f',min=0,max=1,
7576 GAMMA_ULT =SIMP(statut='o',typ='R'),
7577 GAMMA_E =SIMP(statut='o',typ='R'),
7578 M_ULT =SIMP(statut='o',typ='R'),
7579 M_E =SIMP(statut='o',typ='R'),
7580 A_E =SIMP(statut='o',typ='R'),
7581 M_PIC =SIMP(statut='o',typ='R'),
7582 A_PIC =SIMP(statut='o',typ='R'),
7583 ETA =SIMP(statut='o',typ='R'),
7584 SIGMA_C =SIMP(statut='o',typ='R'),
7585 GAMMA =SIMP(statut='o',typ='R'),
7586 KSI =SIMP(statut='o',typ='R'),
7587 GAMMA_CJS =SIMP(statut='o',typ='R'),
7588 SIGMA_P1 =SIMP(statut='o',typ='R'),
7589 SIGMA_P2 =SIMP(statut='o',typ='R'),
7590 PA =SIMP(statut='o',typ='R'),
7592 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7594 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7595 # CONFIGURATION MANAGEMENT OF EDF VERSION
7596 # ======================================================================
7597 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7598 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7599 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7600 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7601 # (AT YOUR OPTION) ANY LATER VERSION.
7603 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7604 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7605 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7606 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7608 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7609 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7610 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7611 # ======================================================================
7612 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7613 docu="U4.65.02-d",reentrant='n',
7614 UIinfo={"groupes":("Matrices/vecteurs",)},
7615 SOUS_STRUC =FACT(statut='o',min=1,max='**',
7616 NOM =SIMP(statut='o',typ='TXM' ),
7617 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7618 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
7619 TRANS =SIMP(statut='f',typ='R',max=3),
7621 LIAISON =FACT(statut='o',min=1,max='**',
7622 SOUS_STRUC_1 =SIMP(statut='o',typ='TXM' ),
7623 INTERFACE_1 =SIMP(statut='o',typ='TXM' ),
7624 SOUS_STRUC_2 =SIMP(statut='o',typ='TXM' ),
7625 INTERFACE_2 =SIMP(statut='o',typ='TXM' ),
7627 VERIF =FACT(statut='f',min=1,max='**',
7628 # dans la doc U stop_erreur est obligatoire
7629 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7630 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7631 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7634 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7635 # CONFIGURATION MANAGEMENT OF EDF VERSION
7636 # ======================================================================
7637 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7638 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7639 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7640 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7641 # (AT YOUR OPTION) ANY LATER VERSION.
7643 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7644 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7645 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7646 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7648 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7649 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7650 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7651 # ======================================================================
7652 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=fonction,
7653 fr="Définition des valeurs d une fonction de deux variables réelles",
7654 docu="U4.31.03-g1",reentrant='n',
7655 UIinfo={"groupes":("Fonction",)},
7656 regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7657 EXCLUS('FONCTION','NOM_PARA_FONC',),
7658 ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7659 NOM_PARA =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7660 "AMOR","EPAIS","TSEC","HYDR","SECH",
7661 "SAT", "PGAZ","PCAP"
7663 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7664 PARA =SIMP(statut='o',typ='R',max='**'),
7665 FONCTION =SIMP(statut='f',typ=fonction,max='**' ),
7666 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7667 "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
7668 DEFI_FONCTION =FACT(statut='f',max='**',
7669 VALE =SIMP(statut='o',typ='R',max='**'),
7670 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7671 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7672 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7674 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7675 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7676 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7677 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7678 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7679 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7681 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7682 # CONFIGURATION MANAGEMENT OF EDF VERSION
7683 # ======================================================================
7684 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7685 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7686 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7687 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7688 # (AT YOUR OPTION) ANY LATER VERSION.
7690 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7691 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7692 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7693 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7695 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7696 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7697 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7698 # ======================================================================
7699 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op= 73,sd_prod=obstacle
7700 ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7701 docu="U4.44.21-e",reentrant='n',
7702 UIinfo={"groupes":("Modélisation",)},
7703 TYPE =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7704 into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7705 "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7706 "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7707 "GUID_B_CARTE_900","GUID_C_CARTE_900",
7708 "GUID_D_CARTE_900","GUID_E_CARTE_900",
7709 "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7710 "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7711 "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7712 "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7713 "GUID_B_CARSP_900","GUID_C_CARSP_900",
7714 "GUID_D_CARSP_900","GUID_E_CARSP_900",
7715 "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7716 "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7717 "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7718 "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7719 "GUID_B_GCONT_900","GUID_C_GCONT_900",
7720 "GUID_D_GCONT_900","GUID_E_GCONT_900",
7721 "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7722 "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7723 "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7724 "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7725 "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7726 "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7727 "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7728 "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7729 "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7730 "GUID_F_GCOMB_1300",) ),
7731 VALE =SIMP(statut='f',typ='R',max='**'),
7732 VERIF =SIMP(statut='f',typ='TXM',defaut="FERME"),
7734 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7735 # CONFIGURATION MANAGEMENT OF EDF VERSION
7736 # ======================================================================
7737 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7738 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7739 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7740 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7741 # (AT YOUR OPTION) ANY LATER VERSION.
7743 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7744 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7745 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7746 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7748 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7749 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7750 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7751 # ======================================================================
7752 # RESPONSABLE GNICOLAS G.NICOLAS
7753 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op= 2,sd_prod=para_sensi,
7754 fr="Définition d'un paramètre de sensibilité",
7755 ang="Definition of a sensitive parameter",
7756 docu="U4.31.xx-a",reentrant='n',
7757 UIinfo={"groupes":("Fonction",)},
7758 NOM_RESU =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7759 fr="Nom du concept créé",
7760 ang="Name of the concept"),
7761 VALE =SIMP(statut='o',typ='R',max=1,
7762 fr="Valeur du parametre",
7763 ang="Value of the parameter"),
7764 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7766 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7767 # CONFIGURATION MANAGEMENT OF EDF VERSION
7768 # ======================================================================
7769 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7770 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7771 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7772 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7773 # (AT YOUR OPTION) ANY LATER VERSION.
7775 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7776 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7777 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7778 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7780 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7781 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7782 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7783 # ======================================================================
7784 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7785 fr="Définition d'un spectre d'excitation turbulente",
7786 docu="U4.44.31-c",reentrant='n',
7787 UIinfo={"groupes":("Modélisation",)},
7788 regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7789 'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7790 'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7791 SPEC_LONG_COR_1 =FACT(statut='f',max=1,
7792 LONG_COR =SIMP(statut='o',typ='R' ),
7793 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7794 VISC_CINE =SIMP(statut='o',typ='R' ),
7796 SPEC_LONG_COR_2 =FACT(statut='f',max=1,
7797 regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7798 LONG_COR =SIMP(statut='o',typ='R' ),
7799 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7800 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.1 ),
7801 PHI0 =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7802 BETA =SIMP(statut='f',typ='R',defaut= 2.7 ),
7804 SPEC_LONG_COR_3 =FACT(statut='f',max=1,
7805 regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7806 LONG_COR =SIMP(statut='o',typ='R' ),
7807 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7808 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.2 ),
7809 PHI0_1 =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7810 BETA_1 =SIMP(statut='f',typ='R',defaut= 0.5 ),
7811 PHI0_2 =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7812 BETA_2 =SIMP(statut='f',typ='R',defaut= 3.5 ),
7814 SPEC_LONG_COR_4 =FACT(statut='f',max=1,
7815 regles=(ENSEMBLE('BETA','GAMMA'),),
7816 LONG_COR =SIMP(statut='o',typ='R' ),
7817 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7818 TAUX_VIDE =SIMP(statut='o',typ='R' ),
7819 BETA =SIMP(statut='f',typ='R',defaut= 2. ),
7820 GAMMA =SIMP(statut='f',typ='R',defaut= 4. ),
7822 SPEC_CORR_CONV_1=FACT(statut='f',max=1,
7823 LONG_COR_1 =SIMP(statut='o',typ='R' ),
7824 LONG_COR_2 =SIMP(statut='f',typ='R' ),
7825 VITE_FLUI =SIMP(statut='o',typ='R' ),
7826 RHO_FLUI =SIMP(statut='o',typ='R' ),
7827 FREQ_COUP =SIMP(statut='f',typ='R' ),
7828 K =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7829 D_FLUI =SIMP(statut='o',typ='R' ),
7830 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7831 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7832 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7833 into=("AU_YANG","GENERALE","CORCOS") ),
7835 SPEC_CORR_CONV_2=FACT(statut='f',max=1,
7836 FONCTION =SIMP(statut='o',typ=fonction ),
7837 VITE_FLUI =SIMP(statut='o',typ='R' ),
7838 FREQ_COUP =SIMP(statut='f',typ='R' ),
7839 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7840 into=("AU_YANG","GENERALE","CORCOS",) ),
7841 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7842 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7844 SPEC_FONC_FORME =FACT(statut='f',max=1,
7845 regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7846 ENSEMBLE('INTE_SPEC','FONCTION'),),
7847 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
7848 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
7849 GRAPPE_1 =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7850 NOEUD =SIMP(statut='o',typ=no),
7851 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
7852 MODELE =SIMP(statut='o',typ=modele ),
7854 SPEC_EXCI_POINT =FACT(statut='f',max=1,
7855 regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7856 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
7857 GRAPPE_2 =SIMP(statut='f',typ='TXM',
7858 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7859 # Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7860 b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7861 NATURE =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7862 ANGL =SIMP(statut='o',typ='R',max='**'),
7863 NOEUD =SIMP(statut='o',typ=no,max='**'),
7865 b_grappe_2 =BLOC(condition = "GRAPPE_2 != None",
7866 RHO_FLUI =SIMP(statut='o',typ='R' ),
7867 NOEUD =SIMP(statut='o',typ=no),
7869 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
7870 MODELE =SIMP(statut='o',typ=modele ),
7872 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7874 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7875 # CONFIGURATION MANAGEMENT OF EDF VERSION
7876 # ======================================================================
7877 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7878 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7879 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7880 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7881 # (AT YOUR OPTION) ANY LATER VERSION.
7883 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7884 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7885 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7886 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7888 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7889 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7890 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7891 # ======================================================================
7892 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7893 fr="Définition d un maillage de visualisation",
7894 docu="U4.24.01-e",reentrant='n',
7895 UIinfo={"groupes":("Maillage",)},
7896 regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7897 PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7898 EXCLUS('SOUS_STRUC','SECTEUR'),
7899 PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7900 PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7901 MODE_CYCL =SIMP(statut='f',typ=mode_cycl ),
7902 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
7903 SQUELETTE =SIMP(statut='f',typ=squelette ),
7904 RECO_GLOBAL =FACT(statut='f',min=1,max='**',
7905 regles=(EXCLUS('TOUT','GROUP_NO_1'),
7906 PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7907 PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7908 PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7909 PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7910 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7911 GROUP_NO_1 =SIMP(statut='f',typ=grno),
7912 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
7913 GROUP_NO_2 =SIMP(statut='f',typ=grno),
7914 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
7915 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7916 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7917 DIST_REFE =SIMP(statut='f',typ='R' ),
7919 NOM_GROUP_MA =FACT(statut='f',min=1,max='**',
7920 NOM =SIMP(statut='o',typ='TXM' ),
7921 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
7922 GROUP_MA =SIMP(statut='o',typ=grma),
7924 EXCLUSIF =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7925 MAILLAGE =SIMP(statut='f',typ=maillage ),
7926 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7927 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7928 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7929 TRANS =SIMP(statut='f',typ='R',min=3,max=3),
7930 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
7931 SOUS_STRUC =FACT(statut='f',min=1,max='**',
7932 NOM =SIMP(statut='f',typ='TXM' ),
7933 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7934 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7935 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7937 SECTEUR =FACT(statut='f',min=1,max='**',
7938 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7939 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7940 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7942 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7944 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7945 # CONFIGURATION MANAGEMENT OF EDF VERSION
7946 # ======================================================================
7947 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7948 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7949 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7950 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7951 # (AT YOUR OPTION) ANY LATER VERSION.
7953 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7954 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7955 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7956 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7958 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7959 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7960 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7961 # ======================================================================
7962 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
7963 fr=" ",docu="U4.43.05-a",reentrant='n',
7964 UIinfo={"groupes":("Modélisation",)},
7965 SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
7966 N =SIMP(statut='o',typ='R',min=12,max=12 ),
7967 L =SIMP(statut='o',typ='R',max='**' ),
7969 PLAN =FACT(statut='o',min=40,max=40,
7970 ANGL_NAUT =SIMP(statut='o',typ='R',max='**' ),
7971 PROPORTION =SIMP(statut='o',typ='R' ),
7973 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
7975 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7976 # CONFIGURATION MANAGEMENT OF EDF VERSION
7977 # ======================================================================
7978 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7979 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7980 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7981 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7982 # (AT YOUR OPTION) ANY LATER VERSION.
7984 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7985 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7986 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7987 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7989 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7990 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7991 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7992 # ======================================================================
7993 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
7994 UIinfo={"groupes":("Outils métier",)},
7995 fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
7996 LIST_INST =SIMP(statut='o',typ=listr8),
7997 INST_CC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
7998 INST_CC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7999 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8000 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8001 TEMP_EXT_POSE =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8002 TEMP_EXT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8003 TEMP_RESI_REF =SIMP(statut='f',typ='R',defaut= 20.0E+0),
8004 PARA_COND_1D =FACT(statut='f',min=1,max='**',
8005 INTE_CC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8006 INTE_RENC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8007 A =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8008 SECTION =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
8009 RESI_R0 =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8010 RESI_R1 =SIMP(statut='f',typ='R',defaut= 0.E+0),
8011 RHO_CP =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8012 COEF_H =SIMP(statut='f',typ='R',defaut= 40.0E+0),
8013 TEMP_INIT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8017 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8018 # CONFIGURATION MANAGEMENT OF EDF VERSION
8019 # ======================================================================
8020 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8021 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8022 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8023 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8024 # (AT YOUR OPTION) ANY LATER VERSION.
8026 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8027 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8028 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8029 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8031 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8032 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8033 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8034 # ======================================================================
8035 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
8036 UIinfo={"groupes":("Modélisation",)},
8037 fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
8038 HIST_EXP =FACT(statut='o',min=1,max='**',
8039 VALE =SIMP(statut='o',typ='R',max='**'),
8041 TEMP_MS =FACT(statut='o',min=1,max='**',
8042 SEUIL =SIMP(statut='o',typ='R'),
8043 AKM =SIMP(statut='o',typ='R'),
8044 BKM =SIMP(statut='o',typ='R'),
8045 TPLM =SIMP(statut='o',typ='R'),
8047 GRAIN_AUST =FACT(statut='f',min=1,max='**',
8048 DREF =SIMP(statut='f',typ='R'),
8049 A =SIMP(statut='f',typ='R'),
8052 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8053 # CONFIGURATION MANAGEMENT OF EDF VERSION
8054 # ======================================================================
8055 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8056 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8057 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8058 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8059 # (AT YOUR OPTION) ANY LATER VERSION.
8061 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8062 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8063 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8064 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8066 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8067 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8068 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8069 # ======================================================================
8070 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
8071 if IS != None : return entier
8072 if R8 != None : return reel
8073 if TX != None : return chaine
8074 if C8 != None : return complexe
8075 if LS != None : return liste
8076 raise AsException("type de concept resultat non prevu")
8078 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
8079 fr="Affectation d une valeur à une variable Superviseur",
8080 docu="U4.31.04-f1",reentrant='f',
8081 UIinfo={"groupes":("Fonction",)},
8082 regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
8083 IS =SIMP(statut='f',typ='I',max='**'),
8084 R8 =SIMP(statut='f',typ='R',max='**'),
8085 TX =SIMP(statut='f',typ='TXM',max='**'),
8086 C8 =SIMP(statut='f',typ='C',max='**'),
8087 LS =SIMP(statut='f',typ='L',max='**'),
8089 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8090 # CONFIGURATION MANAGEMENT OF EDF VERSION
8091 # ======================================================================
8092 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8093 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8094 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8095 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8096 # (AT YOUR OPTION) ANY LATER VERSION.
8098 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8099 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8100 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8101 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8103 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8104 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8105 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8106 # ======================================================================
8107 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
8108 UIinfo={"groupes":("Gestion du travail",)},
8109 fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
8110 IMPRESSION =FACT(statut='o',min=1,max='**',
8111 NOM =SIMP(statut='o',typ='TXM',max='**'),
8112 UNITE =SIMP(statut='o',typ='I' ),
8115 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8116 # CONFIGURATION MANAGEMENT OF EDF VERSION
8117 # ======================================================================
8118 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8119 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8120 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8121 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8122 # (AT YOUR OPTION) ANY LATER VERSION.
8124 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8125 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8126 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8127 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8129 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8130 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8131 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8132 # ======================================================================
8133 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
8134 UIinfo={"groupes":("Matrices/vecteurs",)},
8135 fr="Récupération du champ de déplacement interne à une sous-structure",
8136 DEPL_GLOBAL =SIMP(statut='o',typ=cham_no_depl_r),
8137 MAILLE =SIMP(statut='o',typ=ma,max=1),
8138 NOM_CAS =SIMP(statut='f',typ='TXM',defaut=" "),
8140 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8141 # CONFIGURATION MANAGEMENT OF EDF VERSION
8142 # ======================================================================
8143 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8144 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8145 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8146 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8147 # (AT YOUR OPTION) ANY LATER VERSION.
8149 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8150 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8151 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8152 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8154 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8155 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8156 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8157 # ======================================================================
8158 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
8159 UIinfo={"groupes":("Gestion du travail",)},
8160 fr="Destruction d un concept utilisateur dans la base GLOBALE",
8161 op_init=ops.detruire,
8162 CONCEPT =FACT(statut='o',min=01,
8163 NOM =SIMP(statut='o',typ=assd,max='**'),
8166 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8167 # CONFIGURATION MANAGEMENT OF EDF VERSION
8168 # ======================================================================
8169 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8170 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8171 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8172 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8173 # (AT YOUR OPTION) ANY LATER VERSION.
8175 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8176 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8177 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8178 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8180 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8181 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8182 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8183 # ======================================================================
8184 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
8185 UIinfo={"groupes":("Outils métier",)},
8186 fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
8187 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
8188 UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
8189 MODELE =SIMP(statut='o',typ=modele),
8190 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
8191 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
8192 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
8193 INST =SIMP(statut='f',typ='R',max='**'),
8194 LIST_INST =SIMP(statut='f',typ=listr8),
8195 LIST_ORDRE =SIMP(statut='f',typ=listis),
8196 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8197 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8198 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
8199 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
8200 POIN_FIXE =SIMP(statut='f',typ='R',min=3,max=3),
8201 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8203 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8204 # CONFIGURATION MANAGEMENT OF EDF VERSION
8205 # ======================================================================
8206 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8207 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8208 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8209 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8210 # (AT YOUR OPTION) ANY LATER VERSION.
8212 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8213 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8214 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8215 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8217 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8218 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8219 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8220 # ======================================================================
8221 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8222 ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8223 docu="U4.53.22-d",reentrant='n',
8224 UIinfo={"groupes":("Résolution",)},
8225 BASE_MODALE =FACT(statut='o',min=1,max=1,
8226 regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8227 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
8228 BANDE =SIMP(statut='f',typ='R',max=2),
8229 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
8230 b_bande =BLOC(condition = "BANDE != None",
8231 AMOR_UNIF =SIMP(statut='o',typ='R' ),
8233 b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8234 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8237 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8238 EXCIT =FACT(statut='o',min=1,max=1,
8239 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
8240 EXCLUS('CHAM_NO','NOEUD'),),
8241 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8242 MODAL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8243 # dans la doc U il y a plus de choix pour GRANDEUR
8244 GRANDEUR =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8245 into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8246 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
8247 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
8248 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8249 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8250 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**'),
8251 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
8252 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
8253 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**'),
8255 b_noeud_i =BLOC(condition = "NOEUD_I != None",
8256 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
8257 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**'),
8258 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**'),
8260 CHAM_NO =SIMP(statut='f',typ=cham_no),
8261 NOEUD =SIMP(statut='f',typ=no,max='**'),
8262 b_noeud =BLOC(condition = "NOEUD != None",
8263 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
8266 REPONSE =FACT(statut='f',min=1,max=1,
8267 # regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
8268 # EXCLUS('FREQ_MIN','FREQ_EXCIT'),
8269 regles=(ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8270 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8271 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8272 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8273 FREQ_MIN =SIMP(statut='f',typ='R' ),
8274 FREQ_MAX =SIMP(statut='f',typ='R' ),
8275 PAS =SIMP(statut='f',typ='R' ),
8276 FREQ_EXCIT =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8277 NB_POIN_MODE =SIMP(statut='f',typ='I',defaut= 50 ),
8279 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8280 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8282 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8283 # CONFIGURATION MANAGEMENT OF EDF VERSION
8284 # ======================================================================
8285 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8286 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8287 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8288 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8289 # (AT YOUR OPTION) ANY LATER VERSION.
8291 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8292 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8293 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8294 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8296 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8297 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8298 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8299 # ======================================================================
8300 def dyna_line_harm_prod(MATR_MASS,**args):
8301 if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8302 if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8303 if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8304 if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8305 raise AsException("type de concept resultat non prevu")
8307 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op= 60,sd_prod=dyna_line_harm_prod,
8308 fr="Réponse dynamique complexe d un système à une excitation harmonique",
8309 docu="U4.53.11-e",reentrant='n',
8310 UIinfo={"groupes":("Résolution",)},
8311 regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8312 PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8313 PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8314 UN_PARMI('FREQ','LIST_FREQ'),),
8315 MODELE =SIMP(statut='f',typ=modele ),
8316 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
8317 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
8318 MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8319 MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8320 ,matr_asse_gene_r,matr_asse_gene_c ) ),
8321 MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8322 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8323 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
8324 MATR_IMPE_PHI =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8325 FREQ =SIMP(statut='f',typ='R',max='**'),
8326 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
8327 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",)),
8328 NOM_CHAM =SIMP(statut='f',typ='TXM',max=3,into=("DEPL","VITE","ACCE") ),
8329 EXCIT =FACT(statut='o',min=1,max='**',
8330 regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8331 UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8332 VECT_ASSE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8333 CHARGE =SIMP(statut='f',typ=char_meca ),
8334 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8335 FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
8336 COEF_MULT_C =SIMP(statut='f',typ='C' ),
8337 FONC_MULT =SIMP(statut='f',typ=fonction ),
8338 COEF_MULT =SIMP(statut='f',typ='R' ),
8339 PHAS_DEG =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8340 PUIS_PULS =SIMP(statut='f',typ='I',defaut= 0 ),
8342 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8343 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8344 fr="Liste des paramètres de sensibilité.",
8345 ang="List of sensitivity parameters"),
8347 # Rajouter test icompatibilite vect_asse et sensibilite
8348 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8349 # presents dans le Fortran
8350 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8351 # CONFIGURATION MANAGEMENT OF EDF VERSION
8352 # ======================================================================
8353 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8354 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8355 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8356 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8357 # (AT YOUR OPTION) ANY LATER VERSION.
8359 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8360 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8361 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8362 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8364 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8365 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8366 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8367 # ======================================================================
8368 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op= 48,sd_prod=dyna_trans,
8369 fr="Réponse temporelle d un système à une excitation transitoire",
8370 docu="U4.53.02-g1",reentrant='f',
8371 UIinfo={"groupes":("Résolution",)},
8372 # regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8373 regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8374 MODELE =SIMP(statut='f',typ=modele ),
8375 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
8376 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
8377 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r ),
8378 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
8379 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
8380 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8381 NEWMARK =FACT(statut='f',min=1,max=1,
8382 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25 ),
8383 DELTA =SIMP(statut='f',typ='R',defaut= 0.5 ),
8385 WILSON =FACT(statut='f',min=1,max=1,
8386 THETA =SIMP(statut='f',typ='R',defaut= 1.4 ),
8388 DIFF_CENTRE =FACT(statut='f',min=1,max=1,
8390 ADAPT =FACT(statut='f',min=1,max=1,
8392 ETAT_INIT =FACT(statut='f',min=1,max=1,
8393 regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8394 PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8395 DYNA_TRANS =SIMP(statut='f',typ=dyna_trans ),
8396 b_dyna_trans =BLOC(condition = "DYNA_TRANS != None",
8397 regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8398 NUME_INIT =SIMP(statut='f',typ='I' ),
8399 INST_INIT =SIMP(statut='f',typ='R' ),
8400 b_inst_init =BLOC(condition = "INST_INIT != None",
8401 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8402 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8405 DEPL_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
8406 VITE_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
8408 EXCIT =FACT(statut='f',min=1,max='**',
8409 regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8410 EXCLUS('CHARGE','COEF_MULT'),
8411 EXCLUS('FONC_MULT','COEF_MULT'),
8412 EXCLUS('ACCE','COEF_MULT'),
8413 PRESENT_ABSENT('ACCE','FONC_MULT'),
8414 PRESENT_PRESENT('ACCE','VITE','DEPL'),
8415 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8416 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
8417 CHARGE =SIMP(statut='f',typ=char_meca ),
8418 FONC_MULT =SIMP(statut='f',typ=fonction ),
8419 COEF_MULT =SIMP(statut='f',typ='R' ),
8420 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8421 ACCE =SIMP(statut='f',typ=fonction ),
8422 VITE =SIMP(statut='f',typ=fonction ),
8423 DEPL =SIMP(statut='f',typ=fonction ),
8424 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8425 DIRECTION =SIMP(statut='f',typ='R',max='**'),
8426 NOEUD =SIMP(statut='f',typ=no,max='**'),
8427 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8429 AMOR_MODAL =FACT(statut='f',min=1,max=1,
8430 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
8431 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8432 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
8433 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8435 # ce n est pas le mot clesolveur standard
8436 SOLVEUR =FACT(statut='d',min=1,max=1,
8437 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8438 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8439 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8440 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8441 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8443 INCREMENT =FACT(statut='o',min=1,max='**',
8444 regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8445 LIST_INST =SIMP(statut='f',typ=listr8 ),
8446 FONC_INST =SIMP(statut='f',typ=fonction ),
8447 PAS =SIMP(statut='f',typ='R' ),
8448 b_pas =BLOC(condition = "PAS != None",
8449 INST_INIT =SIMP(statut='f',typ='R' ),
8450 INST_FIN =SIMP(statut='f',typ='R' ),
8452 b_list_fonc =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8453 regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8454 NUME_FIN =SIMP(statut='f',typ='I' ),
8455 INST_FIN =SIMP(statut='f',typ='R' ),
8457 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8458 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
8459 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8460 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8461 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8462 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
8463 PAS_CALCUL =SIMP(statut='f',typ='I',defaut= 1 ),
8465 ARCHIVAGE =FACT(statut='f',min=1,max=1,
8466 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8467 LIST_ARCH =SIMP(statut='f',typ=listis ),
8468 PAS_ARCH =SIMP(statut='f',typ='I' ),
8469 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8471 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8472 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
8474 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8475 # CONFIGURATION MANAGEMENT OF EDF VERSION
8476 # ======================================================================
8477 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8478 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8479 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8480 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8481 # (AT YOUR OPTION) ANY LATER VERSION.
8483 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8484 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8485 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8486 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8488 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8489 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8490 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8491 # ======================================================================
8492 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8493 fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
8494 UIinfo={"groupes":("Résolution",)},
8495 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8496 UN_PARMI('NEWMARK','HHT', ),),
8497 MODELE =SIMP(statut='o',typ=modele),
8498 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
8499 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8500 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8501 EXCIT =FACT(statut='o',min=1,max='**',
8502 regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8503 PRESENT_PRESENT('ACCE','VITE','DEPL'),
8504 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8505 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8506 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8507 CHARGE =SIMP(statut='o',typ=char_meca),
8508 FONC_MULT =SIMP(statut='f',typ=fonction),
8509 DEPL =SIMP(statut='f',typ=fonction),
8510 ACCE =SIMP(statut='f',typ=fonction),
8511 VITE =SIMP(statut='f',typ=fonction),
8512 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8513 DIRECTION =SIMP(statut='f',typ='R',max='**'),
8514 NOEUD =SIMP(statut='f',typ=no,max='**'),
8515 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8517 AMOR_MODAL =FACT(statut='f',min=1,max=1,
8518 MODE_MECA =SIMP(statut='f',typ=mode_meca),
8519 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**' ),
8520 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
8521 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8523 VARI_COMM =FACT(statut='f',
8524 regles=(AU_MOINS_UN('IRRA',),),
8525 IRRA =SIMP(statut='f',typ=evol_varc),
8527 COMP_INCR =FACT(statut='f',min=1,max='**',
8528 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8616 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8617 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8618 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8619 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8620 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8621 LABORD_1D =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8622 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8623 ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8624 MAZARS =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8625 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8626 BARENBLATT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8627 META_P_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8628 META_P_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8629 META_P_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8630 META_P_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8631 META_V_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8632 META_V_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8633 META_V_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8634 META_V_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8635 META_P_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8636 META_P_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8637 META_P_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8638 META_P_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8639 META_V_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8640 META_V_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8641 META_V_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8642 META_V_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8643 META_P_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8644 META_P_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8645 META_P_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8646 META_P_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8647 META_V_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8648 META_V_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8649 META_V_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8650 META_V_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8651 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8652 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8653 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8654 VISC_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8655 VISC_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8656 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8657 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8658 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8659 ROUSSELIER =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8660 ROUSS_PR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8661 ROUSS_VISC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8662 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8663 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8664 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8665 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8666 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8667 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8668 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8669 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8670 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8671 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8672 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8673 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8674 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8675 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8676 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8677 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8678 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8679 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8680 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8681 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8682 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8683 CAM_CLAY =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8684 LAIGLE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8685 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8686 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8687 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8688 GRANGER_FD =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8689 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8690 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8691 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8692 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8693 KIT_THV =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8694 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8695 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8696 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8698 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
8739 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8740 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8741 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8742 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8743 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8744 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8745 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8746 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8747 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8748 LIQU_VAPE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8749 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8750 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8751 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8752 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8753 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8754 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8755 ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8756 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8758 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8759 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8760 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8761 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8762 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8763 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8765 COMP_ELAS =FACT(statut='f',min=1,max='**',
8766 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
8767 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8768 "ELAS_POUTRE_GR","CABLE")),
8769 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8770 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8771 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8772 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8773 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8774 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8775 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8776 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8777 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8778 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8780 #-------------------------------------------------------------------
8781 ETAT_INIT =FACT(statut='f',min=1,max=1,
8782 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8783 EXCLUS('EVOL_NOLI','DEPL',),
8784 EXCLUS('EVOL_NOLI','VITE'),
8785 EXCLUS('EVOL_NOLI','SIGM',),
8786 EXCLUS('EVOL_NOLI','VARI',),
8787 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8788 EXCLUS('NUME_ORDRE','INST'), ),
8789 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
8790 VITE =SIMP(statut='f',typ=cham_no_depl_r),
8791 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8792 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
8793 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
8794 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
8795 NUME_ORDRE =SIMP(statut='f',typ='I'),
8796 INST =SIMP(statut='f',typ='R'),
8797 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8798 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8799 NUME_DIDI =SIMP(statut='f',typ='I'),
8800 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
8802 #-------------------------------------------------------------------
8803 INCREMENT =FACT(statut='o',min=1,max=1,
8804 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8805 EXCLUS('NUME_INST_FIN','INST_FIN'),),
8806 LIST_INST =SIMP(statut='o',typ=listr8),
8807 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8808 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8809 NUME_INST_INIT =SIMP(statut='f',typ='I'),
8810 INST_INIT =SIMP(statut='f',typ='R'),
8811 NUME_INST_FIN =SIMP(statut='f',typ='I'),
8812 INST_FIN =SIMP(statut='f',typ='R'),
8813 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8814 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
8815 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
8816 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8817 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8818 NOM_CHAM =SIMP(statut='f',typ='TXM',),
8819 NOM_CMP =SIMP(statut='f',typ='TXM',),
8820 VALE =SIMP(statut='f',typ='R'),
8822 #-------------------------------------------------------------------
8823 NEWMARK =FACT(statut='f',min=1,max=1,
8824 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25),
8825 DELTA =SIMP(statut='f',typ='R',defaut= 0.5),
8827 HHT =FACT(statut='f',min=1,max=1,
8828 ALPHA =SIMP(statut='f',typ='R'
8829 ,defaut= -0.29999999999999999 ),
8831 NEWTON =FACT(statut='d',min=1,max=1,
8832 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
8833 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8834 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8835 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
8836 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
8838 SOLVEUR =FACT(statut='d',min=1,max=1,
8839 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8840 b_mult_front =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8841 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8843 b_ldlt =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8844 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8846 b_ldlt_mult =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8847 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8848 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8849 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8851 b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8852 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8853 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8854 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8855 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8856 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8858 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8859 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8861 #-------------------------------------------------------------------
8862 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
8863 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8864 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
8866 PILOTAGE =FACT(statut='f',min=1,max=1,
8867 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8868 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8869 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8870 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
8871 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
8872 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8873 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8874 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8875 NOEUD =SIMP(statut='f',typ=no,max='**'),
8876 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8877 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
8879 CONVERGENCE =FACT(statut='d',min=1,max=1,
8880 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
8881 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
8882 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
8883 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
8884 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
8885 RESI_INTE_RELA =SIMP(statut='f',typ='R'
8887 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
8888 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
8889 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8890 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8891 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8893 #-------------------------------------------------------------------
8894 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8895 into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8896 ARCHIVAGE =FACT(statut='f',min=1,max=1,
8897 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8898 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8899 LIST_INST =SIMP(statut='f',typ=(listr8) ),
8900 INST =SIMP(statut='f',typ='R',max='**' ),
8901 PAS_ARCH =SIMP(statut='f',typ='I' ),
8902 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8903 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8904 NUME_INIT =SIMP(statut='f',typ='I'),
8905 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
8906 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',
8907 into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8909 OBSERVATION =FACT(statut='f',min=1,max='**',
8910 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8911 PRESENT_PRESENT('MAILLE','POINT'),),
8912 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
8914 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8915 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
8916 LIST_ARCH =SIMP(statut='f',typ=listis),
8917 LIST_INST =SIMP(statut='f',typ=listr8),
8918 INST =SIMP(statut='f',typ='R',max='**' ),
8919 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8920 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8921 PAS_OBSE =SIMP(statut='f',typ='I'),
8922 NOEUD =SIMP(statut='f',typ=no,max='**'),
8923 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8924 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8925 POINT =SIMP(statut='f',typ='I',max='**'),
8927 #-------------------------------------------------------------------
8928 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
8929 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8930 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8931 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8933 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8934 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8936 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8937 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8938 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8939 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8941 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8942 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8943 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8944 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8945 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8947 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8949 LAGR_NON_LOCAL =FACT(statut='f',max=1,
8950 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
8951 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
8952 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
8953 R =SIMP(statut='f',typ='R',defaut= 1000.),
8954 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
8956 #-------------------------------------------------------------------
8957 PARM_THETA =SIMP(statut='f',typ='R'
8959 #-------------------------------------------------------------------
8960 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8961 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8963 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8964 # CONFIGURATION MANAGEMENT OF EDF VERSION
8965 # ======================================================================
8966 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8967 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8968 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8969 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8970 # (AT YOUR OPTION) ANY LATER VERSION.
8972 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8973 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8974 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8975 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8977 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8978 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8979 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8980 # ======================================================================
8981 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
8982 fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
8983 docu="U4.53.23-c",reentrant='n',
8984 UIinfo={"groupes":("Résolution",)},
8985 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
8986 EXCIT =FACT(statut='o',max=1,
8987 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
8989 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8990 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8992 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8993 # CONFIGURATION MANAGEMENT OF EDF VERSION
8994 # ======================================================================
8995 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8996 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8997 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8998 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8999 # (AT YOUR OPTION) ANY LATER VERSION.
9001 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9002 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9003 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9004 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9006 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9007 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9008 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9009 # ======================================================================
9010 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
9011 fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
9012 docu="U4.53.21-f1",reentrant='f',
9013 UIinfo={"groupes":("Résolution",)},
9014 regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
9015 PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
9016 METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
9017 into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
9018 MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
9019 RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
9020 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
9021 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9022 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
9023 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
9024 MODE_CORR =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
9026 ETAT_INIT =FACT(statut='f',min=1,max=1,
9027 regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
9028 EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
9029 RESU_GENE =SIMP(statut='f',typ=tran_gene ),
9030 b_resu_gene =BLOC(condition = "RESU_GENE != None",
9031 INST_INIT =SIMP(statut='f',typ='R' ),
9032 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9033 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9035 DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9036 VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9038 INCREMENT =FACT(statut='o',min=1,max='**',
9039 INST_INIT =SIMP(statut='f',typ='R' ),
9040 INST_FIN =SIMP(statut='o',typ='R' ),
9041 PAS =SIMP(statut='f',typ='R' ),
9042 VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9043 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9044 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
9045 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
9046 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
9047 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9048 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
9050 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9051 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
9052 LIST_ARCH =SIMP(statut='f',typ=listis ),
9053 PAS_ARCH =SIMP(statut='f',typ='I' ),
9056 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
9057 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9058 LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
9060 EXCIT =FACT(statut='f',min=1,max='**',
9061 regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
9062 PRESENT_PRESENT('ACCE','VITE','DEPL'),
9063 PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
9064 PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
9065 EXCLUS('MULT_APPUI','CORR_STAT'),
9066 PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
9067 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9068 VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9069 NUME_MODE =SIMP(statut='f',typ='I' ),
9070 FONC_MULT =SIMP(statut='f',typ=fonction ),
9071 COEF_MULT =SIMP(statut='f',typ='R' ),
9072 ACCE =SIMP(statut='f',typ=fonction ),
9073 VITE =SIMP(statut='f',typ=fonction ),
9074 DEPL =SIMP(statut='f',typ=fonction ),
9075 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9076 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9077 b_loca =BLOC(condition= "DIRECTION != None",
9078 regles=(EXCLUS('NOEUD','GROUP_NO'),),
9079 NOEUD =SIMP(statut='f',typ=no,max='**'),
9080 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9082 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9083 D_FONC_DT =SIMP(statut='f',typ=fonction ),
9084 D_FONC_DT2 =SIMP(statut='f',typ=fonction ),
9086 CHOC =FACT(statut='f',min=1,max='**',
9087 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
9088 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9089 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9090 INTITULE =SIMP(statut='f',typ='TXM' ),
9091 NOEUD_1 =SIMP(statut='f',typ=no),
9092 NOEUD_2 =SIMP(statut='f',typ=no),
9093 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9094 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9095 OBSTACLE =SIMP(statut='o',typ=obstacle ),
9096 ORIG_OBST =SIMP(statut='f',typ='R',min=3,max=3),
9097 NORM_OBST =SIMP(statut='o',typ='R',min=3,max=3),
9098 ANGL_VRIL =SIMP(statut='f',typ='R' ),
9099 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
9100 DIST_1 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9101 DIST_2 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9102 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
9103 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
9104 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9105 RIGI_NOR =SIMP(statut='f',typ='R' ),
9106 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9107 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9108 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9109 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9111 LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9112 b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
9113 ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9114 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9115 CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9116 DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9119 VERI_CHOC =FACT(statut='f',min=1,max='**',
9120 STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9121 SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
9123 FLAMBAGE =FACT(statut='f',min=1,max='**',
9124 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9125 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9126 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9127 NOEUD_1 =SIMP(statut='f',typ=no),
9128 NOEUD_2 =SIMP(statut='f',typ=no),
9129 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9130 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9131 OBSTACLE =SIMP(statut='o',typ=obstacle ),
9132 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
9133 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
9134 ANGL_VRIL =SIMP(statut='f',typ='R' ),
9135 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
9136 DIST_1 =SIMP(statut='f',typ='R' ),
9137 DIST_2 =SIMP(statut='f',typ='R' ),
9138 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9139 RIGI_NOR =SIMP(statut='f',typ='R' ),
9140 FNOR_CRIT =SIMP(statut='f',typ='R' ),
9141 FNOR_POST_FL =SIMP(statut='f',typ='R' ),
9142 RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
9144 ANTI_SISM =FACT(statut='f',min=1,max='**',
9145 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9146 UN_PARMI('NOEUD_2','GROUP_NO_2'),
9147 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9148 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9149 NOEUD_1 =SIMP(statut='f',typ=no),
9150 NOEUD_2 =SIMP(statut='f',typ=no),
9151 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9152 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9153 RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9154 RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9155 SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9156 C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9157 PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9158 DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
9160 RELA_EFFO_DEPL =FACT(statut='f',min=1,max='**',
9161 NOEUD =SIMP(statut='o',typ=no),
9162 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9163 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9164 RELATION =SIMP(statut='o',typ=fonction ),
9166 RELA_TRANSIS =FACT(statut='f',min=1,max='**',
9167 NOEUD =SIMP(statut='o',typ=no),
9168 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9169 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9170 RELATION =SIMP(statut='o',typ=fonction ),
9172 RELA_EFFO_VITE =FACT(statut='f',min=1,max='**',
9173 NOEUD =SIMP(statut='o',typ=no),
9174 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9175 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9176 RELATION =SIMP(statut='o',typ=fonction ),
9178 b_itmi =BLOC(condition = "METHODE=='ITMI'",
9179 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
9180 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
9181 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9182 ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9183 PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9184 CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9185 NB_MODE =SIMP(statut='f',typ='I' ),
9186 NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
9187 NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
9188 TS_REG_ETAB =SIMP(statut='f',typ='R' ),
9190 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9191 IMPRESSION =FACT(statut='f',min=1,max='**',
9192 regles=(EXCLUS('TOUT','NIVEAU'),),
9193 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9194 NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
9195 INST_INIT =SIMP(statut='f',typ='R' ),
9196 INST_FIN =SIMP(statut='f',typ='R' ),
9198 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9200 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9201 # CONFIGURATION MANAGEMENT OF EDF VERSION
9202 # ======================================================================
9203 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9204 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9205 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9206 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9207 # (AT YOUR OPTION) ANY LATER VERSION.
9209 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9210 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9211 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9212 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9214 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9215 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9216 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9217 # ======================================================================
9218 # RESPONSABLE VABHHTS J.PELLET
9219 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9220 UIinfo={"groupes":("Impression",)},
9221 regles=(UN_PARMI('TOUT','CO'),),
9222 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9223 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9224 CO =SIMP(statut='f',typ=assd,max='**'),
9225 TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9226 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9227 PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9229 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9230 # CONFIGURATION MANAGEMENT OF EDF VERSION
9231 # ======================================================================
9232 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9233 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9234 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9235 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9236 # (AT YOUR OPTION) ANY LATER VERSION.
9238 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9239 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9240 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9241 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9243 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9244 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9245 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9246 # ======================================================================
9247 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9248 UIinfo={"groupes":("Impression",)},
9249 LOGICIEL =SIMP(statut='f',typ='TXM' ),
9250 ARGUMENT =FACT(statut='f',min=1,max='**',
9251 NOM_PARA =SIMP(statut='f',typ='TXM' ),
9254 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9255 # CONFIGURATION MANAGEMENT OF EDF VERSION
9256 # ======================================================================
9257 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9258 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9259 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9260 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9261 # (AT YOUR OPTION) ANY LATER VERSION.
9263 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9264 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9265 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9266 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9268 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9269 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9270 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9271 # ======================================================================
9272 def extr_mode_prod(FILTRE_MODE,**args):
9273 vale=FILTRE_MODE[0]['MODE']
9274 if AsType(vale) == mode_meca : return mode_meca
9275 if AsType(vale) == mode_meca_c : return mode_meca_c
9276 if AsType(vale) == mode_gene : return mode_gene
9277 raise AsException("type de concept resultat non prevu")
9279 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9280 docu="U4.52.12-c",reentrant='n',
9281 UIinfo={"groupes":("Résolution",)},
9282 FILTRE_MODE =FACT(statut='o',min=1,max='**',
9283 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9284 MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9285 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9286 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9287 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9288 NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9289 FREQ_MIN =SIMP(statut='f',typ='R' ),
9290 CRIT_EXTR =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
9291 b_freq_min =BLOC(condition = "FREQ_MIN != None",
9292 FREQ_MAX =SIMP(statut='o',typ='R' ),
9293 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9295 b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
9296 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9299 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9300 IMPRESSION =FACT(statut='f',min=1,max=1,
9301 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9302 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9305 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9306 # CONFIGURATION MANAGEMENT OF EDF VERSION
9307 # ======================================================================
9308 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9309 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9310 # REDISTRIBUTION OF THIS FILE.
9311 # ======================================================================
9312 def extr_resu_prod(RESULTAT,**args):
9313 if AsType(RESULTAT) == evol_elas : return evol_elas
9314 if AsType(RESULTAT) == evol_noli : return evol_noli
9315 if AsType(RESULTAT) == evol_ther : return evol_ther
9316 if AsType(RESULTAT) == dyna_trans : return dyna_trans
9317 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
9318 if AsType(RESULTAT) == acou_harmo : return acou_harmo
9319 if AsType(RESULTAT) == mode_meca : return mode_meca
9320 if AsType(RESULTAT) == mode_acou : return mode_acou
9321 if AsType(RESULTAT) == mode_stat : return mode_stat
9322 if AsType(mode_stat) == mode_stat_depl : return mode_stat_depl
9323 if AsType(mode_stat) == mode_stat_acce : return mode_stat_acce
9324 if AsType(mode_stat) == mode_stat_forc : return mode_stat_forc
9325 if AsType(RESULTAT) == mult_elas : return mult_elas
9326 if AsType(RESULTAT) == fourier_elas : return fourier_elas
9327 raise AsException("type de concept resultat non prevu")
9329 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
9330 UIinfo={"groupes":("Résultats et champs",)},
9331 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9332 mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9333 mult_elas,fourier_elas ) ),
9335 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9336 fr="Liste des paramètres de sensibilité.",
9337 ang="List of sensitivity parameters"),
9339 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9340 regles=( UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9341 'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9342 'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9343 EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ), ),
9344 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**'),
9345 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
9346 PRECISION =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9347 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9348 LIST_ARCH =SIMP(statut='f',typ=listis),
9349 PAS_ARCH =SIMP(statut='f',typ='I'),
9350 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9351 LIST_ORDRE =SIMP(statut='f',typ=listis),
9352 INST =SIMP(statut='f',typ='R',max='**'),
9353 LIST_INST =SIMP(statut='f',typ=listr8),
9354 FREQ =SIMP(statut='f',typ='R',max='**'),
9355 LIST_FREQ =SIMP(statut='f',typ=listr8),
9356 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9357 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
9358 NOM_CAS =SIMP(statut='f',typ='TXM'),
9361 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9363 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9364 # CONFIGURATION MANAGEMENT OF EDF VERSION
9365 # ======================================================================
9366 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9367 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9368 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9369 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9370 # (AT YOUR OPTION) ANY LATER VERSION.
9372 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9373 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9374 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9375 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9377 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9378 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9379 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9380 # ======================================================================
9381 def fact_grad_prod(MATR_ASSE,**args):
9382 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9383 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9384 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9385 raise AsException("type de concept resultat non prevu")
9387 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
9388 UIinfo={"groupes":("Résolution",)},
9389 fr="Préconditionnement pour résolution par gradient conjugué",
9391 MATR_ASSE =SIMP(statut='o',
9392 typ=(matr_asse_depl_r,matr_asse_temp_r,
9393 matr_asse_pres_r) ),
9394 PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9395 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9396 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
9398 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9399 # CONFIGURATION MANAGEMENT OF EDF VERSION
9400 # ======================================================================
9401 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9402 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9403 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9404 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9405 # (AT YOUR OPTION) ANY LATER VERSION.
9407 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9408 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9409 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9410 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9412 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9413 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9414 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9415 # ======================================================================
9416 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9417 fr="Factorisation d une matrice interspectrale hermitienne",
9418 docu="U4.36.04-e",reentrant='n',
9419 UIinfo={"groupes":("Fonction",)},
9420 regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9421 # regle non indiquée dans la doc U
9422 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
9423 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9424 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9425 FREQ_FIN =SIMP(statut='f',typ='R' ),
9426 NB_POIN =SIMP(statut='f',typ='I',defaut= 0 ),
9427 SUR_ECHAN =SIMP(statut='f',typ='R',defaut= 1. ),
9428 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9430 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9431 # CONFIGURATION MANAGEMENT OF EDF VERSION
9432 # ======================================================================
9433 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9434 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9435 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9436 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9437 # (AT YOUR OPTION) ANY LATER VERSION.
9439 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9440 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9441 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9442 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9444 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9445 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9446 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9447 # ======================================================================
9448 # RESPONSABLE VABHHTS J.PELLET
9449 def fact_ldlt_prod(MATR_ASSE,**args):
9450 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9451 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9452 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9453 if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9454 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9455 if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9456 raise AsException("type de concept resultat non prevu")
9458 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9459 docu="U4.55.01-f",reentrant='f',
9460 UIinfo={"groupes":("Résolution",)},
9461 regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9462 EXCLUS('BLOC_FIN','DDL_FIN'),),
9463 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9464 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9465 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9466 NPREC =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9467 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9468 BLOC_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
9469 DDL_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
9470 BLOC_FIN =SIMP(statut='f',typ='I',val_min=1,),
9471 DDL_FIN =SIMP(statut='f',typ='I',val_min=1,),
9473 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9475 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9476 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
9478 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9479 # CONFIGURATION MANAGEMENT OF EDF VERSION
9480 # ======================================================================
9481 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9482 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9483 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9484 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9485 # (AT YOUR OPTION) ANY LATER VERSION.
9487 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9488 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9489 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9490 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9492 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9493 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9494 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9495 # ======================================================================
9497 FERMER=PROC(nom="FERMER",op= 10,fr=" ",
9499 UIinfo={"groupes":("Gestion du travail",)},
9500 UNITE =SIMP(statut='o',typ='I',max='**' ),
9502 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9503 # CONFIGURATION MANAGEMENT OF EDF VERSION
9504 # ======================================================================
9505 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9506 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9507 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9508 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9509 # (AT YOUR OPTION) ANY LATER VERSION.
9511 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9512 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9513 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9514 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9516 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9517 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9518 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9519 # ======================================================================
9520 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9522 UIinfo={"groupes":("Gestion du travail",)},
9523 RETASSAGE =SIMP(fr="provoque le retassage de la base GLOBALE",
9524 statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9525 PERFORMANCE =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9526 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9527 INFO_RESU =SIMP(fr="provoque l'impression des informations sur les structures de données",
9528 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9529 FICHIER =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9531 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9532 # CONFIGURATION MANAGEMENT OF EDF VERSION
9533 # ======================================================================
9534 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9538 # (AT YOUR OPTION) ANY LATER VERSION.
9540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9547 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9548 # ======================================================================
9549 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9550 docu="U4.35.02-c",reentrant='n',
9551 UIinfo={"groupes":("Fonction",)},
9552 TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
9554 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9555 # CONFIGURATION MANAGEMENT OF EDF VERSION
9556 # ======================================================================
9557 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9558 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9559 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9560 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9561 # (AT YOUR OPTION) ANY LATER VERSION.
9563 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9564 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9565 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9566 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9568 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9569 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9570 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9571 # ======================================================================
9572 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9573 fr="Définition d une fonction",reentrant = 'n',
9574 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9575 REEL = SIMP(typ = 'shell',max=1),
9576 ENTIER = SIMP(typ = 'shell',max=1),
9577 COMPLEXE = SIMP(typ = 'shell',max=1),
9579 #& MODIF COMMANDE DATE 17/09/2001 AUTEUR MCOURTOI M.COURTOIS
9580 # CONFIGURATION MANAGEMENT OF EDF VERSION
9581 # ======================================================================
9582 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9583 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9584 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9585 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9586 # (AT YOUR OPTION) ANY LATER VERSION.
9588 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9589 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9590 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9591 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9593 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9594 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9595 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9596 # ======================================================================
9597 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9598 fr="Définition d une fonction",reentrant = 'n',
9599 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9600 REEL = SIMP(typ = 'shell',max=1),
9601 ENTIER = SIMP(typ = 'shell',max=1),
9602 COMPLEXE = SIMP(typ = 'shell',max=1),
9604 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9605 # CONFIGURATION MANAGEMENT OF EDF VERSION
9606 # ======================================================================
9607 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9608 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9609 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9610 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9611 # (AT YOUR OPTION) ANY LATER VERSION.
9613 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9614 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9615 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9616 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9618 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9619 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9620 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9621 # ======================================================================
9622 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9623 fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9624 docu="U4.36.05-e",reentrant='n',
9625 UIinfo={"groupes":("Fonction",)},
9626 INTE_SPEC_FACT =SIMP(statut='o',typ=interspfact ),
9627 INIT_ALEA =SIMP(statut='f',typ='I',defaut= 12312745 ),
9628 NB_TIRAGE =SIMP(statut='f',typ='I',defaut= 1 ),
9629 NB_POIN =SIMP(statut='f',typ='I' ),
9630 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9632 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9633 # CONFIGURATION MANAGEMENT OF EDF VERSION
9634 # ======================================================================
9635 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
9636 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9637 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9638 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9639 # (AT YOUR OPTION) ANY LATER VERSION.
9641 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9642 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9643 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9644 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9646 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9647 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9648 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9649 # ======================================================================
9650 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op= 27,sd_prod=matr_asse_gene_r,
9651 fr="Generateur de matrice aleatoire",
9652 docu="U4.36.06",reentrant='n',
9653 UIinfo={"groupes":("Fonction",)},
9654 MATR_MOYEN = SIMP(statut='o', typ=matr_asse_gene_r),
9655 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
9656 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9659 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9660 # CONFIGURATION MANAGEMENT OF EDF VERSION
9661 # ======================================================================
9662 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
9663 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9664 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9665 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9666 # (AT YOUR OPTION) ANY LATER VERSION.
9668 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9669 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9670 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9671 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9673 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9674 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9675 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9676 # ======================================================================
9677 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op= 28,sd_prod=table,
9678 fr="Generateur de variable aleatoire",
9679 docu="U4.36.07",reentrant='n',
9680 UIinfo={"groupes":("Fonction",)},
9681 TYPE = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9682 VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
9683 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
9684 A = SIMP(statut='f', typ='R', defaut=-1.),
9685 B = SIMP(statut='f', typ='R', defaut=1.),
9686 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9689 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9690 # CONFIGURATION MANAGEMENT OF EDF VERSION
9691 # ======================================================================
9692 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9693 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9694 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9695 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9696 # (AT YOUR OPTION) ANY LATER VERSION.
9698 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9699 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9700 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9701 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9703 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9704 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9705 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9706 # ======================================================================
9707 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9708 fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9710 UIinfo={"groupes":("Fonction",)},
9711 FICHIER =SIMP(statut='f',typ='TXM' ),
9712 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9713 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9714 CHARGE =SIMP(statut='o',typ=char_meca,max='**', ),
9716 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9717 # CONFIGURATION MANAGEMENT OF EDF VERSION
9718 # ======================================================================
9719 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9720 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9721 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9722 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9723 # (AT YOUR OPTION) ANY LATER VERSION.
9725 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9726 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9727 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9728 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9730 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9731 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9732 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9733 # ======================================================================
9734 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
9735 UIinfo={"groupes":("Fonction",)},
9736 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9738 UNITE_CLASSI =SIMP(statut='o',typ='I' ),
9739 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
9740 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9741 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9742 LIST_ORDRE =SIMP(statut='f',typ=listis ),
9743 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9744 FREQ =SIMP(statut='f',typ='R',max='**'),
9745 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
9746 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9747 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9748 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9749 into=("RELATIF","ABSOLU") ),
9751 IMPRESSION =FACT(statut='f',min=1,max='**',
9752 regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9753 NOEUD =SIMP(statut='f',typ=no,max='**'),
9754 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9755 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
9757 AMOR =SIMP(statut='o',typ='R',max='**'),
9759 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9760 # CONFIGURATION MANAGEMENT OF EDF VERSION
9761 # ======================================================================
9762 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9763 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9764 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9765 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9766 # (AT YOUR OPTION) ANY LATER VERSION.
9768 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9769 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9770 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9771 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9773 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9774 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9775 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9776 # ======================================================================
9777 # RESPONSABLE VABHHTS J.PELLET
9778 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
9779 UIinfo={"groupes":("Impression",)},
9780 fr="Impression du contenu d un concept utilisateur (pour développeur)",
9781 regles=(UN_PARMI('CO','CHAINE', ),),
9782 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9783 NIVEAU =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9784 ATTRIBUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9785 CONTENU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9786 BASE =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9787 CO =SIMP(statut='f',typ=assd,max='**'),
9788 CHAINE =SIMP(statut='f',typ='TXM'),
9789 POSITION =SIMP(statut='f',typ='I',defaut=1),
9791 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9792 # CONFIGURATION MANAGEMENT OF EDF VERSION
9793 # ======================================================================
9794 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9795 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9796 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9797 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9798 # (AT YOUR OPTION) ANY LATER VERSION.
9800 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9801 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9802 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9803 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9805 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9806 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9807 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9808 # ======================================================================
9809 # RESPONSABLE MCOURTOI M.COURTOIS
9810 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9812 UIinfo={"groupes":("Fonction",)},
9813 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9814 FORMAT =SIMP(statut='f',typ='TXM',position='global'
9815 ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9816 b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9817 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9818 ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9819 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9820 ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9822 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9823 TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9824 COMMENTAIRE =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9825 LEGENDE_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9826 LEGENDE_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9827 FREQ_GRILLE_X =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9828 FREQ_GRILLE_Y =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9830 b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9831 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9832 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9834 b_post = BLOC ( condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9835 TITRE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9836 LABEL_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9837 LABEL_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9838 SORTIE =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9839 DATE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9840 GRILLE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9841 AXE_ZERO_X =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9842 AXE_ZERO_Y =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9843 PRESENTATION =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9844 fr="Disposition du graphique sur la feuille" ),
9845 FENETRE =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9846 fr="Forme de la fenetre contenant le graphique" ),
9848 COURBE =FACT(statut='o',min=1,max='**',fr="Définition de la courbe à tracer",
9849 regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9850 FONCTION =SIMP(statut='f',typ=(fonction, fonction_c),
9851 fr="Fonction réelle ou complexe", ),
9852 LIST_RESU =SIMP(statut='f',typ=listr8,
9853 fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9854 # creer le type table
9855 TABLE =SIMP(statut='f',typ=table,
9856 fr="Nom de la table dont 2 colonnes définissent la fonction",),
9857 FONC_X =SIMP(statut='f',typ=fonction,
9858 fr="Fonction abscisses d une fonction paramétrique",),
9859 RESU_GENE =SIMP(statut='f',typ=tran_gene, ),
9860 b_fonction =BLOC(condition = "FONCTION != None",
9861 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9863 b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
9864 fr="Fonction complexe définie par le mot-clé fonction",
9865 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9867 b_list_resu =BLOC(condition = "LIST_RESU != None",
9868 LIST_PARA =SIMP(statut='o',typ=listr8 ),
9870 b_table =BLOC(condition = "TABLE != None",
9871 PARA_X =SIMP(statut='o',typ='TXM',
9872 fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9873 PARA_Y =SIMP(statut='o',typ='TXM',
9874 fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9876 b_fonc_x =BLOC(condition = "FONC_X != None",
9877 FONC_Y =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9878 PARA =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9879 fr="Permutation des roles des deux fonctions" ),
9880 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9882 b_resu_gene =BLOC(condition = "RESU_GENE != None",
9883 regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9884 NOEUD_CHOC =SIMP(statut='f',typ=no),
9885 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
9886 PARA_X =SIMP(statut='o',typ='TXM'),
9887 PARA_Y =SIMP(statut='o',typ='TXM'),
9888 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9889 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9890 INTITULE =SIMP(statut='f',typ='TXM' ),
9894 LEGENDE =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9895 STYLE =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9896 into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9897 COULEUR =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9898 into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9899 "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9900 "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9901 "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9902 MARQUEUR =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9903 into=("POINT_F","CARRE_F","TRIANGLE_F",
9904 "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9905 "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9906 "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9907 "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9908 "CERCLE_X","CARRE_X","LOSANGE_X") ),
9909 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9910 TRI =SIMP(statut='f',typ='TXM',defaut="N",
9911 fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9912 into=("N","X","Y","XY","YX") ),
9913 FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut= 0,
9914 fr="Fréquence d impression du marqueur associé à la courbe", ),
9918 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9919 # CONFIGURATION MANAGEMENT OF EDF VERSION
9920 # ======================================================================
9921 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9922 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9923 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9924 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9925 # (AT YOUR OPTION) ANY LATER VERSION.
9927 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9928 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9929 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9930 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9932 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9933 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9934 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9935 # ======================================================================
9936 # RESPONSABLE GNICOLAS G.NICOLAS
9937 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
9938 UIinfo={"groupes":("Fonction",)},
9939 fr="Imprime le fichier de configuration de HOMARD.",
9940 ang="Writes the configuration file for HOMARD.",
9942 # 1. Le niveau d'information
9944 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9946 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
9948 REP =SIMP(statut='f',typ='TXM'),
9950 # 3. Langue des messages issus de HOMARD
9952 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9953 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9954 fr="Langue des messages issus de HOMARD.",
9955 ang="Language for HOMARD messages." ),
9957 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
9959 UNITE =SIMP(statut='f',typ='I',defaut= 71 ),
9961 # 5. LE TYPE DE TRAITEMENT :
9963 TRAITEMENT =FACT(statut='o',min=1,max=1,
9965 # 5.1. QUATRE CHOIX EXCLUSIFS :
9968 # A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9969 # . RAFFINEMENT ET DERAFFINEMENT
9970 # . RAFFINEMENT SEUL
9971 # . DERAFFINEMENT SEUL
9972 # B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
9973 # . RAFFINEMENT SEUL
9974 # . DERAFFINEMENT SEUL
9975 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9976 # C. INFORMATION SUR UN MAILLAGE
9977 # D. MISE A JOUR DE SOLUTIONS
9979 regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
9980 ADAPTATION =SIMP(statut='f',typ='TXM',
9981 fr="Adaptation libre",
9982 ang="Free adaptation",
9983 into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
9984 UNIFORME =SIMP(statut='f',typ='TXM',
9985 fr="Adaptation uniforme",
9986 ang="Uniforme adaptation",
9987 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
9988 INFORMATION =SIMP(statut='f',typ='TXM',
9989 fr="Adaptation libre",
9990 ang="Free adaptation",
9992 MAJSOLUTION =SIMP(statut='f',typ='TXM',
9993 fr="Mise à jour de solutions",
9994 ang="Solution updating",
9997 # 5.1.2. LES CONTRAINTES :
9999 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
10000 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10001 # B. LE NOM MED DU MAILLAGE D'ENTREE
10002 # C. LE NOM MED DE L'INDICATEUR D'ERREUR
10003 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10004 # E. LA MISE A JOUR DE SOLUTION
10005 # F. LE NOM MED DU MAILLAGE DE SORTIE
10006 # REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
10008 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
10010 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10011 # B. LE NOM MED DU MAILLAGE DE SORTIE
10013 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10014 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10016 # REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
10017 # IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
10019 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
10021 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10022 # B. LE NOM MED DU MAILLAGE D'ENTREE
10024 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10025 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10029 # 5.1.2.4. POUR DE L'INFORMATION :
10031 # A. LE NOM MED DU MAILLAGE D'ENTREE
10033 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10034 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10036 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10037 # E. LA MISE A JOUR DE SOLUTION
10039 b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
10040 ( MAJSOLUTION != None ) ",
10041 fr="Nom MED du maillage en entrée",
10042 ang="MED name of the in-mesh",
10043 NOM_MED_MAILLAGE_N =SIMP(statut='o',typ='TXM',),
10046 b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
10047 fr="Nom MED du maillage en entrée",
10048 ang="MED name of the in-mesh",
10049 NOM_MED_MAILLAGE_N =SIMP(statut='f',typ='TXM',),
10052 b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
10053 ( MAJSOLUTION != None ) ",
10054 fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
10055 ang="MED name of the out-mesh, iteration rank and field updating",
10056 NITER =SIMP(statut='o',typ='I',
10057 fr="Numéro d'itération.",
10058 ang="Iteration number." ),
10059 NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
10060 fr="Nom MED du maillage en sortie",
10061 ang="MED name of the out-mesh" ),
10062 MAJ_CHAM =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10063 fr="Mise à jour de champs",
10064 ang="Field updating" ),
10067 b_indicateur_d_erreur =BLOC(condition = "ADAPTATION != None",
10068 fr="Indicateur d'erreur",
10069 ang="Error indicator",
10070 regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
10071 EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
10072 PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
10073 PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
10074 NOM_MED_INDICA =SIMP(statut='o',typ='TXM',
10075 fr="Nom MED de l'indicateur d'erreur.",
10076 ang="MED name of error indicator.",),
10077 NOM_CMP_INDICA =SIMP(statut='o',typ='TXM',
10078 fr="Nom de la composante de l'indicateur d'erreur retenue.",
10079 ang="Name of the selected component of the error indicator.",),
10080 NUMORD_INDICA =SIMP(statut='f',typ='I',
10081 fr="Numero d'ordre de l'indicateur.",
10082 ang="Rank number of the error indicator.",),
10083 NUMPT_INDICA =SIMP(statut='f',typ='I',
10084 fr="Numero du pas de temps de l'indicateur.",
10085 ang="Time step number of the error indicator.",),
10086 NOM_RESU_INDICA =SIMP(statut='f',typ='TXM',
10087 fr="Concept contenant l'indicateur.",
10088 ang="Conceipt wich contains the error indicator.",),
10089 NOM_CHAM_INDICA =SIMP(statut='f',typ='TXM',
10090 fr="Nom du champ dans le résultat de l'indicateur.",
10091 ang="Name of the field of the error indicator.",),
10094 b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
10095 fr="Critère de raffinement.",
10096 ang="Refinement threshold.",
10097 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
10098 CRIT_RAFF_ABS =SIMP(statut='f',typ='R',
10099 fr="Critère absolu",
10100 ang="Absolute threshold" ),
10101 CRIT_RAFF_REL =SIMP(statut='f',typ='R',
10102 fr="Critère relatif",
10103 ang="Relative threshold" ),
10104 CRIT_RAFF_PE =SIMP(statut='f',typ='R',
10105 fr="Pourcentage d'éléments",
10106 ang="Percentage of elements" ),
10109 b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
10110 fr="Critère de déraffinement.",
10111 ang="Unrefinement threshold.",
10112 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
10113 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ,
10114 fr="Critère absolu",
10115 ang="Absolute threshold" ),
10116 CRIT_DERA_REL =SIMP(statut='f',typ='R',
10117 fr="Critère relatif",
10118 ang="Relative threshold" ),
10119 CRIT_DERA_PE =SIMP(statut='f',typ='R',
10120 fr="Pourcentage d'éléments",
10121 ang="Percentage of elements" ),
10124 b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
10125 ( UNIFORME == 'RAFFINEMENT' )" ,
10126 fr="Niveau maximum de profondeur de raffinement",
10127 ang="Maximum level for refinement",
10128 NIVE_MAX =SIMP(statut='f',typ='I' ),
10131 b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
10132 ( UNIFORME == 'DERAFFINEMENT' )" ,
10133 fr="Niveau minimum de déraffinement",
10134 ang="Minimum level for unrefinement",
10135 NIVE_MIN =SIMP(statut='f',typ='I' ),
10140 # 6. L'ANALYSE DU MAILLAGE
10142 ANALYSE =FACT(statut='f',min=1,max=1,
10143 fr="Analyse du maillage.",
10144 ang="Mesh analysis.",
10146 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
10147 # A. NOMBRE DES ELEMENTS
10148 # B. QUALITE DES ELEMENTS
10149 # C. INTERPENETRATION DES ELEMENTS
10150 # D. CONNEXITE DU MAILLAGE
10151 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
10153 regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
10155 NOMBRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10156 fr="Nombre de noeuds et éléments du maillage",
10157 ang="Number of nodes and elements in the mesh" ),
10159 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10160 fr="Qualité du maillage",
10161 ang="Mesh quality" ),
10163 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10164 fr="Controle de la non interpénétration des éléments.",
10165 ang="Overlapping checking." ),
10167 CONNEXITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10168 fr="Connexité du maillage.",
10169 ang="Mesh connexity." ),
10171 TAILLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10172 fr="Tailles des sous-domaines du maillage.",
10173 ang="Sizes of mesh sub-domains." ),
10178 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10179 # CONFIGURATION MANAGEMENT OF EDF VERSION
10180 # ======================================================================
10181 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10182 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10183 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10184 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10185 # (AT YOUR OPTION) ANY LATER VERSION.
10187 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10188 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10189 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10190 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10192 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10193 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10194 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10195 # ======================================================================
10196 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
10197 fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
10199 UIinfo={"groupes":("Impression",)},
10200 GENE =FACT(statut='o',min=1,max='**',
10201 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10202 'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
10203 EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10204 'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
10205 EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
10206 'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
10207 EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
10208 EXCLUS('TOUT_CHAM','NOM_CHAM'),
10209 EXCLUS('TOUT_PARA','NOM_PARA'),),
10210 # faut-il faire des blocs selon le type de RESU_GENE
10211 RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
10212 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
10213 FICHIER =SIMP(statut='f',typ='TXM' ),
10214 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10215 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10216 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10217 TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10218 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10219 INST =SIMP(statut='f',typ='R',max='**'),
10220 LIST_INST =SIMP(statut='f',typ=listr8 ),
10221 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10222 FREQ =SIMP(statut='f',typ='R',max='**'),
10223 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10224 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10225 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10226 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10227 into=("RELATIF","ABSOLU") ),
10229 TOUT_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10230 NUME_CMP_GENE =SIMP(statut='f',typ='I',max='**'),
10231 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10232 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
10233 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10234 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10235 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10236 INFO_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10237 INFO_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10240 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10241 # CONFIGURATION MANAGEMENT OF EDF VERSION
10242 # ======================================================================
10243 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10244 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10245 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10246 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10247 # (AT YOUR OPTION) ANY LATER VERSION.
10249 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10250 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10251 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10252 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10254 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10255 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10256 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10257 # ======================================================================
10258 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10259 UIinfo={"groupes":("Impression",)},
10260 fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10261 ENTITE =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10262 into=("DISQUE","MEMOIRE","REPERTOIRE",
10263 "OBJET","ATTRIBUT","SYSTEME") ),
10264 b_objet =BLOC(condition = "(ENTITE=='OBJET')",
10265 NOMOBJ =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10266 NUMOC =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10267 NOMOC =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10269 b_attribut =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10270 NOMOBJ =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10271 NOMATR =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10272 into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10273 '$$LONO','$$LUTI','$$NUM') ),
10275 b_systeme =BLOC(condition = "(ENTITE=='SYSTEME')",
10276 CLASSE =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10277 NOMATR =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10278 into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10279 '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10280 '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10281 '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10283 b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10284 CLASSE =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10286 b_disque =BLOC(condition = "(ENTITE=='DISQUE')",
10287 CLASSE =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10289 IMPRESSION =FACT(statut='f',min=1,max=1,
10290 NOM =SIMP(statut='f',typ='TXM' ),
10291 UNITE =SIMP(statut='f',typ='I'),
10293 COMMENTAIRE =SIMP(statut='f',typ='TXM' ),
10295 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10296 # CONFIGURATION MANAGEMENT OF EDF VERSION
10297 # ======================================================================
10298 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10299 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10300 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10301 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10302 # (AT YOUR OPTION) ANY LATER VERSION.
10304 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10305 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10306 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10307 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10309 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10310 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10311 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10312 # ======================================================================
10313 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10314 docu="U7.04.33-d1",
10315 UIinfo={"groupes":("Impression",)},
10316 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10317 FICHIER =SIMP(statut='f',typ='TXM' ),
10318 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10319 into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10320 b_ideas =BLOC(condition = "FORMAT == 'PLEXUS'",
10321 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10323 b_plexus =BLOC(condition = "FORMAT == 'IDEAS'",
10324 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10326 b_miss_3d =BLOC(condition = "FORMAT == 'MISS_3D'",
10327 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
10328 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10329 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
10330 GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10331 # Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10332 GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10333 GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10334 GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10335 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10336 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10338 b_cadyro =BLOC(condition = "FORMAT == 'CADYRO'",
10339 SQUELETTE =SIMP(statut='f',typ=squelette ),
10340 UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10341 UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10342 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 28 ),
10343 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10344 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10348 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10349 # CONFIGURATION MANAGEMENT OF EDF VERSION
10350 # ======================================================================
10351 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10352 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10353 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10354 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10355 # (AT YOUR OPTION) ANY LATER VERSION.
10357 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10358 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10359 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10360 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10362 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10363 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10364 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10365 # ======================================================================
10366 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10367 fr="Impression des matrices élémentaires et des matrices assemblées",
10369 UIinfo={"groupes":("Impression",)},
10370 regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10372 MATR_ELEM =FACT(statut='f',min=1,max='**',
10373 FICHIER =SIMP(statut='f',typ='TXM' ),
10374 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10375 into=("IDEAS","RESULTAT") ),
10376 b_format =BLOC(condition = "FORMAT == 'IDEAS'",
10377 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10379 # créer les types matr_elem et vect_elem
10380 MATRICE =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10381 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10382 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10383 NOEUD =SIMP(statut='f',typ=no,max='**'),
10384 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10385 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10386 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10387 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10388 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10389 into=("VALEUR","NOEUD","MAILLE") ),
10390 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
10392 MATR_ASSE =FACT(statut='f',min=1,max='**',
10393 FICHIER =SIMP(statut='f',typ='TXM' ),
10394 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10395 into=("IDEAS","RESULTAT") ),
10396 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10397 # créer le type matr_elem
10398 MATRICE =SIMP(statut='o',typ=matr_asse),
10399 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10400 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10401 NOEUD =SIMP(statut='f',typ=no,max='**'),
10402 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10403 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10404 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10405 OPTION =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10406 into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10407 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10408 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10409 into=("VALEUR","NOEUD") ),
10410 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
10411 VALE_ZERO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10414 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10415 # CONFIGURATION MANAGEMENT OF EDF VERSION
10416 # ======================================================================
10417 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10421 # (AT YOUR OPTION) ANY LATER VERSION.
10423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10430 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10431 # ======================================================================
10432 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10434 UIinfo={"groupes":("Impression",)},
10435 regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10436 PRESENT_PRESENT('INST_INIT','INST_FIN'),
10437 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10438 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10439 EXCIT =FACT(statut='f',min=1,max='**',
10440 regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10441 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
10442 FONC_MULT =SIMP(statut='f',typ=fonction ),
10443 COEF_MULT =SIMP(statut='f',typ='R' ),
10445 EXCIT_SOL =FACT(statut='f',min=1,max='**',
10446 DIRECTION =SIMP(statut='o',typ='R',max='**'),
10447 FONC_SIGNAL =SIMP(statut='f',typ=fonction ),
10448 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",
10449 into=("DEPL","VITE","ACCE","FORC",) ),
10451 INST_INIT =SIMP(statut='f',typ='R' ),
10452 INST_FIN =SIMP(statut='f',typ='R' ),
10453 FREQ_INIT =SIMP(statut='f',typ='R' ),
10454 FREQ_FIN =SIMP(statut='f',typ='R' ),
10455 PAS =SIMP(statut='o',typ='R' ),
10456 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
10457 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10458 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10460 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10461 # CONFIGURATION MANAGEMENT OF EDF VERSION
10462 # ======================================================================
10463 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10464 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10465 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10466 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10467 # (AT YOUR OPTION) ANY LATER VERSION.
10469 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10470 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10471 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10472 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10474 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10475 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10476 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10477 # ======================================================================
10478 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
10479 UIinfo={"groupes":("Impression",)},
10480 fr="Impression du résultat d un calcul (différents formats)",
10481 MODELE =SIMP(statut='f',typ=modele),
10482 RESU =FACT(statut='o',min=1,max='**',
10483 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10484 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10486 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10487 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10490 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10491 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10494 regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10495 EXCLUS('CHAM_GD','RESULTAT'),),
10496 MAILLAGE =SIMP(statut='f',typ=(maillage,squelette)),
10497 INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10498 CHAM_GD =SIMP(statut='f',typ=cham_gd),
10499 RESULTAT =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10501 b_sensibilite =BLOC(condition="RESULTAT != None",
10502 fr="Définition des paramètres de sensibilité",
10503 ang="Definition of sensitivity parameters",
10504 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10505 fr="Liste des paramètres de sensibilité.",
10506 ang="List of sensitivity parameters"),),
10508 b_extrac =BLOC(condition="RESULTAT != None",
10509 fr="extraction d un champ de grandeur",
10510 regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10511 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10512 'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10513 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10514 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
10516 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10517 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10518 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10519 LIST_ORDRE =SIMP(statut='f',typ=listis),
10520 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
10521 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
10522 ANGL =SIMP(statut='f',typ='R',max='**'),
10523 FREQ =SIMP(statut='f',typ='R',max='**'),
10524 LIST_FREQ =SIMP(statut='f',typ=listr8),
10525 INST =SIMP(statut='f',typ='R',max='**'),
10526 LIST_INST =SIMP(statut='f',typ=listr8),
10528 b_acce_reel =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10529 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
10530 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10534 b_parametres =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10535 regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10536 INFO_RESU =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10537 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10538 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10539 FORM_TABL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10542 b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10543 ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10544 fr="sélection des composantes",
10545 regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10546 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10547 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10550 b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10551 fr="sélection des composantes et des entités toplogiques",
10552 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10553 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10554 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10557 b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
10558 fr="sélection des entités toplogiques",
10559 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10560 NOEUD =SIMP(statut='f',typ=no,max='**'),
10561 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10562 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10563 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10566 b_valeurs =BLOC(condition="(FORMAT == 'RESULTAT')",
10567 fr="sélection sur les valeurs",
10568 VALE_MAX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10569 VALE_MIN =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10570 BORNE_SUP =SIMP(statut='f',typ='R'),
10571 BORNE_INF =SIMP(statut='f',typ='R'),
10572 IMPR_COOR =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10573 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10576 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10577 FICHIER =SIMP(statut='f',typ='TXM'),
10579 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10581 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10582 # CONFIGURATION MANAGEMENT OF EDF VERSION
10583 # ======================================================================
10584 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10585 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10586 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10587 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10588 # (AT YOUR OPTION) ANY LATER VERSION.
10590 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10591 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10592 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10593 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10595 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10596 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10597 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10598 # ======================================================================
10599 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10601 UIinfo={"groupes":("Résolution",)},
10602 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10603 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10604 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10605 fr="Type d analyse" ),
10606 b_dynamique =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10607 fr="Recheche du nombre de fréquences propres",
10608 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10609 FREQ_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10611 b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10612 fr="Recherche du nombre de charges critiques",
10613 CHAR_CRIT_MIN =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10614 CHAR_CRIT_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10616 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
10617 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10618 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10619 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10620 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10622 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10623 # CONFIGURATION MANAGEMENT OF EDF VERSION
10624 # ======================================================================
10625 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10626 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10627 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10628 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10629 # (AT YOUR OPTION) ANY LATER VERSION.
10631 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10632 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10633 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10634 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10636 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10637 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10638 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10639 # ======================================================================
10640 # RESPONSABLE VABHHTS J.PELLET
10641 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
10642 UIinfo={"groupes":("Impression",)},
10643 fr="Impression d un concept de type table",
10644 TABLE =SIMP(statut='o',typ=table),
10645 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10646 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10647 into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10648 FILTRE =FACT(statut='f',min=1,max='**',
10649 NOM_PARA =SIMP(statut='o',typ='TXM'),
10650 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
10651 into=("EQ","LT","GT","NE","LE","GE","VIDE",
10652 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10653 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10654 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10655 VALE =SIMP(statut='f',typ='R'),
10656 VALE_I =SIMP(statut='f',typ='I'),
10657 VALE_C =SIMP(statut='f',typ='C'),
10658 VALE_K =SIMP(statut='f',typ='TXM'),),
10660 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10661 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10663 TRI =FACT(statut='f',min=1,max=1,
10664 NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
10665 ORDRE =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10666 into=("CROISSANT","DECROISSANT") ),
10667 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10668 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10670 PAGINATION =SIMP(statut='f',typ='TXM',max='**'),
10671 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10672 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10673 into=("MODULE_PHASE","REEL_IMAG") ),
10674 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10675 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",)),
10676 IMPR_FONCTION =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10678 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10679 # CONFIGURATION MANAGEMENT OF EDF VERSION
10680 # ======================================================================
10681 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10682 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10683 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10684 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10685 # (AT YOUR OPTION) ANY LATER VERSION.
10687 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10688 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10689 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10690 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10692 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10693 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10694 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10695 # ======================================================================
10696 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
10697 UIinfo={"groupes":("Gestion du travail",)},
10698 fr="Débranchement vers un fichier de commandes secondaires",
10699 sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10700 UNITE = SIMP(statut='o',typ='I'),
10701 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10703 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10704 # CONFIGURATION MANAGEMENT OF EDF VERSION
10705 # ======================================================================
10706 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10707 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10708 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10709 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10710 # (AT YOUR OPTION) ANY LATER VERSION.
10712 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10713 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10714 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10715 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10717 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10718 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10719 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10720 # ======================================================================
10721 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
10722 UIinfo={"groupes":("Modélisation",)},
10724 sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10725 NOM_AFNOR =SIMP(statut='o',typ='TXM' ),
10726 TYPE_MODELE =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10727 VARIANTE =SIMP(statut='o',typ='TXM',
10728 into=("A","B","C","D","E","F","G","H","I","J",
10729 "K","L","M","N","O","P","Q","R","S","T","U","V",
10730 "W","X","Y","Z",) ),
10731 TYPE_VALE =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10732 NOM_MATER =SIMP(statut='o',typ='TXM' ),
10733 UNITE =SIMP(statut='f',typ='I',defaut= 32 ),
10734 EXTRACTION =FACT(statut='f',min=1,max=99,
10735 COMPOR =SIMP(statut='o',typ='TXM' ),
10736 TEMP_EVAL =SIMP(statut='o',typ='R' ),
10738 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10740 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10741 # CONFIGURATION MANAGEMENT OF EDF VERSION
10742 # ======================================================================
10743 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10744 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10745 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10746 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10747 # (AT YOUR OPTION) ANY LATER VERSION.
10749 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10750 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10751 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10752 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10754 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10755 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10756 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10757 # ======================================================================
10758 # RESPONSABLE G8BHHXD X.DESROCHES
10759 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
10760 UIinfo={"groupes":("Post traitements",)},
10761 fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10763 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
10765 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10766 AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10767 PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10768 PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10769 PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10770 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10771 EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10772 EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10774 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10775 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10776 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10778 DEFI_SEGMENT =FACT(statut='f',min=1,max='**',
10779 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10780 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10781 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
10782 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10783 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10784 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
10785 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10786 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10789 DEFI_ARC =FACT(statut='f',min=1,max='**',
10790 regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10791 UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10792 UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10793 PRESENT_PRESENT('RAYON','SECTEUR'),),
10794 CENTRE =SIMP(statut='f',typ='R',min=2,max=2),
10795 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
10796 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10797 RAYON =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10798 SECTEUR =SIMP(statut='f',typ='R',min=2,max=2,
10799 val_min=-180.E+0,val_max=180E+0),
10800 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
10801 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10802 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10803 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
10804 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10805 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10806 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10807 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10808 into=("RELATIF","ABSOLU",) ),
10811 DEFI_CHEMIN =FACT(statut='f',min=1,max='**',
10812 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10813 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10814 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10817 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10818 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10819 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
10820 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10822 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10823 # CONFIGURATION MANAGEMENT OF EDF VERSION
10824 # ======================================================================
10825 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10826 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10827 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10828 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10829 # (AT YOUR OPTION) ANY LATER VERSION.
10831 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10832 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10833 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10834 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10836 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10837 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10838 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10839 # ======================================================================
10840 # RESPONSABLE G8BHHXD X.DESROCHES
10841 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
10842 UIinfo={"groupes":("Post traitements",)},
10843 fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10844 MAILLAGE =SIMP(statut='o',typ=maillage),
10845 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10846 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10847 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10848 DEFI_SEGMENT =FACT(statut='o',min=1,max='**',
10849 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10850 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10851 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
10852 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10853 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10854 EXTREMITE =SIMP(statut='f',typ='R',min=3,max=3),
10855 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10856 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10858 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
10859 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10861 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10862 # CONFIGURATION MANAGEMENT OF EDF VERSION
10863 # ======================================================================
10864 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10865 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10866 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10867 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10868 # (AT YOUR OPTION) ANY LATER VERSION.
10870 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10871 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10872 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10873 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10875 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10876 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10877 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10878 # ======================================================================
10879 def lire_champ_prod(TYPE_CHAM=None,**args):
10880 if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10881 if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10882 raise AsException("type de concept resultat non prevu")
10884 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10885 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10886 ang="To read a field in a file and to save it in a concept.",
10887 docu="U7.02.02-b2",reentrant='n',
10888 UIinfo={"groupes":("Post traitements",)},
10890 # 1. Le maillage support du champ
10892 MAILLAGE =SIMP(statut='o',typ=maillage,
10893 fr="Nom du maillage support du champ",
10894 ang="Name of the mesh on which the field is defined" ),
10896 # 2. Format de lecture
10897 # Remarque : seul MED est operationnel dans cette version.
10899 FORMAT =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10900 fr="Format du fichier : MED seulement",
10901 ang="Format of the file : MED only" ),
10903 # 3. L'unite logique du fichier.
10905 UNITE =SIMP(statut='f',typ='I',defaut= 81,
10906 fr="Le fichier est : fort.n.",
10907 ang="File is : fort.n" ),
10909 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10910 # et les composantes a lire
10912 b_format =BLOC(condition = "FORMAT == 'MED'",
10913 fr="Nom du champ dans le fichier MED",
10914 regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10915 PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10917 NOM_MED =SIMP(statut='o',typ='TXM',
10918 fr="Nom du champ dans le fichier MED.",
10919 ang="Name of the field in the MED file." ),
10921 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10922 fr="Les composantes ont le meme nom dans MED et ASTER.",
10923 ang="The names of the components are the same in ASTER and MED." ),
10924 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',
10925 fr="Nom des composantes dans ASTER.",
10926 ang="Names of the components in ASTER" ),
10927 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',
10928 fr="Nom des composantes dans MED.",
10929 ang="Names of the components in MED" ),
10931 NUME_ORDRE =SIMP(statut='f',typ='I',max='**',
10932 fr="Numéro d'ordre du champ à lire.",
10933 ang="Rank number of the field to read."),
10935 NUME_PT =SIMP(statut='f',typ='I',max='**',
10936 fr="Numéro du pas de temps du champ à lire.",
10937 ang="Time step number of the field to read."),
10939 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10940 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10942 NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
10943 fr="Nom du maillage dans le fichier MED.",
10944 ang="Name of the mesh into the MED file.",),
10948 # 5. Le type du concept lu
10950 TYPE_CHAM =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
10951 fr="Type de champ à créer.",
10952 ang="Type of the field to create." ),
10954 # 6. Le niveau d'information
10956 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10958 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10959 # CONFIGURATION MANAGEMENT OF EDF VERSION
10960 # ======================================================================
10961 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10965 # (AT YOUR OPTION) ANY LATER VERSION.
10967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10974 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10975 # ======================================================================
10976 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op= 83,sd_prod=fonction,
10977 fr="Lecture d une fonction dans un fichier ",
10978 docu="U4.32.02-f1",reentrant='n',
10979 UIinfo={"groupes":("Fonction",)},
10980 UNITE =SIMP(statut='o',typ='I' ),
10981 NOM_PARA =SIMP(statut='f',typ='TXM',
10982 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10983 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10984 NOM_RESU =SIMP(statut='f',typ='TXM' ),
10985 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10986 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10987 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10988 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',
10989 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10990 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10991 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10992 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10993 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10994 INFO =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
10995 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10997 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10998 # CONFIGURATION MANAGEMENT OF EDF VERSION
10999 # ======================================================================
11000 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11001 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11002 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11003 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11004 # (AT YOUR OPTION) ANY LATER VERSION.
11006 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11007 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11008 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11009 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11011 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11012 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11013 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11014 # ======================================================================
11015 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
11016 fr="Lecture sur un fichier externe de fonctions complexes pour créer une matrice interspectrale",
11017 docu="U4.36.01-f2",reentrant='n',
11018 UIinfo={"groupes":("Fonction",)},
11019 UNITE =SIMP(statut='o',typ='I' ),
11020 FORMAT =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
11021 NOM_PARA =SIMP(statut='f',typ='TXM',
11022 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11023 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11024 NOM_RESU =SIMP(statut='f',typ='TXM' ),
11025 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11026 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11027 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11028 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11029 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11031 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11032 # CONFIGURATION MANAGEMENT OF EDF VERSION
11033 # ======================================================================
11034 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11035 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11036 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11037 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11038 # (AT YOUR OPTION) ANY LATER VERSION.
11040 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11041 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11042 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11043 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11045 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11046 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11047 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11048 # ======================================================================
11049 # RESPONSABLE VABHHTS J.PELLET
11050 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op= 1,sd_prod=maillage,
11051 fr="Lecture d'un fichier de maillage",
11052 ang="Readings of a mesh file",
11053 docu="U4.21.01-g1",reentrant='n',
11054 UIinfo={"groupes":("Maillage",)},
11056 UNITE =SIMP(statut='f',typ='I',defaut= 20 ),
11058 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
11059 fr="Format du fichier : ASTER ou MED.",
11060 ang="Format of the file : ASTER or MED.",),
11062 ABSC_CURV =FACT(statut='f',min=0,max=1,
11063 TOUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11066 VERI_MAIL =FACT(statut='d',min=1,max=1,
11067 VERIF =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11068 APLAT =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11071 b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
11072 fr="Informations complémentaires pour la lecture MED.",
11073 ang="Further information for MED readings.",
11075 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11076 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
11078 NOM_MED = SIMP(statut='f',typ='TXM',
11079 fr="Nom du maillage dans le fichier MED.",
11080 ang="Name of the mesh into the MED file.",),
11082 INFO_MED = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11086 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11089 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11090 # CONFIGURATION MANAGEMENT OF EDF VERSION
11091 # ======================================================================
11092 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11093 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11094 # REDISTRIBUTION OF THIS FILE.
11095 # ======================================================================
11096 def lire_miss_3d_prod(TYPE_RESU,**args):
11097 if TYPE_RESU == "TRANS" : return dyna_trans
11098 if TYPE_RESU == "HARMO" : return dyna_harmo
11099 raise AsException("type de concept resultat non prevu")
11101 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
11102 fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
11103 docu="U7.02.31-c",reentrant='n',
11104 UIinfo={"groupes":("Maillage",)},
11105 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
11106 UNITE =SIMP(statut='f',typ='I',defaut= 27 ),
11107 NOM =SIMP(statut='f',typ='TXM' ),
11108 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
11109 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11111 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11112 # CONFIGURATION MANAGEMENT OF EDF VERSION
11113 # ======================================================================
11114 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11115 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11116 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11117 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11118 # (AT YOUR OPTION) ANY LATER VERSION.
11120 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11121 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11122 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11123 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11125 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11126 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11127 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11128 # ======================================================================
11129 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
11131 docu="U7.02.11-a",reentrant='n',
11132 UIinfo={"groupes":("Maillage",)},
11133 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
11134 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11135 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
11136 MAIL_PLEXUS =SIMP(statut='o',typ=maillage ),
11137 MAILLAGE =SIMP(statut='o',typ=maillage ),
11138 MODELE =SIMP(statut='o',typ=modele ),
11139 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11140 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11141 LIST_ORDRE =SIMP(statut='f',typ=listis ),
11142 INST =SIMP(statut='f',typ='R',max='**'),
11143 LIST_INST =SIMP(statut='f',typ=listr8 ),
11144 b_prec_crit =BLOC(condition = "LIST_INST != None or INST != None",
11145 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11146 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11147 into=("RELATIF","ABSOLU") ),
11149 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11151 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11152 # CONFIGURATION MANAGEMENT OF EDF VERSION
11153 # ======================================================================
11154 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11155 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11156 # REDISTRIBUTION OF THIS FILE.
11157 # ======================================================================
11158 # RESPONSABLE VABHHTS J.PELLET
11159 def lire_resu_prod(TYPE_RESU,**args):
11160 if TYPE_RESU == "EVOL_CHAR" : return evol_char
11161 if TYPE_RESU == "EVOL_THER" : return evol_ther
11162 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
11163 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
11164 if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
11165 if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
11166 if TYPE_RESU == "HARM_GENE" : return harm_gene
11167 if TYPE_RESU == "MODE_MECA" : return mode_meca
11168 raise AsException("type de concept resultat non prevu")
11170 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
11171 UIinfo={"groupes":("Maillage",)},
11172 fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
11175 # 0 mots clés généraux :
11176 #----------------------
11177 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
11178 "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
11180 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
11181 DATASET_58 =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
11183 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11184 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11186 regles=(UN_PARMI('MAILLAGE','MODELE'),),
11187 MAILLAGE =SIMP(statut='f',typ=maillage),
11188 MODELE =SIMP(statut='f',typ=modele),
11190 NB_VARI =SIMP(statut='f',typ='I' ),
11193 # 1 blocs selon le format choisi :
11194 #---------------------------------
11198 b_ideas =BLOC(condition="FORMAT=='IDEAS'",
11199 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11202 b_format_ideas = BLOC(condition="DATASET_58=='NON'",
11203 FORMAT_IDEAS =FACT(statut='f',max='**',
11204 regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
11205 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
11206 "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
11207 "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
11208 NUME_DATASET =SIMP(statut='f',typ='I',into=(55,57,2414) ),
11209 RECORD_3 =SIMP(statut='f',typ='I',max=10),
11210 RECORD_6 =SIMP(statut='f',typ='I',max=10),
11211 RECORD_9 =SIMP(statut='f',typ='I',max=10),
11212 POSI_ORDRE =SIMP(statut='o',typ='I',min=2,max=2),
11213 POSI_NUME_MODE =SIMP(statut='f',typ='I',min=2,max=2),
11214 POSI_MASS_GENE =SIMP(statut='f',typ='I',min=2,max=2),
11215 POSI_INST =SIMP(statut='f',typ='I',min=2,max=2),
11216 POSI_FREQ =SIMP(statut='f',typ='I',min=2,max=2),
11217 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),),
11219 b_dataset_58 = BLOC(condition="(DATASET_58=='OUI') and ((TYPE_RESU=='DYNA_TRANS') or\
11220 (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
11221 NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
11222 REDEFI_ORIENT=FACT(statut='f',max='**',
11223 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
11224 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
11225 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
11226 NOEUD =SIMP(statut='f',typ=no,max='**'),),
11230 b_ensight =BLOC(condition="FORMAT=='ENSIGHT'",
11231 NOM_FICHIER =SIMP(statut='f',typ='TXM'),
11235 b_med =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
11236 # regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
11237 # PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
11238 NOM_MED =SIMP(statut='o',typ='TXM',
11239 fr="Nom du champ dans le fichier MED.",
11240 ang="Name of the field in the MED file." ),
11241 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
11242 fr="Les composantes ont le meme nom dans MED et ASTER.",
11243 ang="The names of the components are the same in ASTER and MED." ),
11244 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',
11245 fr="Nom des composantes dans ASTER.",
11246 ang="Names of the components in ASTER" ),
11247 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',
11248 fr="Nom des composantes dans MED.",
11249 ang="Names of the components in MED" ),
11250 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11251 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
11252 NOM_MAIL_MED =SIMP(statut='f',typ='TXM',
11253 fr="Nom du maillage dans le fichier MED.",
11254 ang="Name of the mesh into the MED file.",),
11255 UNITE =SIMP(statut='f',typ='I',defaut= 81,
11256 fr="Le fichier est : fort.n.",
11257 ang="File is : fort.n" ),
11261 # 2 blocs selon le type du résultat :
11262 #---------------------------------
11263 b_evol_elas =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
11264 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11267 b_evol_ther =BLOC(condition="TYPE_RESU=='EVOL_THER'",
11268 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11269 into=("TEMP","TEMP_PEAU") ),
11271 b_evol_char =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
11272 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11273 into=("PRES","VITE_VENT",
11274 "FVOL_3D","FVOL_2D",
11275 "FSUR_3D","FSUR_2D") ),
11277 b_evol_noli =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
11278 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11279 into=("DEPL","VITE","ACCE","VARI_ELNO",
11280 "SIEF_ELNO","EPSA_ELNO") ),
11282 b_mode_meca =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11283 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11286 MATR_A =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
11287 MATR_B =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
11289 b_dyna =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
11290 (TYPE_RESU=='HARM_GENE')) and (DATASET_58=='NON')",
11291 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11292 into=("DEPL","VITE","ACCE",) ),
11297 #---------------------------------
11298 b_extrac =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11299 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11300 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11301 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11302 INST =SIMP(statut='f',typ='R',max='**'),
11303 LIST_INST =SIMP(statut='f',typ=listr8),
11304 LIST_ORDRE =SIMP(statut='f',typ=listis),
11305 FREQ =SIMP(statut='f',typ='R',max='**'),
11306 LIST_FREQ =SIMP(statut='f',typ=listr8),
11308 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11309 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
11310 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11314 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11315 # CONFIGURATION MANAGEMENT OF EDF VERSION
11316 # ======================================================================
11317 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
11318 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11319 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11320 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11321 # (AT YOUR OPTION) ANY LATER VERSION.
11323 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11324 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11325 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11326 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11328 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11329 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11330 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11331 # ======================================================================
11332 def lire_table_prod(TYPE_TABLE,**args):
11333 if TYPE_TABLE == "TABLE" : return table
11334 if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11335 if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11336 if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11337 if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11338 raise AsException("type de concept resultat non prevu")
11339 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11340 docu="U7.02.03",fr="Lecture d un concept de type table",
11341 UIinfo={"groupes":("Maillage",)},
11342 UNITE =SIMP(statut='o',typ='I' ),
11343 FORMAT =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11344 NUME_TABLE =SIMP(statut='f',typ='I',defaut=1),
11345 TYPE_TABLE =SIMP(statut='f',typ='TXM',defaut="TABLE",
11350 "TABL_POST_ALEA" ) ),
11351 SEPARATEUR =SIMP(statut='o',typ='TXM'),
11352 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11354 #& MODIF COMMANDE DATE 08/10/2002 AUTEUR GNICOLAS G.NICOLAS
11355 # CONFIGURATION MANAGEMENT OF EDF VERSION
11356 # ======================================================================
11357 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11361 # (AT YOUR OPTION) ANY LATER VERSION.
11363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11370 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11371 # ======================================================================
11372 # RESPONSABLE GNICOLAS G.NICOLAS
11373 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11374 mail1=ADAPTATION['MAILLAGE_N']
11375 self.type_sdprod(mail1,maillage)
11376 mail2=ADAPTATION['MAILLAGE_NP1']
11377 self.type_sdprod(mail2,maillage)
11378 if MAJ_CHAM == None:return None
11379 for ch in MAJ_CHAM:
11381 if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11382 if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11385 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11386 fr="Adapter un maillage avec le logiciel HOMARD.",
11387 ang="Mesh adaptation with HOMARD software.",
11388 docu="U7.03.01-b2",
11390 # 1. Le niveau d'information
11392 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11394 # 2. Version de HOMARD
11396 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
11397 into=("V5_5", "V5_N", "V5_N_PERSO"),
11398 fr="Version de HOMARD",
11399 ang="HOMARD release"),
11401 # 3. Langue des messages issus de HOMARD
11403 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11404 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11405 fr="Langue des messages issus de HOMARD.",
11406 ang="Language for HOMARD messages." ),
11408 # 4. LE TYPE DE TRAITEMENT :
11410 ADAPTATION =FACT(statut='o',min=01,max=01,
11411 fr="Type d'adaptation",
11412 ang="Type of adaptation",
11414 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11417 # A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11418 # . RAFFINEMENT ET DERAFFINEMENT
11419 # . RAFFINEMENT SEUL
11420 # . DERAFFINEMENT SEUL
11421 # B. UNIFORME, AVEC TROIS VARIANTES :
11422 # . RAFFINEMENT SEUL
11423 # . DERAFFINEMENT SEUL
11424 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11427 UN_PARMI('LIBRE','UNIFORME'),
11429 LIBRE = SIMP(statut='f',typ='TXM',
11430 into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11431 fr="Adaptation selon un indicateur d'erreur.",
11432 ang="Adaptation among an error indicator" ),
11433 UNIFORME = SIMP(statut='f',typ='TXM',
11434 into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11435 fr="Adaptation uniforme.",
11436 ang="Uniform adaptation" ),
11438 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER :
11439 # A. LE CONCEPT DU MAILLAGE INITIAL
11440 # B. LE CONCEPT DU MAILLAGE FINAL
11442 MAILLAGE_N = SIMP(statut='o',typ=(CO,maillage),
11443 fr="Maillage avant adaptation",
11444 ang="Mesh before adaptation" ),
11445 MAILLAGE_NP1 = SIMP(statut='o',typ=(CO,maillage),
11446 fr="Maillage apres adaptation",
11447 ang="Mesh after adaptation" ),
11449 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11452 b_indicateur_d_erreur =BLOC( condition = " LIBRE != None " ,
11453 fr="Indicateur d'erreur",
11454 ang="Error indicator",
11456 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11458 RESULTAT_N = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11459 fr="Resultat contenant l'indicateur d'erreur",
11460 ang="Result with error indicator" ),
11462 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11464 INDICATEUR = SIMP(statut='o',typ='TXM',
11465 fr="Champ de l'indicateur d'erreur",
11466 ang="Error indicator field" ),
11468 # 4.3.3. LA COMPOSANTE RETENUE
11470 NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11471 fr="Composante retenue",
11472 ang="Selected component" ),
11474 # 4.3.4. LE NUMERO D'ORDRE
11476 NUME_ORDRE = SIMP(statut='f',typ='I' ,
11477 fr="Numero d ordre",
11481 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11482 # ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11483 # 4.4.1. POUR LE RAFFINEMENT :
11485 b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11486 fr="Critère de raffinement.",
11487 ang="Refinement threshold.",
11488 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11489 CRIT_RAFF_ABS = SIMP(statut='f',typ='R',
11490 fr="Critère absolu",
11491 ang="Absolute threshold" ),
11492 CRIT_RAFF_REL = SIMP(statut='f',typ='R',
11493 fr="Critère relatif",
11494 ang="Relative threshold" ),
11495 CRIT_RAFF_PE = SIMP(statut='f',typ='R',
11496 fr="Pourcentage d'éléments",
11497 ang="Percentage of elements" ),
11500 # 4.4.2. POUR LE DERAFFINEMENT :
11502 b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11503 fr="Critère de déraffinement.",
11504 ang="Unrefinement threshold.",
11505 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11506 CRIT_DERA_ABS = SIMP(statut='f',typ='R' ,
11507 fr="Critère absolu",
11508 ang="Absolute threshold" ),
11509 CRIT_DERA_REL = SIMP(statut='f',typ='R',
11510 fr="Critère relatif",
11511 ang="Relative threshold" ),
11512 CRIT_DERA_PE = SIMP(statut='f',typ='R',
11513 fr="Pourcentage d'éléments",
11514 ang="Percentage of elements" ),
11517 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11518 # 4.5.1. POUR LE RAFFINEMENT :
11520 b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11521 ( UNIFORME == 'RAFFINEMENT' ) " ,
11522 fr="Niveau maximum de profondeur de raffinement",
11523 ang="Maximum level for refinement",
11524 NIVE_MAX = SIMP(statut='f',typ='I' ),
11527 # 4.5.2. POUR LE DERAFFINEMENT :
11529 b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11530 ( UNIFORME == 'DERAFFINEMENT' ) " ,
11531 fr="Niveau minimum de profondeur de déraffinement",
11532 ang="Minimum level for unrefinement",
11533 NIVE_MIN = SIMP(statut='f',typ='I' ),
11537 # 5. LA MISE A JOUR DE CHAMPS.
11538 # PAR DEFAUT, RIEN NE SE FAIT
11540 MAJ_CHAM =FACT(statut='f',min=01,max='**',
11541 fr="Mise à jour de champs sur le nouveau maillage.",
11542 ang="Updating of fields over the new mesh.",
11544 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11546 RESULTAT = SIMP(statut='o',
11547 typ=(evol_elas,evol_noli,evol_ther),
11548 fr="Resultat contenant le champ à mettre à jour",
11549 ang="Result with field to be updated" ),
11551 # 5.2. LE NOM DU CHAMP A INTERPOLER
11553 NOM_CHAM = SIMP(statut='o',typ='TXM',
11554 fr="Nom du champ à mettre à jour",
11555 ang="Name of the field to be updated" ),
11557 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11559 NUME_ORDRE = SIMP(statut='f',typ='I',
11560 fr="Numero d ordre du champ à mettre à jour",
11561 ang="Rank of the field to be updated" ),
11563 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11565 CHAM_MAJ = SIMP(statut='o',typ=(CO,cham_gd),
11566 fr="Nom du champ qui contiendra le champ mis à jour",
11567 ang="Name of the field for the updated field"),
11569 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11571 TYPE_CHAM = SIMP(statut='o',typ='TXM',
11572 into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11573 fr="Type du champ qui contiendra le champ mis à jour",
11574 ang="Type of the field for the updated field" ),
11577 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11578 # A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11579 # B. QUALITE DES ELEMENTS DU MAILLAGE
11580 # C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11581 # D. CONNEXITE DU MAILLAGE
11582 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11584 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11585 fr="Nombre de noeuds et éléments du maillage",
11586 ang="Number of nodes and elements in the mesh" ),
11588 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11589 fr="Qualité du maillage",
11590 ang="Mesh quality" ),
11592 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11593 fr="Controle de la non interpénétration des éléments.",
11594 ang="Overlapping checking." ),
11596 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11597 fr="Connexité du maillage.",
11598 ang="Mesh connexity." ),
11600 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11601 fr="Tailles des sous-domaines du maillage.",
11602 ang="Sizes of mesh sub-domains." ),
11604 MENAGE = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11607 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11608 # CONFIGURATION MANAGEMENT OF EDF VERSION
11609 # ======================================================================
11610 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11611 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11612 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11613 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11614 # (AT YOUR OPTION) ANY LATER VERSION.
11616 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11617 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11618 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11619 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11621 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11622 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11623 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11624 # ======================================================================
11625 # RESPONSABLE F1BHHAJ J.ANGLES
11626 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11627 self.type_sdprod(MODELE,modele)
11628 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11629 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
11630 if FOND_FISS != None:self.type_sdprod(FOND_FISS,fond_fiss)
11631 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
11632 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
11635 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11637 docu="U4.CF.20-b1",reentrant='n',
11638 UIinfo={"groupes":("Outils métier",)},
11639 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11641 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
11648 CL_BOL_P2_GV =FACT(statut='f',min=1,max=1,
11649 ANGLE =SIMP(statut='o',typ='R' ),
11650 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
11653 MAILLAGE =SIMP(statut='o',typ=maillage ),
11654 MODELE =SIMP(statut='o',typ=(CO,modele)),
11655 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
11656 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
11657 FOND_FISS =SIMP(statut='f',typ=(CO,fond_fiss)),
11658 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
11659 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
11661 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
11662 regles=(UN_PARMI('TOUT','GROUP_MA'),),
11663 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11664 GROUP_MA =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11665 MATER =SIMP(statut='o',typ=mater ),
11666 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11669 PRES_REP =FACT(statut='f',min=1,max=1,
11670 PRES =SIMP(statut='o',typ='R' ),
11671 EFFE_FOND_P1 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11672 PRES_LEVRE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11673 FONC_MULT =SIMP(statut='f',typ=fonction ),
11676 ECHANGE =FACT(statut='f',min=1,max=1,
11677 COEF_H =SIMP(statut='f',typ=fonction ),
11678 TEMP_EXT =SIMP(statut='f',typ=fonction ),
11681 TORS_P1 =FACT(statut='f',min=1,max=6,
11682 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11683 FX =SIMP(statut='f',typ='R' ),
11684 FY =SIMP(statut='f',typ='R' ),
11685 FZ =SIMP(statut='f',typ='R' ),
11686 MX =SIMP(statut='f',typ='R' ),
11687 MY =SIMP(statut='f',typ='R' ),
11688 MZ =SIMP(statut='f',typ='R' ),
11689 FONC_MULT =SIMP(statut='f',typ=fonction ),
11692 COMP_INCR =FACT(statut='f',min=1,max=1,
11693 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11694 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11697 COMP_ELAS =FACT(statut='f',min=1,max=1,
11698 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11699 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11700 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11703 SOLVEUR =FACT(statut='d',min=1,max=1,
11704 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11705 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11706 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11708 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11709 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11711 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11712 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11713 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11714 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11716 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11717 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11718 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11719 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11720 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11721 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11724 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11725 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11728 CONVERGENCE =FACT(statut='d',min=1,max=1,
11729 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
11730 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
11731 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
11732 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
11733 RESI_INTE_RELA =SIMP(statut='f',typ='R'
11735 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11736 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
11737 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11738 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11741 NEWTON =FACT(statut='d',min=1,max=1,
11742 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
11743 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11744 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11745 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
11746 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
11749 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
11750 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11751 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
11754 INCREMENT =FACT(statut='o',min=1,max=1,
11755 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11756 EXCLUS('NUME_INST_FIN','INST_FIN'),),
11757 LIST_INST =SIMP(statut='o',typ=listr8),
11758 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11759 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11760 NUME_INST_INIT =SIMP(statut='f',typ='I'),
11761 INST_INIT =SIMP(statut='f',typ='R'),
11762 NUME_INST_FIN =SIMP(statut='f',typ='I'),
11763 INST_FIN =SIMP(statut='f',typ='R'),
11764 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11765 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
11766 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
11767 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11770 THETA_3D =FACT(statut='f',min=1,max='**',
11771 R_INF =SIMP(statut='o',typ='R' ),
11772 R_SUP =SIMP(statut='o',typ='R' ),
11775 IMPR_TABLE =FACT(statut='f',min=1,max=1,
11776 regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11777 PRESENT_PRESENT('TOUT_PARA','ANGLE', ),
11778 PRESENT_PRESENT('TOUT_PARA','R_CINTR', ),
11779 UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11780 NOM_PARA =SIMP(statut='f',typ='TXM',max=4,
11781 into=("TRESCA_MEMBRANE",
11788 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11789 ANGLE =SIMP(statut='f',typ='R',max='**' ),
11790 R_CINTR =SIMP(statut='f',typ='R',max='**' ),
11791 POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11792 POSI_ANGUL =SIMP(statut='f',typ='R',max='**' ),
11793 TRANSFORMEE =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11796 IMPRESSION =FACT(statut='f',min=1,max=1,
11797 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11798 into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11800 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11801 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11804 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11805 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11810 TITRE =SIMP(statut='f',typ='TXM' ),
11812 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11814 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11815 # CONFIGURATION MANAGEMENT OF EDF VERSION
11816 # ======================================================================
11817 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11818 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11819 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11820 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11821 # (AT YOUR OPTION) ANY LATER VERSION.
11823 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11824 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11825 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11826 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11828 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11829 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11830 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11831 # ======================================================================
11832 # RESPONSABLE F1BHHAJ J.ANGLES
11833 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11834 fr=" ",docu="U4.CF.10-b1",reentrant='n',
11835 UIinfo={"groupes":("Outils métier",)},
11837 regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11839 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
11840 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11841 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
11842 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
11843 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11846 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11848 COUDE =FACT(statut='o',min=1,max=1,
11849 ANGLE =SIMP(statut='o',typ='R' ),
11850 R_CINTR =SIMP(statut='o',typ='R' ),
11851 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
11852 L_TUBE_P2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11853 NB_ELEM_EPAIS =SIMP(statut='f',typ='I',defaut= 3 ),
11854 SYME =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11855 TRANSFORMEE =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11856 b_transf_coude =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11857 DEXT =SIMP(statut='o',typ='R' ),
11858 EPAIS =SIMP(statut='o',typ='R' ),
11859 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11860 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11862 b_transf_tube =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11863 TRAN_EPAIS =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11864 b_trans_epais_oui =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11865 regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11866 UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11867 DEXT_T1 =SIMP(statut='o',typ='R' ),
11868 EPAIS_T1 =SIMP(statut='o',typ='R' ),
11869 EPAIS_T2 =SIMP(statut='o',typ='R' ),
11870 EPAIS_TI =SIMP(statut='f',typ='R' ),
11871 ANGL_TETA1 =SIMP(statut='o',typ='R' ),
11872 ANGL_TETA2 =SIMP(statut='f',typ='R' ),
11873 ABSC_CURV_TRAN =SIMP(statut='f',typ='R' ),
11874 POSI_ANGU_TRAN =SIMP(statut='f',typ='R' ),
11876 b_trans_epais_non =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11877 DEXT =SIMP(statut='o',typ='R' ),
11878 EPAIS =SIMP(statut='o',typ='R' ),
11879 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11880 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11885 SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11886 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11887 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11888 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11889 AXE_CIRC =SIMP(statut='f',typ='R' ),
11890 AXE_LONGI =SIMP(statut='o',typ='R' ),
11891 PROFONDEUR =SIMP(statut='o',typ='R' ),
11892 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11893 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11894 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
11895 AZIMUT =SIMP(statut='f',typ='R' ),
11896 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11897 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
11898 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
11899 NB_ELEM_RADI =SIMP(statut='f',typ='I',defaut= 3 ),
11900 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11903 SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11904 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11905 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11906 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11907 AXE_CIRC =SIMP(statut='f',typ='R' ),
11908 AXE_LONGI =SIMP(statut='o',typ='R' ),
11909 PROFONDEUR =SIMP(statut='o',typ='R' ),
11910 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11911 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11912 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
11913 AZIMUT =SIMP(statut='f',typ='R' ),
11914 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11915 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
11916 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
11917 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11920 FISS_COUDE =FACT(statut='f',min=1,max=1,
11921 regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11922 AXIS =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11923 b_axis_non =BLOC(condition = "AXIS == 'NON' ",
11924 LONGUEUR =SIMP(statut='o',typ='R' ),
11926 b_axis_oui =BLOC(condition = "AXIS == 'OUI' ",
11927 LONGUEUR =SIMP(statut='f',typ='R' ),
11929 PROFONDEUR =SIMP(statut='o',typ='R' ),
11930 ABSC_CURV =SIMP(statut='f',typ='R' ),
11931 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11932 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
11933 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
11934 ORIEN =SIMP(statut='o',typ='R',
11935 into=(45.,-45.,90.,0.E+0) ),
11936 NB_TRANCHE =SIMP(statut='o',typ='I' ),
11937 NB_SECTEUR =SIMP(statut='o',typ='I' ),
11938 NB_COURONNE =SIMP(statut='o',typ='I' ),
11939 RAYON_TORE =SIMP(statut='f',typ='R' ),
11940 COEF_MULT_RC2 =SIMP(statut='f',typ='R',defaut= 1. ),
11941 COEF_MULT_RC3 =SIMP(statut='f',typ='R' ),
11942 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.5 ),
11945 IMPRESSION =FACT(statut='f',min=1,max='**',
11946 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11947 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",
11948 into=("ASTER","IDEAS","CASTEM") ),
11949 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11950 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11952 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11953 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11955 FICHIER =SIMP(statut='f',typ='TXM' ),
11956 UNITE =SIMP(statut='f',typ='I' ),
11959 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11961 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11962 # CONFIGURATION MANAGEMENT OF EDF VERSION
11963 # ======================================================================
11964 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11965 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11966 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11967 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11968 # (AT YOUR OPTION) ANY LATER VERSION.
11970 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11971 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11972 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11973 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11975 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11976 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11977 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11978 # ======================================================================
11979 # RESPONSABLE F1BHHAJ J.ANGLES
11980 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
11981 if MODELE != None:self.type_sdprod(MODELE,modele)
11982 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11983 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
11984 if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
11985 if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
11986 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
11987 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
11990 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
11991 fr=" ",docu="U4.PC.20-b2",reentrant='n',
11992 UIinfo={"groupes":("Outils métier",)},
11993 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11995 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
11996 into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
11997 "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
11999 TUBULURE =FACT(statut='o',min=1,max=1,
12000 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
12002 MAILLAGE =SIMP(statut='o',typ=maillage),
12003 MODELE =SIMP(statut='f',typ=(CO,modele)),
12004 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
12005 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
12006 FOND_FISS_1 =SIMP(statut='f',typ=(CO,fond_fiss)),
12007 FOND_FISS_2 =SIMP(statut='f',typ=(CO,fond_fiss)),
12008 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
12009 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
12011 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
12012 regles=(UN_PARMI('TOUT','GROUP_MA'),),
12013 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
12014 GROUP_MA =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
12015 MATER =SIMP(statut='o',typ=mater),
12016 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12017 RCCM =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
12020 EQUILIBRE =FACT(statut='o',min=1,max=1,
12021 NOEUD =SIMP(statut='o',typ=no),
12024 PRES_REP =FACT(statut='o',min=1,max=1,
12025 PRES =SIMP(statut='o',typ='R'),
12026 NOEUD =SIMP(statut='f',typ=no),
12027 EFFE_FOND =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12028 PRES_LEVRE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12029 FONC_MULT =SIMP(statut='f',typ=fonction),
12032 ECHANGE =FACT(statut='f',min=1,max=1,
12033 COEF_H_TUBU =SIMP(statut='o',typ=fonction),
12034 COEF_H_CORP =SIMP(statut='o',typ=fonction),
12035 TEMP_EXT =SIMP(statut='o',typ=fonction),
12038 TORS_CORP =FACT(statut='f',min=1,max=6,
12039 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12040 NOEUD =SIMP(statut='o',typ=no),
12041 FX =SIMP(statut='f',typ='R'),
12042 FY =SIMP(statut='f',typ='R'),
12043 FZ =SIMP(statut='f',typ='R'),
12044 MX =SIMP(statut='f',typ='R'),
12045 MY =SIMP(statut='f',typ='R'),
12046 MZ =SIMP(statut='f',typ='R'),
12047 FONC_MULT =SIMP(statut='f',typ=fonction),
12050 TORS_TUBU =FACT(statut='f',min=1,max=6,
12051 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12052 FX =SIMP(statut='f',typ='R'),
12053 FY =SIMP(statut='f',typ='R'),
12054 FZ =SIMP(statut='f',typ='R'),
12055 MX =SIMP(statut='f',typ='R'),
12056 MY =SIMP(statut='f',typ='R'),
12057 MZ =SIMP(statut='f',typ='R'),
12058 FONC_MULT =SIMP(statut='f',typ=fonction),
12061 COMP_INCR =FACT(statut='f',min=1,max=1,
12062 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12063 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12066 COMP_ELAS =FACT(statut='f',min=1,max=1,
12067 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12068 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12069 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12072 THETA_3D =FACT(statut='f',min=1,max='**',
12073 R_INF =SIMP(statut='o',typ='R'),
12074 R_SUP =SIMP(statut='o',typ='R'),
12077 OPTION =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
12078 BORNES =FACT(statut='f',min=1,max='**',
12079 NUME_ORDRE =SIMP(statut='o',typ='I'),
12080 VALE_MIN =SIMP(statut='o',typ='R'),
12081 VALE_MAX =SIMP(statut='o',typ='R'),
12084 SOLVEUR =FACT(statut='d',min=1,max=1,
12085 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12086 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12087 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12089 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12090 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12092 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12093 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12094 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12095 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12097 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12098 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12099 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12100 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12101 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12102 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12105 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12106 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12109 CONVERGENCE =FACT(statut='d',min=1,max=1,
12110 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
12111 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
12112 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
12113 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
12114 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-6),
12115 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut=10),
12116 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut=0),
12117 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12118 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12121 NEWTON =FACT(statut='d',min=1,max=1,
12122 REAC_INCR =SIMP(statut='f',typ='I',defaut=1),
12123 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
12124 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
12125 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
12128 RECH_LINEAIRE =FACT(statut='d',min=1,max=1,
12129 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-3),
12130 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut=3),
12133 INCREMENT =FACT(statut='o',min=1,max=1,
12134 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12135 EXCLUS('NUME_INST_FIN','INST_FIN'),),
12136 LIST_INST =SIMP(statut='o',typ=listr8),
12137 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12138 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12139 NUME_INST_INIT =SIMP(statut='f',typ='I'),
12140 INST_INIT =SIMP(statut='f',typ='R'),
12141 NUME_INST_FIN =SIMP(statut='f',typ='I'),
12142 INST_FIN =SIMP(statut='f',typ='R'),
12143 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12144 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
12145 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
12146 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12149 PAS_AZIMUT =SIMP(statut='f',typ='I',defaut=1),
12151 IMPRESSION =FACT(statut='f',min=1,max=1,
12152 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12153 into=("RESULTAT","ASTER","CASTEM","IDEAS")),
12155 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12156 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12159 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12160 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12163 b_extrac =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
12164 fr="extraction d un champ de grandeur",
12165 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
12166 NOM_CHAM =SIMP(statut='f',typ='TXM',max=3,
12167 into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
12169 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12170 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
12171 INST =SIMP(statut='f',typ='R',max='**'),
12175 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12177 TITRE =SIMP(statut='f',typ='TXM'),
12180 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12181 # CONFIGURATION MANAGEMENT OF EDF VERSION
12182 # ======================================================================
12183 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12184 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12185 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12186 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12187 # (AT YOUR OPTION) ANY LATER VERSION.
12189 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12190 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12191 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12192 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12194 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12195 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12196 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12197 # ======================================================================
12198 # RESPONSABLE F1BHHAJ J.ANGLES
12199 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
12200 fr=" ",docu="U4.PC.10-b1",
12201 UIinfo={"groupes":("Outils métier",)},
12203 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
12204 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
12205 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
12206 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
12207 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12210 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
12212 RAFF_MAIL =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
12214 TUBULURE =FACT(statut='o',min=1,max=1,
12215 E_BASE =SIMP(statut='o',typ='R'),
12216 DEXT_BASE =SIMP(statut='o',typ='R'),
12217 L_BASE =SIMP(statut='o',typ='R'),
12218 L_CHANF =SIMP(statut='o',typ='R'),
12219 E_TUBU =SIMP(statut='o',typ='R'),
12220 DEXT_TUBU =SIMP(statut='o',typ='R'),
12221 Z_MAX =SIMP(statut='o',typ='R'),
12222 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
12223 L_PENETR =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12226 SOUDURE =FACT(statut='o',min=1,max=1,
12227 H_SOUD =SIMP(statut='o',typ='R'),
12228 ANGL_SOUD =SIMP(statut='o',typ='R'),
12229 JEU_SOUD =SIMP(statut='o',typ='R'),
12232 CORPS =FACT(statut='o',min=1,max=1,
12233 E_CORP =SIMP(statut='o',typ='R'),
12234 DEXT_CORP =SIMP(statut='o',typ='R'),
12235 X_MAX =SIMP(statut='o',typ='R'),
12238 FISS_SOUDURE =FACT(statut='f',min=1,max=1,
12239 TYPE =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
12240 AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12241 PROFONDEUR =SIMP(statut='o',typ='R'),
12242 LONGUEUR =SIMP(statut='f',typ='R'),
12243 AZIMUT =SIMP(statut='o',typ='R'),
12244 RAYON_TORE =SIMP(statut='f',typ='R'),
12245 POSITION =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
12246 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
12247 LIGA_INT =SIMP(statut='f',typ='R'),
12248 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12249 COEF_MULT_RC1 =SIMP(statut='f',typ='R'),
12250 COEF_MULT_RC2 =SIMP(statut='f',typ='R'),
12251 COEF_MULT_RC3 =SIMP(statut='f',typ='R'),
12252 NB_TRANCHE =SIMP(statut='f',typ='I'),
12253 NB_SECTEUR =SIMP(statut='f',typ='I'),
12254 NB_COURONNE =SIMP(statut='f',typ='I'),
12257 IMPRESSION =FACT(statut='f',min=1,max='**',
12258 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12259 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
12261 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12262 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12265 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12266 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12268 FICHIER =SIMP(statut='f',typ='TXM'),
12269 UNITE =SIMP(statut='f',typ='I'),
12272 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12274 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12275 # CONFIGURATION MANAGEMENT OF EDF VERSION
12276 # ======================================================================
12277 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12281 # (AT YOUR OPTION) ANY LATER VERSION.
12283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12290 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12291 # ======================================================================
12292 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
12293 fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12294 docu="U4.65.01-e1",reentrant='n',
12295 UIinfo={"groupes":("Matrices/vecteurs",)},
12296 regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12297 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
12298 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
12299 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
12300 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
12301 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
12302 OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12305 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12306 # CONFIGURATION MANAGEMENT OF EDF VERSION
12307 # ======================================================================
12308 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12309 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12310 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12311 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12312 # (AT YOUR OPTION) ANY LATER VERSION.
12314 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12315 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12316 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12317 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12319 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12320 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12321 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12322 # ======================================================================
12323 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
12324 UIinfo={"groupes":("Matrices/vecteurs",)},
12325 fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12326 regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12327 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12328 DEFINITION =FACT(statut='f',min=1,max=1,
12329 MODELE =SIMP(statut='o',typ=modele),
12330 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12331 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12332 CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
12333 INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12334 NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
12335 NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
12337 EXTERIEUR =FACT(statut='f',min=1,max=1,
12338 regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12339 NOEUD =SIMP(statut='f',typ=no,max='**'),
12340 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12342 RIGI_MECA =FACT(statut='f',min=1,max=1,
12344 MASS_MECA =FACT(statut='f',min=1,max=1,
12345 BIDO1 =SIMP(statut='f',typ='I',defaut=0),
12347 CAS_CHARGE =FACT(statut='f',min=1,max='**',
12348 NOM_CAS =SIMP(statut='o',typ='TXM'),
12349 SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12350 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
12351 INST =SIMP(statut='f',typ='R',defaut=0.E+0),
12354 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12355 # CONFIGURATION MANAGEMENT OF EDF VERSION
12356 # ======================================================================
12357 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12361 # (AT YOUR OPTION) ANY LATER VERSION.
12363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12370 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12371 # ======================================================================
12372 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12373 fr=" ",docu="U4.GJ.20-a",reentrant='n',
12374 UIinfo={"groupes":("Outils métier",)},
12375 MAILLAGE =SIMP(statut='o',typ=maillage),
12376 DEFI_GOUJ =FACT(statut='o',min=1,max=1,
12377 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12378 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12379 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12380 FILET_TRONQUE =SIMP(statut='f',typ='I',max='**'),
12381 FILET_TRONQA =SIMP(statut='f',typ='I',max='**'),
12382 FILET_TRONQB =SIMP(statut='f',typ='I',max='**'),
12383 FILET_JEU_HT =SIMP(statut='f',typ='I',max='**'),
12384 FILET_JEU_HTA =SIMP(statut='f',typ='I',max='**'),
12385 FILET_JEU_HTB =SIMP(statut='f',typ='I',max='**'),
12387 EXCIT =FACT(statut='o',min=1,max=1,
12388 TYPE_BLOCAGE =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12389 FORCE_GOUJ =SIMP(statut='o',typ='R'),
12391 CALCUL =FACT(statut='o',min=1,max=1,
12392 TYPE_CALCUL =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12393 NB_INCR =SIMP(statut='o',typ='I'),
12395 IMPRESSION =FACT(statut='f',min=1,max=1,
12396 FORMAT =SIMP(statut='f',typ='TXM',defaut="TABLE",
12397 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12398 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12400 TITRE =SIMP(statut='f',typ='TXM'),
12401 INFO =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12403 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12404 # CONFIGURATION MANAGEMENT OF EDF VERSION
12405 # ======================================================================
12406 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12410 # (AT YOUR OPTION) ANY LATER VERSION.
12412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12419 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12420 # ======================================================================
12421 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12422 fr=" ",docu="U4.GJ.10-a",reentrant='n',
12423 UIinfo={"groupes":("Outils métier",)},
12424 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
12425 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12426 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
12427 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
12428 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12430 DEFI_GOUJ =FACT(statut='o',min=1,max=1,
12431 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12432 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12433 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12435 GEOM_GOUJ_BRID =FACT(statut='o',min=1,max=1,
12436 NB_FILET =SIMP(statut='o',typ='I'),
12437 H_CORP_BRID =SIMP(statut='o',typ='R'),
12438 R_EXT_BRID =SIMP(statut='o',typ='R'),
12439 H_HAUT_BRID =SIMP(statut='f',typ='R',defaut=0.0E+0),
12440 H_BAS_BRID =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12441 FILET_ABST =SIMP(statut='f',typ='I',max='**'),
12443 IMPRESSION =FACT(statut='f',min=1,max=1,
12444 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12445 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12446 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12447 FICHIER =SIMP(statut='f',typ='TXM'),
12448 UNITE =SIMP(statut='f',typ='I'),
12449 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12450 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12452 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12454 #& MODIF COMMANDE DATE 08/10/2002 AUTEUR GNICOLAS G.NICOLAS
12455 # CONFIGURATION MANAGEMENT OF EDF VERSION
12456 # ======================================================================
12457 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12461 # (AT YOUR OPTION) ANY LATER VERSION.
12463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12470 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12471 # ======================================================================
12472 # RESPONSABLE GNICOLAS G.NICOLAS
12473 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
12474 fr="Donner des informations sur un maillage.",
12475 ang="To give information about a mesh.",
12477 # 1. Le niveau d'information
12479 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12481 # 2. Version de HOMARD
12483 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
12484 into=("V5_5", "V5_N","V5_N_PERSO"),
12485 fr="Version de HOMARD",
12486 ang="HOMARD release"),
12488 # 3. Langue des messages issus de HOMARD
12490 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12491 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12492 fr="Langue des messages issus de HOMARD.",
12493 ang="Language for HOMARD messages." ),
12495 # 4. Le nom du maillage a analyser
12497 MAILLAGE = SIMP(statut='o',typ=maillage,
12498 fr="Maillage à analyser.",
12499 ang="Mesh to be checked." ),
12501 # 5. Les options ; par defaut, on ne fait que les nombres
12502 # 5.1. Nombre de noeuds et elements
12504 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12505 fr="Nombre de noeuds et éléments du maillage",
12506 ang="Number of nodes and elements in the mesh" ),
12508 # 5.2. Determination de la qualite des elements du maillage
12510 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12511 fr="Qualité du maillage",
12512 ang="Mesh quality" ),
12514 # 5.3. Connexite du maillage
12516 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12517 fr="Connexité du maillage.",
12518 ang="Mesh connexity." ),
12520 # 5.4. Taille des sous-domaines du maillage
12522 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12523 fr="Tailles des sous-domaines du maillage.",
12524 ang="Sizes of mesh sub-domains." ),
12526 # 5.5. Controle de la non-interpenetration des elements
12528 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12529 fr="Controle de la non interpénétration des éléments.",
12530 ang="Overlapping checking." ),
12533 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12534 # CONFIGURATION MANAGEMENT OF EDF VERSION
12535 # ======================================================================
12536 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
12537 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12538 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12539 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12540 # (AT YOUR OPTION) ANY LATER VERSION.
12542 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12543 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12544 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12545 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12547 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12548 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12549 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12550 # ======================================================================
12552 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12554 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12555 if not LIGN_COUPE: raise AsException("Impossible de typer les concepts resultats")
12556 for m in LIGN_COUPE:
12557 self.type_sdprod(m['TABLE'],table)
12561 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12562 docu="",reentrant='n',
12563 UIinfo={"groupes":("Outils métier",)},
12564 fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12565 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12566 b_meca =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12567 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12569 b_ther =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12570 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12572 MODELE =SIMP(statut='o',typ=modele ),
12573 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=25),
12574 LIGN_COUPE =FACT(statut='o',min=1,max='**',
12575 NB_POINTS =SIMP(statut='o',typ='I'),
12576 COOR_ORIG =SIMP(statut='o',typ='R',min=2,max=3),
12577 COOR_EXTR =SIMP(statut='o',typ='R',min=2,max=3),
12578 TABLE =SIMP(statut='o',typ=(table,CO)),
12581 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12582 # CONFIGURATION MANAGEMENT OF EDF VERSION
12583 # ======================================================================
12584 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
12585 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12586 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12587 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12588 # (AT YOUR OPTION) ANY LATER VERSION.
12590 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12591 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12592 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12593 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12595 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12596 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12597 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12598 # ======================================================================
12600 from Macro.macr_recal_ops import macr_recal_ops
12602 def macr_recal_prod(self,**args ):
12605 MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,docu="U4.73.02",
12606 UIinfo={"groupes":("Résultats et champs",)},
12607 sd_prod=macr_recal_prod,
12608 fr="Réalise le recalage de modèles Aster",
12609 UNITE_ESCL =SIMP(statut='o',typ='I'),
12610 RESU_EXP =SIMP(statut='o',typ=assd,min = 1, max='**'),
12611 RESU_CALC =SIMP(statut='o',typ=assd,min = 1, max='**'),
12612 LIST_PARA =SIMP(statut='o',typ=assd,min = 1, max='**'),
12613 ITER_MAXI =SIMP(statut='f',typ='I',defaut=10),
12614 RESI_GLOB_RELA =SIMP(statut='f',typ='R',defaut=1.E-3),
12615 UNITE_RESU =SIMP(statut='f',typ='I',defaut=91),
12616 PARA_DIFF_FINI =SIMP(statut='f',typ='R',defaut=0.001),
12617 GRAPHIQUE =FACT(statut='d',min=1,max=1,
12618 UNITE =SIMP(statut='f',typ='I',defaut=90),
12619 INTERACTIF =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),)
12621 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12622 # CONFIGURATION MANAGEMENT OF EDF VERSION
12623 # ======================================================================
12624 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12625 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12626 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12627 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12628 # (AT YOUR OPTION) ANY LATER VERSION.
12630 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12631 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12632 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12633 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12635 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12636 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12637 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12638 # ======================================================================
12639 # RESPONSABLE JMBHH01 J.M.PROIX
12641 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12643 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12644 docu="U4.42.02-d1",reentrant='n',
12645 UIinfo={"groupes":("Modélisation",)},
12646 fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12647 regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12648 EXCLUS('SYME_Y','GROUP_MA_BORD'),
12649 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12650 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
12651 SYME_X =SIMP(statut='f',typ='TXM',into=("OUI",)),
12652 SYME_Y =SIMP(statut='f',typ='TXM',into=("OUI",)),
12653 GROUP_MA_BORD =SIMP(statut='f',typ=grma,max='**'),
12654 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
12655 ORIG_INER =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12656 NOEUD =SIMP(statut='f',typ=no,max='**'),
12657 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
12658 LONGUEUR =SIMP(statut='f',typ='R'),
12659 MATERIAU =SIMP(statut='f',typ=mater),
12660 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12661 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12663 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12664 # CONFIGURATION MANAGEMENT OF EDF VERSION
12665 # ======================================================================
12666 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12667 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12668 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12669 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12670 # (AT YOUR OPTION) ANY LATER VERSION.
12672 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12673 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12674 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12675 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12677 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12678 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12679 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12680 # ======================================================================
12681 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12682 fr=" ",docu="U4.72.07-a",reentrant='n',
12683 UIinfo={"groupes":("Résultats et champs",)},
12684 MODELE =SIMP(statut='o',typ=modele),
12685 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
12686 CHARGE =SIMP(statut='o',typ=char_meca),
12687 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12688 COEF_IMPO =SIMP(statut='f',typ='R',defaut=1.0E+0),
12689 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12690 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12692 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12693 # CONFIGURATION MANAGEMENT OF EDF VERSION
12694 # ======================================================================
12695 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12696 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12697 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12698 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12699 # (AT YOUR OPTION) ANY LATER VERSION.
12701 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12702 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12703 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12704 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12706 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12707 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12708 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12709 # ======================================================================
12710 # RESPONSABLE G8BHHXD X.DESROCHES
12712 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12714 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12715 self.type_sdprod(NUME_DDL,nume_ddl)
12716 if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
12717 if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12718 raise AsException("type de concept resultat non prevu")
12720 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,docu="U4.51.02-d2",reentrant='f',
12721 UIinfo={"groupes":("Résolution",)},
12722 regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12723 MODELE =SIMP(statut='o',typ=modele),
12724 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12725 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12726 NUME_DDL =SIMP(statut='f',typ=(nume_ddl,CO)),
12727 CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12728 CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12729 LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12730 CAS_CHARGE =FACT(statut='o',min=1,max='**',
12731 regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12732 UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12733 NOM_CAS =SIMP(statut='f',typ='TXM' ),
12734 MODE_FOURIER =SIMP(statut='f',typ='I' ),
12735 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12736 CHAR_MECA =SIMP(statut='f',typ=char_meca,max='**'),
12737 CHAR_CINE =SIMP(statut='f',typ=char_meca,max='**'),
12738 OPTION =SIMP(statut='f',typ='TXM',max='**',
12739 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12740 "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12741 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12742 "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12743 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12744 "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12745 "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12746 "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12747 "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12748 "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12749 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
12750 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12751 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
12752 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
12754 SOLVEUR =FACT(statut='d',min=1,max=1,
12755 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12756 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12757 fr="Paramètres de la méthode multi frontale",
12758 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12760 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12761 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12763 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12764 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12765 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12766 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12769 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12770 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12772 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12773 # CONFIGURATION MANAGEMENT OF EDF VERSION
12774 # ======================================================================
12775 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12776 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12777 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12778 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12779 # (AT YOUR OPTION) ANY LATER VERSION.
12781 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12782 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12783 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12784 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12786 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12787 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12788 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12789 # ======================================================================
12790 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12791 UIinfo={"groupes":("Résolution",)},
12792 fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12793 regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12794 UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12795 PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12796 FICHIER =SIMP(statut='f',typ='TXM' ),
12797 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12798 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12799 MAILLAGE =SIMP(statut='o',typ=maillage),
12800 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
12801 CHARGE =SIMP(statut='o',typ=char_meca,max='**'),
12802 MATR_ELEM_RIGI =SIMP(statut='f',typ=matr_elem_depl_r),
12803 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r),
12804 MATR_ELEM_MASS =SIMP(statut='f',typ=matr_elem_depl_r),
12805 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r),
12806 MATR_ELEM_AMOR =SIMP(statut='f',typ=matr_elem_depl_r),
12807 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r),
12808 MODE_MECA =SIMP(statut='o',typ=mode_meca),
12809 NMAX_MODE =SIMP(statut='f',typ='I',defaut=10),
12810 INTERFACE =FACT(statut='f',min=1,max='**',
12811 regles=(UN_PARMI('NOEUD','GROUP_NO'),
12812 UN_PARMI('DDL_ACTIF','MASQUE'),),
12813 NOM =SIMP(statut='o',typ='TXM'),
12814 NOEUD =SIMP(statut='f',typ=no,max='**'),
12815 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12816 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
12817 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
12819 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12821 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12822 # CONFIGURATION MANAGEMENT OF EDF VERSION
12823 # ======================================================================
12824 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12825 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12826 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12827 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12828 # (AT YOUR OPTION) ANY LATER VERSION.
12830 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12831 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12832 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12833 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12835 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12836 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12837 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12838 # ======================================================================
12839 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12840 self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12841 self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12842 self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12843 if FORC_AJOU != None:
12844 for m in FORC_AJOU:
12845 self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12849 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
12850 UIinfo={"groupes":("Matrices/vecteurs",)},
12851 regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12852 AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12853 EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12854 EXCLUS('MONO_APPUI','MODE_STAT',),
12856 MAILLAGE =SIMP(statut='o',typ=maillage),
12857 GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12858 GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12859 MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12860 FLUIDE =FACT(statut='o',min=1,max='**',
12861 RHO =SIMP(statut='o',typ='R'),
12862 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
12863 GROUP_MA =SIMP(statut='f',typ=grma),
12864 MAILLE =SIMP(statut='f',typ=ma),
12866 DDL_IMPO =FACT(statut='o',min=1,max='**',
12867 regles=(UN_PARMI('NOEUD','GROUP_NO'),
12868 UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12869 NOEUD =SIMP(statut='f',typ=no),
12870 GROUP_NO =SIMP(statut='f',typ=grno),
12871 PRES_FLUIDE =SIMP(statut='f',typ='R'),
12872 PRES_SORTIE =SIMP(statut='f',typ='R'),
12874 ECOULEMENT =FACT(statut='f',min=1,max='**',
12875 GROUP_MA_1 =SIMP(statut='o',typ=grma),
12876 GROUP_MA_2 =SIMP(statut='o',typ=grma),
12877 VNOR_1 =SIMP(statut='o',typ='R'),
12878 VNOR_2 =SIMP(statut='f',typ='R'),
12879 POTENTIEL =SIMP(statut='f',typ=evol_ther),
12881 MODE_MECA =SIMP(statut='f',typ=mode_meca),
12882 DEPL_IMPO =SIMP(statut='f',typ=cham_no_depl_r),
12883 MODELE_GENE =SIMP(statut='f',typ=modele_gene),
12884 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
12885 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12886 MATR_MASS_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12887 MATR_RIGI_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12888 MATR_AMOR_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12889 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
12890 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12891 FORC_AJOU =FACT(statut='f',min=1,max='**',
12892 DIRECTION =SIMP(statut='o',typ='R',max=3),
12893 NOEUD =SIMP(statut='f',typ=no,max='**'),
12894 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12895 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12897 SOLVEUR =FACT(statut='d',min=1,max=1,
12898 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12899 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12900 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12902 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12903 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12905 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12906 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12907 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12908 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12910 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12911 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12912 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12913 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12914 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12915 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12918 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12920 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12921 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12922 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12924 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12925 # CONFIGURATION MANAGEMENT OF EDF VERSION
12926 # ======================================================================
12927 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12928 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12929 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12930 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12931 # (AT YOUR OPTION) ANY LATER VERSION.
12933 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12934 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12935 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12936 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12938 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12939 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12940 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12941 # ======================================================================
12943 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
12945 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
12946 if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
12947 if not NUME_DDL: raise AsException("Impossible de typer les concepts resultats")
12948 self.type_sdprod(NUME_DDL,nume_ddl)
12949 for m in MATR_ASSE:
12952 if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
12953 "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
12954 "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
12955 "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
12957 if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
12959 if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
12960 "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
12962 if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
12964 self.type_sdprod(m['MATRICE'],t)
12967 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
12968 UIinfo={"groupes":("Matrices/vecteurs",)},
12969 sd_prod=macro_matr_asse_prod,
12970 fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
12971 MODELE =SIMP(statut='o',typ=modele),
12972 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12973 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12974 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
12975 INST =SIMP(statut='f',typ='R'),
12976 NUME_DDL =SIMP(statut='o',typ=(nume_ddl,CO)),
12977 SOLVEUR =FACT(statut='d',min=1,max=1,
12978 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
12979 into=("LDLT","MULT_FRONT","GCPC")),
12980 RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
12982 MATR_ASSE =FACT(statut='o',min=1,max='**',
12983 MATRICE =SIMP(statut='o',typ=(matr_asse,CO)),
12984 OPTION =SIMP(statut='o',typ='TXM',
12985 into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
12986 "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
12987 "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
12988 "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
12989 "RIGI_THER","MASS_THER",
12990 "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
12991 "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
12993 SIEF_ELGA =SIMP(statut='f',typ=cham_elem_sief_r),
12994 MODE_FOURIER =SIMP(statut='f',typ='I'),
12995 THETA =SIMP(statut='f',typ=theta_geom),
12996 PROPAGATION =SIMP(statut='f',typ='R'),
12998 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12999 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13001 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13002 # CONFIGURATION MANAGEMENT OF EDF VERSION
13003 # ======================================================================
13004 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13008 # (AT YOUR OPTION) ANY LATER VERSION.
13010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13017 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13018 # ======================================================================
13020 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
13022 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
13023 UIinfo={"groupes":("Matrices/vecteurs",)},
13024 OPTION =FACT(statut='o',min=1,max=1,
13025 regles=(UN_PARMI('TOUT','MODULE'),),
13026 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
13027 MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
13029 PROJET =SIMP(statut='o',typ='TXM'),
13030 REPERTOIRE =SIMP(statut='f',typ='TXM'),
13031 UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
13032 UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
13033 UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
13034 UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
13036 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13037 # CONFIGURATION MANAGEMENT OF EDF VERSION
13038 # ======================================================================
13039 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13043 # (AT YOUR OPTION) ANY LATER VERSION.
13045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13052 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13053 # ======================================================================
13055 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
13057 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
13058 self.type_sdprod(MATR_A,matr_asse_depl_r)
13059 self.type_sdprod(MATR_B,matr_asse_depl_r)
13062 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
13063 docu="U4.52.02-d1",reentrant='n',
13064 UIinfo={"groupes":("Résolution",)},
13065 MATR_A =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13066 MATR_B =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13067 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13068 # ce mot cle ne devrait il pas etre dans calc_freq
13069 METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
13070 into=("TRI_DIAG","JACOBI","SORENSEN",) ),
13071 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13072 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13073 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13074 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13075 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13077 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13078 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13079 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13080 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13081 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13083 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13084 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13085 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13086 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13088 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
13089 into=("MODE_RIGIDE","SANS") ),
13090 CALC_FREQ =FACT(statut='d',min=0,max=1,
13091 regles=(UN_PARMI('FREQ','FREQ_MAX'),
13092 PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
13093 PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
13094 EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13095 FREQ =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
13096 FREQ_MIN =SIMP(statut='f',typ='R' ),
13097 FREQ_MAX =SIMP(statut='f',typ='R' ),
13098 NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
13099 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13100 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13101 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
13102 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
13103 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
13104 SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
13105 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
13107 VERI_MODE =FACT(statut='d',min=0,max=1,
13108 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13109 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13110 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
13111 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13113 NORM_MODE =FACT(statut='o',min=1,max='**',
13114 MASS_INER =SIMP(statut='o',typ=tabl_mass_iner ),
13115 NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
13116 into=("MASS_GENE","RIGI_GENE","EUCL",
13117 "EUCL_TRAN","TRAN","TRAN_ROTA") ),
13118 INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
13120 FILTRE_MODE =FACT(statut='f',min=1,max=1,
13121 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13122 into=("MASS_EFFE_UN","MASS_GENE") ),
13123 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13125 IMPRESSION =FACT(statut='d',min=1,max=1,
13126 TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13127 CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13128 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13129 into=("MASS_EFFE_UN","MASS_GENE",) ),
13132 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13133 # CONFIGURATION MANAGEMENT OF EDF VERSION
13134 # ======================================================================
13135 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13136 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13137 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13138 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13139 # (AT YOUR OPTION) ANY LATER VERSION.
13141 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13142 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13143 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13144 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13146 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13147 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13148 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13149 # ======================================================================
13151 from Macro.macro_proj_base_ops import macro_proj_base_ops
13153 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
13154 if MATR_ASSE_GENE != None:
13155 for m in MATR_ASSE_GENE:
13156 self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
13157 self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
13158 if VECT_ASSE_GENE != None:
13159 for v in VECT_ASSE_GENE:
13160 self.type_sdprod(v['VECTEUR'],vect_asse_gene)
13163 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
13164 UIinfo={"groupes":("Matrices/vecteurs",)},
13165 sd_prod=macro_proj_base_prod,
13166 fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
13167 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
13168 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
13169 MATR_ASSE_GENE =FACT(statut='f',min=1,max='**',
13170 MATRICE =SIMP(statut='o',typ=(CO,matr_asse)),
13171 MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r),
13172 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
13173 PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
13175 VECT_ASSE_GENE =FACT(statut='f',min=1,max='**',
13176 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse)),
13177 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
13178 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
13179 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
13181 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13183 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13184 # CONFIGURATION MANAGEMENT OF EDF VERSION
13185 # ======================================================================
13186 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13187 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13188 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13189 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13190 # (AT YOUR OPTION) ANY LATER VERSION.
13192 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13193 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13194 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13195 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13197 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13198 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13199 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13200 # ======================================================================
13201 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
13202 UIinfo={"groupes":("Gestion du travail",)},
13203 fr="Compilation des catalogues de commandes et d éléments",
13205 ELEMENT =FACT(statut='f',min=1,max=1,),
13208 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13209 # CONFIGURATION MANAGEMENT OF EDF VERSION
13210 # ======================================================================
13211 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13212 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13213 # REDISTRIBUTION OF THIS FILE.
13214 # ======================================================================
13215 # RESPONSABLE VABHHTS J.PELLET
13216 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
13217 fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
13218 UIinfo={"groupes":("Résolution",)},
13219 regles=(EXCLUS("INST","LIST_INST"),
13220 AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
13221 MODELE =SIMP(statut='o',typ=modele),
13222 CHAM_MATER =SIMP(statut='f',typ=cham_mater,
13223 fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
13224 ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
13225 CARA_ELEM =SIMP(statut='f',typ=cara_elem,
13226 fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
13227 ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
13228 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13229 EXCIT =FACT(statut='o',min=1,max='**',
13230 CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
13231 FONC_MULT =SIMP(statut='f',typ=fonction),
13232 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
13234 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13235 LIST_INST =SIMP(statut='f',typ=listr8),
13236 OPTION =SIMP(statut='f',typ='TXM',max='**',
13237 into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
13238 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
13239 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
13240 "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
13241 "ENEL_ELGA","ENEL_ELNO_ELGA") ),
13242 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
13243 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
13244 ANGLE =SIMP(statut='f',typ='I',defaut=0),
13245 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
13246 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13247 fr="Liste des paramètres de sensibilité.",
13248 ang="List of sensitivity parameters"),
13249 SOLVEUR =FACT(statut='d',min=1,max=1,
13250 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13251 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13252 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13254 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13255 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13257 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13258 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13259 NPREC =SIMP(statut='f',typ='I',defaut=8),
13260 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13262 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13263 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13264 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13265 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13266 RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
13267 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
13270 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13272 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
13274 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13275 # CONFIGURATION MANAGEMENT OF EDF VERSION
13276 # ======================================================================
13277 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13281 # (AT YOUR OPTION) ANY LATER VERSION.
13283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13290 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13291 # ======================================================================
13292 # RESPONSABLE GNICOLAS G.NICOLAS
13293 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
13294 UIinfo={"groupes":("Fonction",)},
13295 fr="Mémorisation des noms des concepts dérivés.",
13296 ang="Memorisation of the names of the sensitive concepts.",
13298 regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
13300 NOM=FACT(statut='f',max='**',
13301 regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
13303 NOM_SD=SIMP(statut='o',typ='TXM',
13304 fr="Nom de la structure de base",
13305 ang="Name of the basic structure"),
13307 PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
13308 fr="Nom du paramètre sensible",
13309 ang="Name of the sensitive parameter"),
13311 NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
13312 fr="Nom de la structure composée",
13313 ang="Name of the built structure"),
13315 MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
13316 fr="Liste des mots clés concernés par la dérivation",
13317 ang="Keyword list involved in derivation"),
13319 VALEUR=SIMP(statut='f',typ='TXM',max='**',
13320 fr="Liste des objets concernés par la dérivation",
13321 ang="Object list involved in derivation"),
13325 NOM_ZERO=SIMP(statut='f',typ=fonction,
13326 fr="Nom de la fonction nulle",
13327 ang="Name of the zero fonction"),
13329 NOM_UN=SIMP (statut='f',typ=fonction,
13330 fr="Nom de la fonction unité",
13331 ang="Name of the one fonction"),
13334 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13335 # CONFIGURATION MANAGEMENT OF EDF VERSION
13336 # ======================================================================
13337 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13341 # (AT YOUR OPTION) ANY LATER VERSION.
13343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13350 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13351 # ======================================================================
13352 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
13353 fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13354 docu="U4.52.05-e",reentrant='n',
13355 UIinfo={"groupes":("Résolution",)},
13356 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
13357 NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
13358 NB_SECTEUR =SIMP(statut='o',typ='I' ),
13359 LIAISON =FACT(statut='o',min=1,max=1,
13360 DROITE =SIMP(statut='o',typ='TXM' ),
13361 GAUCHE =SIMP(statut='o',typ='TXM' ),
13362 AXE =SIMP(statut='f',typ='TXM' ),
13364 VERI_CYCL =FACT(statut='f',min=1,max=1,
13365 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13366 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13367 DIST_REFE =SIMP(statut='f',typ='R' ),
13369 CALCUL =FACT(statut='o',min=1,max=1,
13370 TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13371 NB_DIAM =SIMP(statut='f',typ='I',max='**'),
13372 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13373 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13374 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13375 FREQ =SIMP(statut='o',typ='R',min=1,max=1),
13377 b_bande =BLOC(condition = "OPTION == 'BANDE'",
13378 FREQ =SIMP(statut='o',typ='R',min=2,max=2),
13380 # NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13381 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
13382 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
13383 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13384 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
13386 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13388 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13389 # CONFIGURATION MANAGEMENT OF EDF VERSION
13390 # ======================================================================
13391 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13392 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13393 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13394 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13395 # (AT YOUR OPTION) ANY LATER VERSION.
13397 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13398 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13399 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13400 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13402 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13403 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13404 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13405 # ======================================================================
13406 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13407 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13408 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13409 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13410 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13411 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13412 raise AsException("type de concept resultat non prevu")
13414 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
13415 ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13416 docu="U4.52.04-g1",reentrant='n',
13417 UIinfo={"groupes":("Résolution",)},
13418 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13419 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13420 MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
13421 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13422 into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13423 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13424 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13426 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13427 fr="Choix de l option pour estimer les valeurs propres" ),
13428 FREQ =SIMP(statut='o',typ='R',max='**'),
13429 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
13430 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13431 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13432 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13433 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13434 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13436 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13437 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13438 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13439 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13442 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13443 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13445 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13446 fr="Choix de l option pour estimer les valeurs propres" ),
13447 CHAR_CRIT =SIMP(statut='o',typ='R',max='**' ),
13448 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13449 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13450 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13451 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13452 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13454 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13455 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13456 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13457 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13460 CALC_MODE =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13461 OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13462 PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13463 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13465 VERI_MODE =FACT(statut='d',min=0,max=1,
13466 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13467 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13468 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13470 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13471 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13473 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13474 # CONFIGURATION MANAGEMENT OF EDF VERSION
13475 # ======================================================================
13476 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13477 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13478 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13479 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13480 # (AT YOUR OPTION) ANY LATER VERSION.
13482 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13483 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13484 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13485 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13487 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13488 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13489 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13490 # ======================================================================
13491 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13492 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13493 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13494 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13495 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13496 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13497 raise AsException("type de concept resultat non prevu")
13499 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
13500 fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13501 docu="U4.52.03-f2",reentrant='n',
13502 UIinfo={"groupes":("Résolution",)},
13503 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13504 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13505 MATR_C =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
13506 METHODE =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13507 into=("TRI_DIAG","JACOBI","SORENSEN") ),
13508 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13509 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13510 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13511 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13512 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13514 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13515 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13516 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13517 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13518 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13520 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13521 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13522 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13523 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13525 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13526 into=("MODE_FLAMB","DYNAMIQUE"),
13527 fr="Type d analyse" ),
13528 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13529 fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13531 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13532 CALC_FREQ =FACT(statut='d',min=0,max=1,
13533 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13534 fr="Choix de l option et par conséquent du shift du problème modal" ),
13535 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13536 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13538 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13539 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13540 CHAR_CRIT =SIMP(statut='o',typ='R',min=1,max=1,
13541 fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13543 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
13544 fr="Recherche des valeurs propres dans une bande donnée",
13545 CHAR_CRIT =SIMP(statut='o',typ='R',min=2,max=2,
13546 fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13548 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13549 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13550 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13551 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13552 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13553 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13554 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13555 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13556 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13560 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13561 CALC_FREQ =FACT(statut='d',min=0,max=1,
13562 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13563 fr="Choix de l option et par conséquent du shift du problème modal" ),
13564 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13565 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13567 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13568 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13569 FREQ =SIMP(statut='o',typ='R',min=1,max=1,
13570 fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13571 AMOR_REDUIT =SIMP(statut='f',typ='R',max=1,),
13572 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13574 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
13575 fr="Recherche des valeurs propres dans une bande donnée",
13576 FREQ =SIMP(statut='o',typ='R',min=2,max=2,
13577 fr="Valeur des deux fréquences délimitant la bande de recherche"),
13579 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13580 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13581 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13582 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13583 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13584 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13585 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13586 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13587 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13591 VERI_MODE =FACT(statut='d',min=0,max=1,
13592 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13593 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13594 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13595 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13596 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13598 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13599 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13600 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13602 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13603 # CONFIGURATION MANAGEMENT OF EDF VERSION
13604 # ======================================================================
13605 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13606 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13607 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13608 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13609 # (AT YOUR OPTION) ANY LATER VERSION.
13611 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13612 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13613 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13614 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13616 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13617 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13618 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13619 # ======================================================================
13620 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13621 if (MODE_STAT != None) : return mode_stat_depl
13622 if (PSEUDO_MODE !=None) : return mode_stat_acce
13623 if (FORCE_NODALE != None) : return mode_stat_forc
13624 raise AsException("type de concept resultat non prevu")
13625 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13626 fr="Calcul de modes statiques",
13627 docu="U4.52.14-f2",reentrant='n',
13628 UIinfo={"groupes":("Résolution",)},
13629 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
13630 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
13631 regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13632 MODE_STAT =FACT(statut='f',min=1,max='**',
13633 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13634 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13635 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13636 NOEUD =SIMP(statut='f',typ=no,max='**'),
13637 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13638 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13639 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13640 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13642 FORCE_NODALE =FACT(statut='f',min=1,max='**',
13643 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13644 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13645 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13646 NOEUD =SIMP(statut='f',typ=no,max='**'),
13647 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13648 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13649 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13650 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13652 PSEUDO_MODE =FACT(statut='f',min=1,max='**',
13653 regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13654 AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13655 DIRECTION =SIMP(statut='f',typ='R',min=3,max=3),
13656 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
13657 NOEUD =SIMP(statut='f',typ=no,max='**'),
13658 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13659 b_dir =BLOC(condition = "DIRECTION != None",
13660 NOM_DIR =SIMP(statut='f',typ='TXM' ),),
13661 b_cmp =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13662 regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13663 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13664 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13665 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13668 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13669 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13671 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13672 # CONFIGURATION MANAGEMENT OF EDF VERSION
13673 # ======================================================================
13674 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13675 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13676 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13677 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13678 # (AT YOUR OPTION) ANY LATER VERSION.
13680 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13681 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13682 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13683 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13685 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13686 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13687 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13688 # ======================================================================
13689 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13690 docu="U4.66.21-c",reentrant='f',
13691 UIinfo={"groupes":("Matrices/vecteurs",)},
13692 # la commande modi_base _modale : reentrant = f ou o
13693 regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13694 BASE =SIMP(statut='o',typ=mode_meca ),
13695 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
13696 NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
13697 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
13698 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
13699 AMOR_UNIF =SIMP(statut='f',typ='R' ),
13700 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13701 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13703 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13704 # CONFIGURATION MANAGEMENT OF EDF VERSION
13705 # ======================================================================
13706 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13707 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13708 # REDISTRIBUTION OF THIS FILE.
13709 # ======================================================================
13710 # RESPONSABLE G8BHHXD X.DESROCHES
13711 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13712 fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13713 docu="U4.23.04-d1",reentrant='o',
13714 UIinfo={"groupes":("Maillage",)},
13715 regles=(AU_MOINS_UN('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13716 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
13717 'TRANSLATION','ROTATION','MODI_BASE','ECHELLE',),
13718 PRESENT_ABSENT('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13719 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13720 PRESENT_ABSENT('DEFORME','ORIE_CONTACT','EQUE_PIQUA','ORIE_PEAU_2D',
13721 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13722 PRESENT_ABSENT('EQUE_PIQUA','ORIE_CONTACT','DEFORME','ORIE_PEAU_2D',
13723 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13724 PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_CONTACT','DEFORME','EQUE_PIQUA',
13725 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13726 PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13727 'ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13728 PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13729 'ORIE_PEAU_3D','PLAQ_TUBE','MODI_MAILLE',),
13730 PRESENT_ABSENT('PLAQ_TUBE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13731 'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
13732 PRESENT_ABSENT('MODI_MAILLE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13733 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
13734 EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13735 EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
13736 EXCLUS('ROTATION','MODI_BASE'),),
13737 MAILLAGE =SIMP(statut='o',typ=maillage ),
13739 ORIE_CONTACT =FACT(statut='f',min=1,max=1,
13740 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13743 DEFORME =FACT(statut='f',min=1,max=1,
13744 OPTION =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13745 DEPL =SIMP(statut='o',typ=cham_no_depl_r ),
13746 b_deform =BLOC(condition = "OPTION=='TRAN_APPUI'",
13747 GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13748 GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13751 EQUE_PIQUA =FACT(statut='f',min=1,max=1,
13752 GROUP_NO =SIMP(statut='o',typ=grno),
13753 E_BASE =SIMP(statut='o',typ='R' ),
13754 DEXT_BASE =SIMP(statut='o',typ='R' ),
13755 L_BASE =SIMP(statut='o',typ='R' ),
13756 L_CHANF =SIMP(statut='o',typ='R' ),
13757 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
13758 H_SOUD =SIMP(statut='o',typ='R' ),
13759 ANGL_SOUD =SIMP(statut='o',typ='R' ),
13760 JEU_SOUD =SIMP(statut='o',typ='R' ),
13761 E_CORP =SIMP(statut='o',typ='R' ),
13762 DEXT_CORP =SIMP(statut='o',typ='R' ),
13763 AZIMUT =SIMP(statut='o',typ='R' ),
13764 RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
13765 X_MAX =SIMP(statut='o',typ='R' ),
13767 ORIE_PEAU_2D =FACT(statut='f',min=1,max='**',
13768 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13770 ORIE_PEAU_3D =FACT(statut='f',min=1,max='**',
13771 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13773 ORIE_NORM_COQUE =FACT(statut='f',min=1,max='**',
13774 regles=(EXCLUS('NOEUD','GROUP_NO'),
13775 PRESENT_PRESENT('NOEUD','VECT_NORM'),
13776 PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13777 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13778 VECT_NORM =SIMP(statut='f',typ='R',max=3),
13779 NOEUD =SIMP(statut='f',typ=no),
13780 GROUP_NO =SIMP(statut='f',typ=grno),
13782 b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13783 MODELE =SIMP(statut='o',typ=modele ),
13785 PLAQ_TUBE =FACT(statut='f',min=1,max=1,
13786 DEXT =SIMP(statut='o',typ='R' ),
13787 EPAIS =SIMP(statut='o',typ='R' ),
13788 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
13789 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
13790 COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
13792 TUBE_COUDE =FACT(statut='f',min=1,max=1,
13793 ANGLE =SIMP(statut='o',typ='R' ),
13794 R_CINTR =SIMP(statut='o',typ='R' ),
13795 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
13797 MODI_MAILLE =FACT(statut='f',min=1,max=1,
13798 regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13799 OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13800 GROUP_MA_FOND =SIMP(statut='f',typ=grma,max='**'),
13801 MAILLE_FOND =SIMP(statut='f',typ=ma,max='**'),
13802 GROUP_NO_FOND =SIMP(statut='f',typ=grno,max='**'),
13803 NOEUD_FOND =SIMP(statut='f',typ=no,max='**'),
13805 MODI_BASE =FACT(statut='f',min=1,max=1,
13806 VECT_X =SIMP(statut='o',typ='R',min=2,max=3),
13807 VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),
13809 ECHELLE =SIMP(statut='f',typ='R',min=1,max=1),
13810 TRANSLATION =SIMP(statut='f',typ='R',min=2,max=3),
13811 ROTATION =FACT(statut='f',min=1,max='**',
13812 POIN_1 =SIMP(statut='o',typ='R',min=2,max=3),
13813 ANGL =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
13814 regles=(EXCLUS('DIR','POIN_2'),),
13815 POIN_2 =SIMP(statut='f',typ='R',min=2,max=3),
13816 DIR =SIMP(statut='f',typ='R',min=2,max=3),
13819 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13821 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13822 # CONFIGURATION MANAGEMENT OF EDF VERSION
13823 # ======================================================================
13824 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13825 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13826 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13827 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13828 # (AT YOUR OPTION) ANY LATER VERSION.
13830 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13831 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13832 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13833 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13835 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13836 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13837 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13838 # ======================================================================
13839 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13840 fr=" ",docu="U4.44.22-a",reentrant='f',
13841 UIinfo={"groupes":("Modélisation",)},
13842 regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13843 PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
13844 PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13845 TUBE_NEUF =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13846 V_USUR_TUBE =SIMP(statut='f',typ='R',max='**'),
13847 V_USUR_OBST =SIMP(statut='f',typ='R',max='**'),
13848 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
13849 INST =SIMP(statut='f',typ='R'),
13850 OBSTACLE =SIMP(statut='f',typ=obstacle),
13851 GUIDE =SIMP(statut='o',typ=obstacle),
13852 CRAYON =SIMP(statut='f',typ=obstacle),
13853 R_MOBILE =SIMP(statut='f',typ='R'),
13854 PERCEMENT =SIMP(statut='f',typ='R',defaut=1),
13855 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13857 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13858 # CONFIGURATION MANAGEMENT OF EDF VERSION
13859 # ======================================================================
13860 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13861 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13862 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13863 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13864 # (AT YOUR OPTION) ANY LATER VERSION.
13866 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13867 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13868 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13869 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13871 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13872 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13873 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13874 # ======================================================================
13875 # RESPONSABLE JMBHH01 J.M.PROIX
13876 def modi_repere_prod(RESULTAT,**args):
13877 if AsType(RESULTAT) == evol_elas : return evol_elas
13878 if AsType(RESULTAT) == evol_noli : return evol_noli
13879 if AsType(RESULTAT) == evol_ther : return evol_ther
13880 if AsType(RESULTAT) == dyna_trans : return dyna_trans
13881 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
13882 if AsType(RESULTAT) == mode_meca : return mode_meca
13883 if AsType(RESULTAT) == mode_flamb : return mode_flamb
13884 if AsType(RESULTAT) == mult_elas : return mult_elas
13885 if AsType(RESULTAT) == base_modale : return base_modale
13886 raise AsException("type de concept resultat non prevu")
13888 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
13889 UIinfo={"groupes":("Résultats et champs",)},
13890 fr="Impression des resultats dans un repere cylindrique",
13891 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13892 evol_noli,mult_elas,
13893 evol_ther,base_modale,mode_flamb) ),
13894 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13895 'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13896 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13897 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
13898 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
13899 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
13900 NOM_CAS =SIMP(statut='f',typ='TXM' ),
13902 INST =SIMP(statut='f',typ='R',max='**'),
13903 FREQ =SIMP(statut='f',typ='R',max='**'),
13904 LIST_INST =SIMP(statut='f',typ=listr8),
13905 LIST_FREQ =SIMP(statut='f',typ=listr8),
13907 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13908 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13910 MODI_CHAM =FACT(statut='o',min=1,max='**',
13911 TYPE_CHAM =SIMP(statut='o',typ='TXM', max=1,
13912 into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13913 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1 ),
13914 b_vect_2d =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13915 NOM_CMP =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13916 b_vect_3d =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13917 NOM_CMP =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13918 b_tors_3d =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13919 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13920 b_tens_2d =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13921 NOM_CMP =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13922 b_tens_3d =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13923 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13925 DEFI_REPERE =FACT(statut='o',min=1,max=1,
13926 regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13927 REPERE =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13928 into=("UTILISATEUR","CYLINDRIQUE"),),
13929 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
13930 ORIGINE =SIMP(statut='f',typ='R',min=2,max=3),
13931 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
13933 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13935 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13936 # CONFIGURATION MANAGEMENT OF EDF VERSION
13937 # ======================================================================
13938 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13939 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13940 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13941 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13942 # (AT YOUR OPTION) ANY LATER VERSION.
13944 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13945 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13946 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13947 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13949 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13950 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13951 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13952 # ======================================================================
13953 def norm_mode_prod(MODE,**args ):
13954 if AsType(MODE) == mode_meca : return mode_meca
13955 if AsType(MODE) == mode_meca_c : return mode_meca_c
13956 if AsType(MODE) == mode_flamb : return mode_flamb
13957 raise AsException("type de concept resultat non prevu")
13959 NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
13960 fr="Normalisation de modes propres",
13961 docu="U4.52.11-e",reentrant='f',
13962 UIinfo={"groupes":("Résolution",)},
13963 regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
13964 MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
13965 NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
13966 into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
13967 NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
13968 b_noeud =BLOC(condition = "NOEUD != None",
13969 NOM_CMP =SIMP(statut='o',typ='TXM' ),
13971 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13972 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13973 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
13974 MODE_SIGNE =FACT(statut='f',max=1,fr="Imposer un signe sur une des composantes des modes",
13975 NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
13976 NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
13977 SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
13978 fr="Choix du signe" ),
13980 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13981 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13983 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13984 # CONFIGURATION MANAGEMENT OF EDF VERSION
13985 # ======================================================================
13986 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13987 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13988 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13989 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13990 # (AT YOUR OPTION) ANY LATER VERSION.
13992 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13993 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13994 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13995 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13997 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13998 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13999 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14000 # ======================================================================
14001 # RESPONSABLE VABHHTS J.PELLET
14002 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
14003 UIinfo={"groupes":("Matrices/vecteurs",)},
14004 fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
14005 regles=(UN_PARMI('MATR_RIGI','MODELE'),),
14006 MATR_RIGI =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
14007 matr_elem_temp_r,matr_elem_pres_c),max=100 ),
14008 MODELE =SIMP(statut='f',typ=modele ),
14009 b_modele =BLOC(condition = "MODELE != None",
14010 CHARGE =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
14012 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14013 b_mult_front =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
14014 RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
14016 b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
14017 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
14019 b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
14020 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
14022 INFO =SIMP(statut='f',typ='I',into=(1,2)),
14024 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14025 # CONFIGURATION MANAGEMENT OF EDF VERSION
14026 # ======================================================================
14027 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14028 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14029 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14030 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14031 # (AT YOUR OPTION) ANY LATER VERSION.
14033 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14034 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14035 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14036 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14038 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14039 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14040 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14041 # ======================================================================
14042 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
14043 fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
14044 docu="U4.65.03-e1",reentrant='n',
14045 UIinfo={"groupes":("Matrices/vecteurs",)},
14046 regles=UN_PARMI('MODELE_GENE','BASE'),
14047 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
14048 b_modele_gene =BLOC(condition = "MODELE_GENE != None",
14049 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
14051 BASE =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
14052 b_base =BLOC(condition = "BASE != None",
14053 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
14054 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
14057 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14058 # CONFIGURATION MANAGEMENT OF EDF VERSION
14059 # ======================================================================
14060 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14061 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14062 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14063 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14064 # (AT YOUR OPTION) ANY LATER VERSION.
14066 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14067 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14068 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14069 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14071 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14072 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14073 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14074 # ======================================================================
14075 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
14076 fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
14077 docu="U4.84.04-d",reentrant='n',
14078 UIinfo={"groupes":("Post traitements",)},
14079 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
14080 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
14081 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
14082 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14083 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
14084 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
14085 OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
14086 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
14087 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
14089 b_noeud_i =BLOC(condition = "NOEUD_I != None",
14090 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
14091 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
14092 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
14094 DEPASSEMENT =FACT(statut='f',min=1,max='**',
14095 fr="Loi de dépassement d un seuil pendant une durée donnée",
14096 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14097 VALE_MIN =SIMP(statut='f',typ='R' ),
14098 VALE_MAX =SIMP(statut='f',typ='R' ),
14099 PAS =SIMP(statut='f',typ='R' ),
14100 DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
14102 RAYLEIGH =FACT(statut='f',min=1,max='**',
14103 fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
14104 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14105 VALE_MIN =SIMP(statut='f',typ='R' ),
14106 VALE_MAX =SIMP(statut='f',typ='R' ),
14107 PAS =SIMP(statut='f',typ='R' ),
14109 GAUSS =FACT(statut='f',min=1,max='**',
14110 fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
14111 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14112 VALE_MIN =SIMP(statut='f',typ='R' ),
14113 VALE_MAX =SIMP(statut='f',typ='R' ),
14114 PAS =SIMP(statut='f',typ='R' ),
14116 VANMARCKE =FACT(statut='f',min=1,max='**',
14117 fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
14118 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14119 VALE_MIN =SIMP(statut='f',typ='R' ),
14120 VALE_MAX =SIMP(statut='f',typ='R' ),
14121 PAS =SIMP(statut='f',typ='R' ),
14122 DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
14124 MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
14125 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14126 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14128 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14129 # CONFIGURATION MANAGEMENT OF EDF VERSION
14130 # ======================================================================
14131 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14132 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14133 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14134 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14135 # (AT YOUR OPTION) ANY LATER VERSION.
14137 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14138 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14139 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14140 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14142 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14143 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14144 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14145 # ======================================================================
14146 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
14147 fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
14148 docu="U4.84.02-d",reentrant='n',
14149 UIinfo={"groupes":("Post traitements",)},
14150 regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
14151 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
14152 CHOC =FACT(statut='f',min=1,max='**',
14153 fr="Analyse des non linéarités de choc",
14154 INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
14155 INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
14156 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
14157 SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14158 DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14159 OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
14160 NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
14162 RELA_EFFO_DEPL =FACT(statut='f',min=1,max=1,
14163 fr="Analyse des relationsnon linéaires effort-déplacement",
14164 NOEUD =SIMP(statut='o',typ=no),
14165 NOM_CMP =SIMP(statut='o',typ='TXM' ),
14167 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14168 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14170 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14171 # CONFIGURATION MANAGEMENT OF EDF VERSION
14172 # ======================================================================
14173 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14174 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14175 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14176 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14177 # (AT YOUR OPTION) ANY LATER VERSION.
14179 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14180 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14181 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14182 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14184 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14185 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14186 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14187 # ======================================================================
14188 # RESPONSABLE G8BHHXD X.DESROCHES
14189 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
14190 CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
14191 INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
14192 AIRE_INTERNE,**args ):
14193 if MASS_INER != None : return tabl_mass_iner
14194 if ENER_POT != None : return tabl_ener_pot
14195 if ENER_CIN != None : return tabl_ener_cin
14196 if TRAV_EXT != None : return tabl_trav_ext
14197 if WEIBULL != None : return tabl_weibull
14198 if CARA_GEOM != None : return tabl_cara_geom
14199 if CARA_POUTRE != None : return tabl_cara_geom
14200 if RICE_TRACEY != None : return tabl_rice_tracey
14201 if CHAR_LIMITE != None : return tabl_char_limite
14202 if INDIC_ENER != None : return tabl_indic_ener
14203 if INDIC_SEUIL != None : return tabl_indic_seuil
14204 if ENER_ELAS != None : return tabl_ener_elas
14205 if ENER_TOTALE != None : return tabl_ener_totale
14206 if AIRE_INTERNE != None : return tabl_aire_int
14207 raise AsException("type de concept resultat non prevu")
14209 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
14210 UIinfo={"groupes":("Post traitements",)},
14211 fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
14213 regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
14214 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
14215 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
14216 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
14219 MASS_INER = FACT(statut='f',min=1,max='**',
14220 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14221 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14222 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14223 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14224 ORIG_INER = SIMP(statut='f',typ='R',min=3,max=3 ),
14226 b_mass_iner = BLOC(condition = "( MASS_INER != None )",
14227 fr="calcul de la masse, les inerties et le centre de gravité",
14228 regles=(EXCLUS('CHAM_GD','RESULTAT'),
14229 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14230 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14231 MODELE = SIMP(statut='o',typ=modele),
14232 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14233 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14234 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14235 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14236 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14237 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14238 GEOMETRIE = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
14239 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14240 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
14241 fourier_elas,dyna_trans) ),
14242 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14243 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14244 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14245 NUME_ORDRE = SIMP(statut='f',typ='I',max=1),
14246 LIST_ORDRE = SIMP(statut='f',typ=listis),
14247 INST = SIMP(statut='f',typ='R',max=1),
14248 LIST_INST = SIMP(statut='f',typ=listr8),
14249 FREQ = SIMP(statut='f',typ='R',max=1),
14250 LIST_FREQ = SIMP(statut='f',typ=listr8),
14251 NUME_MODE = SIMP(statut='f',typ='I',max=1),
14252 NOEUD_CMP = SIMP(statut='f',typ='TXM',min=2,max=2),
14253 NOM_CAS = SIMP(statut='f',typ='TXM',max=1),
14256 ENER_POT = FACT(statut='f',min=1,max='**',
14257 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14258 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14259 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14260 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14262 b_ener_pot = BLOC(condition = "( ENER_POT != None )",
14263 fr="calcul de l'énergie potentielle de déformation",
14264 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14265 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14266 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14267 MODELE = SIMP(statut='o',typ=modele),
14268 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14269 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14270 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14271 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14272 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14273 ANGLE = SIMP(statut='f',typ='I',defaut=0),
14274 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14275 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14276 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14277 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14278 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14279 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14280 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14281 LIST_ORDRE = SIMP(statut='f',typ=listis),
14282 INST = SIMP(statut='f',typ='R',max='**'),
14283 LIST_INST = SIMP(statut='f',typ=listr8),
14284 FREQ = SIMP(statut='f',typ='R',max='**'),
14285 LIST_FREQ = SIMP(statut='f',typ=listr8),
14286 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
14287 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
14288 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
14291 ENER_CIN = FACT(statut='f',min=1,max='**',
14292 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14293 OPTION = SIMP(statut='f',typ='TXM',
14294 into=("MASS_MECA","MASS_MECA_DIAG"),
14295 defaut="MASS_MECA" ),
14296 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14297 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14298 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14300 b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
14301 fr="calcul de l'énergie cinétique",
14302 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14303 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14304 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14305 MODELE = SIMP(statut='o',typ=modele),
14306 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14307 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14308 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14309 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14310 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14311 ANGLE = SIMP(statut='f',typ='I',defaut=0),
14312 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14313 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14314 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14315 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14316 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14317 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14318 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14319 LIST_ORDRE = SIMP(statut='f',typ=listis),
14320 INST = SIMP(statut='f',typ='R',max='**'),
14321 LIST_INST = SIMP(statut='f',typ=listr8),
14322 FREQ = SIMP(statut='f',typ='R',max='**'),
14323 LIST_FREQ = SIMP(statut='f',typ=listr8),
14324 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
14325 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
14326 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
14329 ENER_ELAS = FACT(statut='f',min=1,max='**',
14330 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14331 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14332 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14333 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14335 b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
14336 fr="calcul de l'énergie de déformation élastique",
14337 MODELE = SIMP(statut='o',typ=modele),
14338 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14339 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14340 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14341 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14342 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14343 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14344 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14345 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14346 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14347 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14348 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14349 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14350 LIST_ORDRE = SIMP(statut='f',typ=listis),
14351 INST = SIMP(statut='f',typ='R',max='**'),
14352 LIST_INST = SIMP(statut='f',typ=listr8),
14355 ENER_TOTALE = FACT(statut='f',min=1,max='**',
14356 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14357 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14358 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14359 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14361 b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
14362 fr="calcul de l'énergie de déformation totale",
14363 MODELE = SIMP(statut='o',typ=modele),
14364 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14365 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14366 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14367 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14368 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14369 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14370 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14371 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14372 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14373 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14374 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14375 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14376 LIST_ORDRE = SIMP(statut='f',typ=listis),
14377 INST = SIMP(statut='f',typ='R',max='**'),
14378 LIST_INST = SIMP(statut='f',typ=listr8),
14381 WEIBULL = FACT(statut='f',min=1,max='**',
14382 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14383 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14384 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14385 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14386 OPTION = SIMP(statut='f',typ='TXM',
14387 into=("SIGM_ELGA","SIGM_ELMOY"),
14388 defaut="SIGM_ELGA"),
14389 CORR_PLAST = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14390 COEF_MULT = SIMP(statut='f',typ='R',defaut=1.),
14392 b_weibull = BLOC(condition = "( WEIBULL != None )",
14393 fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14394 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14395 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14396 MODELE = SIMP(statut='o',typ=modele),
14397 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14398 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14399 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14400 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14401 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14402 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14403 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14404 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
14405 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14406 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14407 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14408 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14409 LIST_ORDRE = SIMP(statut='f',typ=listis),
14410 INST = SIMP(statut='f',typ='R',max='**'),
14411 LIST_INST = SIMP(statut='f',typ=listr8),
14414 RICE_TRACEY = FACT(statut='f',min=1,max='**',
14415 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14416 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14417 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14418 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14419 OPTION = SIMP(statut='f',typ='TXM',
14420 into=("SIGM_ELGA","SIGM_ELMOY"),
14421 defaut="SIGM_ELGA"),
14422 LOCAL = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14424 b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14425 fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14426 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14427 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14428 MODELE = SIMP(statut='o',typ=modele),
14429 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14430 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14431 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14432 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14433 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14434 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14435 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14436 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
14437 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14438 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14439 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14440 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14441 LIST_ORDRE = SIMP(statut='f',typ=listis),
14442 INST = SIMP(statut='f',typ='R',max='**'),
14443 LIST_INST = SIMP(statut='f',typ=listr8),
14446 INDIC_ENER = FACT(statut='f',min=1,max='**',
14447 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14448 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14449 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14450 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14452 b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14453 fr="calcul un indicateur global de perte de proportionnalité du chargement",
14454 MODELE = SIMP(statut='o',typ=modele),
14455 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14456 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14457 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14458 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14459 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14460 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14461 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14462 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14463 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14464 LIST_ORDRE = SIMP(statut='f',typ=listis),
14465 INST = SIMP(statut='f',typ='R',max='**'),
14466 LIST_INST = SIMP(statut='f',typ=listr8),
14469 INDIC_SEUIL = FACT(statut='f',min=1,max='**',
14470 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14471 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14472 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14473 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14475 b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14476 fr="calcul un indicateur global de perte de proportionnalité du chargement",
14477 MODELE = SIMP(statut='o',typ=modele),
14478 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14479 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14480 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14481 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14482 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14483 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14484 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14485 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14486 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14487 LIST_ORDRE = SIMP(statut='f',typ=listis),
14488 INST = SIMP(statut='f',typ='R',max='**'),
14489 LIST_INST = SIMP(statut='f',typ=listr8),
14492 CHAR_LIMITE = FACT(statut='f',min=0,max=1,
14493 CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14495 b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14496 fr="post-traitement du calcul de la charge limite",
14497 MODELE = SIMP(statut='o',typ=modele),
14498 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14499 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14500 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14501 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14502 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14503 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14504 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14505 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14506 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14507 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14508 LIST_ORDRE = SIMP(statut='f',typ=listis),
14509 INST = SIMP(statut='f',typ='R',max='**'),
14510 LIST_INST = SIMP(statut='f',typ=listr8),
14513 CARA_GEOM = FACT(statut='f',min=1,max='**',
14514 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14515 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14516 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14517 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14518 SYME_X = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14519 SYME_Y = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14520 ORIG_INER = SIMP(statut='f',typ='R',min=2,max=2),
14522 b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14523 fr="calcul des caractéristiques géométriques d'un section de poutre",
14524 MODELE = SIMP(statut='o',typ=modele),
14525 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14526 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14527 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14530 CARA_POUTRE = FACT(statut='f',min=1,max='**',
14531 regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14532 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14533 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14534 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14535 GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14536 CARA_GEOM = SIMP(statut='f',typ=tabl_cara_geom),
14537 LAPL_PHI = SIMP(statut='f',typ=evol_ther),
14538 LAPL_PHI_Y = SIMP(statut='f',typ=evol_ther),
14539 LAPL_PHI_Z = SIMP(statut='f',typ=evol_ther),
14540 LIAISON = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14541 LONGUEUR = SIMP(statut='f',typ='R'),
14542 MATERIAU = SIMP(statut='f',typ=mater),
14543 OPTION = SIMP(statut='f',typ='TXM',
14544 into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14546 b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14547 fr="calcul des caractéristiques mécaniques d'un section de poutre",
14548 MODELE = SIMP(statut='o',typ=modele),
14549 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14550 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14551 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14554 AIRE_INTERNE = FACT(statut='f',min=1,max='**',
14555 GROUP_MA_BORD = SIMP(statut='o',typ=grma,max='**'),
14557 b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14558 fr="calcul de l'aire d'un trou dans un maillage 2D",
14559 MODELE = SIMP(statut='o',typ=modele),
14562 TRAV_EXT = FACT(statut='f',min=1,max=1),
14563 b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14564 fr="calcul du travail des efforts extérieurs",
14565 RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14566 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14567 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14568 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14571 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14572 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14575 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14576 # CONFIGURATION MANAGEMENT OF EDF VERSION
14577 # ======================================================================
14578 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14579 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14580 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14581 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14582 # (AT YOUR OPTION) ANY LATER VERSION.
14584 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14585 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14586 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14587 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14589 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14590 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14591 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14592 # ======================================================================
14593 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
14594 UIinfo={"groupes":("Post traitements",)},
14595 fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14596 regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14597 PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14598 UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14599 MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
14600 MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
14601 MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
14602 TABL_POST_ALEA =SIMP(statut='f',typ=tabl_post_alea),
14603 COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14604 DUREE =SIMP(statut='f',typ='R',defaut= 1.),
14605 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14606 DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14607 MATER =SIMP(statut='o',typ=mater),
14608 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14610 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14611 # CONFIGURATION MANAGEMENT OF EDF VERSION
14612 # ======================================================================
14613 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14614 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14615 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14616 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14617 # (AT YOUR OPTION) ANY LATER VERSION.
14619 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14620 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14621 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14622 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14624 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14625 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14626 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14627 # ======================================================================
14628 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
14629 UIinfo={"groupes":("Post traitements",)},
14630 fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14632 CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14634 b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14635 regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14636 PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14637 PRESENT_PRESENT('DOMMAGE','MATER'),),
14638 HISTOIRE = FACT(statut='o',min=1,max=1,
14639 regles=(UN_PARMI('SIGM','EPSI'),),
14640 SIGM = SIMP(statut='f',typ=fonction),
14641 EPSI = SIMP(statut='f',typ=fonction),),
14642 COMPTAGE = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14643 DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14644 COEF_MULT = FACT(statut='f',min=1,max=1,
14645 KT = SIMP(statut='o',typ='R'),),
14646 CORR_KE = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14647 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14648 "TAHERI_MANSON","TAHERI_MIXTE")),
14649 MATER = SIMP(statut='f',typ=mater),
14650 CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14651 TAHERI_NAPPE = SIMP(statut='f',typ=fonction),
14652 TAHERI_FONC = SIMP(statut='f',typ=fonction),
14653 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14656 b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14657 HISTOIRE = FACT(statut='o',min=1,max=1,
14658 SIGM_XX = SIMP(statut='o',typ=fonction),
14659 SIGM_YY = SIMP(statut='o',typ=fonction),
14660 SIGM_ZZ = SIMP(statut='o',typ=fonction),
14661 SIGM_XY = SIMP(statut='o',typ=fonction),
14662 SIGM_XZ = SIMP(statut='f',typ=fonction),
14663 SIGM_YZ = SIMP(statut='f',typ=fonction),),
14664 CRITERE = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14665 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14666 MATER = SIMP(statut='o',typ=mater),
14667 COEF_CORR = SIMP(statut='f',typ='R'),
14670 b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14671 HISTOIRE = FACT(statut='o',min=1,max=1,
14672 SIGM_XX = SIMP(statut='o',typ=fonction),
14673 SIGM_YY = SIMP(statut='o',typ=fonction),
14674 SIGM_ZZ = SIMP(statut='o',typ=fonction),
14675 SIGM_XY = SIMP(statut='o',typ=fonction),
14676 SIGM_XZ = SIMP(statut='f',typ=fonction),
14677 SIGM_YZ = SIMP(statut='f',typ=fonction),
14678 EPSP = SIMP(statut='o',typ=fonction),
14679 TEMP = SIMP(statut='o',typ=fonction),),
14680 DOMMAGE = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14681 MATER = SIMP(statut='o',typ=mater),
14682 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14685 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14686 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14688 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14689 # CONFIGURATION MANAGEMENT OF EDF VERSION
14690 # ======================================================================
14691 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14692 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14693 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14694 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14695 # (AT YOUR OPTION) ANY LATER VERSION.
14697 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14698 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14699 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14700 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14702 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14703 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14704 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14705 # ======================================================================
14706 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14707 fr=" ",docu="U4.GJ.30-a",
14708 UIinfo={"groupes":("Outils métier",)},
14709 TABLE =SIMP(statut='o',typ=tabl_post_rele),
14711 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14712 # CONFIGURATION MANAGEMENT OF EDF VERSION
14713 # ======================================================================
14714 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14718 # (AT YOUR OPTION) ANY LATER VERSION.
14720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14727 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14728 # ======================================================================
14729 # RESPONSABLE JMBHH01 J.M.PROIX
14730 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14731 fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14732 docu="U4.82.05-b2",reentrant='n',
14733 UIinfo={"groupes":("Post traitements",)},
14735 regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14736 PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),),
14738 MODELISATION =SIMP(statut='o',typ='TXM',
14739 into=("3D","AXIS","D_PLAN","C_PLAN"),
14740 fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14741 FOND_3D =SIMP(statut='f',typ=fond_fiss),
14742 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
14743 b_fond_3d =BLOC (condition="(FOND_3D != None) or (FOND_FISS!= None)",
14744 MAILLAGE = SIMP(statut='o',typ=maillage),
14745 PRECISION = SIMP(statut='f',typ='R',defaut=0.001),
14746 NOEUD = SIMP(statut='f',typ=no,max='**'),
14747 GROUP_NO = SIMP(statut='f',typ=grno,max='**'),
14748 SANS_NOEUD = SIMP(statut='f',typ=no,max='**'),
14749 SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14751 MATER =SIMP(statut='o',typ=mater,
14752 fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14753 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),
14754 fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14755 TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14756 fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14757 TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14758 fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14759 ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14760 fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14761 PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14762 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14763 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14764 LIST_ORDRE =SIMP(statut='f',typ=listis),
14765 INST =SIMP(statut='f',typ='R',max='**'),
14766 LIST_INST =SIMP(statut='f',typ=listr8),
14767 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
14768 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
14769 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14771 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14772 VECT_K1 =SIMP(statut='o',typ='R',max='**',
14773 fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14774 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14776 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14777 # CONFIGURATION MANAGEMENT OF EDF VERSION
14778 # ======================================================================
14779 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
14780 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14781 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14782 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14783 # (AT YOUR OPTION) ANY LATER VERSION.
14785 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14786 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14787 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14788 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14790 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14791 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14792 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14795 # ======================================================================
14797 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14798 fr="Calcul des FIC par la méthode K_BETA",
14799 docu="U4.82.07-a",reentrant='n',
14800 UIinfo={"groupes":("Post traitements",)},
14801 MAILLAGE = SIMP(statut='o',typ=maillage),
14802 MATER_REV = SIMP(statut='o',typ=mater),
14803 EPAIS_REV = SIMP(statut='o',typ='R'),
14804 FISSURE = FACT(statut='o',min=1,max=1,
14805 DECALAGE = SIMP(statut='f',typ='R',defaut=-2.e-04),
14806 PROFONDEUR = SIMP(statut='o',typ='R'),
14807 LONGUEUR = SIMP(statut='o',typ='R'),
14808 ORIENTATION = SIMP(statut='o',typ='TXM',
14809 into=("CIRC","LONGI"),),
14811 K1D = FACT(statut='o',min=1,max='**',
14812 TABL_MECA_REV = SIMP(statut='o',typ=(tabl_post_rele)),
14813 TABL_MECA_MDB = SIMP(statut='o',typ=(tabl_post_rele)),
14814 TABL_THER = SIMP(statut='o',typ=(tabl_post_rele)),
14815 INTITULE = SIMP(statut='o',typ='TXM' ),
14817 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14818 TITRE = SIMP(statut='f',typ='TXM',max='**'),
14820 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14821 # CONFIGURATION MANAGEMENT OF EDF VERSION
14822 # ======================================================================
14823 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14824 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14825 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14826 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14827 # (AT YOUR OPTION) ANY LATER VERSION.
14829 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14830 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14831 # MERCHANTABILITY OR FITNESS FOR A PARTIC
14833 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14834 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14835 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14836 # ======================================================================
14837 # RESPONSABLE JMBHH01 J.M.PROIX
14838 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14839 fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14840 docu="U4.83.11-d1",reentrant='n',
14841 UIinfo={"groupes":("Post traitements",)},
14842 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14843 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
14844 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14845 OPTION =SIMP(statut='o',typ='TXM',max='**',
14853 b_pm_sn =BLOC(condition="(OPTION == 'PM_PB')or(OPTION == 'SN')or(OPTION == 'FATIGUE_SPMAX')or(OPTION == 'FATIGUE_ZH210')",
14854 MATER =SIMP(statut='o',typ=mater ),
14855 MAILLAGE =SIMP(statut='f',typ=maillage),
14856 SEGMENT =FACT(statut='o',min=1,max='**',fr="Segment sur lequel s effectue le depouillement",
14857 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14858 EXCLUS('CHEMIN','GROUP_NO'),
14859 EXCLUS('CHEMIN','NOEUD'),),
14860 INTITULE =SIMP(statut='f',typ='TXM' ),
14861 CHEMIN =SIMP(statut='f',typ=(courbe,surface),),
14862 NOEUD =SIMP(statut='f',typ=no,max='**'),
14863 GROUP_NO =SIMP(statut='f',typ=grno),
14864 b_acce_noeud =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14865 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
14866 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14869 TRANSITOIRE =FACT(statut='o',min=1,max='**',fr="transitoire à dépouiller",
14870 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14871 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14872 RESU_SIGM_THER =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14873 NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14874 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14875 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14876 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14877 LIST_ORDRE =SIMP(statut='f',typ=listis ),
14878 INST =SIMP(statut='f',typ='R',max='**'),
14879 LIST_INST =SIMP(statut='f',typ=listr8 ),
14880 b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14881 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14882 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14887 b_3200 =BLOC(condition="(OPTION == 'FATIGUE_B3200')",
14888 MATER =SIMP(statut='o',typ=mater ),
14889 CHAR_MECA =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
14890 NUME_CHAR =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
14891 NOM_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
14892 TYPE_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
14893 FX =SIMP(statut='f',typ='R',max=1,fr="effort suivant x", ),
14894 FY =SIMP(statut='f',typ='R',max=1,fr="effort suivant y", ),
14895 FZ =SIMP(statut='f',typ='R',max=1,fr="effort suivant z", ),
14896 MX =SIMP(statut='o',typ='R',max=1,fr="moment suivant x", ),
14897 MY =SIMP(statut='o',typ='R',max=1,fr="moment suivant y", ),
14898 MZ =SIMP(statut='o',typ='R',max=1,fr="moment suivant z", ),
14900 RESU_MECA_UNIT =FACT(statut='o',min=1,max=1,fr="resultats mécaniques unitaires",
14901 TABL_FX =SIMP(statut='f',typ=table,max=1,
14902 fr="table relevé des contraintes pour chargement unitaire FX"),
14903 TABL_FY =SIMP(statut='f',typ=table,max=1,
14904 fr="table relevé des contraintes pour chargement unitaire FY"),
14905 TABL_FZ =SIMP(statut='f',typ=table,max=1,
14906 fr="table relevé des contraintes pour chargement unitaire FZ"),
14907 TABL_MX =SIMP(statut='o',typ=table,max=1,
14908 fr="table relevé des contraintes pour chargement unitaire MX"),
14909 TABL_MY =SIMP(statut='o',typ=table,max=1,
14910 fr="table relevé des contraintes pour chargement unitaire MY"),
14911 TABL_MZ =SIMP(statut='o',typ=table,max=1,
14912 fr="table relevé des contraintes pour chargement unitaire MZ"),
14913 TABL_PRES =SIMP(statut='o',typ=table,max=1,
14914 fr="table relevé des contraintes pour chargement unitaire de pression"),
14916 RESU_THER =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
14917 NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
14918 TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
14919 fr="table relevé des contraintes pour chargement thermique"),
14921 SITUATION =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
14922 NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
14923 NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
14924 NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
14925 NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
14926 COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
14927 NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
14928 NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
14929 NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
14930 CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
14931 CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
14932 PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
14933 PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
14934 TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
14935 TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
14938 b_3600 =BLOC(condition="(OPTION == 'FATIGUE_B3600')",
14939 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
14940 MODELE =SIMP(statut='o',typ=modele),
14941 CARA_ELEM =SIMP(statut='o',typ=cara_elem),
14942 ZONE_ANALYSE =FACT(statut='o',min=1,max=1,fr="liste des mailles ou des noeuds analysés",
14943 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14944 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14945 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
14946 MAILLE =SIMP(statut='f',typ=ma,max='**'),
14948 RESU_MECA =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
14949 regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
14950 NUME_CHAR =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
14951 NOM_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
14952 TYPE_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
14953 CHAM_GD =SIMP(statut='f',typ=cham_gd),
14954 RESULTAT =SIMP(statut='f',typ=resultat),
14955 b_extrac =BLOC(condition="RESULTAT != None",
14956 fr="extraction d un champ de grandeur",
14957 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
14958 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1,into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
14959 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14960 NUME_ORDRE =SIMP(statut='f',typ='I',max=1),
14961 INST =SIMP(statut='f',typ='R',max=1),
14962 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
14963 b_acce_reel =BLOC(condition="(INST != None)",
14964 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
14965 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
14969 INDI_SIGM =FACT(statut='o',min=1,max='**',fr="indices de contraintes",
14970 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14971 C1 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C1 du RCCM"),
14972 K1 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K1 du RCCM"),
14973 C2 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C2 du RCCM"),
14974 K2 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K2 du RCCM"),
14975 C3 =SIMP(statut='f',typ='R',max=1,defaut=0.5,fr="indice de contraintes C3 du RCCM"),
14976 K3 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K3 du RCCM"),
14977 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),),
14978 GROUP_MA =SIMP(statut='f',typ=grma,max='**',
14979 fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
14980 MAILLE =SIMP(statut='f',typ=ma,max='**',
14981 fr="liste des mailles ou sont affectés les indices de contraintes"),
14982 b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
14983 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14984 NOEUD =SIMP(statut='f',typ=no,max='**'),
14986 TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
14987 fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
14989 RESU_THER =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
14990 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14991 NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
14992 TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
14993 fr="table relevé des températures sur la section"),
14994 TABL_MOYE_THER =SIMP(statut='o',typ=table,max=1,
14995 fr="table relevé des moyennes sur la section"),
14996 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14997 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
14998 MAILLE =SIMP(statut='f',typ=ma,max='**'),
14999 b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15000 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15001 NOEUD =SIMP(statut='f',typ=no,max='**'),
15004 SITUATION =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15005 NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15006 NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15007 NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15008 NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15009 COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15010 NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15011 NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15012 NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15013 CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15014 CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15015 PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
15016 PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
15017 TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15018 TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15022 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15023 # ======================================================================
15024 # CONFIGURATION MANAGEMENT OF EDF VERSION
15025 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15026 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15027 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15028 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15029 # (AT YOUR OPTION) ANY LATER VERSION.
15031 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15032 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15033 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15034 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15036 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15037 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15038 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15039 # ======================================================================
15040 # RESPONSABLE G8BHHXD X.DESROCHES
15041 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
15042 UIinfo={"groupes":("Post traitements",)},
15043 ACTION =FACT(statut='o',min=1,max='**',
15044 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15045 EXCLUS('CHEMIN','GROUP_NO'),
15046 EXCLUS('CHEMIN','NOEUD'),
15047 PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
15048 UN_PARMI('RESULTAT','CHAM_GD'),
15049 UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
15050 PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
15051 PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
15052 ENSEMBLE('MOMENT','POINT'),
15053 PRESENT_PRESENT('MOMENT','RESULTANTE'),
15054 PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
15055 PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
15056 PRESENT_PRESENT('ORIGINE','AXE_Z'),),
15057 INTITULE =SIMP(statut='o',typ='TXM'),
15058 CHEMIN =SIMP(statut='f',typ=(courbe,surface) ),
15059 NOEUD =SIMP(statut='f',typ=no,max='**'),
15060 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15061 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15062 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15063 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15064 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
15065 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
15066 cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
15067 cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
15068 cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
15069 cham_elem_sief_c,cham_elem_epsi_c)),
15070 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
15071 mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
15072 mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
15073 b_sensibilite =BLOC(condition="RESULTAT != None",
15074 fr="Définition des paramètres de sensibilité",
15075 ang="Definition of sensitivity parameters",
15076 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
15077 fr="Liste des paramètres de sensibilité.",
15078 ang="List of sensitivity parameters"),),
15080 b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
15081 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
15082 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
15083 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
15084 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15085 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15086 LIST_ORDRE =SIMP(statut='f',typ=listis),
15087 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
15088 LIST_MODE =SIMP(statut='f',typ=listis),
15089 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
15090 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
15091 FREQ =SIMP(statut='f',typ='R',max='**'),
15092 LIST_FREQ =SIMP(statut='f',typ=listr8),
15093 INST =SIMP(statut='f',typ='R',max='**'),
15094 LIST_INST =SIMP(statut='f',typ=listr8),
15095 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
15096 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15098 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
15099 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
15100 INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
15101 ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15102 RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
15103 MOMENT =SIMP(statut='f',typ='TXM',max='**'),
15104 POINT =SIMP(statut='f',typ='R',max='**'),
15106 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
15107 into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
15108 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
15109 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
15110 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
15112 TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
15113 TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
15114 DIRECTION =SIMP(statut='f',typ='R',max='**'),
15115 TRAC_DIRECTION =SIMP(statut='f',typ='TXM',into=("OUI",)),
15116 TRAC_NORMALE =SIMP(statut='f',typ='TXM',into=("OUI",)),
15118 VECT_Y =SIMP(statut='f',typ='R',max='**'),
15119 MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15120 OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
15122 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15123 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15125 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15126 # CONFIGURATION MANAGEMENT OF EDF VERSION
15127 # ======================================================================
15128 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15129 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15130 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15131 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15132 # (AT YOUR OPTION) ANY LATER VERSION.
15134 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15135 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15136 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15137 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15139 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15140 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15141 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15142 # ======================================================================
15143 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
15144 fr=" ",docu="U4.PS.10-a",reentrant='n',
15145 UIinfo={"groupes":("Outils métier",)},
15146 MATER =SIMP(statut='o',typ=(mater) ),
15147 DEF_EQUI =FACT(statut='f',min=1,max=1,
15148 METHODE =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
15149 into=("UTO_2_3",) ),
15150 EPAIS =SIMP(statut='o',typ='R'),
15151 LONG_FISS =SIMP(statut='o',typ='R'),
15152 LONG_LIGA_INT =SIMP(statut='o',typ='R'),
15153 DEXT =SIMP(statut='o',typ='R'),
15154 TEMP_ANALYSE =SIMP(statut='f',typ='R'),
15157 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15158 # CONFIGURATION MANAGEMENT OF EDF VERSION
15159 # ======================================================================
15160 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15161 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15162 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15163 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15164 # (AT YOUR OPTION) ANY LATER VERSION.
15166 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15167 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15168 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15169 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15171 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15172 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15173 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15174 # ======================================================================
15175 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
15176 UIinfo={"groupes":("Post traitements",)},
15177 fr="Calcul des volumes d'usure et des profondeurs d'usure",
15178 regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
15179 PRESENT_PRESENT('RESU_GENE','NOEUD'),
15180 UN_PARMI('INST','LIST_INST'),),
15181 ETAT_INIT =FACT(statut='f',min=1,max=1,
15182 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
15183 INST_INIT =SIMP(statut='f',typ='R'),
15185 RESU_GENE =SIMP(statut='f',typ=tran_gene),
15186 NOEUD =SIMP(statut='f',typ=no,max=1),
15187 INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
15188 INST_FIN =SIMP(statut='f',typ='R'),
15189 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
15190 PUIS_USURE =SIMP(statut='f',typ='R'),
15191 LOI_USURE =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
15192 b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
15193 regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
15194 EXCLUS('MATER_USURE','OBSTACLE'),
15195 EXCLUS('MOBILE','USURE_OBST'),),
15196 MOBILE =FACT(statut='f',min=1,max=1,
15197 COEF_USURE =SIMP(statut='o',typ='R'),
15199 OBSTACLE =FACT(statut='f',min=1,max=1,
15200 COEF_USURE =SIMP(statut='o',typ='R'),
15202 SECTEUR =FACT(statut='f',min=1,max='**',
15203 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15204 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15205 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15206 COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
15207 COEF_USUR_OBST =SIMP(statut='f',typ='R'),
15208 ANGL_INIT =SIMP(statut='f',typ='R'),
15209 ANGL_FIN =SIMP(statut='f',typ='R'),
15211 MATER_USURE =SIMP(statut='f',typ='TXM'),
15212 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15214 b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
15215 regles=(UN_PARMI('MOBILE','MATER_USURE'),
15216 EXCLUS('MATER_USURE','OBSTACLE'),
15217 EXCLUS('MOBILE','USURE_OBST'),),
15218 MOBILE =FACT(statut='f',min=1,max=1,
15219 COEF_FNOR =SIMP(statut='f',typ='R'),
15220 COEF_VTAN =SIMP(statut='f',typ='R'),
15221 COEF_USURE =SIMP(statut='f',typ='R'),
15222 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
15223 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
15225 OBSTACLE =FACT(statut='f',min=1,max=1,
15226 COEF_FNOR =SIMP(statut='f',typ='R' ),
15227 COEF_VTAN =SIMP(statut='f',typ='R' ),
15228 COEF_USURE =SIMP(statut='o',typ='R'),
15229 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
15230 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
15232 MATER_USURE =SIMP(statut='f',typ='TXM'),
15233 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15234 FNOR_MAXI =SIMP(statut='f',typ='R' ),
15235 VTAN_MAXI =SIMP(statut='f',typ='R' ),
15237 b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
15238 regles=(UN_PARMI('MOBILE','MATER_USURE'),
15239 EXCLUS('MATER_USURE','OBSTACLE'),
15240 EXCLUS('MOBILE','USURE_OBST'),),
15241 MOBILE =FACT(statut='f',min=1,max=1,
15242 COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
15243 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
15244 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
15245 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
15247 OBSTACLE =FACT(statut='f',min=1,max=1,
15248 COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
15249 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
15250 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
15251 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
15253 MATER_USURE =SIMP(statut='f',typ='TXM'),
15254 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15256 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15257 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15258 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15259 RAYON_MOBILE =SIMP(statut='f',typ='R'),
15260 RAYON_OBST =SIMP(statut='f',typ='R'),
15261 LARGEUR_OBST =SIMP(statut='f',typ='R'),
15262 ANGL_INCLI =SIMP(statut='f',typ='R'),
15263 ANGL_ISTHME =SIMP(statut='f',typ='R'),
15264 ANGL_IMPACT =SIMP(statut='f',typ='R'),
15265 INST =SIMP(statut='f',typ='R',max='**'),
15266 LIST_INST =SIMP(statut='f',typ=listr8),
15267 COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
15268 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15269 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15271 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15272 # CONFIGURATION MANAGEMENT OF EDF VERSION
15273 # ======================================================================
15274 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15275 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15276 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15277 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15278 # (AT YOUR OPTION) ANY LATER VERSION.
15280 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15281 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15282 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15283 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15285 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15286 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15287 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15288 # ======================================================================
15289 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
15290 UIinfo={"groupes":("Post traitements",)},
15291 fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
15292 MODELE =SIMP(statut='o',typ=modele),
15293 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
15294 EXCIT =FACT(statut='o',min=1,max='**',
15295 CHARGE =SIMP(statut='o',typ=char_meca),
15296 FONC_MULT =SIMP(statut='f',typ=fonction),
15297 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
15299 EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
15300 b_evol_elas =BLOC(condition="EVOL_ELAS != None",
15301 regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
15302 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15303 LIST_INST =SIMP(statut='f',typ=listr8),
15304 INST =SIMP(statut='f',typ='R',max='**'),
15306 TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
15307 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
15308 b_evol_noli =BLOC(condition="EVOL_NOLI != None",
15309 INST_MAX =SIMP(statut='o',typ='R'),
15311 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
15312 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15315 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15316 # CONFIGURATION MANAGEMENT OF EDF VERSION
15317 # ======================================================================
15318 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15319 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15320 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15321 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15322 # (AT YOUR OPTION) ANY LATER VERSION.
15324 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15325 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15326 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15327 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15329 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15330 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15331 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15332 # ======================================================================
15333 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
15334 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
15335 UIinfo={"groupes":("Gestion du travail",)},
15336 op_init = ops.POURSUITE_context,fichier_ini = 1,
15337 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
15338 into=("OUI","NON"),defaut="OUI"),
15339 BASE =FACT(fr="définition des parmètres associés aux bases JEVEUX",
15340 statut='f',min=1,max=3,
15341 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
15342 TITRE =SIMP(statut='f',typ='TXM'),
15343 CAS =SIMP(statut='f',typ='TXM'),
15344 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
15345 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
15346 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
15348 IMPRESSION =FACT(statut='f',min=1,max=3,
15349 FICHIER =SIMP(statut='o',typ='TXM'),
15350 UNITE =SIMP(statut='o',typ='I'),
15352 CATALOGUE =FACT(statut='f',min=1,max=10,
15353 FICHIER =SIMP(statut='o',typ='TXM'),
15354 TITRE =SIMP(statut='f',typ='TXM'),
15355 UNITE =SIMP(statut='f',typ='I'),
15357 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
15358 statut='f',min=1,max=1,
15359 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
15360 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15361 JEVEUX =SIMP(fr="force les déchargement sur disque",
15362 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15363 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
15364 statut='f',typ='TXM',into=('TES',)),
15366 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
15367 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
15368 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
15369 TAILLE =SIMP(statut='f',typ='I'),
15370 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
15371 PARTITION =SIMP(statut='f',typ='R' ),
15373 CODE =FACT("définition d un nom pour l'esemble d'une étude",
15374 statut='f',min=1,max=1,
15375 NOM =SIMP(statut='o',typ='TXM'),
15376 UNITE =SIMP(statut='f',typ='I',defaut=15),
15379 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15380 # CONFIGURATION MANAGEMENT OF EDF VERSION
15381 # ======================================================================
15382 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15383 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15384 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15385 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15386 # (AT YOUR OPTION) ANY LATER VERSION.
15388 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15389 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15390 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15391 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15393 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15394 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15395 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15396 # ======================================================================
15397 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
15398 UIinfo={"groupes":("Gestion du travail",)},
15399 fr="Conversion d un fichier de maillage GIBI",
15400 UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
15401 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
15403 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15404 # CONFIGURATION MANAGEMENT OF EDF VERSION
15405 # ======================================================================
15406 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15410 # (AT YOUR OPTION) ANY LATER VERSION.
15412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15419 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15420 # ======================================================================
15422 from Macro.pre_gmsh_ops import pre_gmsh_ops
15424 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-f",
15425 UIinfo={"groupes":("Gestion du travail",)},
15426 fr="Conversion d un fichier universel GMSH au format Aster",
15427 UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
15428 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
15429 MODI_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
15431 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15432 # CONFIGURATION MANAGEMENT OF EDF VERSION
15433 # ======================================================================
15434 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
15435 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15436 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15437 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15438 # (AT YOUR OPTION) ANY LATER VERSION.
15440 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15441 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15442 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15443 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15445 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15446 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15447 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15448 # ======================================================================
15450 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-f",
15451 UIinfo={"groupes":("Gestion du travail",)},
15452 fr="Conversion d un fichier universel GMSH au format Aster",
15453 UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
15454 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
15456 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15457 # CONFIGURATION MANAGEMENT OF EDF VERSION
15458 # ======================================================================
15459 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15460 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15461 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15462 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15463 # (AT YOUR OPTION) ANY LATER VERSION.
15465 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15466 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15467 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15468 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15470 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15471 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15472 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15473 # ======================================================================
15474 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
15475 UIinfo={"groupes":("Gestion du travail",)},
15476 fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
15477 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
15478 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
15480 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15481 # CONFIGURATION MANAGEMENT OF EDF VERSION
15482 # ======================================================================
15483 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15484 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15485 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15486 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15487 # (AT YOUR OPTION) ANY LATER VERSION.
15489 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15490 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15491 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15492 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15494 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15495 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15496 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15497 # ======================================================================
15498 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
15499 UIinfo={"groupes":("Gestion du travail",)},
15500 fr="Nommer le fichier de commandes secondaires",
15501 NOM =SIMP(statut='f',typ='TXM',defaut=" "),
15503 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15504 # CONFIGURATION MANAGEMENT OF EDF VERSION
15505 # ======================================================================
15506 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15507 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15508 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15509 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15510 # (AT YOUR OPTION) ANY LATER VERSION.
15512 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15513 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15514 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15515 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15517 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15518 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15519 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15520 # ======================================================================
15521 def prod_matr_cham_prod(MATR_ASSE,**args):
15522 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15523 if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15524 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15525 if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15526 raise AsException("type de concept resultat non prevu")
15528 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15529 fr="Effectuer le produit d une matrice par un vecteur",
15530 docu="U4.72.06-b",reentrant='n',
15531 UIinfo={"groupes":("Résultats et champs",)},
15532 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15533 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15534 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15536 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15537 # CONFIGURATION MANAGEMENT OF EDF VERSION
15538 # ======================================================================
15539 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15543 # (AT YOUR OPTION) ANY LATER VERSION.
15545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15552 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15553 # ======================================================================
15554 # RESPONSABLE VABHHTS J.PELLET
15555 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15556 if AsType(RESULTAT) == evol_ther : return evol_ther
15557 if AsType(RESULTAT) == evol_elas : return evol_elas
15558 if AsType(RESULTAT) == evol_noli : return evol_noli
15559 if AsType(RESULTAT) == evol_char : return evol_char
15560 if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15561 if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15562 if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15563 if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15564 if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15565 if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15566 if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15567 raise AsException("type de concept resultat non prevu")
15569 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
15570 UIinfo={"groupes":("Résultats et champs",)},
15571 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15573 METHODE =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15574 into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15575 b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15576 fr="Lissage d'un nuage de points",
15577 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15578 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15579 CHAM_NO_REFE =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15580 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15582 b_elem =BLOC(condition="METHODE=='ELEM'",
15583 fr="Utilisation des fonctions de forme du maillage initial",
15584 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15585 EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15586 RESULTAT =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15587 MODELE_1 =SIMP(statut='o',typ=modele),
15588 MODELE_2 =SIMP(statut='o',typ=modele),
15590 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15591 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
15593 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15594 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15595 LIST_ORDRE =SIMP(statut='f',typ=listis),
15596 INST =SIMP(statut='f',typ='R',max='**' ),
15597 LIST_INST =SIMP(statut='f',typ=listr8),
15598 FREQ =SIMP(statut='f',typ='R',max='**' ),
15599 LIST_FREQ =SIMP(statut='f',typ=listr8),
15602 VIS_A_VIS =FACT(statut='f',min=1,max='**',
15603 regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15604 AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15605 TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15606 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
15607 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
15608 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
15609 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
15610 TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15611 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
15612 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
15613 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
15614 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
15617 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15619 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15620 # CONFIGURATION MANAGEMENT OF EDF VERSION
15621 # ======================================================================
15622 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15623 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15624 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15625 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15626 # (AT YOUR OPTION) ANY LATER VERSION.
15628 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15629 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15630 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15631 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15633 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15634 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15635 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15636 # ======================================================================
15637 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15638 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_gene_r
15639 if AsType(MATR_ASSE_GENE) == matr_asse_gene_r : return matr_asse_gene_r
15640 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_gene_c
15641 if AsType(MATR_ASSE_GENE) == matr_asse_gene_c : return matr_asse_gene_c
15642 raise AsException("type de concept resultat non prevu")
15644 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_prod,
15645 fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15646 docu="U4.63.12-f1",reentrant='n',
15647 UIinfo={"groupes":("Matrices/vecteurs",)},
15648 regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15649 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15650 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
15651 MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15652 MATR_ASSE_GENE =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15655 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15656 # CONFIGURATION MANAGEMENT OF EDF VERSION
15657 # ======================================================================
15658 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15659 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15660 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15661 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15662 # (AT YOUR OPTION) ANY LATER VERSION.
15664 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15665 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15666 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15667 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15669 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15670 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15671 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15672 # ======================================================================
15673 def proj_mesu_modal_prod(MODELE_MESURE,**args):
15674 vale=MODELE_MESURE['NOM_PARA']
15675 if vale == 'INST' : return tran_gene
15676 if vale == 'FREQ' : return harm_gene
15677 if vale == 'DEFORMEE' : return mode_gene
15678 raise AsException("type de concept resultat non prevu")
15680 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15681 sd_prod=proj_mesu_modal_prod,
15682 docu="U4.73.01-a",reentrant='n',
15683 UIinfo={"groupes":("Résultats et champs",)},
15684 fr="Calcul de coordonnees generalisees de mesure experimentale relatives a une base de projection",
15686 MODELE_CALCUL =FACT(statut='o',min=1,max=1,
15687 MODELE =SIMP(statut='o',typ=(modele) ),
15688 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
15690 MODELE_MESURE =FACT(statut='o',min=1,max=1,
15691 MODELE =SIMP(statut='o',typ=(modele) ),
15692 MESURE =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,) ),
15693 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST","FREQ","DEFORMEE",),),
15694 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
15696 CORR_MANU =FACT(statut='f',min=1,max='**',
15697 regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
15698 NOEU_CALCUL =SIMP(statut='f',typ=no),
15699 NOEU_MESURE =SIMP(statut='f',typ=no),
15701 RESOLUTION =FACT(statut='f',min=1,max=1,
15702 METHODE =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
15703 b_svd =BLOC(condition="METHODE=='SVD'",
15704 EPS=SIMP(statut='f',typ='R',defaut=0. ),
15706 REGUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
15707 b_regul =BLOC(condition="REGUL!='NON'",
15708 regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
15709 COEF_PONDER =SIMP(statut='f',typ='R',max='**',defaut=0. ),
15710 COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
15715 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15716 # CONFIGURATION MANAGEMENT OF EDF VERSION
15717 # ======================================================================
15718 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15719 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15720 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15721 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15722 # (AT YOUR OPTION) ANY LATER VERSION.
15724 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15725 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15726 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15727 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15729 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15730 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15731 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15732 # ======================================================================
15733 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
15734 UIinfo={"groupes":("Matrices/vecteurs",)},
15735 fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15736 regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15737 ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15738 SPEC_TURB =SIMP(statut='o',typ=spectre,max='**' ),
15739 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
15740 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
15741 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
15742 FREQ_INIT =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15743 FREQ_FIN =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15744 NB_POIN =SIMP(statut='f',typ='I' ),
15745 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15746 GROUP_MA =SIMP(statut='f',typ=grma),
15747 # Quel est le type attendu derriere MODELE_INTERFACE
15748 MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15749 VECT_X =SIMP(statut='f',typ='R',min=3,max=3 ),
15750 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3 ),
15751 ORIG_AXE =SIMP(statut='f',typ='R',min=3,max=3 ),
15752 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15754 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15755 # CONFIGURATION MANAGEMENT OF EDF VERSION
15756 # ======================================================================
15757 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15758 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15759 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15760 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15761 # (AT YOUR OPTION) ANY LATER VERSION.
15763 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15764 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15765 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15766 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15768 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15769 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15770 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15771 # ======================================================================
15772 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
15773 fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15774 docu="U4.63.13-f1",reentrant='n',
15775 UIinfo={"groupes":("Matrices/vecteurs",)},
15776 regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15777 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15778 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
15779 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
15780 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
15781 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
15783 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15784 # CONFIGURATION MANAGEMENT OF EDF VERSION
15785 # ======================================================================
15786 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15787 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15788 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15789 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15790 # (AT YOUR OPTION) ANY LATER VERSION.
15792 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15793 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15794 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15795 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15797 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15798 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15799 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15800 # ======================================================================
15801 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15802 fr=" ",docu="U4.82.06-a",reentrant='n',
15803 UIinfo={"groupes":("Post traitements",)},
15804 LIST_PARA =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15805 RESU =FACT(statut='o',min=1,max='**',
15806 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15807 AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15808 EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
15809 MODELE =SIMP(statut='o',typ=(modele) ),
15810 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
15811 TEMPE =SIMP(statut='f',typ='R' ),
15812 LIST_INST_RUPT =SIMP(statut='o',typ='R',max='**' ),
15813 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15814 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15815 INST =SIMP(statut='f',typ='R',max='**' ),
15816 LIST_INST =SIMP(statut='f',typ=(listr8) ),
15817 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15818 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15819 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15820 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15822 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15823 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15824 METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15825 INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15826 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
15827 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15829 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15830 # CONFIGURATION MANAGEMENT OF EDF VERSION
15831 # ======================================================================
15832 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15833 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15834 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15835 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15836 # (AT YOUR OPTION) ANY LATER VERSION.
15838 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15839 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15840 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15841 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15843 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15844 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15845 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15846 # ======================================================================
15847 # RESPONSABLE MCOURTOI M.COURTOIS
15848 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15849 RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15850 TYPE_RESU=None,**args):
15851 if AsType(RESULTAT) == dyna_harmo : return fonction_c
15852 # On ne sait pas interpreter les deux conditions suivantes
15854 if TYPE_RESU != None :
15855 if TYPE_RESU == "FONCTION_C" : return fonction_c
15856 if TYPE_RESU == "FONCTION" : return fonction
15859 if RESU_GENE != None : return fonction
15860 if BASE_ELAS_FLUI != None : return fonction
15861 if RESULTAT != None : return fonction
15862 if CHAM_GD != None : return fonction
15863 if OBSTACLE != None : return fonction
15864 raise AsException("type de concept resultat non prevu")
15866 RECU_FONCTION=OPER(nom="RECU_FONCTION",op= 90,sd_prod=recu_fonction_prod,
15867 fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15868 docu="U4.32.03-f2",reentrant='n',
15869 UIinfo={"groupes":("Fonction",)},
15870 regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15872 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15873 cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15874 cham_elem_pres_r,cham_elem_meta_r ) ),
15875 RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15876 RESU_GENE =SIMP(statut='f',typ=tran_gene),
15877 # concept table à créer
15878 TABLE =SIMP(statut='f',typ=table),
15879 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu),
15880 REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15881 OBSTACLE =SIMP(statut='f',typ=obstacle),
15883 b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15884 fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15885 regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15886 EXCLUS('MULT_APPUI','CORR_STAT'),),
15887 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15888 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15889 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15890 PARA_X =SIMP(statut='f',typ='TXM' ),
15891 PARA_Y =SIMP(statut='f',typ='TXM' ),
15892 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
15893 LIST_PARA =SIMP(statut='f',typ=listr8 ),
15894 INTITULE =SIMP(statut='f',typ='TXM' ),
15896 b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15897 fr="Récupération de la fonction à partir d un concept melasflu",
15898 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15899 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15900 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15901 NUME_MODE =SIMP(statut='o',typ='I' ),
15902 PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15903 PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15905 b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
15906 regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
15907 PRESENT_PRESENT('PARA_X','PARA_Y'),),
15908 PARA_X =SIMP(statut='f',typ='TXM',
15909 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
15910 PARA_Y =SIMP(statut='f',typ='TXM',
15911 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
15912 NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
15913 fr="Nom du paramètre de la table à qui est associé la fonction" ),
15914 b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
15915 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
15918 FILTRE =FACT(statut='f',min=1,max='**',
15919 NOM_PARA =SIMP(statut='o',typ='TXM' ),
15920 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
15921 into=("EQ","LT","GT","NE","LE","GE","VIDE",
15922 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
15923 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
15924 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
15925 VALE =SIMP(statut='f',typ='R' ),
15926 VALE_I =SIMP(statut='f',typ='I' ),
15927 VALE_C =SIMP(statut='f',typ='C' ),
15928 VALE_K =SIMP(statut='f',typ='TXM' ),),
15930 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15931 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15935 b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
15937 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15938 # UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
15939 AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
15940 PRESENT_PRESENT('MAILLE','NOM_CMP'),
15941 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15942 PRESENT_PRESENT('NOEUD','NOM_CMP'),
15943 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15944 PRESENT_PRESENT('POINT','NOM_CMP'),
15945 EXCLUS('POINT','NOEUD'),
15946 EXCLUS('GROUP_MA','MAILLE'),
15947 EXCLUS('GROUP_NO','NOEUD'),
15948 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
15949 UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
15950 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
15951 NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
15952 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15953 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15954 LIST_ORDRE =SIMP(statut='f',typ=listis ),
15955 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15956 INST =SIMP(statut='f',typ='R',max='**'),
15957 LIST_INST =SIMP(statut='f',typ=listr8 ),
15958 FREQ =SIMP(statut='f',typ='R',max='**'),
15959 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
15960 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15961 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15962 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15963 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15965 NOM_CMP =SIMP(statut='f',typ='TXM' ),
15967 MAILLE =SIMP(statut='f',typ=ma),
15968 GROUP_MA =SIMP(statut='f',typ=grma),
15969 NOEUD =SIMP(statut='f',typ=no),
15970 GROUP_NO =SIMP(statut='f',typ=grno),
15971 POINT =SIMP(statut='f',typ='I' ),
15972 SOUS_POINT =SIMP(statut='f',typ='I' ),
15973 NOEUD_CHOC =SIMP(statut='f',typ=no),
15974 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
15977 b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
15978 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15979 # regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
15980 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
15981 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15982 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15983 LIST_ORDRE =SIMP(statut='f',typ=listis ),
15984 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15985 INST =SIMP(statut='f',typ='R',max='**'),
15986 LIST_INST =SIMP(statut='f',typ=listr8 ),
15987 FREQ =SIMP(statut='f',typ='R',max='**'),
15988 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
15989 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15990 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15991 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15992 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15994 b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
15995 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15996 PRESENT_PRESENT('MAILLE','NOM_CMP'),
15997 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15998 PRESENT_PRESENT('NOEUD','NOM_CMP'),
15999 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16000 PRESENT_PRESENT('POINT','NOM_CMP'),
16001 EXCLUS('POINT','NOEUD'),
16002 EXCLUS('GROUP_MA','MAILLE'),
16003 EXCLUS('GROUP_NO','NOEUD'),
16004 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16005 NOM_CMP =SIMP(statut='f',typ='TXM' ),
16007 MAILLE =SIMP(statut='f',typ=ma),
16008 GROUP_MA =SIMP(statut='f',typ=grma),
16009 NOEUD =SIMP(statut='f',typ=no),
16010 GROUP_NO =SIMP(statut='f',typ=grno),
16011 POINT =SIMP(statut='f',typ='I' ),
16012 SOUS_POINT =SIMP(statut='f',typ='I' ),
16013 NOEUD_CHOC =SIMP(statut='f',typ=no),
16014 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
16018 b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
16020 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16021 PRESENT_PRESENT('MAILLE','NOM_CMP'),
16022 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16023 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16024 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16025 PRESENT_PRESENT('POINT','NOM_CMP'),
16026 EXCLUS('POINT','NOEUD'),
16027 EXCLUS('GROUP_MA','MAILLE'),
16028 EXCLUS('GROUP_NO','NOEUD'),
16029 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16030 NOM_CMP =SIMP(statut='f',typ='TXM' ),
16032 MAILLE =SIMP(statut='f',typ=ma),
16033 GROUP_MA =SIMP(statut='f',typ=grma),
16034 NOEUD =SIMP(statut='f',typ=no),
16035 GROUP_NO =SIMP(statut='f',typ=grno),
16036 POINT =SIMP(statut='f',typ='I' ),
16037 SOUS_POINT =SIMP(statut='f',typ='I' ),
16038 NOEUD_CHOC =SIMP(statut='f',typ=no),
16039 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
16042 NOM_PARA =SIMP(statut='f',typ='TXM',
16043 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
16044 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
16045 NOM_RESU =SIMP(statut='f',typ='TXM' ),
16046 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
16047 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16048 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16050 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16051 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
16053 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16054 # CONFIGURATION MANAGEMENT OF EDF VERSION
16055 # ======================================================================
16056 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16057 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16058 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16059 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16060 # (AT YOUR OPTION) ANY LATER VERSION.
16062 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16063 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16064 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16065 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16067 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16068 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16069 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16070 # ======================================================================
16071 RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
16072 UIinfo={"groupes":("Résultats et champs",)},
16073 fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
16074 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
16075 INST =SIMP(statut='o',typ='R' ),
16076 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
16077 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16078 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
16079 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16081 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16082 # CONFIGURATION MANAGEMENT OF EDF VERSION
16083 # ======================================================================
16084 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16085 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16086 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16087 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16088 # (AT YOUR OPTION) ANY LATER VERSION.
16090 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16091 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16092 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16093 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16095 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16096 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16097 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16098 # ======================================================================
16099 # RESPONSABLE VABHHTS J.PELLET
16100 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
16101 fr=" ",docu="U4.71.02-b2",reentrant='n',
16102 UIinfo={"groupes":("Résultats et champs",)},
16103 CO =SIMP(statut='o',typ=assd),
16104 regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
16105 NOM_TABLE =SIMP(statut='f',typ='TXM' ),
16106 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
16107 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16109 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16110 # CONFIGURATION MANAGEMENT OF EDF VERSION
16111 # ======================================================================
16112 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16113 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16114 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16115 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16116 # (AT YOUR OPTION) ANY LATER VERSION.
16118 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16119 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16120 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16121 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16123 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16124 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16125 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16126 # ======================================================================
16127 def reso_grad_prod(MATR_ASSE,**args ):
16128 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16129 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16130 if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
16131 raise AsException("type de concept resultat non prevu")
16133 RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=reso_grad_prod,
16134 fr="Résolution par la méthode du gradient conjugué préconditionné",
16135 docu="U4.55.04-e",reentrant='f',
16136 UIinfo={"groupes":("Résolution",)},
16137 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16138 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
16139 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
16140 MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16141 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16142 REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16143 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
16144 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16146 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16147 # CONFIGURATION MANAGEMENT OF EDF VERSION
16148 # ======================================================================
16149 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16150 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16151 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16152 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16153 # (AT YOUR OPTION) ANY LATER VERSION.
16155 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16156 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16157 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16158 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16160 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16161 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16162 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16163 # ======================================================================
16164 # RESPONSABLE VABHHTS J.PELLET
16165 def reso_ldlt_prod(CHAM_NO,**args ):
16166 if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
16167 if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
16168 if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
16169 if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
16170 if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
16171 if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
16172 raise AsException("type de concept resultat non prevu")
16174 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
16175 fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
16176 UIinfo={"groupes":("Résolution",)},
16177 MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
16178 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
16179 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
16180 cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
16181 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
16182 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16183 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16185 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16186 # CONFIGURATION MANAGEMENT OF EDF VERSION
16187 # ======================================================================
16188 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16192 # (AT YOUR OPTION) ANY LATER VERSION.
16194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16201 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16202 # ======================================================================
16203 # RESPONSABLE BOYERE E.BOYERE
16204 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
16205 if AsType(RESU_GENE) == tran_gene : return dyna_trans
16206 if AsType(RESU_GENE) == mode_gene : return mode_meca
16207 if AsType(RESU_GENE) == mode_cycl : return mode_meca
16208 if AsType(RESU_GENE) == harm_gene : return dyna_harmo
16209 if AsType(RESULTAT) == mode_meca : return mode_meca
16210 raise AsException("type de concept resultat non prevu")
16212 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
16213 fr="Restituer dans la base physique des résultats en coordonnées généralisées",
16214 docu="U4.63.21-e",reentrant='n',
16215 UIinfo={"groupes":("Matrices/vecteurs",)},
16216 regles=(UN_PARMI('RESU_GENE','RESULTAT'),
16217 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
16218 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
16220 EXCLUS('MULT_APPUI','CORR_STAT'),
16221 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
16222 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
16223 EXCLUS('NOEUD','GROUP_NO'),
16224 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
16225 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
16226 RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
16227 RESULTAT =SIMP(statut='f',typ=mode_meca ),
16229 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
16230 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16231 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16232 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16233 INST =SIMP(statut='f',typ='R',max='**' ),
16234 LIST_INST =SIMP(statut='f',typ=listr8 ),
16235 FREQ =SIMP(statut='f',typ='R',max='**' ),
16236 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
16237 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
16238 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16239 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16240 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16241 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16242 NOM_CHAM =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
16243 into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
16244 "SIGM_ELNO_DEPL","FORC_NODA",) ),
16245 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16246 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16247 NOEUD =SIMP(statut='f',typ=no,max='**'),
16249 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16250 DIRECTION =SIMP(statut='f',typ='R',max='**' ),
16252 SQUELETTE =SIMP(statut='f',typ=squelette ),
16253 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
16254 SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
16255 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16257 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16258 # CONFIGURATION MANAGEMENT OF EDF VERSION
16259 # ======================================================================
16260 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16261 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16262 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16263 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16264 # (AT YOUR OPTION) ANY LATER VERSION.
16266 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16267 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16268 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16269 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16271 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16272 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16273 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16274 # ======================================================================
16275 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
16276 docu="U4.63.22-c",reentrant='n',
16277 UIinfo={"groupes":("Matrices/vecteurs",)},
16278 regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
16279 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
16280 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
16281 BANDE =SIMP(statut='f',typ='R',min=2,max=2 ),
16282 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16283 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
16284 NOEUD =SIMP(statut='o',typ=no,max='**'),
16285 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
16286 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16287 NOM_CHAM =SIMP(statut='o',typ='TXM',max=7,
16288 into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
16289 "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
16290 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
16291 EXCIT =FACT(statut='f',max=1,
16292 NOEUD =SIMP(statut='o',typ=no,max='**'),
16293 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
16295 MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
16296 OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
16297 into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
16298 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16300 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16301 # CONFIGURATION MANAGEMENT OF EDF VERSION
16302 # ======================================================================
16303 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16304 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16305 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16306 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16307 # (AT YOUR OPTION) ANY LATER VERSION.
16309 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16310 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16311 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16312 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16314 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16315 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16316 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16317 # ======================================================================
16318 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
16319 UIinfo={"groupes":("Gestion du travail",)},
16320 fr="Retour au fichier de commandes appelant",
16322 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16323 # CONFIGURATION MANAGEMENT OF EDF VERSION
16324 # ======================================================================
16325 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16326 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16327 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16328 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16329 # (AT YOUR OPTION) ANY LATER VERSION.
16331 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16332 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16333 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16334 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16336 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16337 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16338 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16339 # ======================================================================
16340 # RESPONSABLE ADBHHVV V.CANO
16341 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
16342 fr="Analyse mécanique statique non linéaire",
16343 docu="U4.51.03-f4",reentrant='f',
16344 UIinfo={"groupes":("Résolution",)},
16345 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
16346 MODELE =SIMP(statut='o',typ=modele),
16347 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
16348 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
16349 EXCIT =FACT(statut='o',min=1,max='**',
16350 CHARGE =SIMP(statut='o',typ=char_meca),
16351 FONC_MULT =SIMP(statut='f',typ=fonction),
16352 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
16353 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
16355 VARI_COMM =FACT(statut='f',
16356 regles=(AU_MOINS_UN('IRRA',),),
16357 IRRA =SIMP(statut='f',typ=evol_varc),
16359 COMP_INCR =FACT(statut='f',min=1,max='**',
16360 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
16383 "META_P_INL_PT_RE",
16387 "META_V_INL_PT_RE",
16423 "GRILLE_ISOT_LINE",
16424 "GRILLE_CINE_LINE",
16425 "GRILLE_PINTO_MEN",
16448 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16449 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16450 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16451 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16452 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16453 LABORD_1D =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16454 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16455 ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16456 MAZARS =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16457 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16458 BARENBLATT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16459 META_P_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16460 META_P_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16461 META_P_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16462 META_P_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16463 META_V_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16464 META_V_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16465 META_V_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16466 META_V_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16467 META_P_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16468 META_P_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16469 META_P_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16470 META_P_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16471 META_V_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16472 META_V_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16473 META_V_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16474 META_V_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16475 META_P_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16476 META_P_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16477 META_P_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16478 META_P_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16479 META_V_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16480 META_V_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16481 META_V_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16482 META_V_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16483 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16484 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16485 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
16486 VISC_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16487 VISC_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16488 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
16489 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
16490 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16491 ROUSSELIER =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16492 ROUSS_PR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16493 ROUSS_VISC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16494 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16495 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
16496 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16497 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16498 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16499 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16500 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16501 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16502 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16503 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16504 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
16505 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
16506 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16507 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16508 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16509 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16510 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16511 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16512 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16513 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16514 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16515 CAM_CLAY =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16516 LAIGLE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16517 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
16518 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16519 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16520 GRANGER_FD =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16521 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16522 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16523 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16524 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16525 KIT_THV =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16526 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16527 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16528 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16530 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
16571 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16572 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16573 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16574 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16575 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16576 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16577 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16578 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16579 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16580 LIQU_VAPE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16581 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16582 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16583 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16584 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16585 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16586 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16587 ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16588 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16590 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16591 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16592 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16593 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16594 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16595 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16597 COMP_ELAS =FACT(statut='f',min=1,max='**',
16598 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
16599 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16600 "ELAS_POUTRE_GR","CABLE")),
16601 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16602 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16603 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16604 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16605 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16606 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16607 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16608 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16609 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16610 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16612 ETAT_INIT =FACT(statut='f',min=1,max=1,
16613 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16614 EXCLUS('EVOL_NOLI','DEPL',),
16615 EXCLUS('EVOL_NOLI','SIGM',),
16616 EXCLUS('EVOL_NOLI','VARI',),
16617 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16618 EXCLUS('NUME_ORDRE','INST'), ),
16619 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
16620 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16621 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
16622 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
16623 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
16624 NUME_ORDRE =SIMP(statut='f',typ='I'),
16625 INST =SIMP(statut='f',typ='R'),
16626 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16627 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16628 NUME_DIDI =SIMP(statut='f',typ='I'),
16629 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
16631 INCREMENT =FACT(statut='o',min=1,max=1,
16632 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16633 EXCLUS('NUME_INST_FIN','INST_FIN'),),
16634 LIST_INST =SIMP(statut='o',typ=listr8),
16635 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16636 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16637 NUME_INST_INIT =SIMP(statut='f',typ='I'),
16638 INST_INIT =SIMP(statut='f',typ='R'),
16639 NUME_INST_FIN =SIMP(statut='f',typ='I'),
16640 INST_FIN =SIMP(statut='f',typ='R'),
16641 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16642 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
16643 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
16644 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16645 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16646 NOM_CHAM =SIMP(statut='f',typ='TXM',),
16647 NOM_CMP =SIMP(statut='f',typ='TXM',),
16648 VALE =SIMP(statut='f',typ='R'),
16650 NEWTON =FACT(statut='d',min=1,max=1,
16651 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
16652 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16653 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16654 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
16655 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
16656 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
16658 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
16659 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16660 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
16662 PILOTAGE =FACT(statut='f',min=1,max=1,
16663 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16664 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16665 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16666 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
16667 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
16668 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16669 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16670 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16671 NOEUD =SIMP(statut='f',typ=no,max='**'),
16672 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16673 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
16675 CONVERGENCE =FACT(statut='d',min=1,max=1,
16676 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
16677 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
16678 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
16679 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
16680 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
16681 RESI_INTE_RELA =SIMP(statut='f',typ='R'
16683 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
16684 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
16685 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16686 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16687 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16689 PARM_THETA =SIMP(statut='f',typ='R'
16691 SOLVEUR =FACT(statut='d',min=1,max=1,
16692 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16693 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16694 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16696 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16697 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16699 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16700 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16701 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16702 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16704 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16705 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16706 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16707 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16708 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16709 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16712 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16713 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16715 ARCHIVAGE =FACT(statut='f',min=1,max=1,
16716 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16717 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16718 LIST_INST =SIMP(statut='f',typ=(listr8) ),
16719 INST =SIMP(statut='f',typ='R',max='**' ),
16720 PAS_ARCH =SIMP(statut='f',typ='I' ),
16721 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16722 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
16723 NUME_INIT =SIMP(statut='f',typ='I'),
16724 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
16725 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16726 "VARI_NON_LOCAL","LANL_ELGA")),
16728 OBSERVATION =FACT(statut='f',min=1,max='**',
16729 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16730 PRESENT_PRESENT('MAILLE','POINT'),),
16731 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16732 "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16733 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
16734 LIST_ARCH =SIMP(statut='f',typ=listis),
16735 LIST_INST =SIMP(statut='f',typ=listr8),
16736 INST =SIMP(statut='f',typ='R',max='**' ),
16737 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16738 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16739 PAS_OBSE =SIMP(statut='f',typ='I'),
16740 NOEUD =SIMP(statut='f',typ=no,max='**'),
16741 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16742 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16743 POINT =SIMP(statut='f',typ='I',max='**'),
16745 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
16746 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16747 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16748 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16750 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16751 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16753 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16754 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16755 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16756 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16758 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16759 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16760 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16761 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16762 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16764 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16766 LAGR_NON_LOCAL =FACT(statut='f',max=1,
16767 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
16768 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
16769 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
16770 R =SIMP(statut='f',typ='R',defaut= 1000.),
16771 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
16773 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16774 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16776 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16777 # CONFIGURATION MANAGEMENT OF EDF VERSION
16778 # ======================================================================
16779 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16780 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16781 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16782 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16783 # (AT YOUR OPTION) ANY LATER VERSION.
16785 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16786 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16787 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16788 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16790 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16791 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16792 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16793 # ======================================================================
16794 # RESPONSABLE MCOURTOI M.COURTOIS
16795 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16796 docu="U4.92.02-f2",
16797 UIinfo={"groupes":("Impression",)},
16798 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16799 TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16800 VALEUR =FACT(statut='f',min=1,max='**',
16801 fr="Tester la valeur d une fonction ou d une nappe",
16802 regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16803 FONCTION =SIMP(statut='o',typ=fonction ),
16804 NOM_PARA =SIMP(statut='f',typ='TXM',max=2),
16805 VALE_PARA =SIMP(statut='o',typ='R',max=2),
16806 VALE_REFE =SIMP(statut='f',typ='R' ),
16807 VALE_REFE_C =SIMP(statut='f',typ='C' ),
16808 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16809 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16810 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16812 REFERENCE =SIMP(statut='f',typ='TXM',
16813 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16814 b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16815 VERSION =SIMP(statut='f',typ='TXM' ),
16818 ATTRIBUT =FACT(statut='f',min=1,max='**',
16819 fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16820 FONCTION =SIMP(statut='o',typ=fonction ),
16821 PARA =SIMP(statut='f',typ='R' ),
16822 CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16823 PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16824 ATTR =SIMP(statut='o',typ='TXM',
16825 into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16826 "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16827 ATTR_REFE =SIMP(statut='o',typ='TXM' ),
16828 REFERENCE =SIMP(statut='f',typ='TXM',
16829 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16830 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16831 VERSION =SIMP(statut='f',typ='TXM' ),
16834 TABL_INTSP =FACT(statut='f',min=1,max='**',
16835 fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16836 regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16837 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
16838 NOEUD_I =SIMP(statut='f',typ=no),
16839 NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
16840 b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16841 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
16843 b_noeud_i = BLOC (condition = "NOEUD_I != None",
16844 NOEUD_J =SIMP(statut='o',typ=no),
16845 NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
16846 NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
16848 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
16849 VALE_PARA =SIMP(statut='o',typ='R' ),
16850 VALE_REFE_C =SIMP(statut='o',typ='C' ),
16851 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16852 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16853 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16855 REFERENCE =SIMP(statut='f',typ='TXM',
16856 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16857 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16858 VERSION =SIMP(statut='f',typ='TXM' ),
16862 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16863 # RESPONSABLE VABHHTS J.PELLET
16864 # CONFIGURATION MANAGEMENT OF EDF VERSION
16865 # ======================================================================
16866 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16867 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16868 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16869 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16870 # (AT YOUR OPTION) ANY LATER VERSION.
16872 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16873 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16874 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16875 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16877 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16878 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16879 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16882 # ======================================================================
16883 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
16884 UIinfo={"groupes":("Impression",)},
16885 fr="Extraction d une valeur et comparaison à une valeur de référence",
16886 regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16887 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16889 CHAM_NO =FACT(statut='f',min=1,max='**',
16890 regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16891 EXCLUS('NOEUD','GROUP_NO'),
16892 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16893 PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16894 UN_PARMI('VALE','VALE_I','VALE_C'),),
16895 CHAM_GD =SIMP(statut='o',typ=cham_no),
16896 NOEUD =SIMP(statut='f',typ=no,max='**'),
16897 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16898 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16899 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16900 VALE =SIMP(statut='f',typ='R'),
16901 VALE_I =SIMP(statut='f',typ='I'),
16902 VALE_C =SIMP(statut='f',typ='C'),
16903 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16904 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16905 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16906 "NON_REGRESSION","AUTRE_ASTER")),
16907 VERSION =SIMP(statut='f',typ='TXM'),
16910 CHAM_ELEM =FACT(statut='f',min=1,max='**',
16911 regles=(UN_PARMI('MAILLE','TYPE_TEST',),
16912 EXCLUS('NOEUD','GROUP_NO','POINT'),
16913 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16914 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16915 PRESENT_PRESENT('POINT','NOM_CMP'),
16916 UN_PARMI('VALE','VALE_I','VALE_C'), ),
16917 CHAM_GD =SIMP(statut='o',typ=cham_elem),# CO()
16918 MAILLE =SIMP(statut='f',typ=ma),# CO()
16919 POINT =SIMP(statut='f',typ='I' ),
16920 SOUS_POINT =SIMP(statut='f',typ='I'),
16921 NOEUD =SIMP(statut='f',typ=no),# CO()
16922 GROUP_NO =SIMP(statut='f',typ=grno),# CO()
16923 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16924 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16925 VALE =SIMP(statut='f',typ='R' ),
16926 VALE_I =SIMP(statut='f',typ='I' ),
16927 VALE_C =SIMP(statut='f',typ='C' ),
16928 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16929 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16930 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16931 "NON_REGRESSION","AUTRE_ASTER") ),
16932 VERSION =SIMP(statut='f',typ='TXM' ),
16935 RESU =FACT(statut='f',min=1,max='**',
16936 regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
16937 UN_PARMI('NOM_CHAM','PARA'),
16938 PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
16939 PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
16940 EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
16941 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16942 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16943 PRESENT_PRESENT('POINT','NOM_CMP'),
16944 UN_PARMI('VALE','VALE_I','VALE_C') ,),
16945 RESULTAT =SIMP(statut='o',typ=resultat),
16946 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16947 fr="Liste des paramètres de sensibilité.",
16948 ang="List of sensitivity parameters"),
16949 NUME_ORDRE =SIMP(statut='f',typ='I'),
16950 INST =SIMP(statut='f',typ='R'),
16951 FREQ =SIMP(statut='f',typ='R'),
16952 NUME_MODE =SIMP(statut='f',typ='I'),
16953 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
16954 NOM_CAS =SIMP(statut='f',typ='TXM'),
16955 ANGL =SIMP(statut='f',typ='R'),
16956 PARA =SIMP(statut='f',typ='TXM'),
16957 NOM_CHAM =SIMP(statut='f',typ='TXM'),
16958 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16959 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16960 NOEUD =SIMP(statut='f',typ=no,max='**'),
16961 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16962 POINT =SIMP(statut='f',typ='I'),
16963 SOUS_POINT =SIMP(statut='f',typ='I'),
16964 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16965 VALE =SIMP(statut='f',typ='R'),
16966 VALE_I =SIMP(statut='f',typ='I'),
16967 VALE_C =SIMP(statut='f',typ='C'),
16968 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
16969 PRECISION =SIMP(statut='f',typ='R',max=2),
16970 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16971 "NON_REGRESSION","AUTRE_ASTER",) ),
16972 VERSION =SIMP(statut='f',typ='TXM' ),
16975 OBJET =FACT(statut='f',max='**',
16976 regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
16977 UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
16978 NOM =SIMP(statut='o',typ='TXM'),
16979 INDICE =SIMP(statut='f',typ='I'),
16980 NUM_OBJ =SIMP(statut='f',typ='I'),
16981 S_R =SIMP(statut='f',typ='R'),
16982 S_I =SIMP(statut='f',typ='I'),
16983 RESUME =SIMP(statut='f',typ='I'),
16984 VALE =SIMP(statut='f',typ='R'),
16985 VALE_I =SIMP(statut='f',typ='I'),
16986 VALE_C =SIMP(statut='f',typ='C'),
16987 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16988 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16989 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16990 "NON_REGRESSION","AUTRE_ASTER",) ),
16991 VERSION =SIMP(statut='f',typ='TXM' ),
16994 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16995 # CONFIGURATION MANAGEMENT OF EDF VERSION
16996 # ======================================================================
16997 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16998 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16999 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17000 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17001 # (AT YOUR OPTION) ANY LATER VERSION.
17003 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17004 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17005 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17006 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17008 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17009 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17010 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17011 # ======================================================================
17012 # RESPONSABLE VABHHTS J.PELLET
17013 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
17014 docu="U4.92.03-c1",
17015 UIinfo={"groupes":("Impression",)},
17016 regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
17017 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17018 # concept table à créer
17019 TABLE =SIMP(statut='o',typ=table),
17021 FILTRE =FACT(statut='f',min=1,max='**',
17022 NOM_PARA =SIMP(statut='o',typ='TXM' ),
17023 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
17024 into=("EQ","LT","GT","NE","LE","GE","VIDE",
17025 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
17026 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
17027 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
17028 VALE =SIMP(statut='f',typ='R' ),
17029 VALE_I =SIMP(statut='f',typ='I' ),
17030 VALE_C =SIMP(statut='f',typ='C' ),
17031 VALE_K =SIMP(statut='f',typ='TXM' ),),
17033 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17034 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17036 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17037 NOM_PARA =SIMP(statut='o',typ='TXM' ),
17038 VALE =SIMP(statut='f',typ='R' ),
17039 VALE_I =SIMP(statut='f',typ='I' ),
17040 VALE_C =SIMP(statut='f',typ='C' ),
17041 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17042 PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
17043 REFERENCE =SIMP(statut='f',typ='TXM',
17044 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17045 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17046 VERSION =SIMP(statut='f',typ='TXM' ),
17049 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17050 # CONFIGURATION MANAGEMENT OF EDF VERSION
17051 # ======================================================================
17052 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17053 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17054 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17055 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17056 # (AT YOUR OPTION) ANY LATER VERSION.
17058 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17059 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17060 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17061 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17063 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17064 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17065 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17066 # ======================================================================
17067 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
17068 UIinfo={"groupes":("Résolution",)},
17069 fr="Analyse thermique linéaire stationnaire ou transitoire",
17070 MODELE =SIMP(statut='o',typ=modele),
17071 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
17072 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
17073 EXCIT =FACT(statut='o',min=1,max='**',
17074 CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
17075 FONC_MULT =SIMP(statut='f',typ=fonction),
17077 INCREMENT =FACT(statut='f',min=1,max=1,
17078 LIST_INST =SIMP(statut='o',typ=listr8 ),
17079 NUME_INIT =SIMP(statut='f',typ='I'),
17080 NUME_FIN =SIMP(statut='f',typ='I'),
17082 TEMP_INIT =FACT(statut='f',min=1,max=1,
17083 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17084 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17085 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17086 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
17087 VALE =SIMP(statut='f',typ='R'),
17088 NUME_INIT =SIMP(statut='f',typ='I'),
17090 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17091 fr="Liste des paramètres de sensibilité.",
17092 ang="List of sensitivity parameters",
17094 SENS_INIT =FACT(statut='f',min=1,max=1,
17095 regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
17096 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17097 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17098 NUME_INIT =SIMP(statut='f',typ='I'),
17100 SOLVEUR =FACT(statut='d',min=1,max=1,
17101 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17102 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17103 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17105 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17106 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17108 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17109 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17110 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17111 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17113 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17114 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17115 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17116 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17117 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17118 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17121 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17123 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
17124 ARCHIVAGE =FACT(statut='f',min=1,max=1,
17125 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
17126 LIST_ARCH =SIMP(statut='f',typ=listis),
17127 LIST_INST =SIMP(statut='f',typ=listr8),
17128 INST =SIMP(statut='f',typ='R',max='**'),
17129 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17130 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
17131 into=("RELATIF","ABSOLU")),
17132 PAS_ARCH =SIMP(statut='f',typ='I'),
17133 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
17135 TITRE =SIMP(statut='f',typ='TXM',max='**'),
17136 INFO =SIMP(statut='f',typ='I',into=(1,2)),
17138 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17139 # CONFIGURATION MANAGEMENT OF EDF VERSION
17140 # ======================================================================
17141 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17142 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17143 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17144 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17145 # (AT YOUR OPTION) ANY LATER VERSION.
17147 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17148 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17149 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17150 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17152 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17153 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17154 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17155 # ======================================================================
17156 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
17157 UIinfo={"groupes":("Résolution",)},
17158 fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
17159 MODELE =SIMP(statut='o',typ=(modele) ),
17160 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
17161 CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
17162 COMP_THER_NL =FACT(statut='d',min=1,max='**',
17163 RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
17171 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17172 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17173 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
17174 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17176 EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
17177 EXCIT =FACT(statut='o',min=1,max='**',
17178 CHARGE =SIMP(statut='o',typ=char_ther),
17179 FONC_MULT =SIMP(statut='f',typ=fonction),
17181 INCREMENT =FACT(statut='f',min=1,max=1,
17182 LIST_INST =SIMP(statut='o',typ=listr8),
17183 NUME_INIT =SIMP(statut='f',typ='I'),
17184 NUME_FIN =SIMP(statut='f',typ='I'),
17186 TEMP_INIT =FACT(statut='f',min=1,max=1,
17187 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17188 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
17189 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17190 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
17191 VALE =SIMP(statut='f',typ='R'),
17192 NUME_INIT =SIMP(statut='f',typ='I'),
17194 NEWTON =FACT(statut='d',min=1,max=1,
17195 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17196 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17197 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
17199 CONVERGENCE =FACT(statut='d',min=1,max=1,
17200 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
17201 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
17202 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
17204 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17205 fr="Liste des paramètres de sensibilité.",
17206 ang="List of sensitivity parameters",
17208 SOLVEUR =FACT(statut='d',min=1,max=1,
17209 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17210 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
17211 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17213 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
17214 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17216 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17217 fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
17218 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17219 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17221 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
17222 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17223 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17224 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17225 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17226 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17229 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17230 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
17232 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
17233 ARCHIVAGE =FACT(statut='f',min=1,max=1,
17234 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
17235 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
17236 LIST_INST =SIMP(statut='f',typ=(listr8) ),
17237 INST =SIMP(statut='f',typ='R',max='**'),
17238 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17239 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
17240 PAS_ARCH =SIMP(statut='f',typ='I'),
17241 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
17243 TITRE =SIMP(statut='f',typ='TXM',max='**'),
17244 OPTION =SIMP(statut='f',typ='TXM',max='**',
17245 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
17246 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
17249 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17250 # CONFIGURATION MANAGEMENT OF EDF VERSION
17251 # ======================================================================
17252 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17253 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17254 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17255 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17256 # (AT YOUR OPTION) ANY LATER VERSION.
17258 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17259 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17260 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17261 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17263 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17264 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17265 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17266 # ======================================================================
17267 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
17268 fr="Thermique non lineaire en repere mobile",
17269 docu="U4.54.03-b",reentrant='f',
17270 UIinfo={"groupes":("Résolution",)},
17271 MODELE =SIMP(statut='o',typ=modele ),
17272 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
17273 CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
17274 EXCIT =FACT(statut='o',min=1,max='**',
17275 CHARGE =SIMP(statut='o',typ=char_ther ),
17276 FONC_MULT =SIMP(statut='c',typ=fonction ),
17278 TEMP_INIT =FACT(statut='f',min=1,max=1,
17279 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
17280 NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
17282 CONVERGENCE =FACT(statut='d',min=1,max=1,
17283 CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17284 CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
17285 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
17286 ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17288 SOLVEUR =FACT(statut='d',min=1,max=1,
17289 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17290 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17291 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17293 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17294 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17296 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17297 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17298 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17299 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17301 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17302 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17303 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17304 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17305 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17306 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17308 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17309 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17311 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
17312 INFO =SIMP(statut='f',typ='I',into=(1,2) ),